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