Call Host and Log in

# This example calls an HP e3000 and logs in.
# 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 ANYPW
# wait for prompt from host
WAITS :^Q
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