Call Host, Log in and Run Application

;
; This example calls an HP e3000 and logs in and runs an application.
; 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
WAITS :^Q
; send login command
SEND HELLO MGR.Minisoft
; wait for password prompt from host
WAITS PASSWORD:^Q
; send password
SEND SKINOW
; wait for prompt from host
WAITS :^Q
; run the application
SEND EDITOR
GOTO FINISH
LABEL NOANSWER
; send a carriage return to reset modem
XMITC 13
; prompt user for retry
ASK NO ANSWER, REDIAL?
; if user want to retry go to label dial
IFYES DIAL
LABEL FINISH
END