home *** CD-ROM | disk | FTP | other *** search
- trace on
- Open COM2:57600
- :try_again
- output \rAT\r
- waitfor 1 OK
- output AT&FM0DT ISPNUMBER \r
- rget s0 10
- :again
- rget s0 30
- FIND s0 RINGING
- if found
- goto again
- endif
- FIND s0 BUSY
- if found
- gosub wait
- goto try_again
- endif
- FIND s0 CARRIER
- if found
- waitfor 10 CONNECT
- else
- FIND s0 CONNECT
- if not found
- Display Error Connecting
- exit
- endif
- endif
- Display CONNECTED
-
- waitfor 5 :
- output LOGINNAMEHERE \r
- waitfor 5 :
- output PASSWORDHERE \r
- waitfor 5 >
- output OTHERSHITHERE \r
- ppp
- online
- exit
- :wait
- Display Wait 15 seconds and try again ...
- sleep 15
- return
-