home *** CD-ROM | disk | FTP | other *** search
/ Unprotect 6 / Unprotect-6.0.iso / update / airwr116 / sprint.cmd < prev    next >
Encoding:
Text File  |  1994-06-21  |  1.1 KB  |  92 lines
  1. '
  2. ' Sample SPRINTnet login script
  3. '
  4. ' DEBUG_TOGGLE
  5.  
  6. PRINT "\r\nAir Warrior login via SPRINTnet...\r\n" 1 0
  7.  
  8. ' Set the redial count to 5 trys
  9.  
  10. REDIAL 5
  11.  
  12. SEND_INIT 30 0
  13.  
  14. RECEIVE 30 "OK"
  15.     ON 0 :DIAL
  16.     ERROR_GOTO :NOMODEM
  17.  
  18. :REDIAL
  19.  
  20. PRINT "\r\nPausing before retry...\r\n" 1 0
  21.  
  22. WAIT 10
  23.  
  24. :DIAL
  25.  
  26. WAIT 2
  27.  
  28. PRINT "\r\nDialing Sprint...\r\n" 1 0
  29.  
  30. DIALING 0
  31.  
  32. PRINT "\r\nWaiting for answer...\r\n" 1 0
  33.  
  34. RECEIVE 30 "CONNECT" "BUSY" "NO CARRIER"
  35.     ON 0    :LOGIN
  36.     ON 1    :REDIAL
  37.     ON 2    :REDIAL
  38.     ERROR_GOTO :ERROR
  39.  
  40. :LOGIN
  41.  
  42. WAIT 5
  43.  
  44. SEND 2 "@" 0
  45. WAIT 1
  46.  
  47. SEND 2 "\r" 0
  48.  
  49. RECEIVE 30 "TERMINAL="
  50.     ON 0 :SPRINT1
  51.     ERROR_GOTO :ERROR
  52.  
  53. :SPRINT1
  54.  
  55. SEND 20 "D1\r" 0
  56.  
  57. RECEIVE 30 "@"
  58.     ON 0 :SPRINT2
  59.     ERROR_GOTO :ERROR
  60.  
  61. :SPRINT2
  62.  
  63. SEND 20 "C GENIE\r" 0
  64.  
  65. RECEIVE 30 "U#="
  66.     ERROR_GOTO    :ERROR
  67. WAIT 1
  68.  
  69. SEND_LOGIN 10 0
  70.  
  71. RECEIVE 60 "<CR> to continue"
  72.     ERROR_GOTO    :ERROR
  73.  
  74. SEND_COMMAND 10 0
  75.  
  76. :SUCCESS
  77. PRINT "\r\nLogin complete\r\n" 1 0
  78. DONE
  79.  
  80.  
  81. :NOMODEM
  82.  
  83. PRINT "\r\nModem is not responding!\r\n" 1 0
  84. ERROR_END
  85.  
  86. :ERROR
  87.  
  88. PRINT "\r\nLogin failed\r\n" 1 0
  89. ERROR_END
  90. DONE
  91.  
  92.