home *** CD-ROM | disk | FTP | other *** search
Text File | 1991-04-04 | 625 b | 38 lines | [04] ASCII Text (0x0000) |
- display "^L"
- set timer 2
- set baud 2400
- # ready
- xmit "ATS0=0S7=75^M"
- waitfor string "OK"
- if failed goto ready
- set duplex full
- set timer 30
- # dial
- xmit "ATDT12127525505^M"
- waitfor string "connect"
- if failed goto redial
- set duplex full
- buffer Off
- # logon
- pause 4
- xmit "HHH^M"
- set duplex half
- # manual
- stop
- # failed
- display "^M^JLogon Sequence Failed. Must try Manual Logon.^M^J^J"
- stop
- # redial
- xmit "ATH^M"
- waitfor string "NO CARRIER"
- display "^M^JPush D to Dial GENIE again; anything else to stop."
- waitfor keyboard
- display "^J^M"
- if keyboard "^[" goto exit
- if keyboard "D" goto dial
- goto exit
- # exit
- hangup
- display "^L"
- stop
-