home *** CD-ROM | disk | FTP | other *** search
/ The First Hungarian Family / The_First_Hungarian_Family_CD-ROM.bin / internet / offlread / 1st200 / a / $$pcb.scr < prev    next >
Text File  |  1995-07-19  |  3KB  |  130 lines
  1. '       ┌────────────────────────────────────┐
  2. '       │ PCBoard login script for 1stReader │
  3. '       │ Written by Mark Herring            │
  4. '       │ July 20, 1995                      │
  5. '       └────────────────────────────────────┘
  6.  
  7.  
  8. TIMEOUT 30
  9. SET_API$(142)="PCBOARD"
  10.  
  11. LOOKFOR "Esc" "X'1BX'1B"
  12. LOOKFOR "correct? " "^M"
  13. LOOKFOR "elp, More? " "N^M"
  14. LOOKFOR ") to continue?" "^M"
  15. LOOKFOR "ll new mail? (" "N^M"
  16. LOOKFOR "<CHAT>" "Sorry, I'm on automatic using 1stReader^M"
  17.  
  18. REQ_FILE @API$(14)@API$(10).REQ
  19.  
  20. LOCKLINE 20 30
  21. COMMENT "@DATE@ @TIME@  Connected with @BBSNAME@"
  22. COMMENT "@DATE@ @TIME@  Opened capture file @BBSID@.CAP"
  23. COMMENT "@DATE@ @TIME@  Logging in to system"
  24.  
  25. WAITFOR "Language #|=no change?|color|colour|graphics (" 40
  26. LOOKFOR "Esc" ""
  27. IF FOUND=0 THEN GOTO FNAME
  28. IF FOUND=3 THEN GOTO GRAPHICS
  29. IF FOUND=4 THEN GOTO GRAPHICS
  30. IF FOUND=5 THEN GOTO GRAPHICS
  31. TRANSMIT "@LANGUAGE@^M"
  32. WAITFOR "Do you want|color|colour" 20
  33. IF FOUND=0 THEN GOTO FNAME
  34.  
  35. :GRAPHICS
  36. TRANSMIT "@GRAPHICS@ Q NS^M"
  37.  
  38. :FNAME
  39. WAITFOR "first name" 50
  40. IF FOUND=0 THEN EXIT
  41. TRANSMIT "@USER@^M"
  42. LOOKFOR "(Enter)=yes? " "N^M"
  43. WAITFOR "last name|password|new user?" 30
  44. LOOKFOR "correct? " ""
  45. IF FOUND=1 THEN GOTO LOGIN
  46. IF FOUND=2 THEN GOTO LOGIN1
  47. IF FOUND=3 THEN GOTO NEWUSER
  48. GOTO COMMAND
  49.  
  50. :NEWUSER
  51. COMMENT "@DATE@ @TIME@  New user login"
  52. LOOKFOR "(Enter)=yes? " ""
  53. LOOKFOR ") to continue?" ""
  54. IF NOT SWITCH 1 THEN HELP 198
  55. TRANSMIT "^M"
  56. WAITFOR ")=yes?" 30
  57. TRANSMIT "Y^M"
  58. WAITFOR "please!)?" 30
  59. TRANSMIT "@PASSWORD@^M"
  60. WAITFOR "verify?" 30
  61. TRANSMIT "@PASSWORD@^M"
  62. TERMINAL
  63. LOOKFOR "(Enter)=yes? " "N^M"
  64. LOOKFOR ") to continue?" "^M"
  65. WAITFOR "Command?"
  66. GOTO COMMAND
  67.  
  68. :LOGIN
  69. TRANSMIT "^M"
  70. :LOGIN1
  71. COMMENT "@DATE@ @TIME@  Transmitting password"
  72. TRANSMIT "@PASSWORD@^M"
  73. IF SCR_CALL THEN GOTO EXIT
  74.  
  75. WAITFOR "word has expired|Command?"
  76. IF FOUND=2 THEN GOTO COMMAND
  77. NEW_PASSWORD
  78. SET_PASSWORD
  79. PROMPT "Your password is now set to @PASSWORD@"
  80. TRANSMIT "@PASSWORD@^M"
  81. WAITFOR "to verify"
  82. TRANSMIT "@PASSWORD@^M"
  83. WAITFOR "Command?"
  84.  
  85. :COMMAND
  86. TIMEOUT 60
  87. IF SCR_SERVER THEN GOTO TELNET
  88. IF SCR_MAIL THEN CALL PCB-DL.SCR
  89.  
  90. :EXIT
  91. EXIT
  92.  
  93. :TELNET
  94. SET_API(193)=2
  95. SET_API(265)=5
  96. LET A=1
  97.  
  98. :TEL_CALL
  99. TRANSMIT "TELNET @TELNET@^M"
  100. WAITFOR "client connection|Command?"
  101. IF FOUND=3 THEN GOTO TEL_HANGUP
  102.  
  103. WAITFOR "BUSY|No servers|Remote side disconnected|Couldn't get" 10
  104. IF FOUND=0 THEN GOTO TEL_SWAP
  105.  
  106. :TEL_DISCONNECT
  107. PAUSE @API(265)
  108. LET A=VAR_A+1
  109. COMPARE VAR_A @API(193)
  110. IF GREATER THEN GOTO TEL_LOGOFF
  111. WAITFOR "Command?" 10
  112. GOTO TEL_CALL
  113.  
  114. :TEL_SWAP
  115. SWAP_SYS
  116.  
  117. :TEL_LOGOFF
  118. RESET
  119. WAITFOR "Command?" 60
  120.  
  121. :TEL_HANGUP
  122. RESET
  123. WAITFOR "Minutes used" 10
  124. IF FOUND=1 THEN WAITFOR "Command?" 60
  125. TRANSMIT "G;Y^M"
  126. WAITFOR "Thanks for calling" 10
  127. HANGUP
  128. EXIT
  129.  
  130.