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