home *** CD-ROM | disk | FTP | other *** search
/ PC Online 1997 February / PCO2_97.ISO / filesbbs / dos / terminat.arj / SCRIPT.EXE / LOGIN.TSL < prev    next >
Encoding:
Text File  |  1996-04-18  |  1.5 KB  |  81 lines
  1.  
  2. % -----------------------------------------------------------------------------
  3. % Login to a Terminate hostmode and logoff again       *TERMINATE PRESCRIPTION*
  4. % -----------------------------------------------------------------------------
  5. %
  6. %  Version          : 1.00
  7. %  Filename         : LOGIN.TSL
  8. %  Company          : SerWiz Comm
  9. %  Programmer       : The Serial Wizard
  10. %  Module created   : 18 Apr 1996
  11. %  Latest revision  : 18 Apr 1996
  12. %  Language/version : Terminate Prescription 1.00
  13. %  Remarks          : Demonstrates how to use WaitFor and Send
  14. %
  15. % -----------------------------------------------------------------------------
  16.  
  17. % Dial entry 1 in the phonebook
  18.  
  19. Dial 1
  20. If IOResult=0
  21.   Goto NoConnect
  22. Endif
  23.  
  24. WaitFor "Name    : ",30
  25. If IOResult<>0
  26.   Goto StringTimeout
  27. Endif
  28. Wait 100
  29. Send "bo bendtsen^M"
  30.  
  31. WaitFor "Password: ",30
  32. If IOResult<>0
  33.   Goto StringTimeout
  34. Endif
  35. Wait 100
  36. Send "secret^M"
  37.  
  38. WaitFor "More (Y/n/=)",30
  39. If IOResult<>0
  40.   Goto StringTimeout
  41. Endif
  42. Wait 100
  43. Send "n"
  44.  
  45. WaitFor "Press ENTER to continue.",30
  46. If IOResult<>0
  47.   Goto StringTimeout
  48. Endif
  49. Wait 100
  50. Send "^M"
  51.  
  52. WaitFor "Enter command (Return to exit) : ",30
  53. If IOResult<>0
  54.   Goto StringTimeout
  55. Endif
  56. Wait 100
  57. Send "g"
  58.  
  59. WaitFor "Say goodbye (y/N): ",30
  60. If IOResult<>0
  61.   Goto StringTimeout
  62. Endif
  63. Wait 100
  64. Send "y"
  65.  
  66. Hangup
  67. Goto End
  68.  
  69. :StringTimeout
  70.   ClearScreen
  71.   PrintLn "Script timed out waiting for string"
  72.   Goto End
  73.  
  74. :NoConnect
  75.   PrintLn "Connection aborted"
  76.   Hangup
  77.   Goto End
  78.  
  79. :End
  80.  
  81.