Xerox -05W, Руководство пользователя, Страница: 214 / 370

12-10
Creating A Script File
IF (errno)
{
MSGBOX "'set file type binary' did not get 'C-Kermit>' prompt",1,reply
LET success = 0
RETURN
}
RETURN
****************************
* Setting Kermit to 'server' *
****************************
lab3:
LET success = 1
PUT "server_r"
HCMP 60,"reconnect._n_r_n"
IF (errno)
{
LET success = 0
MSGBOX “setting remote Kermit to ‘server’ failed”,1,reply
}
RETURN
****************************************
* Remote Send a 'filename' using Kermit *
****************************************
lab4:
LET success = 1
FTU INITIATE
FTU SET TRANSFER KERMIT
IF (errno)
{
LET success = 0
MSGBOX "Could not set 'TRANSFER' mode to 'KERMIT'",1,reply
GOTO lab6:
}
FTU SET HOW SEND
IF (errno)
{
LET success = 0
MSGBOX "Failed to set 'HOW' parameter to 'SEND'",1,reply
GOTO lab6:
}
FTU START files
IF (errno)
{
LET success = 0
LET message = "'KERMIT remote SEND' failed (errno = " + errno + ")"
MSGBOX message,1,reply
GOTO lab6: