home *** CD-ROM | disk | FTP | other *** search
Text File | 1990-08-16 | 744 b | 44 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 "ATDP9953600^M"
- waitfor string "connect"
- if failed goto redial
- set duplex Full
- buffer Off
- # logon
- pause 4
- xmit "^M"
- set timer 5
- waitfor string ">"
- if failed goto failed
- xmit "SET FLOW NONE^M"
- waitfor string ">"
- if failed goto failed
- xmit "CONNECT VX1^M"
- # 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 VAX - NYU 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
-