home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
PC Gamer 8
/
1995-07_Disc_8.iso
/
genie
/
airwarri
/
airwar2.lzh
/
SIGNUP.CMD
< prev
next >
Wrap
OS/2 REXX Batch file
|
1992-11-13
|
797b
|
66 lines
'
' Sample GEnie login script
'
PRINT "\r\nGEnie signup script\r\n" 1 0
' Set the redial count to 5 trys
REDIAL 5
SEND_INIT 10 0
RECEIVE 10 "OK"
ON 0 :DIAL
ERROR_GOTO :NOMODEM
:REDIAL
PRINT "\r\nPausing before retry...\r\n" 1 0
WAIT 10
:DIAL
WAIT 2
PRINT "\r\nDialing GEnie...\r\n" 1 0
DIALING 0
PRINT "\r\nWaiting for answer...\r\n" 1 0
RECEIVE 30 "CONNECT" "BUSY" "NO CARRIER"
ON 0 :LOGIN
ON 1 :REDIAL
ON 2 :REDIAL
ERROR_GOTO :ERROR
:LOGIN
WAIT 2
SEND 30 "HHH" 50
RECEIVE 20 "U#="
ERROR_GOTO :ERROR
WAIT 1
SEND 30 "xtx99321,svga\r" 0
:SUCCESS
PRINT "\r\nLogin complete\r\n" 1 0
DONE
:NOMODEM
PRINT "\r\nModem is not responding!\r\n" 1 0
ERROR_END
:ERROR
PRINT "\r\nLogin failed\r\n" 1 0
ERROR_END