home *** CD-ROM | disk | FTP | other *** search
/ The World of Computer Software / World_Of_Computer_Software-02-385-Vol-1of3.iso / r / rnew100a.zip / VAMPYRE!.BBS / $$CALL.SCR < prev    next >
Text File  |  1992-07-01  |  1KB  |  62 lines
  1. '       ┌───────────────────────────────┐
  2. '       │ Terminal script for 1stReader │
  3. '       │ Written by Mark Herring       │
  4. '       │ July 1st, 1992                │
  5. '       └───────────────────────────────┘
  6.  
  7. TIMEOUT 30
  8. LOOKFOR "correct? " "^M"
  9. LOOKFOR "elp, More? " "N^M"
  10. LOOKFOR "(Enter)=yes? " "N^M"
  11. LOOKFOR "Language #" "@LANGUAGE@^M"
  12.  
  13. LOCKLINE 20 30
  14. COMMENT "@DATE@ @TIME@  Connected with @BBSNAME@"
  15. COMMENT "@DATE@ @TIME@  Logging in to system"
  16.  
  17. WAITFOR "graphics" 10
  18. TRANSMIT "@GRAPHICS@ Q^M"
  19. WAITFOR "first name" 50
  20. IF FOUND=0 EXIT
  21. TRANSMIT "@USER@^M"
  22. WAITFOR "password|new user?" 30
  23. LOOKFOR "correct? " ""
  24. IF FOUND=1 GOTO LOGIN
  25. IF FOUND=2 GOTO NEWUSER
  26.  
  27. COMMENT "@DATE@ @TIME@  New user login"
  28. LOOKFOR "(Enter)=yes? " ""
  29. LOOKFOR ") to continue?" ""
  30. IF NOT SWITCH 1 HELP 198
  31. TERMINAL
  32. LOOKFOR "(Enter)=yes? " "N^M"
  33. LOOKFOR ") to continue?" "^M"
  34. GOTO TERM
  35.  
  36. :NEWUSER
  37. COMMENT "@DATE@ @TIME@  New user login"
  38. LOOKFOR "(Enter)=yes? " ""
  39. LOOKFOR ") to continue?" ""
  40. IF NOT SWITCH 1 HELP 198
  41. TRANSMIT "^M"
  42. WAITFOR ")=yes?" 30
  43. TRANSMIT "Y^M"
  44. WAITFOR "please!)?" 30
  45. TRANSMIT "@PASSWORD@^M"
  46. WAITFOR "verify?" 30
  47. TRANSMIT "@PASSWORD@^M"
  48. TERMINAL
  49. LOOKFOR "(Enter)=yes? " "N^M"
  50. LOOKFOR ") to continue?" "^M"
  51. GOTO TERM
  52.  
  53. :LOGIN
  54. COMMENT "@DATE@ @TIME@  Transmitting password"
  55. TRANSMIT "@PASSWORD@^M"
  56.  
  57. :TERM
  58. LOCKLINE 24
  59. CLS
  60. TERMINAL
  61. EXIT
  62.