home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
PC Gamer 8
/
1995-07_Disc_8.iso
/
genie
/
airwarri
/
airwar2.lzh
/
H2HLOGIN.CMD
< prev
next >
Wrap
OS/2 REXX Batch file
|
1992-11-09
|
678b
|
56 lines
'
' Sample head-to-head login script
'
PRINT "\r\nAir Warrior head-to-head login...\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 \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
INIT_H2H_LINK
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