home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / C64-128BBS / P.SYSOP'S-HOUSE (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  8.9 KB  |  211 lines
  1. 1 SYS 52587
  2. 2 PRINT"  [211]OF[212]ECH [197]NT.  ";:IFF1THEN59
  3. 3 A$="[147]":SYSO:A$="R":TT$=NA$:GOSUB1062:GOSUB1003:CLOSE2:GOSUB55
  4. 5 A$="[207]UTSIDE [198]RONT OF [200]OUSE[139][163][163][163][163][163][163][163] [163][163][163][163][163] [163][163] [163][163][163][163][163][139]":SYSO
  5. 7 A$="[139][200]ERE IS A [205][193][201][204] [194][207][216], (THE FLAG IS "+AB$+")[139]":SYSO
  6. 9 A$="THE FRONT [196][207][207][210], AND THE [210][207][193][196] BACK TO[139]THE [194][194][211][139]":SYSO
  7. 11 A$="[139][215]HAT SHOULD [201] DO?[139]=>":SYSO:IFTR$<"" THEN1080
  8. 13 GOSUB1006:GOSUB1850:IFRS=1 THEN11
  9. 15 IFAN$="[199][207] [194][207][216]"ORAN$="[199][207] [205][193][201][204]"ORAN$="[199][197][212] [205][193][201][204]"ORAN$="[199][207] [205][193][201][204] [194][207][216]" THEN43
  10. 17 IFAN$="[199][207] [205][193][201][204][194][207][216]"THEN43
  11. 19 IFAN$="[205][193][201][204][194][207][216]"ORAN$="[205][193][201][204]"ORAN$="[194][207][216]"ORAN$="[205][193][201][204] [194][207][216]"THEN43
  12. 21 IFAN$="[199][207] [210][207][193][196]"ORAN$="[199][207] [194][194][211]"ORAN$="[209][213][201][212]"ORAN$="[197][206][196]"THEN45
  13. 23 IFAN$="[204][197][193][214][197]"ORAN$="[209]"ORAN$="[210][207][193][196]"ORAN$="[194][194][211]"THEN45
  14. 25 IFAN$="[197][206][212][197][210] [200][207][213][211][197]"ORAN$="[199][207] [201][206]"ORAN$="[199][207] [200][207][213][211][197]"THEN47
  15. 27 IFAN$="[196][207][207][210]"ORAN$="[199][207] [196][207][207][210]"ORAN$="[200][207][213][211][197]"ORAN$="[197][206][212][197][210]"THEN47
  16. 29 IF LEFT$(AN$,4)="[204][207][207][203]"ORLEFT$(AN$,7)="[197][216][193][205][201][206][197]"THEN49
  17. 31 ON INT(5*RND(.))+1 GOTO33,35,37,39,41
  18. 33 A$="[139][208]LEASE, [201]'M NOT [212][200][193][212] BRIGHT![139][139]":SYSO:GOTO5
  19. 35 A$="[139][200]UH? [201] DON'T SEE WHAT YOU MEAN.[139][139]":SYSO:GOTO5
  20. 37 A$="[139][208]LEASE, BE MORE SPECIFIC.[139][139]":SYSO:GOTO5
  21. 39 A$="[139][211]AY [215][200][193][212]?[139][139]":SYSO:GOTO5
  22. 41 A$="[139][196]U BE DO WHA.. [207]OPS, WASEN'T LISTENING[139][139]":SYSO:GOTO5
  23. 43 GOTO100
  24. 45 A$="[139][210]ETURNING TO [194][194][211]![139][139]":SYSO:GOTO59
  25. 47 GOTO200
  26. 49 A$="[139][139][139]  [215]ELL, [201]'LL TELL YA. [201] DON'T SEE[139]":SYSO
  27. 51 A$="SA'GOOD SA'MORE, BUT THAT THING[139]":SYSO
  28. 53 A$="IS DEFINITELY A [200][207][213][211][197]![139][139][139][139][139]":SYSO:GOTO5
  29. 55 IFA$="00"THENMQ=.:AB$="[213][208]":RETURN
  30. 57 MQ=1:AB$="[196][207][215][206]":RETURN
  31. 59 GOTO261
  32. 100 REM--HOUSE1
  33. 103 A$="[147]":SYSO:A$="R":TT$=NA$:GOSUB1062:GOSUB1003:CLOSE2:GOSUB147:NN$=NA$:GOSUB159
  34. 105 A$="[205][193][201][204] [194][207][216][139][163][163][163][163] [163][163][163][139]":SYSO
  35. 109 A$="[217]OU CAN GET BACK TO THE [200][207][213][211][197] FROM HERE[139]":SYSO
  36. 111 A$="[139][215]HAT SHOULD [201] DO?[139]=>":SYSO:IFTR$<"" THEN1080
  37. 113 GOSUB1006:GOSUB1850:IFRS=1THEN111
  38. 114 IFAN$="[209]"GOTO261
  39. 115 IFAN$="[199][207] [200][207][213][211][197]"ORAN$="[199][207] [198][210][207][206][212]"THEN139
  40. 117 IFAN$="[199][207] [200][207][213][211][197] [198][210][207][206][212]"ORAN$="[200][207][213][211][197]"THEN139
  41. 119 IFAN$="[199][197][212][160][205][193][201][204]"ORAN$="[210][197][193][196] [205][193][201][204]"ORAN$="[205][193][201][204]"THENGOSUB171
  42. 121 IFAN$="[203][201][204][204] [205][193][201][204]"ORAN$="[196][197][204][197][212][197] [205][193][201][204]"ORAN$="[196][197][211][212][210][207][217] [205][193][201][204]"THENGOSUB151:GOTO100
  43. 123 IFAN$="[196][210][207][208] [205][193][201][204]"THENGOSUB151:GOTO100
  44. 125 IF LEFT$(AN$,4)="[204][207][207][203]"ORLEFT$(AN$,7)="[197][216][193][205][201][206][197]"THEN141
  45. 127 ON INT(5*RND(.))+1GOTO129,131,133,135,137
  46. 129 A$="[139][208]LEASE, [201]'M NOT [212][200][193][212] BRIGHT![139][139]":SYSO:GOTO105
  47. 131 A$="[139][200]UH? [201] DON'T SEE WHAT YOU MEAN.[139][139]":SYSO:GOTO105
  48. 133 A$="[139][208]LEASE, BE MORE SPECIFIC.[139][139]":SYSO:GOTO105
  49. 135 A$="[139][211]AY [215][200][193][212]![139][139]":SYSO:GOTO105
  50. 137 A$="[139][196]U BE DO WHA.. [207]OPS, WASEN'T LISTENING[139][139]":SYSO:GOTO105
  51. 139 GOTO1
  52. 141 A$="[139][139][139]  [215]ELL, [201]'LL TELL YA. [201] DON'T SEE[139]":SYSO
  53. 143 A$="SA'GOOD SA'MORE, BUT THAT STUFF [139]":SYSO
  54. 145 A$="THERE IS DEFINATLY [205][193][201][204]![139][139][139][139][139]":SYSO:GOTO105
  55. 147 IFA$="00"THENMQ=.:AB$="[213][208]":RETURN
  56. 149 MQ=1:AB$="[196][207][215][206]":RETURN
  57. 151 A$="[139][196]ELETE [193]LL [217]OUR [205]AIL?[139][139][205][196]: ":SYSO:GOSUB1007:GOSUB1903:IFA=.THENRETURN
  58. 153 DR=2:GOSUB1010:PRINT#15,"S"+DR$+"CM."+NA$:GOSUB1060:I=-1:X=25:GOSUB1025:CLOSE2
  59. 155 IFID=1THENGOSUB1060:X=24:ST(X)=.:GOSUB1026:CLOSE2
  60. 157 A$="[139][205]AIL [196]ELETED.[139]":MQ=.:GOTO1001
  61. 159 RN=.:LR=.:TT$=NN$:A$="R":GOSUB1062:GOSUB1003:IFA$<>"00"THENCLOSE2:RETURN
  62. 161 RN=RN+1:C%(RN)=LR:LR=LR+4:SYS53154:NN$(RN)=A$:SYS53154:D%(RN)=VAL(A$)
  63. 163 INPUT#2,DT$(RN):INPUT#2,ED$(RN):GOSUB181
  64. 165 ON(((ST)AND64)/64+1)GOTO161:CLOSE2:RETURN
  65. 167 FL=.:A$="[147][139]\CJ[205]AILBOX:[139]":SYSO:ON-(MQ=.)GOTO115:NN$=NA$:GOSUB159
  66. 169 A$="[139][217]OU [200]AVE"+STR$(RN)+" [205]ESSAGE(S) [215]AITING.[139]":SYSO:GOTO103
  67. 171 IFBR<RNTHENBR=BR+1:GOSUB191:GOTO103
  68. 173 A$="[139][206]O [205]ORE [205]AIL.[139]":SYSO:GOTO103
  69. 175 TT$=NA$:A$="R":GOSUB1062:BR=.:GOTO183
  70. 177 A$="[139][206]UMB:"+STR$(BR)+"[139][198]ROM: "+FR$+" ([213][201][196]#"+ID$+")[139][204]EFT: "+RC$
  71. 179 A$=A$+"[139][211]UBJ: "+TT$(.)+"[139][139]":GOTO1001
  72. 181 SYS53154:LR=LR+1:ON-(A$<>"^")GOTO181:RETURN
  73. 183 BR=BR+1:INPUT#2,FR$:SYS53154:ID$=STR$(VAL(A$)):INPUT#2,RC$:INPUT#2,TT$(.):GOSUB177
  74. 185 GOSUB1030:IFRCTHENGOSUB181:ON-(SH<>47)GOTO187:CLOSE2:GOTO3
  75. 187 ON(((ST)AND64)/64+1)GOTO183:CLOSE2:GOTO103
  76. 189 A$="[139]"+NN$(BR)+" [200]AS [194]EEN [196]ELETED.[139]":SYSO:RETURN
  77. 191 LR=C%(BR):TT$=NA$:A$="R":GOSUB1062:ON-(LR=.)GOTO193:FORX=1TOLR:SYS53154:NEXT
  78. 193 INPUT#2,FR$:SYS53154:ID$=STR$(VAL(A$)):INPUT#2,RC$:INPUT#2,TT$(.):GOSUB177
  79. 195 GOSUB1030:CLOSE2:RETURN
  80. 200 REM-HOUSE2
  81. 203 A$="[147]":SYSO
  82. 205 A$="[201]NSIDE [198]RONT OF [200]OUSE[139][163][163][163][163][163][163] [163][163][163][163][163] [163][163] [163][163][163][163][163][139]":SYSO
  83. 207 A$="[139][200]ERE YOU SEE A COAT RACK, THE FRONT[139]":SYSO
  84. 209 A$="[196][207][207][210], AND A HALLWAY TO THE [204][201][214][201][206][199][210][207][207][205][139]":SYSO
  85. 211 A$="[208][213][211][200] [194][213][212][212][207][206] TO ANNOUNCE YOU'RE HERE.":SYSO
  86. 213 A$="[139][215]HAT SHOULD [201] DO?[139]=>":SYSO:IFTR$<""THEN1080
  87. 215 GOSUB1006:GOSUB1850:IFRS=1THEN213
  88. 217 IFAN$="[208][213][211][200] [194][213][212][212][207][206]"ORAN$="[194][213][212][212][207][206]"THEN253
  89. 219 IFAN$="[199][207] [200][193][204][204][215][193][217]"ORAN$="[199][207] [204][201][214][201][206][199][210][207][207][205]"THEN241
  90. 221 IFAN$="[200][193][204][204][215][193][217]"ORAN$="[204][201][214][201][206][199][210][207][207][205]"THEN241
  91. 223 IFLEFT$(AN$,5)="[204][197][193][214][197]"ORAN$="[199][207] [207][213][212]"ORAN$="[199][207] [196][207][207][210]"THEN245
  92. 225 IFAN$="[196][207][207][210]"THEN245
  93. 227 IF LEFT$(AN$,4)="[204][207][207][203]"ORLEFT$(AN$,7)="[197][216][193][205][201][206][197]"THEN247
  94. 229 ONINT(5*RND(.))+1GOTO231,233,235,237,239
  95. 231 A$="[139][208]LEASE, [201]'M NOT [212][200][193][212] BRIGHT![139][139]":SYSO:GOTO205
  96. 233 A$="[139][200]UH? [201] DON'T SEE WHAT YOU MEAN.[139][139]":SYSO:GOTO205
  97. 235 A$="[139][208]LEASE, BE MORE SPECIFIC.[139][139]":SYSO:GOTO205
  98. 237 A$="[139][211]AY [215][200][193][212]![139][139]":SYSO:GOTO205
  99. 239 A$="[139][196]U BE DO WHA.. [207]OPS, WASEN'T LISTENING[139][139]":SYSO:GOTO205
  100. 241 GOTO300
  101. 243 A$="[139][210]ETURNING TO [194][194][211]![139][139]":SYSO:GOTO261
  102. 245 GOTO1
  103. 247 A$="[139][139][139]  [215]ELL, THERE'S SOME COATS OVER THERE,[139]":SYSO
  104. 249 A$="A DOORWAY IN FRONT'A ME, AND THE[139]":SYSO
  105. 251 A$="DOOR OUTSIDE BEHIND ME.[139][139][139][139][139]":SYSO:GOTO203
  106. 253 A=PEEK(1264)
  107. 255 IFA=160THENA$="[139][200]MM. [217]OU SEEM TO BE ALONE[139][139]":SYS52544:SYSO:GOTO205
  108. 257 POKE47082,1:SYS52544:A$="[139][193]HA! [212]HE [211]YSOP SHOULD BE HERE[139]":SYSO
  109. 259 A$="WITHIN MOMENTS![139][139]":SYSO:GOTO205
  110. 261 SYS52605:GOSUB1372:GOTO1812
  111. 300 REM-HOUSE3
  112. 303 A$="[147]":SYSO
  113. 305 A$="[204]IVINGROOM[139][163][163][163][163][163][163][163][163][163][163][139]":SYSO
  114. 307 A$="[139][200]ERE IS A [198][201][210][197] [208][204][193][195][197], TO THE LEFT YOU[139]SEE THE [196][197][206] AND TO THE ":SYSO
  115. 309 A$="RIGHT, YOU SEE[139]THE [210][197][195]-[210][207][207][205]. [194]EHIND YOU IS THE[139][197][206][212][210][217][215][193][217].[139]":SYSO
  116. 311 A$="[139][215]HAT SHOULD [201] DO?[139]=>":SYSO:IFTR$<""THEN1080
  117. 313 GOSUB1006:GOSUB1850:IFRS=1THEN311
  118. 315 IFAN$="[199][207] [196][197][206]"ORAN$="[196][197][206]"ORAN$="[204][197][198][212]"ORAN$="[199][207] [204][197][198][212]"THEN339
  119. 317 IFAN$="[199][207] [210][197][195]-[210][207][207][205]"ORAN$="[210][197][195]-[210][207][207][205]"ORAN$="[199][207] [210][197][195][210][207][207][205]"ORAN$="[210][197][195][210][207][207][205]"THEN341
  120. 319 IFAN$="[210][201][199][200][212]"ORAN$="[199][207] [210][201][199][200][212]" THEN341
  121. 321 IFAN$="[204][201][199][200][212] [198][201][210][197]"ORAN$="[205][193][203][197] [198][201][210][197]"ORAN$="[211][212][193][210][212] [198][201][210][197]"ORAN$="[198][201][210][197]"THEN351
  122. 323 IFAN$="[199][207] [197][206][212][210][217][215][193][217]"ORAN$="[204][197][193][214][197]"ORAN$="[199][207] [194][193][195][203]"ORAN$="[197][206][212][210][217][215][193][217]"THEN343
  123. 325 IF LEFT$(AN$,4)="[204][207][207][203]"ORLEFT$(AN$,7)="[197][216][193][205][201][206][197]"THEN345
  124. 327 ONINT(5*RND(.))+1GOTO329,331,333,335,337
  125. 329 A$="[139][208]LEASE, [201]'M NOT [212][200][193][212] BRIGHT![139][139]":SYSO:GOTO305
  126. 331 A$="[139][200]UH? [201] DON'T SEE WHAT YOU MEAN.[139][139]":SYSO:GOTO305
  127. 333 A$="[139][208]LEASE, BE MORE SPECIFIC.[139][139]":SYSO:GOTO305
  128. 335 A$="[139][211]AY [215][200][193][212]?[139][139]":SYSO:GOTO305
  129. 337 A$="[139][196]U BE DO WHA.. [207]OPS, WASEN'T LISTENING[139][139]":SYSO:GOTO305
  130. 339 GOTO400
  131. 341 GOTO500
  132. 343 GOTO200
  133. 345 A$="[139][139][139]  [215]ELL, [201]'LL TELL YA. [201] DON'T SEE[139]":SYSO
  134. 347 A$="SA'GOOD SA'MORE, BUT THAT THING[139]":SYSO
  135. 349 A$="IS DEFINITELY A [198][201][210][197][208][204][193][195][197]![139][139][139][139][139]":SYSO:GOTO305
  136. 351 A$="[139][139]  [217]OU WANT TO [215][200][193][212]! [201]N [212][200][201][211] [200][207][213][211][197]?!?![139]":SYSO
  137. 353 A$="[196]ON'T YOU KNOW WHAT A FIRE IN [200][197][210][197][139]":SYSO
  138. 355 A$="COULD DO? [212]HIS IS A [195]OMMODORE, NOT[139]":SYSO
  139. 357 A$="YOUR [193]UNT [208]OLLY'S BACKYARD BAR-B-QUE![139][139]":SYSO:GOTO305
  140. 400 REM-HOUSE 4:CHECK 498!
  141. 403 A$="\F1[196]EN[139][163][163][163][139]":SYSO
  142. 405 A$="[139][200]ERE IS A DESK. [212]HERE'S SOME PAPER,[139]":SYSO
  143. 407 A$="PENCILS, AND ENVELOPES HERE. [217]OU COULD[139][215][210][201][212][197] A [204][197][212][212][197][210]![139]":SYSO
  144. 409 A$="  [212]HE DOOR TO THE [204][201][214][201][206][199][210][207][207][205] IS BEHIND[139]YOU.":SYSO
  145. 411 A$="[139][215]HAT SHOULD [201][160]DO?'[209]'TO QUIT.[139]=>":SYSO:IFTR$<"" THEN1080
  146. 413 GOSUB1006:GOSUB1850:IFRS=1THEN411
  147. 414 IFAN$="[209]"GOTO261
  148. 415 IFAN$="[215][210][201][212][197] [204][197][212][212][197][210]"ORAN$="[204][197][212][212][197][210]"ORAN$="[205][193][201][204]"THENGOTO443
  149. 417 IFAN$="[204][197][193][214][197] [205][193][201][204]"ORAN$="[215][210][201][212][197]"ORAN$="[197]-[205][193][201][204]"ORAN$="[197][205][193][201][204]"THENGOTO443
  150. 419 IFAN$="[199][207] [204][201][214][201][206][199][210][207][207][205]"ORAN$="[204][201][214][201][206][199][210][207][207][205]"ORAN$="[204][197][193][214][197]"THEN433
  151. 421 IFLEFT$(AN$,4)="[204][207][207][203]"ORLEFT$(AN$,7)="[197][216][193][205][201][206][197]"THEN435
  152. 423 ONINT(5*RND(.))+1GOTO423,425,427,429,431
  153. 425 A$="[139][208]LEASE, [201]'M A LITTLE SLOW TODAY.[139][139]":SYSO:GOTO403
  154. 427 A$="[139][200]UH? [201] DON'T UNDERSTAND.[139][139]":SYSO:GOTO403
  155. 429 A$="[139][208]LEASE, BE MORE SPECIFIC.[139][139]":SYSO:GOTO403
  156. 431 A$="[139][211]AY [215][200][193][212]![139][139]":SYSO:GOTO403
  157. 433 GOTO300
  158. 435 GOTO300
  159. 437 A$="[139][139][139]  [215]ELL, [201]'LL TELL YA. [201] DON'T SEE[139]":SYSO
  160. 439 A$="SA'GOOD ANYMORE, BUT THAT THING[139]":SYSO
  161. 441 A$="THERE IS DEFINATELY A [196][197][211][203]![139][139][139][139][139]":SYSO:GOTO400
  162. 443 MS$="[205]AIL [212]O":GT=1:QE=.:GOSUB45:GOTO1
  163. 445 A$="[139][197]NTER [212]HE [200][193][206][196][204][197] [207]R [201][196]# [207]F [212]HE[139][208]ERSON [212]O [211]END [193] [208]RIVATE [205]ESSAGE"
  164. 447 SYSO:A$=" [212]O:[139][139][205][211]: ":SYSO:GOSUB1006:IFAN$=""ORAN$="[140]"ORAN$=NA$THEN1017
  165. 449 PT$=AN$:KK=ABS(INT(VAL(LEFT$(AN$,4)))):IFKK=.THEN457
  166. 451 IF(KK>UR)OR(KK=ID)THEN1017
  167. 453 GOSUB1065:X=KK:GOSUB1002:SYS53154:CLOSE2:IFA$="^"THEN498
  168. 455 PT$=A$:AN$=A$:A$="[139][201]S [135]\V7[135] [195]ORRECT? :":SYSO:GOSUB1007:GOSUB1903:IFA=.THEN445
  169. 457 AN$=PT$:GOSUB1046:KK=I:IFI=.THENA$="[135]\V7[135] [206]OT [198]OUND[139][201]N [213]SER [198]ILE.[139]":GOTO1001
  170. 459 DR=2:IFA<.THEN1992
  171. 461 POKE53252,30:A$="[139][215]HAT [201]S [212]HE [211]UBJECT [207]F [217]OUR [205]ESSAGE?[139][139][205][211]: ":SYSO:GOSUB1005
  172. 463 TT$(.)="["+AN$+"]":Y=KK:IFGTTHENGOSUB1604:IFKK=.THENRETURN
  173. 465 A$="[139][198]ILING "+MS$+" "+PT$+"...":SYSO:GT=.
  174. 467 Z=.:A$="W":TT$=PT$:GOSUB1062:GOSUB1003:IFA$<>"00"THENA$="A":Z=1:CLOSE2:GOSUB1062
  175. 469 PRINT#2,NA$:PRINT#2,ID:PRINT#2,D1$:FORX=.TOML%-1:PRINT#2,TT$(X):NEXT:PRINT#2,"^"
  176. 471 CLOSE2
  177. 473 IFY=1THENGOSUB1060:X=2:I=1:GOSUB1025:X=13:GOSUB1025:X=24:GOSUB1025:X=31:GOSUB1025
  178. 475 ON-(Y<>1)GOSUB1060:X=3:I=1:GOSUB1025:X=14:GOSUB1025:X=32:GOSUB1025
  179. 477 IFZTHENX=25:GOSUB1025
  180. 479 CLOSE2:A$="[139][139][211]END [212]HIS [211]AME [205]ESSAGE [212]O[139][193]NOTHER [213]SER?[139][139][205][211]: ":SYSO
  181. 481 GOSUB1007:GOSUB1903:ON-(TR$<""ORA=.)GOTO1024:GT=.:GOTO445
  182. 500 REM-HOUSE5
  183. 503 A$="[147]":SYSO
  184. 505 A$="[210]EC-[210]OOM[139][163][163][163][163][163][163][163][163][139]":SYSO
  185. 507 A$="[139][200]ERE YOU SEE A PING-PONG TABLE,[139]":SYSO
  186. 509 A$="THE [196][207][207][210] TO THE [204][201][214][201][206][199][210][207][207][205] AND.....[139]":SYSO
  187. 511 A$="[194]LADE [210]UNNER IS [200][193][195][203][201][206][199] IN THE CORNER.[139][139][215]ANT TO [202][207][201][206] ME?[139][139]":SYSO
  188. 513 A$="[139][215]HAT SHOULD [201] DO?[139]=>":SYSO:IFTR$<"" THEN1080
  189. 514 IFAN$="[202][207][201][206]"GOTO1320
  190. 515 GOSUB1006:GOSUB1850:IFRS=1THEN513
  191. 517 IFAN$="[199][207] [200][193][204][204][215][193][217]"ORAN$="[199][207] [204][201][214][201][206][199][210][207][207][205]"THEN539
  192. 519 IFAN$="[200][193][204][204][215][193][217]"ORAN$="[204][201][214][201][206][199][210][207][207][205]"THEN539
  193. 521 IFLEFT$(AN$,5)="[204][197][193][214][197]"ORAN$="[199][207] [207][213][212]"ORAN$="[199][207] [196][207][207][210]"THEN539
  194. 523 IFAN$="[196][207][207][210]"THEN539
  195. 525 IFLEFT$(AN$,4)="[204][207][207][203]"ORLEFT$(AN$,7)="[197][216][193][205][201][206][197]"THEN541
  196. 527 ONINT(5*RND(.))+1GOTO529,531,533,535,537
  197. 529 A$="[139][208]LEASE, [201]'M NOT [212][200][193][212] BRIGHT![139][139]":SYSO:GOTO505
  198. 531 A$="[139][200]UH? [201] DON'T SEE WHAT YOU MEAN.[139][139]":SYSO:GOTO505
  199. 533 A$="[139][208]LEASE, BE MORE SPECIFIC.[139][139]":SYSO:GOTO505
  200. 535 A$="[139][211]AY [215][200][193][212]![139][139]":SYSO:GOTO505
  201. 537 A$="[139][196]U BE DO WHA.. [207]OPS, WASEN'T LISTENING[139][139]":SYSO:GOTO505
  202. 539 GOTO300
  203. 541 A$="[139][139][139]  [194]LADE [193]SKS YOU TO [202][207][201][206] HIM AND GIVES YOU A BIG GRIN[139]":SYSO
  204. 543 A$="[193]LL YOU SEE IS A GUY HACKING AWAY[139]":SYSO
  205. 545 A$="THERE'S NOTHING THERE...  YET![139][139][139][139][139]":SYSO:GOTO505
  206. 995 :
  207. 996 REM"[205]ODIFIED [201]NTO 1 [208]-[198]ILE [198]ROM THE        [207]RIGINAL 6 TO [211]AVE [196]IRECTORY [210]OOM
  208. 997 [143]"PEEKY LEFT$ANDYMAN 12/21/87TAN(null)HE PEEKEST           (null)-ASCILES ARE ON (null)HE LENASINO (null)OYALE
  209. 998 REM"513/988-0743 [192] 24 [200]OURS / 7 [196]AYS        11.2 [205]EGS [207]N-LINE [192] 3/12/2400BPS
  210. 999 [143]
  211.