home *** CD-ROM | disk | FTP | other *** search
/ PC/CD Review 40 / PCRFEB.BIN / internav / internav.pr$ / LOGONSPR.BMC < prev    next >
Text File  |  1994-10-20  |  4KB  |  140 lines
  1. **
  2. ** LOGONSPR.BMC -- SprintNet Logon
  3. **
  4. ** This script is used to setup and dial the modem, log onto DELPHI UK
  5. ** on the main 071 284 2424 number, and log the user on.
  6. **
  7. ** Last Updated 20/10/94 by STUART
  8. **
  9.  
  10. Screen("On")
  11. LocalEcho("Off")
  12. SetDelay(200)
  13.  
  14. Show("Initialize Modem . . .")
  15. ModemPuts("$(CodeAT)$(CmdSetup1)$(CommEol)")
  16. Gets("$(ResultOK)",2000,0)
  17.  
  18. Show("Dialing DELPHI via SprintNet at $(DialPrefix)$(PhoneNumber) . . .")
  19. Puts("$(CodeAT)$(CmdDial)$(DialPrefix)$(PhoneNumber)$(CommEol)")
  20.  
  21. WatchStart(180000)
  22.  
  23.     WatchPoint(0,1,"$(ResultConnect)")
  24.  
  25.         Gets("\n",1000,0);
  26.         Show("Connected to London SprintNet PAD. . .")
  27.         Wait(4000)
  28.         ModemPuts("@D")
  29.         ModemPuts("$(CommEol)")
  30.         WatchDelete(0)
  31.  
  32.     WatchPoint(1,1,"NO CARRIER")
  33.  
  34.         Return("Unable to connect.  Check your local access number, access method, and modem port speed settings under Options and try again.")
  35.  
  36.     WatchPoint(3,50,"Username:")
  37.  
  38.         Show("Sending Delphi Username . . .")
  39.         Puts("$(UserID)$(CommEol)")
  40.         WatchDelete(3)
  41.  
  42.     WatchPoint(4,5,"Old Password:")
  43.  
  44.         PutPassword("Please enter your temporary (current) password.|Password:")
  45.         Puts("$(CommEol)")
  46.         Gets("\n",2000,0)
  47.  
  48.     WatchPoint(5,5,"New Password:")
  49.  
  50.         PutPassword("Please enter a new password.  As a new member, you are required to change your password to secure your account.  Passwords must be between 6 and 32 characters in length.|New Password:")
  51.         Puts("$(CommEol)")
  52.         Gets("\n",2000,0)
  53.  
  54.     WatchPoint(6,50,"Verification:")
  55.  
  56.         PutPassword("Please re-enter your new password for verification.  Your password setting in InterNav, under Options, will be updated automatically.|Verification:",1)
  57.         Puts("$(CommEol)")
  58.         Gets("\n",2000,0)
  59.  
  60.     WatchPoint(7,50,"Password:")
  61.  
  62.         Screen("Off")
  63.         PutPassword()
  64.         Puts("$(CommEol)")
  65.         Gets("\n",2000,0)
  66.         Screen("On")
  67.  
  68.         WatchPoint(8,50,"MAIN>")
  69.  
  70.         WatchExit()
  71.  
  72.     WatchPoint(9,10,"Sorry for the inconvenience.")
  73.  
  74.         Wait(5000)
  75.         Puts("$(CommEol)")
  76.     
  77.     WatchPoint(10,10,"BUSY")
  78.  
  79.         Show("Busy . . . Redialing . . . Click on the Cancel button to terminate.")
  80.         Wait(5000)
  81.         Puts("$(CodeAT)$(CmdDial)$(DialPrefix)$(PhoneNumber)$(CommEol)")
  82.  
  83.     WatchPoint(11,1,"NO DIALTONE")
  84.  
  85.         Return("No Dialtone detected.  Check telephone line and modem connections, and try again.")
  86.  
  87.         WatchPoint(12,5,"press RETURN for main")
  88.  
  89.         Puts("$(CommEol)")
  90.         Gets("\n",2000,0)
  91.  
  92.         WatchPoint(13,5,"UK Menu: ")
  93.  
  94.         Puts("$(CommEol)")
  95.         Gets("\n",2000,0)
  96.  
  97.     WatchPoint(14,5,"RETURN for more:")
  98.  
  99.         Show("Please wait . . .");
  100.         Puts("*internav*$(CommEol)")
  101.         WatchDelete(14)
  102.  
  103.     WatchPoint(15,1,"NO DIAL TONE")
  104.  
  105.         Return("No Dialtone detected.  Check telephone line and modem connections, and try again.")
  106.  
  107.     WatchPoint(16,5,"zation failure")
  108.  
  109.         Show("Please wait . . .");
  110.         Puts("$(CommEol)")
  111.         WatchDelete(16)
  112.  
  113.     WatchPoint(17,5,"zation failure")
  114.  
  115.         Show("Please wait . . .");
  116.         Puts("$(CommEol)")
  117.         WatchDelete(17)
  118.  
  119.     WatchPoint(18,5,"zation failure")
  120.  
  121.         Return("Your username or password is not valid.  Please check your settings or call DELPHI, at 1-800-695-4005.")
  122.  
  123.         WatchPoint(19,5,"Dialplus")
  124.  
  125.                 Return("You appear to be dialing a GNS number - please select GNS as your access method and try again.")
  126.  
  127.  
  128. WatchEnd()
  129.  
  130. Puts("$(CommEol)")
  131. Puts("/FX_METHOD=ZMODEM$(CommEol)")
  132. Gets("MAIN>",4000,0)
  133. Puts("Go Main$(CommEol)")
  134. Gets("UK Menu: ")
  135. Puts("$(CommEol)")
  136. Gets("MAIN>",4000,0)
  137. Show("Welcome to DELPHI, $(UserID)! Please stand by . . .")
  138. Online("DELPHI")
  139. Silence(500)
  140.