home *** CD-ROM | disk | FTP | other *** search
/ PC Gamer 10 / 1995-09_Disc_10.iso / genie / airwarri / airwar2.lzh / SIGNUP.CMD < prev    next >
OS/2 REXX Batch file  |  1992-11-13  |  797b  |  66 lines
  1. '
  2. ' Sample GEnie login script
  3. '
  4.  
  5. PRINT "\r\nGEnie signup script\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 20 "U#="
  46.     ERROR_GOTO    :ERROR
  47.  
  48. WAIT 1
  49.  
  50. SEND 30 "xtx99321,svga\r" 0
  51.  
  52. :SUCCESS
  53. PRINT "\r\nLogin complete\r\n" 1 0
  54. DONE
  55.  
  56.  
  57. :NOMODEM
  58.  
  59. PRINT "\r\nModem is not responding!\r\n" 1 0
  60. ERROR_END
  61.  
  62.  
  63. :ERROR
  64.  
  65. PRINT "\r\nLogin failed\r\n" 1 0
  66. ERROR_END