home *** CD-ROM | disk | FTP | other *** search
/ PC Gamer 4 / 1995-03_Disc_4.iso / genie / airwarri / airwar2.lzh / H2HHOST.CMD < prev    next >
OS/2 REXX Batch file  |  1992-11-17  |  483b  |  34 lines
  1. '
  2. ' Sample head-to-head host initialization
  3. '
  4.  
  5. PRINT "\r\nAir Warrior head-to-head host initialization...\r\n" 1 0
  6.  
  7. SEND_INIT 10 0
  8.  
  9. RECEIVE 10 "OK"
  10.     ON 0 :INIT
  11.     ERROR_GOTO :NOMODEM
  12.  
  13. :INIT
  14.  
  15. WAIT 2
  16.  
  17. SEND_AUTOANSWER 10 0
  18.  
  19. RECEIVE 10 "OK"
  20.     ON 0 :DONE
  21.     ERROR_GOTO :NOMODEM
  22.  
  23.  
  24. :DONE
  25. PRINT "\r\nHost initialization complete\r\n" 1 0
  26. PRINT "\r\nWaiting to receive incoming call\r\n" 1 0
  27. DONE
  28.  
  29.  
  30. :NOMODEM
  31.  
  32. PRINT "\r\nModem is not responding!\r\n" 1 0
  33. ERROR_END
  34.