home *** CD-ROM | disk | FTP | other *** search
/ Cardinal Internet Access Solutions / Cardinal_Internet_Access_Solutions(1996-08-19).iso / files / internet / slipnet / slipnet.z / CHICAGO.CMD < prev    next >
OS/2 REXX Batch file  |  1994-12-02  |  2KB  |  107 lines
  1. #
  2. # initialize modem
  3. #
  4. output atz\13
  5. input 10 OK\n
  6. #
  7. # set modem to indicate DCD
  8. #
  9. #output at&c1
  10. #input 10 OK\n
  11. #
  12. # send phone number
  13. %tries = 0
  14. %connect = 0
  15. repeat
  16.   %tries = %tries +1
  17.   $result = "Initialize"
  18.   display "Try #:" %tries  \r
  19. # Edit the xxx-xxx-xxxx to be the access number assigned to you by slip.net
  20. # *** ENTER PHONE NUMBER HERE***
  21. output atdt9*,12177922777\13
  22. #
  23. %timeout = [read 45 $result]
  24. %timeout = [read 45 $result]
  25.   # check if timed out
  26.   # this could be modem failure , or service
  27.   # took more than a minute to respond etc.
  28.   if %timeout = 0
  29.     display \n
  30.     display "ERROR Timed-out. Hangup line." \n
  31.     output +++\r
  32.     output ath0\r
  33.     %connect = 0
  34.     # abort
  35.   end
  36.  
  37.   # Retries Expired
  38.   # Make this number as large as you want
  39.   if %tries = 50
  40.     display "VHT ( Very High Traffic)." \7\n
  41.     display "Trying some other time." \n
  42.     output +++\r
  43.     output ath0\r
  44.     display "Aborting." \n
  45.     abort
  46.   end
  47.  
  48.   # Check if Modem Returns BUSY
  49.   # does not work with $result = "CONNECT" ??
  50.   # but since usually the only two conditions
  51.   # are busy and not busy , this will work
  52.   # NO CARRIER for example will pass through but
  53.   # will be traped in the  wait 30 dcd command below
  54.   if $result = "BUSY"
  55.     # display "This number is Busy." \n
  56.     %connect = 0
  57.     display "Waiting for a while." \n
  58.     sleep 10
  59.   else
  60.     display "Trying to Connect."\7\n
  61.     %connect = 1
  62.   end
  63. until %connect = 1
  64.  
  65. # now we are connected.
  66. # # commented out next 2 lines - TED 11/05/94
  67. #input 60 CONNECT
  68. #display connected
  69. #
  70. #  wait till it's safe to send because some modem's hang up
  71. #  if you transmit during the connection phase
  72. #
  73. wait 30 dcd
  74. #
  75. #  wait for the username prompt
  76. #
  77. input 30 login:
  78. #
  79. # Edit  user_name to be your slip login id assigned to you by slip.net
  80. # (Be sure to put a 'S' first!)
  81. # ***ENTER USERNAME HERE***
  82. output Sxxxxxxxxxx\13
  83. #
  84. # and the password
  85. #
  86. input 30 Password:
  87. #
  88. # edit your_password to be your slip login password.
  89. # ***ENTER PASSWORD HERE***
  90. output xxxxxxxx\13
  91. #
  92. # we are now logged in
  93. #
  94. # wait for the address string
  95. #
  96. input 30 to
  97. #
  98. # parse address
  99. #
  100. address 30
  101. #
  102. # we are now connected, logged in and in slip mode.
  103. #
  104. display \n
  105. display Connected.  Your IP address is \i.\n
  106. online
  107.