home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / C64-128BBS / MC-PRGMS.SDA / BBS-O (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  32.0 KB  |  988 lines
  1. 0 GOTO100
  2. 1 IFPEEK(669)<>PEEK(670)THEN1
  3. 2 GOSUB210:GOTO3000
  4. 4 :
  5. 100 CLOSE105:OPEN105,2,0,CHR$(8):A$="":CA$="":GOSUB210
  6. 101 POKE821,1:POKE661,65:A%=75:POKE665,A%:POKE763,30
  7. 104 QW$=CHR$(34):DIML$(51):Z$=CHR$(.):CR$=CHR$(13):CO$="":MX=50:HT=500
  8. 105 DR=PEEK(1008):DW=PEEK(1009):DL=DR:DA=DW:POKE828,1:POKE829,80:SYS830
  9. 106 POKE646,5:POKE53281,.:POKE53280,11:IFPEEK(1011)THENPOKE53280,7:POKE1011,1
  10. 107 IFPEEK(765)THENPOKE53280,2:POKE1011,1
  11. 108 PD$="                              ":RE$="***[207][213][212][212][193] [210][193][206][199][197]***":CL$=CHR$(147)
  12. 110 DEFFNA(Z)=ABS(INT(VAL(LEFT$(A$,4)+CHR$(.)))):DEFFNB(Z)=LEN(A$)
  13. 112 POKE1000,.:POKE1004,.:POKE1005,1:POKE1006,1:POKE1007,.
  14. 114 POKE1012,78:POKE1014,.:POKE1015,.:POKE1019,.
  15. 116 PRINTCHR$(14);CHR$(8):GOTO400
  16. 119 :
  17. 120 SYS49203:TM$=A$:IFLEFT$(A$,1)=" "THENTM$=RIGHT$(A$,7)
  18. 121 RETURN
  19. 124 :
  20. 125 GOSUB150:A$="[198][213][206][195][212][201][207][206][211] [[200]IT [197][206][212][197][210] TO [193]BORT]:":X=USR(.):GOSUB150:RETURN
  21. 126 :
  22. 127 INPUT#15,ER,ER$,E1$,E2$:IFER<20THENRETURN
  23. 128 A$="[193][210][199][199][200]...("+ER$+")":X=USR(.):GOSUB145:GOSUB150:RETURN
  24. 129 :
  25. 130 GOSUB190:GOTO615
  26. 131 :
  27. 132 GOSUB150:A$="[212]IME [213]SED: ":X=USR(-1):SYS49170:GOSUB150:RETURN
  28. 134 :
  29. 135 GOSUB150:A$="[200]IT A [203][197][217]: ":X=USR(-1):LE=FNB(X):GOSUB195
  30. 136 GOSUB205:GOSUB150:RETURN
  31. 139 :
  32. 140 PRINTCL$:IFPEEK(765)=.THENPRINT"[206]O ERROR":GOSUB145:RUN
  33. 141 PRINT"[197]RROR #";PEEK(765);" ON LINE";
  34. 142 PRINT(PEEK(766)+256*PEEK(767)):IFRMTHENGOSUB145:GOTO9040
  35. 143 GOSUB210:POKE765,.:POKE1011,.:END
  36. 144 :
  37. 145 FORDE=1TO2000:NEXT:RETURN
  38. 149 :
  39. 150 A$=Z$:X=USR(.):RETURN
  40. 151 :
  41. 155 X=(PEEK(1020)+PEEK(1021)*256)/HT:RN=INT((X-INT(X))*HT)+1
  42. 156 H=INT(RN/256):L=RN-(H*256)
  43. 157 PRINT#15,"P"+CHR$(96+2)+CHR$(L)+CHR$(H)+CHR$(1):RETURN
  44. 159 :
  45. 160 IFMU=.THENSYS49152:GOTO175
  46. 161 GOSUB195:IFA$=CHR$(20)THEN161
  47. 162 IFA$=" "THENA$=CR$
  48. 163 GOTO175
  49. 164 :
  50. 165 POKE661,69:POKE662,6:POKE665,81:POKE666,13:POKE821,.:RETURN
  51. 169 :
  52. 170 X=USR(-1):IFPEEK(1014)THENPRINTCHR$(7);
  53. 171 RETURN
  54. 174 :
  55. 175 CA$=LEFT$(CA$,1):RETURN
  56. 179 :
  57. 180 B$=A$:A$=CHR$(7):X=USR(-1):POKE198,.
  58. 181 A$=QW$+B$+QW$+" IS NOT AN OPTION...":X=USR(-1)
  59. 182 LE=FNB(X):GOSUB145:GOSUB205:RETURN
  60. 184 :
  61. 185 POKE1007,1-(PEEK(1007)AND1):RETURN
  62. 189 :
  63. 190 GOSUB150:A$=CHR$(147):X=USR(-1):RETURN
  64. 194 :
  65. 195 SYS49194:RETURN
  66. 199 :
  67. 200 DR=PEEK(1008):CLOSE15:OPEN15,DR,15,"S0:BBS-*":CLOSE15:SAVE"BBS-O",DR:RUN
  68. 204 :
  69. 205 IFPEEK(669)<>PEEK(670)THEN205
  70. 206 FORK=1TOLE:A$=CHR$(20):X=USR(-1):NEXT:RETURN
  71. 209 :
  72. 210 PRINT#105,"ATZ":B=PEEK(56577):POKE56577,B-(BAND6):RETURN
  73. 211 :
  74. 212 PRINTCL$"LOAD"CHR$(34)"LOCAL"CHR$(34);","PEEK(1008):PRINT"RUN"
  75. 213 POKE198,3:POKE631,19:POKE632,13:POKE633,13:NEW
  76. 214 :
  77. 215 US=(PEEK(1022)+PEEK(1023)*256)/8:RETURN
  78. 216 :
  79. 220 X=US*8:IFX<1THENX=8
  80. 222 POKE1023,(INT(X/256)):POKE1022,INT(X-(PEEK(1023)*256)):RETURN
  81. 224 :
  82. 225 GOSUB190:A$="([208])AUSE OR ([193])BORT":X=USR(.):DV=DR:GOSUB2800:GOSUB135
  83. 226 IFRFTHENRF=.:RETURN
  84. 227 GOTO615
  85. 229 :
  86. 230 POKE1001,.:PRINTCL$;:INPUT"[211][217][211][207][208] [201][206]  N[157][157][157]";A$
  87. 232 IFA$="Y"THENPOKE1001,1
  88. 234 PRINT:INPUT"[198]ILE [212]RANS UP  Y[157][157][157]";A$:IFA$="N"THENPOKE1013,0:RUN
  89. 236 POKE1013,1:PRINT:PRINT"[213]PLOAD [211]PACE ";:GOSUB215:PRINTUS"[203]"
  90. 238 INPUT"[193]VAILABLE ([203])";US:IFUS>8000THENUS=8000
  91. 240 GOSUB220:RUN
  92. 241 :
  93. 245 CLOSE15:OPEN15,DL,15,"/0:TRANSFER":INPUT#15,E:CLOSE15:RETURN
  94. 248 CLOSE15:OPEN15,DL,15,"I0":CLOSE15:RETURN
  95. 249 :
  96. 250 MN=MN+1:DV=DW:F$="FEED NUM":GOSUB8210:OPEN2,DW,2,F$+",S,W":PRINT#2,MN
  97. 252 CLOSE2:F$="FEED"+STR$(MN):RETURN
  98. 259 :
  99. 260 SYS49197:A$=A$+STR$(PEEK(1003)):SYS49209:CLOSE2:OPEN2,DR,2,"HOLIDAY,S,R"
  100. 262 INPUT#2,A$:S=ST:A=VAL(LEFT$(A$,2)+Z$):IFA<>PEEK(1002)THEN272
  101. 264 B=VAL(MID$(A$,4,2)+Z$):IFB<>PEEK(1003)THEN272
  102. 270 A$=MID$(A$,7):SYS49209:GOTO274
  103. 272 IFA<=PEEK(1002)ANDS<>64THEN262
  104. 274 SYS49212:DA$=A$:CLOSE2:RETURN
  105. 399 :
  106. 400 CLOSE2:CLOSE3:GOSUB248:OPEN2,DW,2,"USER LOG,S,R"
  107. 404 INPUT#2,B$:S=ST:IFS<>64THEN404
  108. 406 CLOSE2:PRINTCL$:SYS49212:DA$=A$:A=LEN(B$)-12:IFA<1THENA=1
  109. 408 PRINT"     ******************************"
  110. 410 PRINT"     *** [202][212]S [205][197][211][211][193][199][197] [195][197][206][212][197][210] [194][194][211] ***"
  111. 411 PRINT"     ***   [195]1.69      4/10/88   ***"
  112. 412 PRINT"     ******************************"
  113. 414 PRINT:IFPEEK(1011)THENPRINT"            [211] [212] [193] [206] [196]   [194] [217]":GOTO418
  114. 416 B$=RIGHT$(B$,A):A=INT((40-A)/2):PRINTLEFT$(PD$,A)+B$
  115. 418 CLOSE2:OPEN2,DW,2,"CALL NUM,S,R":INPUT#2,CL:CLOSE2
  116. 420 OPEN2,DW,2,"FEED NUM,S,R":INPUT#2,MN:CLOSE2
  117. 421 OPEN2,DW,2,"ANSWERS,S,R":INPUT#2,QU$:CLOSE2
  118. 422 CLOSE2:OPEN2,DW,2,"MESSAGE.FD,S,R":INPUT#2,LN$:CLOSE2:LN=VAL(LN$)
  119. 424 OPEN2,DR,2,"STATUS FILE,S,R":INPUT#2,A$,P2$:CLOSE2:POKE1016,VAL(A$+Z$):PRINT
  120. 426 POKE646,11:PRINTSPC(5)CHR$(18)"         [211]YSTEM [211]TATUS        "CHR$(146)
  121. 428 PRINT:POKE646,5:PRINT"     [198]EEDBACK [205]SGS   :"MN
  122. 430 PRINT"     [204]AST [199]ENERAL [205]SG:"LN$
  123. 432 PRINT"     [205]EMORY [193]VAILABLE:"FRE(.)"[194]YTES"
  124. 434 PRINT"     [213]PLOAD [211]PACE    :";:GOSUB215:PRINTUS"[203]"
  125. 436 PRINT"     [195]ALLERS / [212]OTAL :"PEEK(1018)"/"CL
  126. 438 PRINT"     [198]ILE [212]RANSFER   : ";:A$="[207][198][198]":IFPEEK(1013)THENA$="[207][206]"
  127. 440 PRINTA$
  128. 442 PRINT"     [212]ODAY'S [196]ATE    : "DA$
  129. 444 PRINT"     [212]HE [211][217][211][207][208] IS    : ";
  130. 445 IFPEEK(1001)THENPRINT"[201][206]":GOTO447
  131. 446 PRINT"[207][213][212]"
  132. 447 PRINT:PRINT:POKE646,11
  133. 448 PRINTSPC(5)CHR$(18)" [[195]]HANGE [211]TATUS [[197]]RROR [210]EAD "CHR$(146)
  134. 449 PRINTSPC(5)CHR$(18)" [[198]]ILE [216]FER  [[204]]OGON  [[205]]ENU "CHR$(146)
  135. 450 POKE56577,PEEK(56577)OR6:PRINT#105,"ATX1"
  136. 454 PRINT"[145][145][145]";:POKE646,5
  137. 456 X=.:Y=.:A1$="":IF(PEEK(56577)AND8)OR(PEEK(56577)AND16)THEN471
  138. 458 GETA$:IFA$="[204]"THENPOKE1006,1:SYS49161:GOSUB210:GOTO505
  139. 459 IFA$="[139]"THENPOKE1004,1:POKE1006,1:SL=9:SYS49161:GOSUB210:GOTO4600
  140. 460 IFA$="[205]"THENGOSUB210:GOTO212
  141. 461 IFA$="[197]"THENGOSUB210:GOTO140
  142. 462 IFA$="[140]"THENPOKE1011,1-(PEEK(1011)AND1):RUN
  143. 463 IFA$="[195]"THENGOSUB210:GOTO230
  144. 464 IFA$="[209]"THENGOSUB210:PRINT"[147]":END
  145. 465 IFA$="[198]"THEN POKE1013,1-(PEEK(1013)AND1):RUN
  146. 466 GOSUB120:PRINT"[145]     [195]URRENT [212]IME IS : ";:POKE646,7:PRINTTM$" ":POKE646,5
  147. 468 IFPEEK(1017)THEN8800
  148. 470 GOTO456
  149. 471 X=X+1:IFX=500THENGOSUB210:RUN
  150. 472 IFPEEK(56577)AND16=.THEN471
  151. 473 Y=Y+1:IFY=1000THENGOSUB210:RUN
  152. 474 GET#105,A$:IFA$=""THEN473
  153. 478 A1$=A1$+A$:IFA$=CR$ORA$=CHR$(10)THENA1$=LEFT$(A1$,LEN(A1$)-1):GOTO482
  154. 480 GOTO474
  155. 482 IFA1$="CONNECT"THENGOSUB165:GOTO500
  156. 484 IFA1$="NO CARRIER"THENGOSUB210:RUN
  157. 486 IFA1$<>"CONNECT 1200"THENA1$="":GOTO474
  158. 499 :
  159. 500 POKE56579,38:POKE56577,38:SYS49161:POKE1006,.:GOSUB145
  160. 505 GOSUB120:SYS49173:GOTO6000
  161. 510 TR=.:GOSUB190:IFPEEK(1011)THENA$="[[194][194][211] IS IN [211][212][193][206][196][194][217]]":X=USR(.):GOTO615
  162. 515 FORZ=1TOLEN(N$)+1:POKE679+Z,ASC(MID$(N$,Z,1)+CHR$(.)):NEXT
  163. 520 GOSUB150:A$="[199]OOD [205]ORNING, ":IFRIGHT$(TM$,2)="[193][205]"THEN525
  164. 521 A=VAL(LEFT$(TM$,2)):IFA=12ORA<6THENA$="[199]OOD AFTERNOON, ":GOTO525
  165. 522 A$="[199]OOD [197]VENING, "
  166. 525 A$=A$+NA$+".":X=USR(.):TR=.:DV=DR:F$="TITLE":GOSUB2800
  167. 547 IFTC<>PEEK(1016)THENF$="SYSOP BULL":DV=DR:GOSUB2800:TC=PEEK(1016):GOSUB135
  168. 568 DV=DW:F$="COMMENT":GOSUB2800:GOSUB150
  169. 570 A$="[217]OU ARE CALLER #"+STR$(CL+1):X=USR(-1):IFSL=.THENGOSUB150:GOTO615
  170. 575 A=PEEK(1018)+1:A$=" (AND #"+STR$(A)+" TODAY)":X=USR(.):POKE1018,A
  171. 587 GOSUB150:A$="[217]OUR LAST VISIT WAS ON "+LO$:X=USR(.)
  172. 588 GOSUB150:A$="# OF [206][197][215] [199]ENERAL [205]ESSAGES =":A$=A$+STR$(LN-LG):X=USR(.)
  173. 589 IFSL>4THENGOSUB150:A$="# OF [198]EEDBACKS =":A$=A$+STR$(MN):X=USR(.)
  174. 590 GOSUB150:A$="[195]HECKING [205]AIL":X=USR(.):GOTO5405
  175. 599 :
  176. 600 GOSUB190:A$=" ---=<[205][197][211][211][193][199][197] [195][197][206][212][197][210] [194][194][211] [205][193][201][206] [205][197][206][213]>=---":X=USR(.):DV=DR
  177. 605 F$="MAIN MENU1":IFSLTHENF$="MAIN MENU2"
  178. 610 DV=DR:GOSUB2800:GOSUB150
  179. 615 IFPEEK(1001)THENA$="[212]HE [211][217][211][207][208] IS <<<[201][206]>>>":X=USR(.)
  180. 620 GOSUB132:IFPEEK(1007)THEN635
  181. 625 A$="[193],[194],[195],[197],[198],[199],[200],[201],[202],[204],[205],[208],[209],[210],[211],[212],[213],[216],[217],#,/":X=USR(-1)
  182. 630 A$=" [? FOR FULL [205]ENU]":X=USR(.):GOSUB150
  183. 635 A$="[208]LEASE SELECT: ":GOSUB170
  184. 645 GOSUB160:IFMUANDA$=CR$THEN645
  185. 650 IFA$="+"ANDSL>4THEN9000
  186. 655 IFA$="*"THEN4500
  187. 660 IFA$="?"THEN600
  188. 662 IFCA$="[193]"ANDSLTHEN7000
  189. 665 IFCA$="[194]"THENF$="SYSOP BULL":GOTO225
  190. 670 IFCA$="[195]"THENPOKE1019,1:GOTO4700
  191. 675 IFCA$="[197]"ANDSLTHEN5000
  192. 680 IFCA$="[198]"THEN2600
  193. 685 IFCA$="[199]"ORCA$="[209]"THEN800
  194. 690 IFCA$="[200]"THENF$="HELP":GOTO225
  195. 692 IFCA$="[201]"THENF$="THIS":GOTO225
  196. 695 IFCA$="[202]"ANDSL=.THEN6175
  197. 705 IFCA$="[204]"THENF$="LOCAL LIST":GOTO225
  198. 710 IFCA$="[205]"THENF$="MCBBS":GOTO225
  199. 712 IFCA$="[208]"THENF$="POLICY":GOTO225
  200. 715 IFCA$="[210]"THEN2000
  201. 720 IFCA$="[211]"ANDSLTHEN1000
  202. 725 IFCA$="[212]"THEN7500
  203. 730 IFCA$="[213]"THEN4700
  204. 735 IFCA$="[216]"THENGOSUB190:GOSUB185:GOTO615
  205. 737 IFCA$="[217]"THEN4800
  206. 740 IFCA$="#"ANDSLTHEN8500
  207. 742 IFCA$="/"THENGOSUB190:A$=DA$+" AT "+TM$:X=USR(.):GOTO615
  208. 745 GOSUB180:IFMUTHEN645
  209. 750 GOTO600
  210. 799 :
  211. 800 IFCA$="[209]"THEN835
  212. 805 IF(SL)THEN825
  213. 810 GOSUB150:A$="[211]URE YOU WANT TO LEAVE? ":GOSUB170:GOSUB160
  214. 815 IFCA$<>"[217]"THEN130
  215. 820 GOTO835
  216. 825 GOSUB150:GOSUB150:A$="[208]LEASE ENTER A ONE-LINE COMMENT:":X=USR(.)
  217. 830 GOSUB150:POKE1012,77:SYS49152:CO$=A$:IFA$="*=*"THENCO$="":GOTO130
  218. 835 GOSUB150:GOSUB150:A$=NA$+", THANKS FOR CALLING...":X=USR(.):GOTO1
  219. 999 :
  220. 1000 GOSUB190:A$="    ---=<[211][197][206][196] [193] [208][213][194][204][201][195] [205][197][211][211][193][199][197]>=---":X=USR(.):GOSUB150
  221. 1015 IFPN>2ANDSL<5THENA$="[204]IMIT OF 3 PER CALL":X=USR(.):GOSUB145:GOTO130
  222. 1025 A$="[211]UBJECT: ":X=USR(-1):A$="[----[210][197][212][213][210][206] TO [193]BORT----]":X=USR(.)
  223. 1035 POKE1012,26:A$="         ":GOSUB170:SYS49152:T$=A$:IFA$<>""THEN1050
  224. 1040 IFPEEK(1004)THENPOKE1004,.:RETURN
  225. 1045 GOTO130
  226. 1050 GOSUB150:A$="[212]O ([210][197][212][213][210][206] = [193]LL): ":GOSUB170:POKE1012,20:SYS49152:TU$=A$
  227. 1052 IFA$=""THENTU$="[193]LL"
  228. 1053 GOSUB4000:IFLL=.THEN1040
  229. 1055 GOSUB150:A$="[213]PDATING [211]UMMARY":X=USR(-1):LE=FNB(X):GOSUB120:DV=DW
  230. 1060 LN=LN+1:LN$=STR$(LN):HN=LN:PN=PN+1:F$="MESSAGE"+STR$(LN-(MX+2)):GOSUB8210
  231. 1062 GOSUB205:A$="[211]AVING [217]OUR [205]ESSAGE":X=USR(.)
  232. 1065 F$="MESSAGE"+LN$:GOSUB4360:IFPEEK(1004)THENPOKE1004,.:RETURN
  233. 1075 LG=LN:LG$=STR$(LN):GOTO130
  234. 1499 :
  235. 1500 GOSUB190:A$="[211]ORRY, THE [205]ESSAGE [195]ENTER IS [206][207][212]":X=USR(.)
  236. 1502 A$="AVAILABLE, PLEASE CALL LATER.":X=USR(.):GOSUB135:IFA$<>"*"THEN1
  237. 1505 GOTO6001
  238. 1799 :
  239. 1820 A$="[193]RE YOU SURE? ":GOSUB170:SYS49152:IFCA$<>"[217]"THENRETURN
  240. 1822 CLOSE2:OPEN2,DW,2,"MESSAGE"+STR$(GM)+",S,R":FORK=1TO5
  241. 1825 INPUT#2,LL$(K):S=ST:IFS=2THEN1825
  242. 1830 NEXTK:A$=RIGHT$(LL$(2),LEN(LL$(2))-11):CLOSE2:SYS49167
  243. 1832 IFSL<5ANDN$<>CA$THENA$="[195]ANNOT DO!!!":X=USR(.):GOSUB145:RETURN
  244. 1840 A$="[193]WAY IT GOES...":X=USR(-1):CLOSE15:GOSUB250
  245. 1845 OPEN15,DW,15,"R0:"+F$+"=MESSAGE"+STR$(GM):CLOSE15
  246. 1850 OPEN2,DW,2,"MESSAGE"+STR$(GM)+",S,W":FORK=1TO5:PRINT#2,QW$+LL$(K)+QW$:NEXT
  247. 1855 PRINT#2,QW$;QW$:PRINT#2,QW$+"[[203]]ILLED BY "+NA$+QW$:CLOSE2:GOSUB150:RETURN
  248. 1999 :
  249. 2000 GOSUB190:A$="    ---=<[210][197][193][196] [208][213][194][204][201][195] [205][197][211][211][193][199][197][211]>=---":X=USR(.):GOSUB150
  250. 2005 A$=STR$(LN-MX):IFLN<MX+1THENA$=" 1"
  251. 2010 A$="[205]ESSAGE RANGE IS"+A$+" -"+LN$:X=USR(.)
  252. 2015 IFSL=.THEN2035
  253. 2020 LG=VAL(LG$):LG$=STR$(LG)
  254. 2025 A$="[217]OU'VE SEEN UP TO #"+LG$:X=USR(.)
  255. 2030 IFPEEK(1007)THEN2060
  256. 2035 GOSUB125:A$="  ([195])ONTINUOUS [210]EAD":X=USR(.)
  257. 2040 A$="  ([198])ORWARD [210]EAD":X=USR(.)
  258. 2042 A$="  ([200])ELP":X=USR(.)
  259. 2045 A$="  ([205])ESSAGE [211]UMMARY":X=USR(.)
  260. 2050 A$="  ([206])EW [205]ESSAGES":X=USR(.)
  261. 2055 A$="  ([210])EVERSE [210]EAD":X=USR(.)
  262. 2057 A$="  ([211])INGLE [205]ESSAGE":X=USR(.)
  263. 2060 DV=DW:GOSUB132:A$="[195],[198],[200],[205],[206],[210], OR [211]: ":GOSUB170:FW=.:ALL=.:NS=.:RV=.:GM=.
  264. 2065 GOSUB160:IFA$=CR$ORA$=""THEN130
  265. 2070 IFA$="?"THENGOSUB150:GOTO2035
  266. 2075 IFCA$="[206]"THENFW=1:GOTO2125
  267. 2080 IFCA$="[198]"THENFW=1:GOTO2115
  268. 2085 IFCA$="[199]"ORCA$="[209]"THEN800
  269. 2090 IFCA$="[205]"THEN2325
  270. 2095 IFCA$="[195]"THENFW=1:NS=1:GOTO2115
  271. 2100 IFCA$="[210]"THENRV=1:GM=LN:GOTO2155
  272. 2105 IFCA$="[216]"THENGOSUB185:GOTO2030
  273. 2106 IFCA$="[211]"THEN2110
  274. 2107 IFCA$="[200]"THENF$="READ.HLP":RF=1:GOSUB225:GOTO2060
  275. 2108 IFMUTHENGOSUB180:GOTO2065
  276. 2109 GOTO2035
  277. 2110 GOSUB150:A$="[205]ESSAGE NUMBER: ":X=USR(-1):SYS49152:GOTO2135
  278. 2115 GOSUB150:A$="[205]ESSAGE # ([210][197][212][213][210][206] FOR NEW ONES): ":GOSUB170:SYS49152:DV=DW
  279. 2120 IFA$<>""THEN2135
  280. 2125 GM=LG+1:IFGM<LN-MXTHENGM=LN-MX
  281. 2130 GOTO2140
  282. 2135 GM=FNA(Z)
  283. 2140 IF(GM>LN)OR(GM<LN-MX)THEN2030
  284. 2145 GOTO2155
  285. 2150 IF(ALL)OR(FW)OR(RV)THEN2230
  286. 2155 IFNS=.THENGOSUB190
  287. 2165 F$="MESSAGE"+STR$(GM):GOSUB2800:GOSUB150
  288. 2170 IFGM>LGTHENLG=GM:LG$=STR$(LG)
  289. 2175 IFALL=.ANDFW=.ANDRV=.THENGOSUB150:GOTO2030
  290. 2180 IFNSTHEN2235
  291. 2185 A$="-=> ":GOSUB170:GOTO2200
  292. 2190 GOSUB150:A$="[210]EAD IT ([193])GAIN":X=USR(.)
  293. 2191 IFSLTHENA$="([203])ILL THIS MESSAGE":X=USR(.)
  294. 2192 A$="([206])EXT MESSAGE":X=USR(.)
  295. 2193 A$="([209])UIT READING MESSAGES":X=USR(.)
  296. 2194 IFSLTHENA$="([210])EPLY TO THIS MESSAGE":X=USR(.)
  297. 2195 GOSUB132:A$="[217]OUR CHOICE: ":GOSUB170
  298. 2200 GOSUB160:IFA$="?"THEN2190
  299. 2205 IFCA$="[210]"THEN2275
  300. 2210 IFCA$="[209]"THENGOSUB150:GOTO2030
  301. 2215 IFCA$="[203]"THENIFSLTHENGOSUB1820:GOTO2195
  302. 2220 IFCA$="[193]"THEN2155
  303. 2223 IFA$=""ORA$=CR$ORCA$="[206]"THEN2230
  304. 2225 IFMUTHENGOSUB180:GOTO2200
  305. 2227 GOTO2190
  306. 2230 IFRVTHEN2245
  307. 2235 IFGM<LNTHENGM=GM+1:GOTO2155
  308. 2240 GOSUB150:GOTO2030
  309. 2245 IFLN<MX+1THEN2260
  310. 2250 IFGM>LN-MXTHENGM=GM-1:GOTO2155
  311. 2255 GOSUB150:GOTO2030
  312. 2260 IFGM>1THENGM=GM-1:GOTO2155
  313. 2265 GOSUB150:GOTO2030
  314. 2270 :
  315. 2275 IFPEEK(1010)ANDSL=.THEN2230
  316. 2285 IFPN>2ANDSL<5THENA$="[211]ORRY, ONLY 3 MESSAGES PER VISIT!":X=USR(.):GOTO2230
  317. 2290 GOSUB4000:IFLL=.THEN2230
  318. 2295 F$="MESSAGE"+STR$(GM):OPEN2,DW,2,F$+",S,R":INPUT#2,A$,B4$,A$:CLOSE2
  319. 2300 T$=RIGHT$(A$,LEN(A$)-11):IFLEFT$(T$,4)="[210][197]: "THEN2310
  320. 2305 T$="[210][197]: "+T$
  321. 2310 B4$=RIGHT$(B4$,LEN(B4$)-11):POKE1004,1:GOSUB1055:GOTO2230
  322. 2320 :
  323. 2325 GOSUB150:A$="[205]ESSAGE [211]UMMARY:":X=USR(.):GOSUB150:Y=.:K=.
  324. 2330 F$="MESSAGE"+STR$(LN-Y):IF(LN-Y)<1THEN2360
  325. 2332 CLOSE2:CLOSE15:OPEN2,DW,2,F$+",S,R":OPEN15,DW,15
  326. 2335 GOSUB127:IFER>19THEN2355
  327. 2340 INPUT#2,A$:S=(ST)AND66:IFS=2THEN2340
  328. 2345 X=USR(.):SYS49155:IFCA$="[193]"THENSYS49173:GOTO2360
  329. 2350 IFK<4THENK=K+1:GOTO2340
  330. 2355 GOSUB150:IFY<MXTHENY=Y+1:K=.:GOTO2330
  331. 2360 GOSUB150:CLOSE2:CLOSE15:GOTO2030
  332. 2599 :
  333. 2600 GOSUB190:A$="    ---=<[198][197][197][196][194][193][195][203] [212][207] [212][200][197] [211][217][211][207][208]>=---":X=USR(.)
  334. 2605 IFPEEK(1007)THEN2615
  335. 2610 F$="FEED.HLP":DV=DR:GOSUB2800
  336. 2615 GOSUB4000:IFLL=.THEN130
  337. 2620 A$="[211]AVING":X=USR(.):GOSUB250:HN=MN:T$="[198][197][197][196][194][193][195][203]":FB=1:GOSUB4360:GOTO130
  338. 2649 :
  339. 2650 GOSUB190:GOSUB4000:IFLL=.THEN9040
  340. 2660 GOSUB150:A$="[198]ILE [206]AME => ":GOSUB170:SYS49152:F$=A$:IFA$=""THEN9040
  341. 2665 GOSUB8155:CLOSE2:CLOSE15:OPEN2,DV,2,F$+",S,W"
  342. 2670 OPEN15,DV,15:GOSUB127:IFER>19THENGOSUB145:CLOSE2:CLOSE15:GOTO2650
  343. 2675 FORZ=1TOLL-1:PRINT#2,QW$+L$(Z)+QW$:NEXT:CLOSE2:CLOSE15:GOTO9040
  344. 2699 :
  345. 2700 GOSUB150:A$="[198]ILENAME TO EDIT: ":GOSUB170:SYS49152:IFA$=""THEN2785
  346. 2710 F$=A$:FORLL=1TO50:L$(LL)="":NEXTLL
  347. 2715 GOSUB8155:LL=1:CLOSE2:CLOSE15:OPEN15,DV,15:OPEN2,DV,2,F$+",S,R"
  348. 2720 GOSUB127:IFER<20THEN2730
  349. 2725 CLOSE2:CLOSE15:GOTO2700
  350. 2730 INPUT#2,L$(LL):S=ST:IFS=2THEN2730
  351. 2735 IFLL>49THENGOSUB150:A$="[204]ONG FILE!":X=USR(.):GOTO2745
  352. 2740 LL=LL+1:IFS<>64THEN2730
  353. 2745 CLOSE2:CLOSE15:GOSUB4050:IFCA$="[198]"THEN2785
  354. 2760 GOSUB150:A$="[206]AME IS "+QW$+F$+QW$+", [207][203]? ":GOSUB170:GOSUB160
  355. 2765 IFCA$="[206]"THENA$="[206]EW NAME: ":GOSUB170:SYS49152:F$=A$
  356. 2770 A$=" WORKING...":X=USR(-1):GOSUB8210:CLOSE2:OPEN2,DV,2,F$+",S,W"
  357. 2775 FORZ=1TO(LL-1):PRINT#2,QW$+L$(Z)+QW$:NEXT:CLOSE2:GOSUB150
  358. 2780 A$="[197]DIT ANOTHER? ":GOSUB170:GOSUB160:IFCA$="[217]"THEN2700
  359. 2785 GOSUB248:GOTO9040
  360. 2799 :
  361. 2800 CLOSE2:CLOSE15:OPEN15,DV,15:OPEN2,DV,2,F$+",S,R":GOSUB150
  362. 2805 GOSUB127:IFER>19THEN8230
  363. 2810 INPUT#2,A$:S=(ST)AND66:IFS=2THEN2810
  364. 2820 IFA$=".P"THENA$="(PAUSE)":GOSUB170:GOSUB145:GOSUB150:GOTO2835
  365. 2830 X=USR(.):SYS49155:IFCA$="[193]"ORCA$="[208]"THEN2845
  366. 2835 IFS<>64THEN2810
  367. 2840 CLOSE2:CLOSE15:RETURN
  368. 2845 SYS49173:IFCA$="[193]"THENCLOSE2:CLOSE15:GOSUB150:GOTO2840
  369. 2850 SYS49194:SYS49188:GOTO2835
  370. 2999 :
  371. 3000 IFSL=.THEN3042
  372. 3002 IFCO$=""THEN3020
  373. 3005 F$="COMMENT":DV=DW:GOSUB8210:OPEN2,DW,2,"COMMENT,S,W":POKE1004,.
  374. 3010 GOSUB120:PRINT#2,QW$+A$+" ---> "+NA$+" SEZ: "+QW$
  375. 3012 PRINT#2,QW$+CO$+QW$:IFPEEK(1004)THEN3020
  376. 3015 CLOSE2:OPEN2,DW,2,"COMMENTS,S,A":POKE1004,1:GOTO3010
  377. 3020 CLOSE2:IFPEEK(1011)THEN3048
  378. 3025 PW$=P$:LO$=DA$:BL$=STR$(PEEK(1014)):LF$=STR$(PEEK(828)):MU$=STR$(MU)
  379. 3030 SW$=STR$(PEEK(829)):EL$=STR$(PEEK(1007)):RN=RA:TC$=STR$(TC)
  380. 3035 CLOSE2:CLOSE15:OPEN15,DA,15:OPEN2,DA,2,"PWDS.HSH,L,"+CHR$(80):GOSUB156
  381. 3040 PRINT#2,PW$","NA$","PN$","LO$","LG$","BL$","LF$","SW$","EL$","SL$","MU$","TC$
  382. 3042 CLOSE2:CLOSE15:IFPEEK(1000)ORSL=.THEN3048
  383. 3044 OPEN2,DW,2,"USER LOG,S,A":GOSUB120:IFLEN(TM$)=7THENTM$=" "+TM$
  384. 3046 PRINT#2,QW$+T1$+" TO "+TM$+" -=- "+NA$+QW$:CLOSE2
  385. 3047 F$="CALL NUM":DV=DW:GOSUB8210:CL=CL+1:OPEN2,DW,2,F$+",S,W":PRINT#2,CL
  386. 3048 CLOSE2:CLOSE3:CLOSE15:IFPEEK(1000)=1THENRETURN
  387. 3050 SYS49164:RUN
  388. 3419 :
  389. 3420 GOSUB150:CLOSE2:CLOSE15:OPEN15,DA,15:OPEN2,DA,2,"NAME.HSH,L,"+CHR$(50)
  390. 3425 RN=RN+1:IFRN>HTTHEN3455
  391. 3430 GOSUB156
  392. 3435 INPUT#2,B$:S=(ST)AND66:IFS=2THEN3435
  393. 3440 SYS49155:IFCA$="[193]"THENSYS49173:GOTO3455
  394. 3445 IFB$=CHR$(255)ORB$=""THEN3425
  395. 3450 A$="     "+B$:X=USR(.):GOTO3425
  396. 3455 CLOSE2:CLOSE15:RETURN
  397. 3600 :
  398. 3605 GOSUB190:GOSUB120:A$=TM$:X=USR(.):GOSUB150:POKE1017,.
  399. 3610 A$="[211]ET IT? ":GOSUB170:SYS49152:IFCA$<>"[217]"THEN9040
  400. 3615 C=56584:GOSUB150:A$="[197]NTER TIME (24 HR)":X=USR(.)
  401. 3620 GOSUB150:A$="[200][200]: ":GOSUB170:SYS49152:H=FNA(Z)
  402. 3625 A$="[205][205]: ":GOSUB170:SYS49152:M=FNA(Z)
  403. 3630 POKEC+7,PEEK(C+7)AND127:IFH>12THENH=H+68
  404. 3640 POKEC+3,16*INT(H/10)+H-INT(H/10)*10:POKEC+2,16*INT(M/10)+M-INT(M/10)*10
  405. 3650 POKEC+1,.:POKEC,.:GOTO3605
  406. 3999 :
  407. 4000 GOSUB150:QM=.:LL=1:IFPEEK(1007)THEN4010
  408. 4005 A$="[210][197][212][213][210][206] ON A [194][204][193][206][203] LINE TO END":X=USR(.):A$="[30 LINES [205]AX.]:X=USR(.)
  409. 4010 L$(LL)[178][199](.):[139]LL[178]25[167]A$[178]"[5 MORE LINES]":X[178][183](.)
  410. 4015 [139]LL[179]30[167]4020
  411. 4016 [139]SL[177]4[175]LL[179]50[167]4020
  412. 4017 QM[178]1:A$[178]"[(null)AST (null)INE]:X=USR(.)
  413. 4020 A$=STR$(LL)+":":X=USR(.):SYS49152:B$=LEFT$(CA$,1)
  414. 4025 IF((B$="/"ORB$=".")ANDLEN(CA$)=2)ORA$=""THENQM=1:CA$=RIGHT$(CA$,1)
  415. 4028 IFCA$="[208]"THENQM=.:A$=".P"
  416. 4030 IFQM=.THENL$(LL)=A$:LL=LL+1:GOTO4010
  417. 4035 IFLL=1THENLL=.:RETURN
  418. 4040 IFB$="/"ORB$="."THENB$="":GOTO4095
  419. 4050 GOSUB150:A$="[195],[196],[197],[198],[200],[201],[203],[204],[210],[211],?: ":GOSUB170:SYS49152:IFA$=""THEN4050
  420. 4095 IFCA$="[195]"THEN4180
  421. 4100 IFCA$="[197]"THENGOSUB4205:GOTO4050
  422. 4105 IFCA$="[211]"THENRETURN
  423. 4110 IFCA$="[204]"THEN4195
  424. 4112 IFCA$="[201]"AND((SL>4ANDLL<50)ORLL<30)THEN4145
  425. 4115 IFCA$="[198]"THENLL=.:RETURN
  426. 4120 IFCA$="[196]"THEN4330
  427. 4125 IFCA$="[210]"THEN4315
  428. 4130 IFA$="?"THENF$="EDIT MENU":DV=DR:GOSUB2800:GOTO4050
  429. 4135 IFCA$="[200]"THENF$="EDIT.HLP":RF=1:GOSUB225:GOTO4050
  430. 4140 IFCA$="[203]"THEN4152
  431. 4142 GOTO4050
  432. 4144 :
  433. 4145 GOSUB150:A$="[197]NTER LINE NUMBER TO INSERT: ":GOSUB170
  434. 4146 SYS49152:Q=FNA(Q):IFA$=""OR(Q<1)OR(Q>LL)THEN4050
  435. 4147 FORX=LLTOQSTEP-1:L$(X+1)=L$(X):NEXTX:GOSUB150
  436. 4148 A$="[197]NTER LINE #"+STR$(Q)+":":X=USR(.):SYS49152:IFA$=""THENA$=" "
  437. 4149 L$(Q)=A$:LL=LL+1:GOTO4050
  438. 4150 :
  439. 4152 GOSUB150:A$="[204]INE NUMBER TO KILL? ":GOSUB170
  440. 4155 SYS49152:Q=FNA(Q):IFA$=""OR(Q<1)OR(Q>LL)THEN4050
  441. 4160 A$="[204]INE #"+CA$+" READS LIKE THIS:":X=USR(.):A$=L$(Q):X=USR(.):GOSUB150
  442. 4165 A$="[203]ILL THIS LINE? ":GOSUB170:SYS49152:IFCA$<>"[217]"THEN4050
  443. 4170 FORX=QTOLL:L$(X)=L$(X+1):NEXTX:LL=LL-1:GOTO4050
  444. 4175 :
  445. 4180 IFSL>4ANDLL<50THEN4185
  446. 4182 IFLL>29THENGOSUB150:A$="[206]O MORE LINES CAN BE ADDED!":X=USR(.):GOTO4050
  447. 4185 QM=.:GOTO4010
  448. 4190 :
  449. 4195 FORY=1TOLL:A$=STR$(Y)+":":X=USR(.):A$=L$(Y):X=USR(.)
  450. 4197 SYS49155:IFCA$="[193]"THENY=LL+1
  451. 4198 NEXT:GOTO4050
  452. 4200 :
  453. 4205 GOSUB150:A$="[215]HICH LINE #?":X=USR(.):A$="[[210][197][212][213][210][206] ABORTS]: ":GOSUB170
  454. 4210 SYS49152:IFA$=""THENRETURN
  455. 4215 Y=FNA(Z):IFY<1ORY>LLTHENGOSUB150:A$=RE$:X=USR(.):GOTO4205
  456. 4220 GOSUB150:A$="[207]LD LINE READS:":X=USR(.):A$=L$(Y):X=USR(.):GOSUB150
  457. 4240 A$="[197]NTER OLD WORD(S): ":GOSUB170:SYS49152:IFA$=""THENRETURN
  458. 4245 B4$=A$:GOSUB150:A$="[197]NTER NEW WORD(S): ":GOSUB170:SYS49152:B5$=A$:K=1
  459. 4275 IFMID$(L$(Y),K,LEN(B4$))=B4$THEN4290
  460. 4280 IFK<LEN(L$(Y))THENK=K+1:GOTO4275
  461. 4285 GOSUB150:A$="[201] CAN'T FIND "+B4$:X=USR(.):GOTO4220
  462. 4290 IFLEN(L$(Y))+LEN(B5$)-LEN(B4$)<80THEN4300
  463. 4295 GOSUB150:A$="[212]HAT WOULD MAKE THE LINE TOO LONG!":X=USR(.):GOTO4220
  464. 4300 B1$=LEFT$(L$(Y),K-1):B2$=MID$(L$(Y),K+LEN(B4$)):L$(Y)=B1$+B5$+B2$
  465. 4305 GOSUB150:A$=L$(Y):X=USR(.):GOSUB150:GOTO4220
  466. 4310 :
  467. 4315 GOSUB190:A$="[217]OUR MESSAGE LOOKS LIKE THIS:":X=USR(.):GOSUB150
  468. 4320 FORY=1TOLL:A$=L$(Y):X=USR(.)
  469. 4322 SYS49155:IFCA$="[193]"THENY=LL+1
  470. 4323 NEXT:GOTO4050
  471. 4325 :
  472. 4330 GOSUB150:A$="[204]INE # TO REPLACE: ":GOSUB170:SYS49152:IFA$=""THEN4050
  473. 4335 Y=FNA(Z):IFY<1ORY>LLTHENA$=RE$:X=USR(.):GOTO4050
  474. 4340 GOSUB150:A$=L$(Y):X=USR(.):GOSUB150:A$="[[210][197][212][213][210][206] ABORTS]":X=USR(.)
  475. 4345 SYS49152:IFA$=""THEN4050
  476. 4350 L$(Y)=A$:GOTO4050
  477. 4355 :
  478. 4360 CLOSE2:OPEN2,DW,2,F$+",S,W":PRINT#2,QW$+"[205]ESSAGE #:"+STR$(HN)+QW$
  479. 4370 PRINT#2,QW$+"[208]OSTED [194]Y: "+NA$+QW$
  480. 4375 PRINT#2,QW$+"  [211]UBJECT: "+T$+QW$:IFPEEK(1004)THENTU$=B4$
  481. 4376 IFFBTHENTU$="[211][217][211][207][208]"
  482. 4378 PRINT#2,QW$+"       [212]O: "+TU$+QW$
  483. 4380 GOSUB120:PRINT#2,QW$+"[212]IME/[196]ATE: "+TM$+" / "+DA$+QW$
  484. 4385 FORZ=.TOLL:PRINT#2,QW$+L$(Z)+QW$:NEXT:CLOSE2
  485. 4390 IFFBTHENFB=.:RETURN
  486. 4400 F$="MESSAGE.FD":DV=DW:GOSUB8210:OPEN2,DW,2,"MESSAGE.FD,S,W"
  487. 4410 PRINT#2,QW$;LN;QW$:CLOSE2:RETURN
  488. 4499 :
  489. 4500 GOSUB190:A$="     ---=<[210][197]-[204][207][199] [207][206][212][207] [212][200][197][160][194][194][211]>=---":X=USR(.)
  490. 4505 GOSUB150:A$="[215]ANT TO DO THIS? ":GOSUB170:GOSUB160:IFA$=""ORCA$="[206]"THEN130
  491. 4515 POKE1000,1:MC=.:GOSUB3000:IFSL>4THENPOKE1000,2
  492. 4520 GOTO6000
  493. 4599 :
  494. 4600 GOSUB190:A$="[198][197][197][196][194][193][195][203]":X=USR(.):DV=DW:IFMN=.THENGOSUB145:GOTO9040
  495. 4610 IFMN=1THENA$="1":GOTO4620
  496. 4615 GOSUB150:A$="[211]TART FROM? ":GOSUB170:SYS49152:IFA$=""THENA$="1"
  497. 4617 IFCA$="[216]"THEN9040
  498. 4620 FF=FNA(Z):IFFF<1THEN4600
  499. 4630 F$="FEED"+STR$(FF):GOSUB2800:FF=FF+1:IFFF>MNTHEN4640
  500. 4635 GOSUB150:A$="[206]EXT ONE? ":GOSUB170:SYS49152:IFCA$<>"[206]"THEN4630
  501. 4640 IFSL=9THENA$="[193]RCHIVE THE [198]EEDBACKS? ":GOSUB170:SYS49152:IFCA$="[217]"THEN4650
  502. 4642 GOTO9040
  503. 4649 :
  504. 4650 FF=1:CLOSE2:CLOSE3:CLOSE15:OPEN15,DW,15:OPEN2,DW,2,"ALL,S,A"
  505. 4655 PRINT#2,QW$;QW$:OPEN3,DW,3,"FEED"+STR$(FF)+",S,R":GOSUB127:IFER>19THEN4670
  506. 4657 INPUT#3,A$:S=ST:IFS=2THEN4657
  507. 4660 PRINT#2,QW$+A$+QW$:IFS<>64THEN4657
  508. 4662 CLOSE3:FF=FF+1:IFFF<=MNTHEN4655
  509. 4665 CLOSE2:CLOSE15:FORFF=1TOMN:F$="FEED"+STR$(FF):GOSUB8210:NEXTFF
  510. 4667 F$="FEED NUM":GOSUB8210:CLOSE2:OPEN2,DW,2,F$+",S,W":MN=.:PRINT#2,MN
  511. 4670 CLOSE2:CLOSE3:CLOSE15:GOTO9040
  512. 4699 :
  513. 4700 GOSUB190:A$="          ---=<[213][211][197][210][160][204][207][199][211]>=---":B$="USER LOG"
  514. 4701 IFPEEK(1019)THENA$="       ---=<[195][193][204][204][197][210] [195][207][205][205][197][206][212][211]>=---":B$="COMMENTS"
  515. 4705 X=USR(.):POKE1004,.:DV=DW:F$=B$:IFPEEK(1007)THEN4720
  516. 4710 GOSUB125:A$="([194])OTH [217]ESTERDAY'S AND [212]ODAY'S":X=USR(.)
  517. 4712 A$="([212])ODAY'S":X=USR(.)
  518. 4715 A$="([217])ESTERDAY'S":X=USR(.)
  519. 4720 GOSUB132:A$="[194],[212],[217]: ":GOSUB170
  520. 4722 GOSUB160:IFA$=CR$ORA$=""THENPOKE1019,.:GOTO130
  521. 4725 IFA$="?"THEN4710
  522. 4730 IFCA$="[199]"ORCA$="[209]"THEN800
  523. 4735 IFCA$="[217]"THENF$=F$+".Y":GOTO4750
  524. 4740 IFCA$="[194]"THENPOKE1004,1:F$=F$+".Y":GOTO4750
  525. 4742 IFCA$="[212]"THENF$=LEFT$(F$,8):GOTO4750
  526. 4745 IFMUTHENGOSUB180:GOTO4722
  527. 4747 GOTO4710
  528. 4750 GOSUB2800:IFPEEK(1004)THENPOKE1004,.:F$=LEFT$(F$,8):GOTO4750
  529. 4755 GOTO4705
  530. 4799 :
  531. 4800 GOSUB190:A$="      ---=<[217][197][204][204] [193][212] [212][200][197] [211][217][211][207][208]>=---":X=USR(.)
  532. 4805 IFPEEK(1001)=.THEN4845
  533. 4810 GOSUB150:A$="[194]ANGIN' HIS GONG...":X=USR(.):RI=.:DE=.:GOSUB150
  534. 4815 POKE54273,130:POKE54277,9:POKE54287,30:POKE54296,15
  535. 4820 A$=" [217][193][193][193][201][201][201][201][197][197][197][197]":GOSUB170:LE=FNB(X):RI=RI+1:IFRI=10THEN4845
  536. 4822 DE=DE+1:POKE54276,21:SYS49155:IFA$="\"THENPOKE54296,.:GOTO4870
  537. 4825 FORI=1TO75:NEXTI:IFDE<3THENPOKE54276,20:FORI=1TO50:NEXT:GOTO4822
  538. 4830 POKE54276,20:IF(RI)THENGOSUB205
  539. 4840 DE=.:GOTO4820
  540. 4845 POKE54296,.:GOSUB150:A$="[211]ORRY, THE [211][217][211][207][208] IS NOT AVAILABLE...":X=USR(.)
  541. 4855 GOSUB150:A$="[204]EAVE A [[198]]EEDBACK [205]ESSAGE? ":GOSUB170
  542. 4860 GOSUB160:IFCA$="[217]"THEN2615
  543. 4865 GOTO130
  544. 4870 GOSUB150:GOSUB150:A$="[200]ELLO...THE [211][217][211][207][208] IS HERE":X=USR(.):GOSUB150
  545. 4880 A$="[200]IT [210][197][212][213][210][206] AT THE END OF YOUR COMMENTS SO [211][217][211][207][208] CAN REPLY...":X=USR(.)
  546. 4882 GOSUB150:Z=.:A$="":GOTO4895
  547. 4885 SYS49152:IFCA$="[208][207][207][198]!"THEN4905
  548. 4890 IFA$=""AND(Z)THENA$="[211][217][211][207][208]>":X=USR(.):Z=.:GOTO4885
  549. 4895 IFA$=""THENA$=NA$+">":X=USR(.):Z=1
  550. 4900 GOTO4885
  551. 4905 GOSUB150:A$="[210]ETURNING TO THE [194][194][211]":X=USR(.):GOSUB145:POKE204,1:GOTO130
  552. 4999 :
  553. 5000 GOSUB190:A$="  ---=<[197][204][197][195][212][210][207][206][201][195] ([208][210][201][214][193][212][197]) [205][193][201][204]>=---":X=USR(.)
  554. 5010 POKE1004,.:IFPEEK(1007)THEN5043
  555. 5015 GOSUB125:A$="  ([200])ELP ON USING [197]-[205]AIL":X=USR(.)
  556. 5025 A$="  ([204])IST OF [205]AIL [215]AITING":X=USR(.)
  557. 5030 A$="  ([210])EAD LETTERS":X=USR(.)
  558. 5035 A$="  ([211])END LETTERS":X=USR(.)
  559. 5040 A$="  ([212])RASH LETTERS ADDRESSED TO YOU":X=USR(.)
  560. 5043 GOSUB132:A$="[200],[204],[210],[211],[212],[216]: ":GOSUB170
  561. 5045 GOSUB160:IFA$=CR$ORA$=""THEN130
  562. 5050 IFCA$="[199]"ORCA$="[209]"THEN800
  563. 5055 IFCA$="[200]"THENF$="EMAIL.HLP":RF=1:GOSUB225:GOTO5010
  564. 5060 IFCA$="[204]"THEN5315
  565. 5065 IFCA$="[210]"THEN5225
  566. 5070 IFCA$="[212]"THEN5500
  567. 5075 IFA$="?"THENGOSUB150:GOTO5015
  568. 5080 IFA$="[216]"THENGOSUB185:GOTO5010
  569. 5085 IFCA$="[211]"THEN5095
  570. 5090 IFMUTHENGOSUB180:GOTO5045
  571. 5092 GOTO5015
  572. 5095 GOSUB150:IFPEEK(1007)THEN5110
  573. 5100 A$="[215]ANT TO SEE A [205]EMBER [204]IST? ":GOSUB170:GOSUB160:GOSUB150
  574. 5105 IFCA$="[217]"THENRN=.:GOSUB3420
  575. 5110 A$="[212]O: ":GOSUB170:SYS49152:SYS49176:GOSUB150:IFA$=""THEN5010
  576. 5115 E$=LEFT$(CA$,13):CE$=CA$
  577. 5125 A$="[195]HECKING...":X=USR(-1):LE=FNB(X):CLOSE2:CLOSE15
  578. 5130 OPEN15,DA,15:OPEN2,DA,2,"NAME.HSH,L,"+CHR$(50):GOSUB155
  579. 5135 INPUT#2,A1$,A2$,CM:IFA1$=CHR$(255)THEN5155
  580. 5140 IFA2$=CE$THENAE$=A1$:CLOSE2:CLOSE15:GOTO5165
  581. 5145 RN=RN+1:IFRN>HTTHENRN=1
  582. 5150 GOSUB156:GOTO5135
  583. 5155 CLOSE2:CLOSE15:GOSUB205:A$="[201] CAN'T FIND THAT NAME!":X=USR(.)
  584. 5160 A$="([217]OU MAY HAVE SPELLED IT WRONG)":X=USR(.):GOTO5210
  585. 5165 GOSUB205:A$="[198]OUND IT!!!":X=USR(.):GOSUB150:GOSUB4000:IFLL=.THEN5210
  586. 5170 GOSUB150:A$="[211]AVING IT":X=USR(-1):LE=FNB(X):GOSUB120
  587. 5175 CM=CM+1:CLOSE2:OPEN2,DW,2,E$+STR$(CM)+",S,W":OPEN15,DW,15
  588. 5180 PRINT#2,QW$+"[198]ROM: "+NA$+QW$
  589. 5185 PRINT#2,QW$+"  [207]N: "+DA$+" / "+TM$+QW$
  590. 5190 PRINT#2,QW$;QW$
  591. 5195 FORY=.TOLL:PRINT#2,QW$+L$(Y)+QW$:NEXT:CLOSE2:GOSUB8225:IFER>19THEN5210
  592. 5197 GOSUB205:A$="[213]PDATING [205]AIL-[194]OX":X=USR(-1):GOSUB145
  593. 5200 CLOSE2:CLOSE15:OPEN15,DA,15:OPEN2,DA,2,"NAME.HSH,L,"+CHR$(50):GOSUB156
  594. 5205 PRINT#2,AE$","CE$","CM
  595. 5210 CLOSE2:CLOSE15:IFPEEK(1004)THENPOKE1004,.:GOTO5240
  596. 5215 GOTO5010
  597. 5220 :
  598. 5225 GOSUB190:F=1:IFMCTHEN5235
  599. 5230 A$="[211]ORRY...NO LETTERS IN YOUR MAILBOX.":X=USR(.):GOTO5010
  600. 5235 DV=DW:F$=LEFT$(N$,13)+STR$(F):GOSUB2800
  601. 5240 IFPEEK(1007)THEN5270
  602. 5245 GOSUB150:A$="[197]-[205]AIL [211]UB-[198]UNCTIONS:":X=USR(.):GOSUB150
  603. 5250 A$="  [210]EAD IT ([193])GAIN":X=USR(.)
  604. 5255 A$="  ([206])EXT [205]ESSAGE":X=USR(.)
  605. 5260 A$="  ([209])UIT TO [197]-[205]AIL [205]ENU":X=USR(.)
  606. 5265 A$="  ([210])EPLY TO THIS [205]ESSAGE":X=USR(.)
  607. 5270 GOSUB132:A$="[193],[206],[209],[210]: ":GOSUB170
  608. 5272 GOSUB160:IFA$=""ORA$=CR$ORCA$="[206]"THEN5300
  609. 5275 IFCA$="[209]"THEN5305
  610. 5280 IFCA$="[193]"THEN5235
  611. 5285 IFCA$="[210]"THENPOKE1004,1:GOTO5380
  612. 5290 IFA$="?"THENGOSUB150:GOTO5245
  613. 5295 IFMUTHENGOSUB180:GOTO5272
  614. 5297 GOTO5245
  615. 5300 F=F+1:IF F<=MCTHEN5235
  616. 5305 A$="[196]ON'T FORGET TO ([212])RASH YOUR MAIL!":X=USR(.):GOTO5010
  617. 5310 :
  618. 5315 GOSUB190:A$="[195]HECKING ALL"+STR$(HT)+" MAIL BOXES!":X=USR(.):GOSUB150
  619. 5320 A$="        [206]AME         [205]AIL":X=USR(.)
  620. 5325 A$="  ----------------   ----":X=USR(.):GOSUB150
  621. 5330 CLOSE2:CLOSE15:OPEN15,DA,15:OPEN2,DA,2,"NAME.HSH,L,"+CHR$(50):RN=.
  622. 5335 RN=RN+1:IFRN>HTTHEN5365
  623. 5345 GOSUB156:INPUT#2,EA$,EC$,CM:S=ST:IFS=2THEN5345
  624. 5350 SYS49155:IFCA$="[193]"THENSYS49173:GOTO5365
  625. 5355 IFEA$=CHR$(255)ORCM=.THEN5335
  626. 5360 A$="  "+EA$+LEFT$(PD$,19-LEN(EA$))+STR$(CM):X=USR(.):GOTO5335
  627. 5365 CLOSE2:CLOSE15:IFRMTHENGOSUB145:GOTO9040
  628. 5370 GOTO5010
  629. 5375 :
  630. 5380 A$="[204]OOKING...":X=USR(-1):CLOSE2:CLOSE15:OPEN15,DW,15:OPEN2,DW,2,F$+",S,R"
  631. 5385 LE=FNB(X):GOSUB127:IFER>19THENCLOSE2:CLOSE15:POKE1004,.:GOSUB205:GOTO5240
  632. 5390 INPUT#2,A$:S=(ST)AND66:IFS=2THEN5390
  633. 5395 A$=RIGHT$(A$,LEN(A$)-6):SYS49167:SYS49176:GOSUB205:GOTO5115
  634. 5400 :
  635. 5405 MC=.:CA$=N$:SYS49176:CLOSE2:CLOSE15:OPEN15,DA,15
  636. 5410 OPEN2,DA,2,"NAME.HSH,L,"+CHR$(50):GOSUB155
  637. 5425 INPUT#2,EA$,EC$,MC:S=(ST)AND66:IFS=2THEN5425
  638. 5430 IFEA$=CHR$(255)OREC$=N$THEN5440
  639. 5436 RN=RN+1:IFRN>HTTHENRN=1
  640. 5437 GOSUB156:GOTO5425
  641. 5440 CLOSE2:CLOSE15:GOSUB150:IFMCTHEN5450
  642. 5445 A$="[217]OU DON'T HAVE ANY MAIL":X=USR(.):GOTO615
  643. 5450 A$="[217]OU HAVE"+STR$(MC)+" LETTER(S) WAITING.":X=USR(.)
  644. 5455 GOSUB150:A$="[196]O YOU WANT TO READ IT NOW? ":GOSUB170:GOSUB160
  645. 5460 IFCA$="[206]"THENGOSUB150:GOTO615
  646. 5465 GOTO5225
  647. 5470 :
  648. 5500 IFMC=.THENGOSUB150:A$="[206]O MAIL TO TRASH...":X=USR(.):GOTO5010
  649. 5502 A$="[195]LEANING HOUSE":X=USR(.):DV=DW
  650. 5505 IFLEFT$(N$,13)=""ORSL=.THEN5010
  651. 5510 F$=LEFT$(N$,13)+"*":GOSUB8210
  652. 5515 CLOSE2:CLOSE15:CA$=N$:SYS49176
  653. 5520 OPEN15,DA,15:OPEN2,DA,2,"NAME.HSH,L,"+CHR$(50):GOSUB155
  654. 5530 INPUT#2,AE$,CE$:IFAE$=CHR$(255)THENCLOSE2:CLOSE15:GOTO5010
  655. 5535 IFCE$=N$THEN5545
  656. 5540 RN=RN+1:IFRN>HTTHENRN=1
  657. 5542 GOSUB156:GOTO5530
  658. 5545 MC=.:GOSUB156:PRINT#2,AE$","CE$","MC:CLOSE2:CLOSE15:GOTO5010
  659. 5999 :
  660. 6000 IFPEEK(1011)THEN1500
  661. 6001 GOSUB190:SL=.:POKE1015,.:POKE1007,.:POKE828,1
  662. 6002 NA$="":PN$="":LO$="":LG$="":BL$="":LF$="":SW$="":EL$="":SL$="":MU$=""
  663. 6003 PW$="":TC$="":TC$="":TC=.:N$=""
  664. 6005 A$="[206][197][215] OR [208]ASSWORD: ":X=USR(-1):SYS49179:GOSUB150:IFCA$<>P$THENPN=.
  665. 6007 GOSUB120:T1$=A$:P$=CA$:IFCA$="[206][197][215]"THEN6120
  666. 6012 IFCA$=""THEN6115
  667. 6015 SYS49176:A$="[195]HECKING FOR ACCESS.":X=USR(.):CLOSE2:CLOSE15
  668. 6020 GOSUB150:OPEN15,DA,15:OPEN2,DA,2,"PWDS.HSH,L,"+CHR$(80):GOSUB155
  669. 6025 INPUT#2,PW$,NA$,PN$,LO$,LG$,BL$,LF$,SW$,EL$,SL$,MU$,TC$
  670. 6030 IFPW$=P$THEN6055
  671. 6035 IFLEFT$(PW$,1)=CHR$(255)THEN6050
  672. 6040 RN=RN+1:IFRN>HTTHENRN=1
  673. 6045 GOSUB156:GOTO6025
  674. 6050 CLOSE2:CLOSE15:TR=TR+1:GOTO6360
  675. 6055 A$="[195]OMPLETE YOUR PHONE #: "+LEFT$(PN$,LEN(PN$)-4):X=USR(-1):SYS49179
  676. 6060 IFCA$<>RIGHT$(PN$,4)THEN6050
  677. 6065 RA=RN:SL=VAL(SL$+Z$):CLOSE2:CLOSE15:POKE1014,VAL(BL$):POKE828,VAL(LF$)
  678. 6070 POKE829,VAL(SW$):POKE1007,VAL(EL$):MU=VAL(MU$+Z$):TC=VAL(TC$+Z$)
  679. 6075 LG=VAL(LG$):GOSUB120:POKE763,120:IFSL>4THENPOKE763,240
  680. 6100 A$=NA$:SYS49167:N$=CA$:IFPEEK(1000)THENIFSL>3THENPOKE1000,2:GOTO510
  681. 6105 POKE1000,.:GOTO510
  682. 6110 :
  683. 6115 A$="[212]RY AGAIN ([217]/[206])? ":GOSUB170:SYS49152:GOSUB175:IFCA$="[217]"THEN6000
  684. 6117 IFCA$<>"[206]"THEN6115
  685. 6120 GOSUB150:A$="[196]O YOU NEED LINE FEEDS SENT? ":GOSUB170:SYS49152
  686. 6125 GOSUB175:IFCA$="[206]"THENPOKE828,.
  687. 6130 GOSUB190:A$="[215]ANT TO APPLY FOR A PASSWORD? ":GOSUB170:SYS49152:GOSUB175
  688. 6135 IFCA$="[217]"THEN6175
  689. 6140 IFCA$<>"[206]"THEN6130
  690. 6145 GOSUB150:A$="[197]NTER YOUR [206][193][205][197]":X=USR(.)
  691. 6147 A$="[15 CHAR. MAX]: ":GOSUB170:POKE1012,16
  692. 6150 SYS49152:NA$=A$:N$=CA$:IFN$=""THENNA$="[193]NONYMOUS":N$=NA$:SL=.:GOTO510
  693. 6155 GOSUB6400:IF(N)THENN=.:GOTO6145
  694. 6160 IFN$="[211][217][211][207][208]"THENGOSUB150:A$="[212][200][193][212]'[211] [205][197]!!!":X=USR(.):GOTO6145
  695. 6165 GOTO510
  696. 6170 :
  697. 6175 GOSUB190:F$="APPLICATION":DV=DR:GOSUB2800:GOSUB150
  698. 6180 A$="[215]HAT NAME WOULD YOU LIKE TO USE?":X=USR(.):A$="[15 [195]HARACTERS [205][193][216]]: "
  699. 6185 X=USR(-1):POKE1012,16:SYS49152:NA$=A$:N$=CA$:L$(2)=A$:IFN$=""THEN6340
  700. 6195 GOSUB150:IFCA$="[211][217][211][207][208]"THENA$="[212][200][193][212]'[211] [205][197]!!":X=USR(.):GOSUB150:GOTO6180
  701. 6200 GOSUB6400:IF(N)THENN=.:GOTO6180
  702. 6205 A$="[215]HAT IS YOUR [198][213][204][204] NAME: ":X=USR(-1):SYS49152:IFA$=""THEN6340
  703. 6210 L$(1)=A$:GOSUB150:A$="[215]HAT WILL YOUR PASSWORD BE:":X=USR(.)
  704. 6215 A$="[10 [195]HARACTERS [205][193][216]]: ":X=USR(-1):POKE1012,11:SYS49152:IFA$=""THEN6340
  705. 6220 L$(3)=A$:GOSUB150:A$="([196]ON'T FORGET IT!)":X=USR(.):GOSUB150
  706. 6225 A$="[197]NTER YOUR [200][207][205][197] PHONE NUMBER:":X=USR(.)
  707. 6230 A$="[[210][197][209][213][201][210][197][196] FOR ACCESS]: ":X=USR(-1):SYS49152:IFA$=""THEN6340
  708. 6235 L$(4)=CA$:GOSUB150:A$="[207]KAY, "+NA$+" [201] AM GOING TO REPEAT":X=USR(.)
  709. 6240 A$="THE INFORMATION.":X=USR(.):GOSUB150
  710. 6245 A$="[206]AME          : "+L$(1):L$(1)=A$:X=USR(.)
  711. 6250 A$="[204]OGGING ON AS : "+L$(2):L$(2)=A$:X=USR(.)
  712. 6255 A$="[208]ASSWORD OF   : "+L$(3):L$(3)=A$:X=USR(.)
  713. 6260 A$="[208]HONE NUMBER  : "+L$(4):L$(4)=A$:X=USR(.):GOSUB150
  714. 6265 A$="[201]S THIS CORRECT? ":X=USR(-1):SYS49152:GOSUB175:IFCA$="[217]"THEN6280
  715. 6270 IFCA$<>"[206]"THEN6265
  716. 6275 GOTO6180
  717. 6280 GOSUB150:A$="[211]AVING INFO":X=USR(.):DV=DW:A$="[207][198][198]":IFPEEK(828)THENA$="[207][206]"
  718. 6290 L$(5)="[204]INE [198]EEDS    : "+A$:GOSUB250
  719. 6305 LL=5:L$(.)=CHR$(.):HN=MN:T$="[208][193][211][211][215][207][210][196] [210][197][209][213][197][211][212]":FB=1:GOSUB4360
  720. 6310 GOSUB150:A$="[196]O YOU WANT TO SEE THE [206][197][215] [213][211][197][210][211] FILE? ":GOSUB170:SYS49152
  721. 6315 GOSUB175:IFCA$="[217]"THENF$="NEW USER":DV=DR:GOSUB150:GOSUB2800:GOTO6325
  722. 6320 IFCA$<>"[206]"THEN6310
  723. 6325 GOSUB145:GOTO510
  724. 6339 :
  725. 6340 GOSUB150:A$="[193]RE YOU SURE YOU WANT TO ABORT THIS? ":X=USR(-1):SYS49152
  726. 6345 GOSUB175:IFCA$="[217]"THEN6145
  727. 6350 GOTO6180
  728. 6355 :
  729. 6360 IFTR=3THENA$="3 STRIKES AND YER OUT!!!":X=USR(.):POKE1000,.:GOTO1
  730. 6365 PW$="":P$="":NA$="":PN$=""
  731. 6370 GOSUB150:A$="[206]O MATCH FOUND, EITHER YOU TYPED IT IN":X=USR(.)
  732. 6375 A$="WRONG, OR YOU DON'T HAVE AN ACCOUNT.":X=USR(.):GOTO6115
  733. 6395 :
  734. 6400 GOSUB150:A$="[195]HECKING FOR DUPLICATE NAMES...":X=USR(.):N=.:CLOSE2:CLOSE15
  735. 6405 OPEN15,DA,15:OPEN2,DA,2,"NAME.HSH,L,"+CHR$(50):SYS49176:GOSUB155
  736. 6415 INPUT#2,A$,CA$:IFA$=CHR$(255)THEN6430
  737. 6420 IFCA$=N$THEN6425
  738. 6422 RN=RN+1:IFRN>HTTHENRN=1
  739. 6423 GOSUB156:GOTO6415
  740. 6425 CLOSE2:GOSUB150:A$="[211]ORRY, THAT NAME IS IN USE.":X=USR(.):N=1:GOSUB150
  741. 6430 CLOSE2:CLOSE15:RETURN
  742. 6999 :
  743. 7000 GOSUB190:A$="     ---=<[193][206][211][215][197][210] [212][200][197] [209][213][197][211][212][201][207][206]>=---":X=USR(.):DV=DW
  744. 7005 F$="ANSWERS":IFPEEK(1007)THEN7010
  745. 7007 GOSUB125:A$="([193])NSWER THE QUESTION":X=USR(.)
  746. 7008 A$="([210])EAD OTHER ANSWERS":X=USR(.)
  747. 7010 GOSUB132:A$="[193],[210]: ":GOSUB170
  748. 7012 GOSUB160:IFA$=CR$ORA$=""THEN130
  749. 7014 IFA$="?"THEN7007
  750. 7016 IFCA$="[193]"THEN7024
  751. 7018 IFCA$="[209]"ORCA$="[199]"THEN800
  752. 7020 IFCA$="[210]"THENGOSUB150:GOSUB2800:GOSUB135:GOTO7005
  753. 7022 IFMUTHENGOSUB180:GOTO7012
  754. 7023 GOTO7007
  755. 7024 GOSUB150:IFQA=2THENA$="[207]NLY 2 ANSWERS PER CALL":X=USR(.):GOSUB145:GOTO7005
  756. 7025 A$="2 LINES [205][193][216][201][205][213][205]:":X=USR(.):GOSUB150:SYS49152:IFA$=""THEN7005
  757. 7027 B$=A$:POKE1012,77:SYS49152:QA=QA+1:CLOSE2:OPEN2,DV,2,F$+",S,A"
  758. 7028 PRINT#2,QW$+NA$+":"+QW$:PRINT#2,QW$+B$+QW$:IFA$<>""THENPRINT#2,QW$+A$+QW$
  759. 7029 CLOSE2:GOTO7005
  760. 7499 :
  761. 7500 GOSUB190:A$="      ---=<[212][197][210][205][201][206][193][204]  [211][197][212][212][201][206][199][211]>=---":X=USR(.):SL$=STR$(SL)
  762. 7505 GOSUB125:A$="  ([194])ELL ":B$="[207][198][198]":IFPEEK(1014)THENB$="[207][206]"
  763. 7507 A$=A$+B$:X=USR(.):A$="  ([195])HANGE [208]HONE #":X=USR(.):A$="  ([200])ELP":X=USR(.)
  764. 7510 A$="  ([204])INE [198]EEDS ":B$="[207][198][198]":IFPEEK(828)THENB$="[207][206]"
  765. 7512 A$=A$+B$:X=USR(.):A$="  ([205])ENUES ARE ":B$="[195][207][204][196]":IFMUTHENB$="[200][207][212]"
  766. 7515 A$=A$+B$:X=USR(.):A$="  ([211])CREEN [215]IDTH =":A$=A$+STR$(PEEK(829)):X=USR(.)
  767. 7520 A$="  ([216])PERT [204]EVEL = ":B$="[206]OVICE":IFPEEK(1007)THENB$="[197]XPERT"
  768. 7525 A$=A$+B$:X=USR(.):A$="  [193]CCOUNT [204]EVEL ="+SL$:X=USR(.)
  769. 7530 GOSUB132:A$="[194],[195],[200],[204],[205],[211],[216]: ":GOSUB170
  770. 7535 GOSUB160:IFA$=CR$ORA$=""THEN130
  771. 7540 IFCA$="[216]"THENGOSUB185:GOTO7500
  772. 7542 IFCA$="[200]"THENF$="TERM.HLP":RF=1:GOSUB225:GOTO7500
  773. 7545 IFCA$="[204]"THEN7625
  774. 7547 IFCA$="[205]"THEN7635
  775. 7550 IFCA$="[211]"THEN7580
  776. 7552 IFCA$="[209]"ORCA$="[199]"THEN800
  777. 7554 IFCA$="[195]"THEN7570
  778. 7555 IFCA$="[194]"THEN7565
  779. 7556 IFA$="[136]"THENSL=SL+1:GOTO7500
  780. 7557 IFA$="[140]"THENSL=SL-1:GOTO7500
  781. 7558 IFMUTHENGOSUB180:GOTO7535
  782. 7559 GOTO7500
  783. 7560 :
  784. 7565 POKE1014,1-(PEEK(1014)AND1):GOTO7500
  785. 7566 :
  786. 7570 GOSUB150:A$="[217]OUR PHONE NUMBER IS "+PN$:X=USR(.):GOSUB150
  787. 7572 A$="[195]HANGE IT? ":GOSUB170:GOSUB160:IFCA$<>"[217]"THEN7500
  788. 7574 GOSUB150:A$="[208]REFIX (3 CHARACTERS): ":GOSUB170:SYS49152:IFA$=""THEN7500
  789. 7575 B$=CA$:IFLEN(CA$)<3THEN7574
  790. 7576 GOSUB150:A$="[211]UFFIX (4 CHAR): ":GOSUB170:SYS49152:IFA$=""THEN7500
  791. 7577 IFLEN(CA$)<4THEN7576
  792. 7578 PN$=LEFT$(PN$,4)+B$+"-"+CA$:GOTO7570
  793. 7580 IFPEEK(829)=80THENPOKE829,40:GOTO7500
  794. 7585 POKE829,80:GOTO7500
  795. 7624 :
  796. 7625 POKE828,1-(PEEK(828)AND1):GOTO7500
  797. 7634 :
  798. 7635 MU=1-(MUAND1):GOTO7500
  799. 7850 :
  800. 7935 GOSUB190:A$=DA$:X=USR(.):GOSUB150
  801. 7940 A$="[210]ESET IT? ":GOSUB170:SYS49152:IFCA$<>"[217]"THENA$=DA$:SYS49209:GOTO9040
  802. 7950 GOSUB150:A$="[205]ONTH (1-12): ":GOSUB170:SYS49152:M=FNA(Z)
  803. 7955 A$="  [196]AY (1-31): ":GOSUB170:SYS49152:D=FNA(Z)
  804. 7960 POKE1002,M:POKE1003,D:SYS49197:DA$=A$+STR$(D):GOTO7935
  805. 7999 :
  806. 8000 GOSUB190:A$="[196][201][211][203] [195][207][205][205][193][206][196][211]":X=USR(.):GOSUB150
  807. 8005 A$="(1) [196]ISK [211]TATUS":X=USR(.)
  808. 8010 A$="(2) [214]ALIDATE THE DISK":X=USR(.)
  809. 8015 A$="(3) [210]EAD [196]ISK [196]IRECTORY":X=USR(.)
  810. 8020 IFSL<9THEN8035
  811. 8025 A$="(4) [210]ENAME A FILE":X=USR(.)
  812. 8030 A$="(5) [211]CRATCH A FILE":X=USR(.)
  813. 8035 CLOSE15:GOSUB150:A$="[217]OUR [195]HOICE? ":GOSUB170:GOSUB160
  814. 8037 IFA$=""ORA$=CR$THENGOSUB248:GOTO9040
  815. 8040 A=FNA(Z):IFA<1ORA>5THEN8035
  816. 8050 IFSL<9ANDA>3THEN8035
  817. 8055 ON(A)GOTO8135,8125,8245,8105,8065
  818. 8060 :
  819. 8063 :
  820. 8065 GOSUB150:A$="[198]ILE TO SCRATCH: ":GOSUB170:SYS49152:IFA$=""THEN8000
  821. 8075 F$=A$:GOSUB8155:GOSUB150:A$="[211]CRATCH "+QW$+F$+QW$+"? ":GOSUB170
  822. 8090 GOSUB160:IFCA$<>"[217]"THEN8000
  823. 8095 A$="WORKING...":GOSUB170:GOSUB8210:GOTO8140
  824. 8100 :
  825. 8105 GOSUB150:A$="[207]LD NAME: ":GOSUB170:SYS49152:A1$=A$:IFA$=""THEN8000
  826. 8110 GOSUB150:A$="[206]EW NAME: ":GOSUB170:SYS49152:A2$=A$:IFA$=""THEN8110
  827. 8115 GOSUB8155:CLOSE15:OPEN15,DV,15,"R0:"+A2$+"="+A1$:GOSUB127:CLOSE15:GOTO8140
  828. 8120 :
  829. 8125 GOSUB8155:CLOSE15:OPEN15,DV,15,"V0:":GOSUB127:CLOSE15:GOTO8135
  830. 8130 :
  831. 8135 GOSUB8220:GOSUB150
  832. 8140 A$="[196]ISK [211]TATUS: "+STR$(ER)+", "+ER$+","+E1$+","+E2$:X=USR(.)
  833. 8145 GOSUB145:GOTO8000
  834. 8150 :
  835. 8155 IF(DR=DW)AND(DL=DW)THENDV=DW:RETURN
  836. 8160 GOSUB150:A$="[196]RIVE #: ":GOSUB170:SYS49152:DV=FNA(Z):IFA$=""THEN8160
  837. 8165 IF(DV=DR)OR(DV=DW)OR(DV=DL)THENRETURN
  838. 8170 GOSUB150:A$="[213]SE"+STR$(DR)+" OR"+STR$(DL):X=USR(.):GOTO8160
  839. 8175 :
  840. 8180 GOSUB150:A$="[198]ILENAME: ":GOSUB170:SYS49152:IFA$=""THEN9040
  841. 8190 F$=A$:GOSUB8155:GOSUB2800:GOSUB135:GOTO9040
  842. 8205 :
  843. 8210 CLOSE2:CLOSE3:CLOSE15:OPEN15,DV,15,"S0:"+F$:GOTO8225
  844. 8215 :
  845. 8220 CLOSE15:OPEN15,DV,15
  846. 8225 GOSUB127:IFER<20OR(RM)THEN8235
  847. 8230 IFRM=.THENGOSUB150:A$="[208]LEASE LET THE [211][217][211][207][208] KNOW.":X=USR(.)
  848. 8235 CLOSE2:CLOSE3:CLOSE15:RETURN
  849. 8240 :
  850. 8245 GOSUB190:GOSUB8155:POKE820,DV:SYS49185:GOSUB135:GOTO8000
  851. 8499 :
  852. 8500 GOSUB190:A$="      ---<[205][195]*[194][194][211] [198][201][204][197] [212][210][193][206][211][198][197][210]>=---":X=USR(-1):DV=DL:GOSUB150
  853. 8501 IFPEEK(1013)=.THENA$="[206][207][212] AVAILABLE NOW":X=USR(.):GOSUB145:GOTO130
  854. 8504 IFPEEK(1007)THEN8511
  855. 8507 GOSUB125:A$="([196])OWNLOAD A [198]ILE":X=USR(.)
  856. 8508 A$="([198])ILE [204]IST":X=USR(.):A$="([200])ELP":X=USR(.):IFSL<3THEN8512
  857. 8509 IFSL>4THENA$="([211])EE [196][201][210]":X=USR(.)
  858. 8510 A$="([213])PLOAD A [198]ILE":X=USR(.)
  859. 8511 GOSUB150:GOSUB215:A$="[211]PACE LEFT ="+STR$(US)+"[203]":X=USR(.)
  860. 8512 POKE1005,1:GOSUB132:A$="[211]ELECT: ":GOSUB170
  861. 8514 GOSUB160:IFA$=CR$ORA$=""THEN130
  862. 8517 IFCA$="[200]"THENF$="FILE.HLP":GOSUB2800:GOSUB135:GOTO8504
  863. 8518 IFCA$="[213]"ANDSL>2THEN8580
  864. 8519 IFA$="?"THEN8507
  865. 8520 IFCA$="[196]"THEN8530
  866. 8521 IFCA$="[198]"THENGOSUB150:F$="FILE LIST":GOSUB2800:GOSUB135:GOTO8504
  867. 8522 IFSL<5THEN8525
  868. 8523 IFCA$="#"THENA$="[198]ILE: ":GOSUB170:SYS49152:F$=A$:GOSUB8155:GOTO8535
  869. 8524 IFCA$="[211]"THENGOSUB150:POKE820,DL:SYS49185:GOSUB145:GOTO8504
  870. 8525 IFMUTHENGOSUB180:GOTO8514
  871. 8526 GOTO8507
  872. 8530 A$="[198]ILE TO DOWNLOAD: ":X=USR(-1):SYS49152:F$=CA$:IFA$=""THEN8504
  873. 8532 IFLEFT$(CA$,1)="."THENA$="[206]OT AVAILABLE YET":X=USR(.):GOSUB145:GOTO8504
  874. 8535 FT$="[208]":A$="([208])[210][199] OR ([212])[197][216][212]? ":X=USR(-1):SYS49152:FT$=CA$
  875. 8540 CLOSE20:CLOSE15:IFFT$="[208]"THEN8555
  876. 8545 IFFT$<>"[212]"THEN8535
  877. 8550 POKE1005,.:OPEN20,DV,20,F$+",S,R":GOTO8560
  878. 8555 OPEN20,DV,20,F$+",P,R"
  879. 8560 GOSUB150:OPEN15,DV,15:GOSUB127:IFER>19THEN8570
  880. 8562 IFFT$<>"[212]"THEN8568
  881. 8563 A$="([216])MODEM OR ([193])SCII [212]RANSFER? ":GOSUB170:SYS49152:IFCA$<>"[193]"THEN8568
  882. 8565 A$="[207]PEN YOUR BUFFER [206][207][215]!!!":X=USR(.):FORX=1TO7500:NEXT:SYS49206
  883. 8566 FORX=1TO7500:NEXT:GOTO8570
  884. 8568 A$="[199]OING TO [216][205][207][196][197][205]":X=USR(.):SYS49158:GOTO8570
  885. 8570 CLOSE20:CLOSE15:GOTO8504
  886. 8575 :
  887. 8580 GOSUB150:A$="[198]ILE TO UPLOAD: ":X=USR(-1):SYS49152:IFA$=""THEN8504
  888. 8585 F$=LEFT$(CA$,15):IFSL<5THENF$="."+F$
  889. 8587 A$="([208])[210][199] OR ([212])[197][216][212]? ":X=USR(-1):SYS49152:FT$=CA$
  890. 8590 POKE1004,.:CLOSE20:CLOSE15:A2$="[208][210][199] ":IFFT$="[208]"THEN8605
  891. 8595 IFFT$<>"[212]"THEN8585
  892. 8600 A2$="[212][197][216][212]":POKE1005,.:OPEN20,DV,20,F$+",S,W":GOTO8610
  893. 8605 OPEN20,DV,20,F$+",P,W"
  894. 8610 GOSUB150:OPEN15,DV,15:GOSUB127:IFER>19THEN8570
  895. 8615 A$="[199]OING TO [216][205][207][196][197][205]":X=USR(.):IFPEEK(821)THENPOKE665,63
  896. 8618 SYS49182:CLOSE20:CLOSE15:IFPEEK(821)THENPOKE665,A%
  897. 8620 IFPEEK(1004)THENA$="[215]HAT HAPPENED???":X=USR(.):GOSUB8210:GOSUB220:GOTO8570
  898. 8623 Q=US:GOSUB215:B$=STR$(US):GOSUB150
  899. 8624 A$="[-------40 [195]HARACTER [196]ESCRIPTION-------]":X=USR(.):POKE1012,41
  900. 8625 SYS49152:CLOSE2:OPEN2,DV,2,"FILE LIST,S,A":IFA$=""THENA$="?"
  901. 8626 IFSL>4THENF$=F$+" "
  902. 8630 PRINT#2,QW$+" "+F$+LEFT$(PD$,25-LEN(F$+B$))+B$+"[203]"+"    "+A2$+"   "+A$+QW$
  903. 8635 CLOSE2:GOSUB150:A$="[212]HANKS FOR THE FILE...":X=USR(.)
  904. 8640 US=Q-US:GOSUB220:GOSUB145:GOTO8570
  905. 8799 :
  906. 8800 GOSUB210:SYS49200:GOSUB260:POKE1017,.:POKE1018,.:DV=DW:X=1:CLOSE2
  907. 8801 IFX=1THENB$="USER LOG":C$="        [195]ALLERS ON "+DA$:GOTO8805
  908. 8802 IFX=2THENB$="COMMENTS":C$="[195]OMMENTS BY [213]SERS ON "+DA$:GOTO8805
  909. 8804 RUN
  910. 8805 F$=B$+".Y":GOSUB8210:OPEN15,DW,15,"R0:"+F$+"="+B$:CLOSE15
  911. 8808 OPEN2,DW,2,B$+",S,W":PRINT#2,QW$+C$+QW$:PRINT#2,QW$;QW$:CLOSE2
  912. 8810 X=X+1:GOTO8801
  913. 8999 :
  914. 9000 GOSUB190:A$=" ---=<[205][197][211][211][193][199][197] [195][197][206][212][197][210] [194][194][211] [196][193][210][203] [211][201][196][197]>=---":X=USR(.)
  915. 9010 GOSUB150:A$="[211]ECRET [208]ASSWORD: ":GOSUB170:SYS49179:B$=A$
  916. 9015 IFB$=P2$THEN9040
  917. 9020 GOSUB150:A$="*[211][204][193][205]*   [193]ND STAY OUT!!!":X=USR(.):TR=TR+1:GOSUB120
  918. 9025 CLOSE2:OPEN2,DW,2,"ILLEGAL,S,A":PRINT#2,QW$+TM$+"-"+DA$+"-"+NA$+QW$:CLOSE2
  919. 9030 IFTR=2THEN1
  920. 9035 GOSUB130
  921. 9040 IFPEEK(1004)THENRUN
  922. 9042 GOSUB190:A$="    ---=<[210][197][205][207][212][197] [211][217][211][207][208] [198][197][193][212][213][210][197][211]>=---":X=USR(.):RM=1
  923. 9045 GOSUB150:A$="[198]EEDBACK MESSAGE(S) ="+STR$(MN):X=USR(.):GOSUB150
  924. 9110 A$="[217]OUR CHOICE: ":GOSUB170
  925. 9115 GOSUB160:IFA$=CR$ORA$=""THENRM=.:GOTO130
  926. 9116 IFCA$="#"THEN9300
  927. 9118 IFCA$="[194]"ANDSL>8THEN9280
  928. 9120 IFCA$="[195]"THEN2650
  929. 9125 IFCA$="[196]"ANDSL>8THEN8000
  930. 9130 IFCA$="[197]"ANDSL>4THEN2700
  931. 9135 IFCA$="[198]"THEN4600
  932. 9140 IFCA$="[199]"ORCA$="[209]"THEN800
  933. 9143 IFCA$="[201]"THENGOSUB190:F$="ILLEGAL":DV=DW:GOSUB2800:GOSUB135:GOTO9040
  934. 9145 IFCA$="[204]"THENGOSUB190:GOTO5315
  935. 9148 IFCA$="[205]"THEN9230
  936. 9150 IFCA$="[206]"THEN9205
  937. 9153 IFCA$="[208]"THEN9250
  938. 9155 IFCA$="[210]"THEN8180
  939. 9160 IFCA$="[211]"THEN7935
  940. 9165 IFCA$="[212]"THEN3605
  941. 9170 IFCA$="[214]"THEN9310
  942. 9174 IFA$="?"THEN9178
  943. 9175 IFMUTHENGOSUB180:GOTO9115
  944. 9176 GOTO9178
  945. 9177 :
  946. 9178 GOSUB150:DV=DR:F$="REMOTE2":IFSL<9THENF$="REMOTE1"
  947. 9179 GOSUB2800:GOSUB135:GOTO9040
  948. 9200 :
  949. 9205 GOSUB190:A$="[195]HANGE [212]ODAY'S [195]ALLERS [206]UMBER":X=USR(.)
  950. 9210 GOSUB150:A$="[206]UMBER OF CALLERS SO FAR IS"+STR$(PEEK(1018)):X=USR(.)
  951. 9215 GOSUB150:A$="[195]HANGE IT TO: ":GOSUB170:SYS49152:IFA$=""THEN9040
  952. 9220 A=FNA(Z):POKE1018,A:GOSUB150:GOTO9040
  953. 9225 :
  954. 9230 GOSUB190:CLOSE2:OPEN2,DW,2,"ANSWERS,S,R":INPUT#2,A$:CLOSE2:X=USR(.):DV=DW
  955. 9233 GOSUB150:A$="[195]HANGE IT? ":X=USR(-1):GOSUB160:IFCA$<>"[217]"THEN9040
  956. 9235 GOSUB150:A$="[197]NTER A NEW QUESTION:":X=USR(.):SYS49152:B$=A$:F$="ANSWERS"
  957. 9237 GOSUB8210:OPEN2,DW,2,F$+",S,W":PRINT#2,QW$+B$+QW$:PRINT#2,QW$;QW$:CLOSE2
  958. 9238 GOTO9040
  959. 9239 :
  960. 9250 GOSUB190:A$="[205][195]*[194][194][211] IS IN ":X=USR(-1):A$="[210][213][206]":IFPEEK(1011)THENA$="[211][212][194][217]"
  961. 9260 A$=A$+" MODE.":X=USR(.)
  962. 9265 GOSUB150:A$="[195]HANGE IT? ":X=USR(-1):SYS49152:IFCA$="[206]"ORCA$=""THEN9040
  963. 9270 POKE1011,1-(PEEK(1011)AND1):GOTO9250
  964. 9279 :
  965. 9280 GOSUB150:A$="[195]HANGE [[194]]ULLETIN? ":GOSUB170:SYS49152:IFCA$<>"[217]"THEN9040
  966. 9282 GOSUB4000:IFCA$="[198]"ORLL=.THEN9040
  967. 9290 CLOSE2:X=PEEK(1016)+1:IFX=256THENX=.
  968. 9292 POKE1016,X:CLOSE2:CLOSE15:DV=DR:F$="SYSOP BULL":GOSUB8210
  969. 9294 OPEN2,DR,2,F$+",S,W":PRINT#2,QW$+"[211][217][211][207][208] [194]ULLETIN --- "+DA$+QW$
  970. 9295 PRINT#2,QW$;QW$:FORX=1TOLL-1:PRINT#2,QW$+L$(X)+QW$:NEXTX:CLOSE2
  971. 9296 F$="STATUS FILE":GOSUB8210:OPEN2,DR,2,F$+",S,W"
  972. 9298 PRINT#2,QW$+STR$(PEEK(1016))+QW$:PRINT#2,QW$+P2$+QW$:CLOSE2:GOTO9040
  973. 9299 :
  974. 9300 GOSUB150:GOSUB215:A$="[193]VAILABLE ([203])"+STR$(US):X=USR(.):GOSUB150
  975. 9302 A$="[195]HANGE IT TO: ":GOSUB170:SYS49152:IFA$=""THEN9040
  976. 9304 US=FNA(Q):GOSUB220:GOTO9040
  977. 9309 :
  978. 9310 GOSUB150:A$="[215]HICH UPLOAD TO VALIDATE (DON'T INCLUDE THE '.'): ":GOSUB170
  979. 9312 SYS49152:IFCA$=""THEN9040
  980. 9315 OPEN15,DL,15,"R0:"+CA$+"=."+CA$:CLOSE15:F$="OLD.F":DV=DL:GOSUB8210
  981. 9316 CLOSE2:CLOSE3:OPEN2,DL,2,"FILE LIST,S,R":OPEN3,DL,3,"TEMP,S,W"
  982. 9318 INPUT#2,B$:S=ST:IFLEFT$(B$,LEN(CA$)+2)=" ."+CA$THEN9330
  983. 9320 PRINT#3,QW$+B$+QW$
  984. 9322 IFS<>64THEN9318
  985. 9324 CLOSE2:CLOSE3:OPEN15,DL,15,"R0:OLD.F=FILE LIST"
  986. 9326 PRINT#15,"R0:FILE LIST=TEMP":CLOSE15:GOTO9040
  987. 9330 PRINT#3,QW$+" "+CA$+"  "+RIGHT$(B$,LEN(B$)-(LEN(CA$)+3))+QW$:GOTO9322
  988.