home *** CD-ROM | disk | FTP | other *** search
/ PC/CD Review 40 / PCRFEB.BIN / internav / internav.pr$ / REGISTER.BMC < prev   
Text File  |  1994-10-20  |  2KB  |  88 lines
  1. **
  2. ** REGISTER.BMC -- Registration Logon
  3. **
  4. ** This script is used to setup and dial the modem, log onto DELPHI's
  5. ** toll-free registration number and open a terminal window.  It 
  6. ** performs no other functions.
  7. **
  8. ** Last Updated 9/2/94 6:45 pm by EFR
  9. **
  10.  
  11. Screen("On")
  12. LocalEcho("Off")
  13. SetDelay(50)
  14.  
  15. Show("Initialize Modem . . .")
  16. ModemPuts("$(CodeAT)Z$(CommEol)")
  17. Gets("$(ResultOK)",2000,0)
  18. ModemPuts("$(CodeAT)$(CmdSetup1)$(CommEol)")
  19. Gets("$(ResultOK)",2000,0)
  20.  
  21. Show("Dialing London registration number . . .")
  22. ModemPuts("$(CodeAT)$(CmdDial)$(DialPrefix)0171-284-2424$(CommEol)")
  23.  
  24. WatchStart(600000)
  25.  
  26.         WatchPoint(1,1,"CONNECTED")
  27.         WatchDelete(1)
  28.  
  29.         WatchPoint(2,1,"CONNECT ")
  30.         Gets("\n",1000,0);
  31.                     Show("Connected to London SprintNet PAD. . .")
  32.         Wait(2000)
  33. ** Put a comment marker (an asterisk) in front of the
  34. ** next command (ModemPuts("@")) for 300 and 1200 bps
  35. ** access.
  36.         ModemPuts("@")
  37.         ModemPuts("D$(CommEol)")
  38.         WatchDelete(2)
  39.  
  40.     WatchPoint(3,1,"NO CARRIER")
  41.  
  42.         Return("Unable to connect.  Check your local access number, access method, and modem port speed settings under Options and try again.")
  43.  
  44.     WatchPoint(4,50,"Username:")
  45.  
  46.                 Show("Sending GODELPHI to logon as new user . . .")
  47.                 Puts("GODELPHI$(CommEol)")
  48.     WatchDelete(4)
  49.  
  50.     WatchPoint(5,5,"NO CARRIER")
  51.  
  52.         Return("Unable to connect.  Check your modem port speed settings under Options and try again.")
  53.  
  54.     WatchPoint(11,10,"BUSY")
  55.  
  56.         Show("Busy . . . Redialing . . . Click on the Cancel button to terminate.")
  57.         Wait(5000)
  58.                 Puts("$(CodeAT)$(CmdDial)$(DialPrefix)0171-284-2424$(CommEol)")
  59.  
  60.     WatchPoint(12,5,"NO DIALTONE")
  61.  
  62.         Return("No Dialtone detected.  Check telephone line and modem connections, and try again.")
  63.  
  64.     WatchPoint(15,5,"NO DIAL TONE")
  65.  
  66.         Return("No Dialtone detected.  Check telephone line and modem connections, and try again.")
  67.  
  68.     WatchPoint(21,5,"Please enter your password:")
  69.  
  70.         Screen("Off")
  71.         PutPassword()
  72.         Puts("$(CommEol)")
  73.         Gets("\n",2000,0)
  74.         Screen("On")
  75.  
  76.     WatchPoint(22,5,"Thanks for visiting.  Bye!")
  77.  
  78.         WatchExit()
  79.  
  80.     WatchPoint(23,5,"RETURN to continue.")
  81.  
  82.         Puts("*internav*$(CommEol)")
  83.         WatchDelete(23)
  84.  
  85. WatchEnd()
  86.  
  87. Gets("CARRIER",5000,0)
  88.