home *** CD-ROM | disk | FTP | other *** search
/ PC Gamer 10 / 1995-09_Disc_10.iso / genie / airwarri / airwar2.lzh / GENIEDBG.CMD < prev    next >
OS/2 REXX Batch file  |  1992-11-09  |  876b  |  73 lines
  1. DEBUG_TOGGLE
  2.  
  3. '
  4. ' Sample GEnie login script
  5. '
  6.  
  7. PRINT "\r\nAir Warrior login...\r\n" 1 0
  8.  
  9. ' Set the redial count to 5 trys
  10.  
  11. REDIAL 5
  12.  
  13. SEND_INIT 10 0
  14.  
  15. RECEIVE 10 "OK"
  16.     ON 0 :DIAL
  17.     ERROR_GOTO :NOMODEM
  18.  
  19. :REDIAL
  20.  
  21. PRINT "\r\nPausing before retry...\r\n" 1 0
  22.  
  23. WAIT 10
  24.  
  25. :DIAL
  26.  
  27. WAIT 2
  28.  
  29. PRINT "\r\nDialing GEnie...\r\n" 1 0
  30.  
  31. DIALING 0
  32.  
  33. PRINT "\r\nWaiting for answer...\r\n" 1 0
  34.  
  35. RECEIVE 30 "CONNECT" "BUSY" "NO CARRIER"
  36.     ON 0    :LOGIN
  37.     ON 1    :REDIAL
  38.     ON 2    :REDIAL
  39.     ERROR_GOTO :ERROR
  40.  
  41. :LOGIN
  42.  
  43. WAIT 2
  44.  
  45. SEND 30 "HHH" 50
  46.  
  47. RECEIVE 20 "U#="
  48.     ERROR_GOTO    :ERROR
  49.  
  50. WAIT 1
  51.  
  52. SEND_LOGIN 10 0
  53.  
  54. RECEIVE 60 "<CR> to continue"
  55.     ERROR_GOTO    :ERROR
  56.  
  57. SEND_COMMAND 10 0
  58.  
  59. :SUCCESS
  60. PRINT "\r\nLogin complete\r\n" 1 0
  61. DONE
  62.  
  63.  
  64. :NOMODEM
  65.  
  66. PRINT "\r\nModem is not responding!\r\n" 1 0
  67. ERROR_END
  68.  
  69.  
  70. :ERROR
  71.  
  72. PRINT "\r\nLogin failed\r\n" 1 0
  73. ERROR_END