Xerox -05W - Manual (Page 213)

12-9
Creating A Script File
Initiating A File Transfer
The following script file example will attempt to initiate a file transfer and display
various informative messages.
******************************
* Transfer a file using Kermit *
******************************
VAR %reply
VAR %success = 1
VAR $files = ""
VAR $message
HRCV HOLD
GOSUB lab2:
IF (success == 0)
GOTO lab1:
GOSUB lab3:
IF (success == 0)
GOTO lab1:
DIALOGUE "File Transfer","Send Filename ?",files
IF (errno)
GOTO lab1:
IF (files == "")
GOTO lab1:
GOSUB lab4:
IF (success == 0)
GOTO lab1:
GOSUB lab5:
HRCV PROC
EXIT
*******************
* Initiate Kermit *
*******************
lab2:
PUT "kermit_r"
HCMP 60,"C-Kermit>"
IF (errno)
{
MSGBOX "'kermit' did not get 'C-Kermit>' prompt",1,reply
LET success = 0
RETURN
}
PUT "set file type binary_r"
HCMP 60,"C-Kermit>"