home *** CD-ROM | disk | FTP | other *** search
/ zipcon.net / www.zipcon.net.tar / www.zipcon.net / pub / win31 / allfiles / z < prev   
Text File  |  1998-12-29  |  548b  |  36 lines
  1. %attempts = 10
  2.  
  3. DISPLAY \n
  4. DISPLAY \n
  5. DISPLAY ======= Now dialing Zipnet, press ESC to abort ==========\n
  6. DISPLAY \n
  7. DISPLAY \n
  8. #
  9. # initialize modem
  10. #
  11.  
  12. OUTPUT ATZ\13
  13. input 10 OK
  14.  
  15. #
  16. # send phone number
  17. #
  18. %n = 0
  19. repeat
  20.   if %n = %attempts
  21.     DISPLAY ======== Too many dial attempts =========\n
  22.     DISPLAY ======== sorry, try again later =========\n
  23.     abort
  24.   end
  25.   output "atdt*70,2063363235"\13
  26.   %ok = [input 60 CONNECT]
  27.   %n = %n + 1
  28. until %ok
  29.  
  30. #
  31. # send username and password
  32. #
  33. input 30 gin: 
  34. ONLINE
  35. sleep 1
  36.