Справочник Пользователя для Xerox -07W & -11W

Скачать
Страница из 370
12-11
Creating A Script File
}
ELSE
{
    MSGBOX "'KERMIT remote SEND' successful",1,reply
}
lab6:
FTU  CANCEL
RETURN
***********************************
*    Take Kermit out of 'server' mode    *
***********************************
lab5:
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 lab7:
}
FTU SET REMOTE FINISH
IF (errno)
{
    LET success = 0
    MSGBOX "Failed to set 'REMOTE' parameter to 'FINISH'",1,reply
    GOTO lab7:
}
FTU SET HOW REMOTE
IF (errno)
{
    LET success = 0
    MSGBOX "Failed to set 'HOW' parameter to 'REMOTE'",1,reply
    GOTO lab7:
}
FTU START
IF (errno)
{
    LET success = 0
    LET message = "'KERMIT REMOTE FINISH' failed (errno = " + errno + ")"
    MSGBOX message,1,reply
    GOTO lab7:
}
lab7:
FTU CANCEL
RETURN