Call
Host, Log in and Transfer File
; This example
calls an HP e3000 and logs in, transfers a file, and logs off.
; If the host does not answer, the user is prompted to
retry.
LABEL DIAL
; dial a number
SEND ATDT15551212
; set timer to 40 seconds
TIMER 40
; go to label noanswer if timer expires
ONTIMER NOANSWER
; wait for modems to connect
WAITS CONNECT 2400
LABEL CR
; send a carriage return
XMITC 13
; set timer to 5 seconds
TIMER
5
; go to label cr if timer expires
ONTIMER CR
; wait for prompt from host (CTRL Q)
WAITC 17
; send login command
SEND HELLO MGR.Minisoft
; wait for password prompt from host
WAITS PASSWORD:^Q
; send password
SEND ANYPW
; wait for prompt from host (CTRL Q)
WAITC 17
; specify local and host file, then start upload
LOCF C:\DATA\BUDGET.DAT
HOSTF BUDGET.DATA.Minisoft
BINARY
RECSIZE 256
UPLOAD
GOTO FINISH
LABEL NOANSWER
; send a carriage return to reset modem
XMITC 13
; prompt user for retry
ASK NO ANSWER, REDIAL?
; if user wants to retry, go to label dial
IFYES DIAL
LABEL FINISH
SEND BYE
END
|
