home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / C64-128BBS / MC-PRGMS.SDA / LOCAL (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  18.4 KB  |  568 lines
  1. 0 GOTO100
  2. 1 GOTO140
  3. 100 CLOSE105:OPEN105,2,5,CHR$(6)+CHR$(0):POKE56579,38:POKE56577,.
  4. 101 POKE661,64:POKE662,1:POKE665,73:POKE666,3
  5. 102 A$="":CA$="":PD$="                     ":QW$=CHR$(34):Z$=CHR$(.):HT=500
  6. 103 DIM L$(51),Y1$(21),Y2$(21),Y3$(21),Y4$(21),Y5$(21),Y6$(21),Y7$(21),Y8$(21)
  7. 104 DIM Y9$(21),Y0$(21),Z1$(21),Z2$(21),Z3$(21)
  8. 106 DR=PEEK(1008):DW=PEEK(1009):DEFFNA(Z)=ABS(INT(VAL(LEFT$(A$,4)+CHR$(.))))
  9. 107 DA=DW:POKE828,1:POKE829,80:SYS830:POKE53280,11:POKE53281,.:POKE646,5
  10. 110 POKE1000,.:POKE1004,.:POKE1006,1:POKE1007,2:SYS49161
  11. 112 GOSUB3562:GOSUB4200:GOTO200
  12. 124 :
  13. 125 GOSUB150:A$="[198][213][206][195][212][201][207][206][211] [[210][197][212][213][210][206] ABORTS]:":X=USR(.):GOSUB150:RETURN
  14. 127 INPUT#15,ER,ER$,E1$,E2$:IFER<20THENRETURN
  15. 128 GOSUB150:A$=ER$:X=USR(.):GOSUB150:RETURN
  16. 140 GOSUB190:IFPEEK(765)=.THENPRINT"[206]O ERROR":GOSUB145:GOTO200
  17. 141 PRINT"[197]RROR #";PEEK(765);" HAS OCCURED ON LINE";PEEK(766)+256*PEEK(767)
  18. 142 POKE765,.:POKE1011,.:CLOSE2:CLOSE3:CLOSE4:CLOSE15:END
  19. 144 :
  20. 145 FORDE=1TO3000:NEXT:RETURN
  21. 149 :
  22. 150 A$=CHR$(.):X=USR(.):RETURN
  23. 151 :
  24. 155 X=(PEEK(1020)+PEEK(1021)*256)/HT:RN=INT((X-INT(X))*HT)+1
  25. 156 H=INT(RN/256):L=RN-(H*256)
  26. 157 PRINT#15,"P"+CHR$(96+2)+CHR$(L)+CHR$(H)+CHR$(1):RETURN
  27. 169 :
  28. 170 SYS49155:SYS49167:IFCA$<>"[193]"ANDCA$<>"[208]"THENRETURN
  29. 171 IFCA$="[193]"THENSYS49173:Y=LL+1:RETURN
  30. 173 SYS49155:IFA$=""THEN173
  31. 174 RETURN
  32. 189 :
  33. 190 A$=CHR$(147):X=USR(-1):RETURN
  34. 198 :
  35. 200 GOSUB190:PRINTCHR$(31):PRINTSPC(7)"***[205][195][194][194][211] [195]1.69  02/29/88***"
  36. 204 PRINT:PRINTSPC(6)CHR$(18)"*  [200] [197] [204] [204] [207]    [211] [217] [211] [207] [208]  *":PRINTCHR$(5)
  37. 205 PRINT:PRINT
  38. 206 PRINT"    [196]ISK [198]UNCTIONS      [207]THER [198]UNCTIONS"
  39. 207 PRINT"    --------------      ---------------"
  40. 208 PRINT" 1) [195]REATE A [198]ILE    9) [199]O [207]N-[204]INE"
  41. 209 PRINT" 2) [197]DIT A [198]ILE     10) [208]ASSWORD [197]DITOR"
  42. 210 PRINT" 3) [210]EAD A [198]ILE     11) [208][215][196] [194]ACKUP"
  43. 211 PRINT" 4) [212]RANSFER [198]ILES  12) [206]AME [197]DITOR"
  44. 212 PRINT" 5) [196]ISK [195]OMMANDS   13) [206][193][205][197] [194]ACKUP"
  45. 213 PRINT" 6) [197]-[205]AIL          14) [208]RINT [193]CCOUNTS"
  46. 214 PRINT" 7) [198]EEDBACK        15) [195]ALLER [195]OUNT"
  47. 215 PRINT" 8) [211]ET [212]IME        16) [211]ET [196]ATE"
  48. 216 PRINT
  49. 220 PRINT:PRINTCHR$(30):PRINT"       [217]OUR CHOICE? ";:SYS49152:A=FNA(Q)
  50. 225 IFA=1THEN1350
  51. 226 IFA=2THEN1375
  52. 227 IFA=3THEN3680
  53. 228 IFA=4THEN3780
  54. 229 IFA=5THEN3600
  55. 230 IFA=6THEN2776
  56. 231 IFA=7THEN2300
  57. 232 IFA=8THEN4230
  58. 233 IFA=9THENSYS49164:GOTO4510
  59. 234 IFA=10THEN3200
  60. 235 IFA=11THEN500
  61. 236 IFA=12THEN3730
  62. 237 IFA=13THEN600
  63. 238 IFA=14THEN3390
  64. 239 IFA=15THEN4130
  65. 240 IFA=16THEN3578
  66. 243 IFCA$="[216]"THENSYS49164:CLR:END
  67. 244 IFCA$="[197]"THEN140
  68. 245 PRINT"[145][145][145]";:GOTO220
  69. 499 :
  70. 500 GOSUB190:A$="[208][193][211][211][215][207][210][196] [210][197][204]-[198][201][204][197] [194][193][195][203][213][208]":X=USR(.):GOSUB150:DV=DA
  71. 502 A$="([194])ACKUP [208][215][196][211] FILE":X=USR(.)
  72. 504 A$="([195])REATE [208][215][196][211].[200][211][200] FILE":X=USR(.)
  73. 506 GOSUB150:A$="[194],[195]: ":X=USR(-1):SYS49152:IFA$=""THEN200
  74. 508 IFCA$="[195]"THEN560
  75. 510 IFCA$<>"[194]"THEN500
  76. 514 GOSUB3672:R1=1:GOTO555
  77. 516 GOSUB190:CLOSE2:CLOSE15:OPEN15,DV,15:OPEN2,DV,2,"PWDS.HSH,L,"+CHR$(80):CT=1
  78. 518 IFR1>256THENCLOSE2:CLOSE15:Y1$(CT)="[197][206][196]":GOTO532
  79. 519 RN=R1:GOSUB156
  80. 520 GOSUB3380:S=(ST)AND66:IFS=2THEN520
  81. 521 IFPW$=CHR$(255)ORPW$=""THENR1=R1+1:GOTO518
  82. 522 A$=STR$(RN)+" "+NA$:X=USR(.)
  83. 526 Y1$(CT)=PW$:Y2$(CT)=NA$:Y3$(CT)=PN$:Y4$(CT)=LO$:Y5$(CT)=LG$:Y6$(CT)=BL$
  84. 528 Y7$(CT)=LF$:Y8$(CT)=SW$:Y9$(CT)=EL$:Z1$(CT)=SL$:Z2$(CT)=LS$:Z3$(CT)=TC$
  85. 529 R1=R1+1:CT=CT+1:IFCT>20THENCLOSE2:CLOSE15:GOTO532
  86. 530 GOTO518
  87. 532 GOSUB150:CLOSE2:CLOSE15:A$="[201]NSERT [196][197][211][212][201][206][193][212][201][207][206] DISK AND HIT 'D'":X=USR(-1)
  88. 533 SYS49155:IFA$<>"D"THEN533
  89. 534 OPEN15,DV,15:OPEN2,DV,2,"PWDS.HSH,L,"+CHR$(80):CT=1
  90. 536 IFY1$(CT)="[197][206][196]"THENGOSUB150:A$="[196]ONE!!!":CLOSE2:CLOSE15:GOSUB145:GOTO500
  91. 538 IFY1$(CT)=CHR$(255)THEN553
  92. 540 A$=Y1$(CT):SYS49167:SYS49176:GOSUB155
  93. 542 INPUT#2,A$:IFA$=CHR$(255)THENGOSUB157:GOTO548
  94. 544 RN=RN+1:IFRN>HTTHENRN=1
  95. 546 GOSUB156:GOTO542
  96. 548 PW$=Y1$(CT):NA$=Y2$(CT):PN$=Y3$(CT):LO$=Y4$(CT):LG$=Y5$(CT):BL$=Y6$(CT)
  97. 550 LF$=Y7$(CT):SW$=Y8$(CT):EL$=Y9$(CT):SL$=Z1$(CT):LS$=Z2$(CT):TC$=Z3$(CT)
  98. 552 PRINT#2,PW$","NA$","PN$","LO$","LG$","BL$","LF$","SW$","EL$","SL$","LS$","TC$
  99. 553 CT=CT+1:IFCT>20THEN555
  100. 554 GOTO536
  101. 555 GOSUB150:CLOSE2:CLOSE15:A$="[201]NSERT [211][207][213][210][195][197] DISK AND HIT 'S'":X=USR(-1)
  102. 556 SYS49155:IFA$<>"S"THEN556
  103. 557 GOSUB190:GOTO516
  104. 558 :
  105. 560 GOSUB3672:CLOSE2:CLOSE15:OPEN15,DV,15:OPEN2,DV,2,"PWDS.HSH,L,"+CHR$(80)
  106. 566 RN=HT:GOSUB156:PRINT#2,CHR$(255):CLOSE2:CLOSE15:GOTO500
  107. 599 :
  108. 600 GOSUB190:A$="[206][193][205][197] [210][197][204]-[198][201][204][197] [194][193][195][203][213][208]":X=USR(.):GOSUB150:DV=DA
  109. 602 A$="([194])ACKUP [206][193][205][197] FILE":X=USR(.)
  110. 604 A$="([195])REATE [206][193][205][197].[200][211][200] FILE":X=USR(.)
  111. 606 GOSUB150:A$="[194],[195]: ":X=USR(-1):SYS49152:IFA$=""THEN200
  112. 608 IFCA$="[195]"THEN660
  113. 610 IFCA$<>"[194]"THEN600
  114. 614 GOSUB3672:R1=1:GOTO655
  115. 616 GOSUB190:CLOSE2:CLOSE15:OPEN15,DV,15:OPEN2,DV,2,"NAME.HSH,L,"+CHR$(50):CT=1
  116. 618 IFR1>256THENCLOSE2:CLOSE15:Y1$(CT)="[197][206][196]":GOTO632
  117. 619 RN=R1:GOSUB156:XX=.
  118. 620 INPUT#2,NA$,N$,XX:S=(ST)AND66:IFS=2THEN620
  119. 621 IFNA$=CHR$(255)ORNA$=""THENR1=R1+1:GOTO618
  120. 622 A$=STR$(RN)+" "+NA$:X=USR(.)
  121. 626 Y1$(CT)=NA$:Y2$(CT)=N$:Y3$(CT)=STR$(XX)
  122. 629 R1=R1+1:CT=CT+1:IFCT>20THENCLOSE2:CLOSE15:GOTO632
  123. 630 GOTO618
  124. 632 GOSUB150:CLOSE2:CLOSE15:A$="[201]NSERT [196][197][211][212][201][206][193][212][201][207][206] DISK AND HIT 'D'":X=USR(-1)
  125. 633 SYS49155:IFA$<>"D"THEN633
  126. 634 OPEN15,DV,15:OPEN2,DV,2,"NAME.HSH,L,"+CHR$(50):CT=1
  127. 636 IFY1$(CT)="[197][206][196]"THENGOSUB150:A$="[196]ONE!!!":CLOSE2:CLOSE15:GOSUB145:GOTO600
  128. 638 IFY1$(CT)=CHR$(255)THEN653
  129. 640 A$=Y1$(CT):SYS49167:SYS49176:GOSUB155
  130. 642 INPUT#2,A$:IFA$=CHR$(255)THENGOSUB157:GOTO648
  131. 644 RN=RN+1:IFRN>HTTHENRN=1
  132. 646 GOSUB156:GOTO642
  133. 648 NA$=Y1$(CT):N$=Y2$(CT):XX$=Y3$(CT)
  134. 652 PRINT#2,NA$","N$","XX$
  135. 653 CT=CT+1:IFCT>20THEN655
  136. 654 GOTO636
  137. 655 GOSUB150:CLOSE2:CLOSE15:A$="[201]NSERT [211][207][213][210][195][197] DISK AND HIT 'S'":X=USR(-1)
  138. 656 SYS49155:IFA$<>"S"THEN656
  139. 657 GOSUB190:GOTO616
  140. 659 :
  141. 660 GOSUB3672:CLOSE2:CLOSE15:OPEN15,DV,15:OPEN2,DV,2,"NAME.HSH,L,"+CHR$(50)
  142. 666 RN=HT:GOSUB156:PRINT#2,CHR$(255):CLOSE2:CLOSE15:GOTO600
  143. 1349 :
  144. 1350 GOSUB190:A$="[195][210][197][193][212][197] [193] [196][201][211][203] [198][201][204][197]":X=USR(.):GOSUB150
  145. 1352 GOSUB2000:IFLL=.THEN200
  146. 1354 GOSUB150:A$="[198]ILE [206]AME => ":X=USR(-1):SYS49152:F$=A$:IFA$=""THEN200
  147. 1355 GOSUB3672:CLOSE2:OPEN2,DV,2,F$+",S,W"
  148. 1357 FORZ=1TOLL-1:PRINT#2,QW$+L$(Z)+QW$:NEXT:CLOSE2:GOTO200
  149. 1374 :
  150. 1375 GOSUB190:A$="[197][196][201][212] [193] [198][201][204][197]":X=USR(.):GOSUB150
  151. 1376 A$="[198]ILENAME: ":X=USR(-1):SYS49152:IFA$=""THEN200
  152. 1377 F$=A$:GOSUB3672:LL=1:CLOSE2:CLOSE15:OPEN15,DV,15:OPEN2,DV,2,F$+",S,R"
  153. 1378 GOSUB127:IFER>19THENCLOSE2:CLOSE15:GOTO1375
  154. 1379 INPUT#2,L$(LL):S=ST:IFS=2THEN1379
  155. 1380 IFLL>49THENGOSUB150:A$="[204]ONG FILE!":X=USR(.):GOTO1382
  156. 1381 LL=LL+1:IFS<>64THEN1379
  157. 1382 CLOSE2:CLOSE15:GOSUB2015:IFCA$="[198]"THEN1390
  158. 1386 GOSUB150:A$="[206]AME IS "+QW$+F$+QW$+", [207][203]? ":X=USR(-1)
  159. 1387 SYS49152:IFCA$="[206]"THENA$="[206]EW NAME: ":X=USR(-1):SYS49152:F$=A$
  160. 1388 CLOSE2:GOSUB3704:CLOSE15:OPEN2,DV,2,F$+",S,W"
  161. 1389 FORZ=1TOLL-1:PRINT#2,QW$+L$(Z)+QW$:NEXT:CLOSE2:GOSUB150
  162. 1390 A$="[197]DIT ANOTHER? ":X=USR(-1):SYS49152:IFCA$="[217]"THEN1375
  163. 1391 GOTO200
  164. 1399 :
  165. 1400 CLOSE2:CLOSE15:OPEN15,DV,15:OPEN2,DV,2,F$+",S,R":GOSUB150
  166. 1402 INPUT#15,ER,ER$,E1$,E2$:IFER>19THEN1410
  167. 1404 INPUT#2,A$:S=(ST)AND66:IFS=2THEN1404
  168. 1406 IFPRTHENPRINT#4,A$:GOTO1408
  169. 1407 X=USR(.)
  170. 1408 SYS49155:SYS49167:IFLEN(CA$)THEN1412
  171. 1409 IFS<>64THEN1404
  172. 1410 CLOSE2:CLOSE15:RETURN
  173. 1412 IFCA$="[193]"THENSYS49173:GOTO1410
  174. 1413 IFCA$<>"[208]"THEN1409
  175. 1414 SYS49155:IFA$=""THEN1414
  176. 1416 GOTO1409
  177. 1999 :
  178. 2000 GOSUB150:QM=.:LL=1
  179. 2001 A$="[210][197][212][213][210][206] ON A [194][204][193][206][203] LINE TO END":X=USR(.):A$="[50 LINES [205]AX.]:X=USR(.)
  180. 2005 L$(LL)[178][199](.):[139]LL[178]45[167]A$[178]"[5 MORE LINES]":X[178][183](.)
  181. 2007 [139]LL[178]50[167]A$[178]"[(null)AST LINE!]":X[178][183](.):QM[178]1
  182. 2008 A$[178][196](LL)[170]":":X[178][183](.):[158]49152
  183. 2009 [139]A$[178]""[176]CA$[178]".(null)"[176]CA$[178]".VAL"[167]QM[178]1:[137]2011
  184. 2010 L$(LL)[178]A$:[139]QM[178].[167]LL[178]LL[170]1:[137]2005
  185. 2011 [139]LL[178]1[167]LL[178].:[142]
  186. 2012 [139]CA$[178]".(null)"[167][142]
  187. 2013 [139]CA$[178]".VAL"[167][141]2046
  188. 2015 [141]150:A$[178]"LEN,STR$,VAL,ASC,LEFT$,(null),(null),(null),(null),?: ":X[178][183]([171]1):[158]49152
  189. 2020 [139]CA$[178]"RIGHT$"[175]LL[179]50[167]2100
  190. 2023 [139]CA$[178]"LEN"[167]2040
  191. 2024 [139]CA$[178]"VAL"[167][141]2046:[137]2015
  192. 2025 [139]CA$[178]"(null)"[167][142]
  193. 2026 [139]CA$[178]"(null)"[167]2044
  194. 2027 [139]CA$[178]"ASC"[167]LL[178].:[142]
  195. 2028 [139]CA$[178]"STR$"[167]2093
  196. 2029 [139]CA$[178]"(null)"[167]2090
  197. 2030 [139]A$[178]"?"[167]F$[178]"EDIT":DV[178]DR:[141]1400:[137]2015
  198. 2031 [139]CA$[178]"LEFT$"[167]F$[178]"EDIT.HLP":[141]1400:[137]2015
  199. 2032 [139]CA$[179][177]"(null)"[167]2015
  200. 2033 :
  201. 2034 [141]150:A$[178]"(null)INE NUMBER TO KILL? ":X[178][183]([171]1)
  202. 2035 [158]49152:Q[178][165]A(Q):[139]A$[178]""[176](Q[179]1)[176](Q[177]LL)[167]2015
  203. 2036 A$[178]"(null)INE #"[170]CA$[170]" READS LIKE THIS:":X[178][183](.):A$[178]L$(Q):X[178][183](.)
  204. 2037 [141]150:A$[178]"(null)ILL THIS LINE? ":X[178][183]([171]1):[158]49152:[139]CA$[179][177]"(null)"[167]2015
  205. 2038 [129]X[178]Q[164]LL:L$(X)[178]L$(X[170]1):[130]X:LL[178]LL[171]1:[137]2015
  206. 2039 :
  207. 2040 [139]LL[177][178]50[167][141]150:A$[178]"(null)ORRY, ONLY 50 LINES ALLOWED.":X[178][183](.):[137]2015
  208. 2041 QM[178].:[137]2005
  209. 2043 :
  210. 2044 [129]Y[178]1[164]LL[171]1:A$[178][196](Y)[170]":":X[178][183](.):A$[178]L$(Y):X[178][183](.):[141]170
  211. 2045 [130]:[137]2015
  212. 2046 [141]150:A$[178]"(null)HICH LINE #?":X[178][183](.):A$[178]"[(null)VAL(null)(null)(null)(null) ABORTS]: ":X[178][183]([171]1)
  213. 2048 [158]49152:[139]A$[178]""[167][142]
  214. 2050 Y[178][165]A(Z):[139]Y[179]1[176]Y[177]LL[167][141]150:A$[178]RE$:X[178][183](.):[137]2046
  215. 2052 [141]150:A$[178]"(null)LD LINE READS:":X[178][183](.):A$[178]L$(Y):X[178][183](.):[141]150
  216. 2054 A$[178]"(null)(null)STR$ STRING: ":X[178][183]([171]1):[158]49152:[139]A$[178]""[167][142]
  217. 2055 B4$[178]A$:[141]150:A$[178]"(null)VAL(null) STRING: ":X[178][183]([171]1):[158]49152:B5$[178]A$:K[178]1
  218. 2070 [139][202](L$(Y),K,[195](B4$))[178]B4$[167]2076
  219. 2072 [139]K[179][195](L$(Y))[167]K[178]K[170]1:[137]2070
  220. 2074 [141]150:A$[178]"RIGHT$ CAN'T FIND "[170]B4$:X[178][183](.):[137]2052
  221. 2076 [139][195](L$(Y))[170][195](B5$)[171][195](B4$)[179]80[167]2080
  222. 2078 [141]150:A$[178]"(null)HAT WOULD MAKE THE LINE TOO LONG!":X[178][183](.):[137]2052
  223. 2080 B1$[178][200](L$(Y),K[171]1):B2$[178][202](L$(Y),K[170][195](B4$)):L$(Y)[178]B1$[170]B5$[170]B2$
  224. 2082 A$[178]L$(Y):X[178][183](.):[141]150:[137]2046
  225. 2089 :
  226. 2090 [141]190:A$[178]"(null)OUR MESSAGE LOOKS LIKE THIS:":X[178][183](.):[141]150
  227. 2091 [129]Y[178]1[164]LL[171]1:A$[178]L$(Y):X[178][183](.):[141]170:[130]:[137]2015
  228. 2092 :
  229. 2093 [141]150:A$[178]"(null)INE # TO REPLACE: ":X[178][183]([171]1):[158]49152:[139]A$[178]""[167]2015
  230. 2094 Y[178][165]A(Z):[139]Y[179]1[176]Y[177]LL[167]A$[178]RE$:X[178][183](.):[137]2015
  231. 2096 [141]150:A$[178]L$(Y):X[178][183](.):[141]150:A$[178]"[(null)VAL(null)(null)(null)(null) ABORTS]":X[178][183](.)
  232. 2097 [158]49152:[139]A$[178]""[167]2015
  233. 2098 L$(Y)[178]A$:[137]2015
  234. 2099 :
  235. 2100 [141]150:A$[178]"VALNTER LINE NUMBER TO INSERT: ":X[178][183]([171]1)
  236. 2102 [158]49152:Q[178][165]A(Q):[139]A$[178]""[176](Q[179]1)[176](Q[177]11)[167]2015
  237. 2104 [129]X[178]LL[164]Q[169][171]1:L$(X[170]1)[178]L$(X):[130]X:[141]150
  238. 2106 A$[178]"VALNTER LINE #"[170][196](Q)[170]":":X[178][183](.):[158]49152:[139]A$[178]""[167]A$[178]" "
  239. 2108 L$(Q)[178]A$:LL[178]LL[170]1:[137]2015
  240. 2299 :
  241. 2300 [141]190:DV[178]DW:FF[178].:[160]2:[159]2,DV,2,"FEED NUM,S,R":[132]2,MN:[160]2
  242. 2302 A$[178]"(null)EE OLD ATNRCHIVE? ":X[178][183]([171]1):[158]49152:[139]CA$[178]"(null)"[167][141]150:[137]2335
  243. 2303 A$[178]"(null)HERE ARE"[170][196](MN)[170]" MESSAGES.":X[178][183](.):[141]150
  244. 2305 A$[178]"(null)TART FROM? ":X[178][183]([171]1):[158]49152:[139]A$[178]""[167]A$[178]"1"
  245. 2306 FF[178]([165]A(Z)[171]1):[139]FF[179].[167]2303
  246. 2307 FF[178]FF[170]1:[139]FF[177]MN[167]2324
  247. 2308 F$[178]"FEED"[170][196](FF):[141]1400
  248. 2319 [141]150:A$[178]"(null)EXT (null)NE? ":X[178][183]([171]1):[158]49152:[139]CA$[179][177]"(null)"[167]2307
  249. 2324 [141]150:A$[178]"(ATN)RCH/((null))EAD/((null))UIT ":X[178][183]([171]1):[158]49152:[139]CA$[178]"(null)"[167]2303
  250. 2325 [139]CA$[178]"ATN"[167]2375
  251. 2329 [139]CA$[179][177]"(null)"[167]2324
  252. 2330 [137]200
  253. 2335 A$[178]"((null))EAD OR ((null))RINT THE ATNRCHIVE? ":X[178][183]([171]1):[158]49152:[139]CA$[178]"(null)"[167]2350
  254. 2337 [139]CA$[179][177]"(null)"[167]200
  255. 2340 F$[178]"ALL":[141]1400:[141]150:[137]2355
  256. 2350 PR[178]1:[159]4,4,7:F$[178]"ALL":[141]1400:[152]4,[199](12):[160]4:PR[178].
  257. 2355 [141]150:A$[178]"STR$ELETE THE ATNRCHIVE? ":X[178][183]([171]1):[158]49152:[139]CA$[179][177]"(null)"[167]200
  258. 2357 F$[178]"ALL":[141]3704:[160]15:[160]2
  259. 2359 [159]2,DW,2,"ALL,S,W":[152]2,QW$[170]"ATNRCHIVE CREATED ON "[170]DA$[170]QW$
  260. 2360 [152]2,QW$;QW$:[160]2:[137]200
  261. 2374 :
  262. 2375 [160]2:[160]3:[160]15:FF[178]1:[159]15,DW,15:[159]2,DW,2,"ALL,S,A"
  263. 2376 [141]127:[139]ER[177]19[167]2395
  264. 2377 [152]2,QW$;QW$:[159]3,DW,3,"FEED"[170][196](FF)[170]",S,R":[141]127:[139]ER[177]19[167]2395
  265. 2380 [132]3,A$:S[178]ST:[139]S[178]2[167]2380
  266. 2382 [152]2,QW$[170]A$[170]QW$:[139]S[179][177]64[167]2380
  267. 2384 [160]3:FF[178]FF[170]1:[139]FF[179][178]MN[167]2377
  268. 2386 [160]2:[129]FF[178]1[164]MN:F$[178]"FEED"[170][196](FF):[141]3704:[160]15:[130]FF
  269. 2387 F$[178]"FEED NUM":[141]3704:[160]15
  270. 2388 [159]2,DW,2,"FEED NUM,S,W":MN[178].:[152]2,MN
  271. 2395 [160]2:[160]3:[160]15:[137]2335
  272. 2599 :
  273. 2600 [141]150:A$[178]"  ---=<VAL(null)VALLEN(null)(null)(null)(null)RIGHT$LEN ((null)(null)RIGHT$(null)ATN(null)VAL) (null)ATNRIGHT$(null)>=---":X[178][183](.)
  274. 2606 [151]1004,.:[139][194](1007)[167]2622
  275. 2608 [141]125
  276. 2612 A$[178]"  (LEFT$)ELP ON USING VAL-(null)AIL":X[178][183](.)
  277. 2614 A$[178]"  ((null))IST OF (null)AIL (null)AITING":X[178][183](.)
  278. 2616 A$[178]"  ((null))EAD LETTERS":X[178][183](.)
  279. 2618 A$[178]"  ((null))END LETTERS":X[178][183](.)
  280. 2620 A$[178]"  ((null))RASH LETTERS ADDRESSED TO YOU":X[178][183](.)
  281. 2622 [141]150:A$[178]"LEFT$,(null),(null),(null),(null),(null): ":X[178][183]([171]1):[158]49152:[139]A$[178]""[167]200
  282. 2628 [139]CA$[178]"LEFT$"[167]DV[178]DR:F$[178]"EMAIL.HLP":[141]1400:[137]2606
  283. 2629 [139]CA$[178]"(null)"[167]2750
  284. 2630 [139]CA$[178]"(null)"[167]2714
  285. 2634 [139]CA$[178]"(null)"[167]2802
  286. 2636 [139]A$[178]"?"[167]2608
  287. 2638 [139]A$[178]"(null)"[167][141]3485:[137]2622
  288. 2641 [139]CA$[179][177]"(null)"[167]2606
  289. 2642 :
  290. 2650 [141]150:A$[178]"(null)O: ":X[178][183]([171]1):[158]49152:[158]49176:[139]A$[178]""[167]2606
  291. 2654 E$[178][200](CA$,13):CE$[178]CA$:[141]150
  292. 2660 [158]49176:A$[178]"(null)AIT, CHECKING USER LIST":X[178][183](.):[160]2:[160]15
  293. 2662 [159]15,DA,15:[159]2,DA,2,"NAME.HSH,L,"[170][199](50):[141]155
  294. 2664 [132]2,A1$,A2$,CM:[139]A1$[178][199](255)[167]2668
  295. 2665 [139]A2$[178]CE$[167]AE$[178]A1$:[160]2:[160]15:[137]2672
  296. 2666 RN[178]RN[170]1:[139]RN[177]HT[167]RN[178]1
  297. 2667 [141]156:[137]2664
  298. 2668 [160]2:[160]15:[141]150:A$[178]"(null)HAT PERSON IS (null)(null)(null) LISTED!":X[178][183](.)
  299. 2670 A$[178]"((null)OU MAY HAVE SPELLED IT WRONG)":X[178][183](.):[137]2708
  300. 2672 [141]2000:[139]LL[178].[167]2708
  301. 2676 [141]150:A$[178]"(null)AIT WHILE RIGHT$ MAIL YOUR LETTER.":X[178][183](.):[141]4200
  302. 2686 CM[178]CM[170]1:[160]2:[159]2,DW,2,E$[170][196](CM)[170]",S,W"
  303. 2692 [152]2,QW$[170]"ASCROM: "[170]NA$[170]QW$
  304. 2694 [152]2,QW$[170]"  (null)N: "[170]DA$[170]" / "[170]TM$[170]QW$
  305. 2696 [152]2,QW$;QW$
  306. 2698 [129]Y[178].[164]LL:[152]2,QW$[170]L$(Y)[170]QW$:[130]:[160]2:[160]15
  307. 2704 [159]15,DA,15:[159]2,DA,2,"NAME.HSH,L,"[170][199](50):[141]156
  308. 2706 [152]2,AE$","CE$","CM:[160]2:[160]15:[139][194](1004)[167][151]1004,.:[137]2720
  309. 2708 [160]2:[160]15:[139][194](1004)[167][151]1004,.:[137]2720
  310. 2710 [137]2606
  311. 2712 :
  312. 2714 [141]190:F[178]1:[139]MC[167]2718
  313. 2716 A$[178]"(null)ORRY...NO LETTERS IN YOUR MAILBOX.":X[178][183](.):[137]2606
  314. 2718 DV[178]DW:F$[178][200](N$,13)[170][196](F):[141]1400
  315. 2720 [139][194](1007)[167]2732
  316. 2722 [141]150:A$[178]"VAL-(null)AIL (null)UB-ASCUNCTIONS:":X[178][183](.):[141]150
  317. 2724 A$[178]"  (null)EAD MESSAGE (ATN)GAIN":X[178][183](.)
  318. 2726 A$[178]"  (LEN)ONTINUE TO NEXT MESSAGE":X[178][183](.)
  319. 2728 A$[178]"  ((null))UIT TO VAL-(null)AIL (null)ENU":X[178][183](.)
  320. 2730 A$[178]"  ((null))EPLY TO THIS MESSAGE":X[178][183](.)
  321. 2732 [141]150:A$[178]"ATN,LEN,(null),(null): ":X[178][183]([171]1):[158]49152:[139]A$[178]""[167]2744
  322. 2734 [139]CA$[178]"(null)"[167]2746
  323. 2736 [139]CA$[178]"ATN"[167]2718
  324. 2738 [139]CA$[178]"(null)"[167][151]1004,1:[137]2770
  325. 2740 [139]CA$[178]"LEN"[167]2744
  326. 2742 [139]A$[178]"?"[167]2722
  327. 2743 [137]2720
  328. 2744 F[178]F[170]1:[139] F[179][178]MC[167]2718
  329. 2746 [141]150:A$[178]"STR$ON'T FORGET TO ((null))RASH YOUR MAIL!":X[178][183](.):[137]2606
  330. 2749 :
  331. 2750 [141]150:A$[178]"LENHECKING MAIL BOXES FOR LETTERS":X[178][183](.):[141]150
  332. 2752 A$[178]"  (null)AME               (null)AIL":X[178][183](.)
  333. 2753 A$[178]"  ----               ----":X[178][183](.):[141]150
  334. 2754 [160]2:[160]15:[159]15,DA,15:[159]2,DA,2,"NAME.HSH,L,"[170][199](50):RN[178].
  335. 2756 RN[178]RN[170]1:[139]RN[177]HT[167]2766
  336. 2757 [141]156
  337. 2758 [132]2,EA$,EC$,CM:S[178]ST:[139]S[178]2[167]2758
  338. 2759 [158]49155:[158]49167:[139]CA$[178]"ATN"[167][158]49173:[137]2766
  339. 2760 [139]EA$[178][199](255)[176]CM[178].[167]2756
  340. 2762 A$[178]"  "[170]EA$[170][200](PD$,19[171][195](EA$))[170][196](CM):X[178][183](.):[137]2756
  341. 2766 [160]2:[160]15
  342. 2768 [137]2606
  343. 2769 :
  344. 2770 [159]2,DW,2,F$[170]",S,R":[132]2,A$:[160]2:A$[178][201](A$,[195](A$)[171]6)
  345. 2771 [158]49167:[137]2654
  346. 2772 :
  347. 2774 :
  348. 2776 [141]190:A$[178]"(null)HAT NAME WILL YOU USE? ":X[178][183]([171]1):[158]49152:[139]A$[178]""[167]200
  349. 2778 MC[178].:NA$[178]A$:N$[178]CA$:[158]49176:[160]2:[160]15:[159]15,DA,15
  350. 2779 [159]2,DA,2,"NAME.HSH,L,"[170][199](50):[141]155
  351. 2782 [132]2,EA$,EC$,MC:S[178](ST)[175]66:[139]S[178]2[167]2782
  352. 2783 [139]EA$[178][199](255)[167]2788
  353. 2784 [139]EC$[178]N$[167]2788
  354. 2785 RN[178]RN[170]1:[139]RN[177]HT[167]RN[178]1
  355. 2786 [141]156:[137]2782
  356. 2788 [160]2:[160]15:[141]150:[139]MC[167]2792
  357. 2790 A$[178]"(null)OU DON'T HAVE ANY MAIL WAITING.":X[178][183](.):[141]150:[137]2600
  358. 2792 A$[178]"(null)OU HAVE"[170][196](MC)[170]" LETTER(S) WAITING.":X[178][183](.)
  359. 2794 [141]150:A$[178]"STR$O YOU WANT TO READ VAL-(null)AIL NOW? ":X[178][183]([171]1):[158]49152
  360. 2796 [139]CA$[178]"(null)"[167]2600
  361. 2798 [137]2714
  362. 2800 :
  363. 2802 [141]150:A$[178]"LEFT$OLD ON...CLEARING OUT YOUR MAILBOX.":X[178][183](.):DV[178]DW
  364. 2815 [139][200](N$,13)[178]""[167]2606
  365. 2816 F$[178][200](N$,13)[170]"*":[141]3704:[160]15
  366. 2818 [160]2:CA$[178]N$:[158]49176
  367. 2820 [159]15,DA,15:[159]2,DA,2,"NAME.HSH,L,"[170][199](50):[141]155
  368. 2822 [132]2,AE$,CE$:[139]AE$[178][199](255)[167][160]2:[160]15:[137]2606
  369. 2823 [139]CE$[178]N$[167]2828
  370. 2824 RN[178]RN[170]1:[139]RN[177]HT[167]RN[178]1
  371. 2825 [141]156:[137]2822
  372. 2828 MC[178].:[141]156:[152]2,AE$","CE$","MC:[160]2:[160]15:[137]2606
  373. 3199 :
  374. 3200 [141]190:A$[178]"(null)ATN(null)(null)(null)(null)(null)STR$ (null)(null)STR$ATN(null)VAL (null)(null)(null)(null)VAL(null)":X[178][183](.):[160]2:[160]15:[141]150
  375. 3201 A$[178]"ATNCCOUNT (#)":X[178][183](.):A$[178]"((null))ASSWORD":X[178][183](.):A$[178]"((null))AME VALDIT"
  376. 3202 X[178][183](.):A$[178]"((null))UIT":X[178][183](.):[141]150:A$[178]"(null)OUR LENHOICE: ":X[178][183]([171]1)
  377. 3203 [158]49152:[139]CA$[178]"(null)"[176]CA$[178]""[167][160]2:[160]15:[137]200
  378. 3204 [139]CA$[178]"(null)"[167]3730
  379. 3205 [139]CA$[178]"(null)"[167]3211
  380. 3206 [139]CA$[178]"(null)"[167]3211
  381. 3207 [139]CA$[178]"#"[167][141]150:A$[178]"VALNTER ACCOUNT #: ":X[178][183]([171]1):[158]49152
  382. 3208 RN[178][165]A(Z):[141]3340
  383. 3209 [160]2:[160]15:[159]15,DA,15:[159]2,DA,2,"PWDS.HSH,L,"[170][199](80)
  384. 3210 [141]156:[137]3218
  385. 3211 A$[178]"VALNTER (null)ASSWORD: ":X[178][183]([171]1):[158]49152:[158]49176:P$[178]CA$
  386. 3212 [160]2:[160]15:[159]15,DA,15:[159]2,DA,2,"PWDS.HSH,L,"[170][199](80):[141]155
  387. 3218 [141]190:A$[178]"ATNCCOUNT #:"[170][196](RN):X[178][183](.):[141]150:[141]3380
  388. 3230 A$[178]"1.  (null)ASWORD          : "[170]PW$:X[178][183](.)
  389. 3239 A$[178]"2.  (null)OGON NAME       : "[170]NA$:X[178][183](.)
  390. 3240 A$[178]"3.  (null)HONE (null)UMBER     : "[170]PN$:X[178][183](.)
  391. 3245 A$[178]"4.  (null)AST (null)OGON STR$ATE  : "[170]LO$:X[178][183](.)
  392. 3248 A$[178]"5.  (null)AST CHR$ENERAL (null)SG : "[170]LG$:X[178][183](.)
  393. 3251 A$[178]"6.  PEEKELL (0=OFF/1=ON): "[170]BL$:X[178][183](.)
  394. 3254 A$[178]"7.  (null)INE ASCEEDS  ''   : "[170]LF$:X[178][183](.)
  395. 3257 A$[178]"8.  (null)CREEN (null)IDTH     : "[170]SW$:X[178][183](.)
  396. 3260 A$[178]"9.  VALXPERT (0=NO)    : "[170]EL$:X[178][183](.)
  397. 3261 A$[178]"10. ATNCCESS (3=U/L)   : "[170]SL$:X[178][183](.)
  398. 3262 A$[178]"11. (null)ENU (1=LEFT$OT)     : "[170]LS$:X[178][183](.)
  399. 3263 A$[178]"12. PEEKULLETIN # (null)EAD  : "[170]TC$:X[178][183](.):[141]150
  400. 3265 A$[178]"(0)(null)VAL(null) ((null))STR$VAL(null)VAL(null)VAL (-/+)(null)AST/(null)EXT: ":X[178][183]([171]1)
  401. 3266 [158]49152:[139]A$[178]""[167]3200
  402. 3267 [139]CA$[178]"(null)"[167]PW$[178]"":[151]1004,1:[137]3305
  403. 3268 [139]A$[178]"+"[167]RN[178]RN[170]1:[141]3340:[137]3209
  404. 3269 [139]A$[178]"-"[167]RN[178]RN[171]1:[141]3340:[137]3209
  405. 3270 R[178][165]A(Z):[141]150:[139]R[178].[167]3353
  406. 3271 [139]R[177]12[167]3265
  407. 3273 A$[178]"#"[170][196](R)[170]": ":X[178][183]([171]1):[158]49152:[139]CA$[178]""[167]3201
  408. 3275 [145](R)[141]3278,3281,3284,3287,3290,3293,3296,3299,3300,3301,3302,3303
  409. 3276 [137]3305
  410. 3278 PW$[178]CA$:[142]
  411. 3281 NA$[178]A$:[142]
  412. 3284 PN$[178]CA$:[142]
  413. 3287 LO$[178]A$:[142]
  414. 3290 LG$[178]A$:[142]
  415. 3293 BL$[178]A$:[142]
  416. 3296 LF$[178]A$:[142]
  417. 3299 SW$[178]A$:[142]
  418. 3300 EL$[178]A$:[142]
  419. 3301 SL$[178]A$:[142]
  420. 3302 LS$[178]A$:[142]
  421. 3303 TC$[178]A$:[142]
  422. 3305 [141]156
  423. 3306 [152]2,PW$","NA$","PN$","LO$","LG$","BL$","LF$","SW$","EL$","SL$","LS$","TC$
  424. 3310 [139][194](1004)[167]3372
  425. 3320 [141]156:[137]3218
  426. 3339 :
  427. 3340 [139]RN[177]HT[167]RN[178]1
  428. 3341 [139]RN[179]1[167]RN[178]HT
  429. 3342 [142]
  430. 3350 :
  431. 3353 A$[178]"(null)AME      (20): ":X[178][183]([171]1):[158]49152:NA$[178]A$:N$[178]CA$:[139]A$[178]""[167]3353
  432. 3356 A$[178]"(null)ASSWORD  (15): "[170]P$:X[178][183](.):PW$[178]P$
  433. 3359 A$[178]"(null)HONE #   (12): ":X[178][183]([171]1):[158]49152:PN$[178]CA$:[139]A$[178]""[167]3359
  434. 3362 A$[178]"(null)INE ASCD  (0/1): ":X[178][183]([171]1):[158]49152:LF$[178]A$:[139]A$[178]""[167]3362
  435. 3365 LG$[178]"0":BL$[178]"0":SW$[178]"80":EL$[178]"0":LO$[178]DA$:SL$[178]"1":LS$[178]"0":TC$[178]"0":[141]157
  436. 3370 [152]2,PW$","NA$","PN$","LO$","LG$","BL$","LF$","SW$","EL$","SL$","LS$","TC$
  437. 3372 [160]2:[160]15:A$[178]NA$:[158]49167:[151]1004,1:[137]3734
  438. 3375 :
  439. 3380 [132]2,PW$,NA$,PN$,LO$,LG$,BL$,LF$,SW$,EL$,SL$,LS$,TC$:[142]
  440. 3381 :
  441. 3390 [141]190:A$[178]"(null)RINT-OUT OF ATNCCOUNTS":X[178][183](.):[141]150:RN[178]1:CC[178].
  442. 3391 A$[178]"((null))RINTER OR ((null))VAL(null) FILE? ":X[178][183]([171]1):[158]49152:[139]CA$[178]""[167]200
  443. 3392 [160]2:[160]15:[159]15,DA,15:[159]2,DA,2,"PWDS.HSH,L,"[170][199](80)
  444. 3393 [160]4:[139]CA$[178]"(null)"[167][159]4,4,7:[137]3395
  445. 3394 F$[178]"ACCOUNTS":[152]15,"S0:"[170]F$:[159]4,DW,4,F$[170]",S,W"
  446. 3395 [152]4,"(null)RINTED ON "[170]DA$:[152]4
  447. 3396 [141]156:[141]3380:[139]PW$[178][199](255)[176]PW$[178]""[167]3404
  448. 3398 CC[178]CC[170]1:[152]4," ";NA$;[200](PD$,16[171][195](NA$));PW$;[200](PD$,11[171][195](PW$));
  449. 3400 [152]4,[201](PN$,8);" ";[200](LO$,6);" ";:[139][195](LO$)[178]5[167][152]4," ";
  450. 3402 [152]4,LG$;[200](PD$,5[171][195](LG$));" #:";RN
  451. 3404 RN[178]RN[170]1:[139]RN[179][178]HT[167]3396
  452. 3405 [152]4:[152]4,"(null)OTAL NUMBER OF ACTIVE ACCOUNTS:";CC:[152]4,[199](12)
  453. 3406 [160]4:[160]2:[160]15:PR[178].:[137]200
  454. 3549 :
  455. 3562 [158]49197:DA$[178]A$[170][196]([194](1003)):[142]
  456. 3565 :
  457. 3578 [141]190:[141]3562:A$[178]DA$:X[178][183](.)
  458. 3580 [141]150:A$[178]"(null)ESET IT? ":X[178][183]([171]1):[158]49152:[139]CA$[179][177]"(null)"[167]200
  459. 3583 [141]150:A$[178]"(null)ONTH (1-12): ":X[178][183]([171]1):[158]49152:M[178][165]A(Z)
  460. 3584 A$[178]"  STR$AY (1-31): ":X[178][183]([171]1):[158]49152:D[178][165]A(Z)
  461. 3585 [151]1002,M:[151]1003,D:[137]3578
  462. 3599 :
  463. 3600 [141]190:A$[178]"STR$RIGHT$(null)(null) LEN(null)(null)(null)ATN(null)STR$(null)":X[178][183](.):[141]150
  464. 3602 A$[178]"(1) ASCORMAT A STR$ISK":X[178][183](.)
  465. 3604 A$[178]"(2) (null)ALIDATE THE DISK":X[178][183](.)
  466. 3606 A$[178]"(3) (null)EAD STR$ISK STR$IRECTORY":X[178][183](.)
  467. 3608 A$[178]"(4) (null)ENAME A FILE":X[178][183](.)
  468. 3610 A$[178]"(5) (null)CRATCH A FILE":X[178][183](.)
  469. 3611 A$[178]"(6) (null)EAD STR$ISK VALRROR":X[178][183](.)
  470. 3612 [160]15:[141]150:A$[178]"(null)OUR LENHOICE? ":X[178][183]([171]1):[158]49152:[139]A$[178]""[167]200
  471. 3614 A[178][165]A(Z):[139]A[179]1[176]A[177]6[167]3612
  472. 3618 [145](A)[137]3650,3656,3720,3640,3626,3620
  473. 3619 :
  474. 3620 [141]3672:[160]15:[159]15,DV,15:[137]3662
  475. 3621 :
  476. 3626 [141]150:A$[178]"VALNTER NAME OF FILE TO SCRATCH.":X[178][183](.)
  477. 3628 [141]150:A$[178]"ASCILENAME -=> ":X[178][183]([171]1):[158]49152:[139]A$[178]""[167]3600
  478. 3630 F$[178]A$:[141]3672:[141]150
  479. 3632 A$[178]"(null)CRATCH "[170]QW$[170]F$[170]QW$[170]"? ":X[178][183]([171]1)
  480. 3634 [158]49152:[139]CA$[179][177]"(null)"[167]3600
  481. 3636 [141]3704:[137]3662
  482. 3638 :
  483. 3640 [141]150:A$[178]"(null)LD NAME: ":X[178][183]([171]1):[158]49152:A1$[178]A$:[139]A$[178]""[167]3600
  484. 3642 [141]150:A$[178]"(null)EW NAME: ":X[178][183]([171]1):[158]49152:A2$[178]A$:[139]A$[178]""[167]3642
  485. 3646 [141]3672:[160]15:[159]15,DV,15,"R0:"[170]A2$[170]"="[170]A1$:[137]3662
  486. 3649 :
  487. 3650 [141]150:A$[178]"(null)AME OF DISK: ":X[178][183]([171]1):[158]49152:F$[178]A$:[139]A$[178]""[167]3600
  488. 3651 [141]150:A$[178]"RIGHT$STR$ FOR DISK: ":X[178][183]([171]1):[158]49152:B$[178]A$:[141]3672:[160]15
  489. 3652 [159]15,DV,15,"N0:"[170]F$[170]","[170]B$:[137]3662
  490. 3654 :
  491. 3656 [141]3672:[160]15:[159]15,DV,15,"V0:":[137]3662
  492. 3659 :
  493. 3662 [141]127:[160]2:[160]3:[160]15:[141]150
  494. 3666 A$[178]"STR$ISK (null)TATUS: "[170][196](ER)[170]", "[170]ER$[170]","[170]E1$[170]","[170]E2$:X[178][183](.)
  495. 3668 [141]145:[137]3600
  496. 3670 :
  497. 3672 [141]150:A$[178]"STR$RIVE: ":X[178][183]([171]1):[158]49152:DV[178][165]A(Z)
  498. 3676 [139]DV[177]11[176]DV[179]8[167][141]150:A$[178]"(null)ICK # BETWEEN 8 AND 11!":X[178][183](.):[137]3672
  499. 3678 [142]
  500. 3680 [141]190:[153]"(null)VALATNSTR$ (null)(null) (null)(null)RIGHT$(null)(null) ATN ASCRIGHT$(null)VAL":[153]:[160]4:PR[178].
  501. 3682 [133]"((null))CREEN OR ((null))RINTER  SCMDCMDCMD";A$:[139]A$[178]"P"[167]PR[178]1:[159]4,4,7:[152]4
  502. 3685 [141]150:A$[178]"(null)AME: ":X[178][183]([171]1):[158]49152:F$[178]A$:[139]A$[178]""[167][160]4:[137]200
  503. 3686 [141]3672:[141]1400:[141]150:[139]PR[167][152]4:[160]4
  504. 3688 A$[178]"ATNNOTHER? ":X[178][183]([171]1):[158]49152:[139]CA$[178]""[176]CA$[178]"(null)"[167]200
  505. 3689 [137]3688
  506. 3702 :
  507. 3704 [160]15:[159]15,DV,15,"S0:"[170]F$:[142]
  508. 3706 :
  509. 3716 [160]2:[160]3:[160]15:[142]
  510. 3718 :
  511. 3720 [141]190:A$[178]"STR$RIGHT$(null)VALLEN(null)(null)(null)(null)":X[178][183](.):[141]150:[141]3672:[139]A$[178]""[167]3600
  512. 3722 [160]15:[159]15,DV,15:[151]820,DV:[141]150:[158]49185:[141]145:[137]3662
  513. 3729 :
  514. 3730 [139][194](1004)[167][151]1004,.:[137]3200
  515. 3731 [141]190:A$[178]"VALDIT (null)AME.HSH":X[178][183](.):[141]150:[160]2:[160]15
  516. 3732 A$[178]"(null)AME TO EDIT: ":X[178][183]([171]1):[158]49152:NA$[178]A$:[139]A$[178]""[167]3200
  517. 3734 [158]49176:[159]15,DA,15:[159]2,DA,2,"NAME.HSH,L,"[170][199](50):[141]155
  518. 3737 [132]2,EA$,EC$,MC$:[141]150:A$[178]"(null)ECORD #"[170][196](RN):X[178][183](.)
  519. 3738 [141]150:A$[178]"((null))AME        :"[170]EA$:X[178][183](.)
  520. 3739 A$[178]" LENAP (null)AME     :"[170]EC$:X[178][183](.)
  521. 3740 A$[178]"((null))AIL LENOUNTER:"[170]MC$:X[178][183](.)
  522. 3741 A$[178]"((null)) STR$ELETE THIS ONE":X[178][183](.)
  523. 3742 [141]150:A$[178]"(null),(null),(null),+,-: ":X[178][183]([171]1):[158]49152:[139]A$[178]""[167]3730
  524. 3744 [139]CA$[178]"(null)"[167]EA$[178]"":EC$[178]"":MC[178]0:MC$[178]"0":[137]3750
  525. 3745 [139]CA$[178]"+"[167]RN[178]RN[170]1:[141]3340:[141]156:[137]3737
  526. 3746 [139]CA$[178]"-"[167]RN[178]RN[171]1:[141]3340:[141]156:[137]3737
  527. 3747 [139]CA$[178]"(null)"[167]3755
  528. 3748 [139]CA$[179][177]"(null)"[167]3738
  529. 3749 A$[178]"(null)AIL: ":X[178][183]([171]1):[158]49152:MC[178][197](A$[170][199](0)):MC$[178]CA$
  530. 3750 [141]156:[152]2,EA$","EC$","MC:[137]3738
  531. 3755 [139]NA$[178]""[167]A$[178]"(null)AME: ":X[178][183]([171]1):[158]49152:NA$[178]A$
  532. 3757 A$[178]NA$:[158]49167:EC$[178]CA$:EA$[178]NA$:NA$[178]"":[137]3750
  533. 3775 :
  534. 3780 [141]190:A$[178]"(null)(null)ATN(null)(null)ASCVAL(null) ASCRIGHT$(null)VAL(null)":X[178][183](.):[141]150
  535. 3782 A$[178]"(null)HICH FILE? ":X[178][183]([171]1):[158]49152:[139]A$[178]""[167]200
  536. 3784 F$[178]A$:[141]150:A$[178]"ASCROM STR$RIVE # ":X[178][183]([171]1):[158]49152:D1[178][165]A(Z)
  537. 3786 A$[178]"  (null)O STR$RIVE # ":X[178][183]([171]1):[158]49152:D2[178][165]A(Z):[139]D2[178]D1[167]200
  538. 3788 DV[178]D2:[141]3704:[160]15:[159]3,D1,3,F$[170]",S,R":[159]2,D2,2,F$[170]",S,W"
  539. 3790 [132]3,A$:S[178](ST)[175]66:[139]S[178]2[167]3790
  540. 3792 [152]2,QW$[170]A$[170]QW$:[139]S[179][177]64[167]3790
  541. 3794 [160]2:[160]3:[137]200
  542. 3802 [161]#3,A$:S[178]ST:[139]S[178]2[167]3802
  543. 3804 [152]2,A$;:[139]S[179][177]64[167]3802
  544. 3806 [160]2:[160]3:[137]200
  545. 4129 :
  546. 4130 [141]190:A$[178]"LENHANGE (null)ODAY'S LENALLERS (null)UMBER":X[178][183](.)
  547. 4132 [141]150:A$[178]"(null)UMBER OF CALLERS SO FAR IS"[170][196]([194](1018)):X[178][183](.)
  548. 4134 [141]150:A$[178]"LENHANGE IT TO: ":X[178][183]([171]1):[158]49152:[139]A$[178]""[167]200
  549. 4136 A[178][165]A(Z):[151]1018,A:[141]150:[137]200
  550. 4199 :
  551. 4200 [158]49203:TM$[178]A$:[142]
  552. 4227 :
  553. 4230 [141]190:[141]4200:A$[178]TM$:X[178][183](.):[141]150
  554. 4231 A$[178]"(null)ET THE TIME? ":X[178][183]([171]1):[158]49152:[139]CA$[178]"(null)"[176]CA$[178]""[167]200
  555. 4234 C[178]56584:[141]150:A$[178]"VALNTER TIME (24 HR)":X[178][183](.)
  556. 4235 [141]150:A$[178]"LEFT$LEFT$: ":X[178][183]([171]1):[158]49152:H[178][165]A(Z)
  557. 4236 A$[178]"(null)(null): ":X[178][183]([171]1):[158]49152:M[178][165]A(Z):S[178].
  558. 4237 [151]C[170]7,[194](C[170]7)[175]127
  559. 4238 [139]H[177]12[167]H[178]H[170]68
  560. 4240 [151]C[170]3,16[172][181](H[173]10)[170]H[171][181](H[173]10)[172]10
  561. 4241 [151]C[170]2,16[172][181](M[173]10)[170]M[171][181](M[173]10)[172]10
  562. 4242 [151]C[170]1,16[172][181](S[173]10)[170]S[171][181](S[173]10)[172]10:[151]C,.
  563. 4243 [141]150:[137]4230
  564. 4499 :
  565. 4500 DR[178][194](1008):[159]15,DR,15,"S0:LOCAL":[160]15:[148]"LOCAL",DR
  566. 4510 [153]"LOADLOAD"[199](34)"BBS-*"[199](34)","DR:[153]"RUN"
  567. 4512 [151]198,3:[151]631,19:[151]632,13:[151]633,13:[162]
  568.