home *** CD-ROM | disk | FTP | other *** search
/ ftp.barnyard.co.uk / 2015.02.ftp.barnyard.co.uk.tar / ftp.barnyard.co.uk / cpm / walnut-creek-CDROM / ENTERPRS / C64 / BBS / MICRAM.BBS (.txt) < prev    next >
Commodore BASIC  |  2000-06-30  |  23KB  |  644 lines
  1. 1 POKE665,32:POKE666,13:GOSUB4639:GOTO5150:REM"00"
  2. 10 PRINTCHR$(14);:POKE821,1:POKE53281,15:POKE53280,12:GOTO2800
  3. 20 RD=1:IFO$=""THENRD=.:RETURN
  4. 30 FORX=1TOLEN(O$):A$=MID$(O$,X,1):IFA$=""THENNEXT
  5. 40 IFX<>1THEN60
  6. 50 IFLEFT$(O$,1)=SP$THENPRINT:PRINT#6,R$;
  7. 60 GOSUB400:NEXTX:JZ=.:RD=.:O$="":RETURN
  8. 70 POKE646,.:DR=.:B$="":A$="":O$="":J$="":TX=1:GOSUB100:TX=.:RETURN
  9. 80 DR=1:O=1:PRINT#6,LF$;
  10. 90 GOSUB100:DR=.:O=.:RETURN
  11. 100 IFSY=.THEN390
  12. 110 TM=VAL(TI$)
  13. 120 GET#6,B$:IFB$=""THENPOKE646,1:GOTO310
  14. 130 POKE646,.
  15. 140 A=ASC(B$):IFA>64ANDA<126THENPRINT#6,B$;:A=(PEEK(AS+A)):PRINTCHR$(A);:POKE212,.:GOTO240
  16. 150 IFA=127ORA=8THENA=8:GOTO820
  17. 160 IFA<>13ANDA<>17ANDA<>141THEN200
  18. 170 PRINTCHR$(13);:PRINT#6,R$;
  19. 180 IFCHTHENPOKE646,2:PRINT"_[157]";:POKE646,1:GOTO110
  20. 190 RETURN
  21. 200 IFA=10THENPRINT"";:PRINT#6,CHR$(10);:GOTO110
  22. 210 IFA=7THENGOSUB5145:GOTO110
  23. 220 IFA<32ORA>127THEN110
  24. 230 PRINT#6,B$;:PRINTCHR$(A);:POKE212,.
  25. 240 TW$=TI$:T=.:IFA=34THENA=171
  26. 255 IFCHTHEN110
  27. 260 IFTX=.THENA$=B$:RETURN
  28. 270 IFK=39THENAR=1
  29. 280 RT=1:K=K+1:IFK=41THENK=1:L=L+1:L$(L)=""
  30. 290 L$(L)=L$(L)+CHR$(A):KK=KK+1:IFARTHENRETURN
  31. 300 GOTO120
  32. 310 CK=CK+1:IFCK<25THEN390
  33. 320 CK=.:IFTXTHENIFTM+500<VAL(TI$)THEN5025
  34. 330 IF((PEEK(CA))AND16)=.THENT=.:GOTO360
  35. 340 POKE53265,27:PRINTCA$:T=T+1:IFT=25THENT=.:GOTO5029
  36. 350 GOTO330
  37. 360 IFTXORFSORCHTHEN390
  38. 370 IFVAL(TI$)<060000THEN390
  39. 380 POKE53265,27:O$=R$+"[212][201][205][197][196] [207][213][212]!  [207][206][197] [200][207][213][210] [207][206][160][211][217][211][212][197][205]"+R$:GOSUB20
  40. 381 IFPPTHENCLOSE4:OPEN4,4,7:PRINT#4,O$:CLOSE4
  41. 382 GOTO5031
  42. 390 GETA$:IFA$=""THENPOKE646,.:GOTO100
  43. 400 A=ASC(A$):POKE212,.
  44. 410 IFA=.THEN100
  45. 420 IFA>31ANDA<65THEN650
  46. 430 IFA>64ANDA<122ORA>192ANDA<219THENGOTO450
  47. 440 GOTO460
  48. 450 PRINTCHR$(A);:POKE212,.:PRINT#6,CHR$(PEEK(AS+A));:GOTO670
  49. 460 IFCHTHENIFA=147THENA=20:GOTO820
  50. 470 IFA=149THEN740
  51. 480 IFA=92ORA=64ORA=95THEN650
  52. 490 IFA=91ORA=93ORA=94THEN650
  53. 500 IFA<>13ANDA<>145ANDA<>167THEN560
  54. 510 IFA$=CHR$(167)THENA=44:A$=",":GOTO670
  55. 520 PRINTCHR$(13);:PRINT#6,R$;
  56. 540 IFCHTHENPOKE646,2:PRINT"_[157]";:POKE646,1:GOTO100
  57. 550 A=13:K=.:RETURN
  58. 560 IFA=20ORA=157THENA=20:GOTO820
  59. 570 IFA=17THENIFCHTHENPRINTCHR$(17);:PRINT#6,CHR$(10);:GOTO100
  60. 580 IFA=137THENIFCHTHEN1370
  61. 590 IFA=188THEN1290
  62. 600 IFA=20THEN100
  63. 610 IFA=163THEN5031
  64. 620 IFA=133THENPRINT" "NM$" ON "LEFT$(TI$,2)":"MID$(TI$,3,2):POKE646,.
  65. 630 IFA=7THENGOSUB5145:GOTO100
  66. 640 IFRD=.THEN100
  67. 650 PRINTA$;:PRINT#6,CHR$(A);
  68. 660 TW$=TI$:T=.:IFA=34THENA=39
  69. 670 IFCHTHEN100
  70. 680 IFDRORRDTHENRETURN
  71. 690 IFTX=.THENRETURN
  72. 700 IFK=39THENAR=1
  73. 710 RT=1:K=K+1:IFK=41THENK=1:L=L+1:L$(L)=""
  74. 720 IFA=34THENA=171
  75. 730 L$(L)=L$(L)+A$:KK=KK+1:IFARTHENRETURN
  76. 740 GOTO100
  77. 750 IFSY=.THEN1640
  78. 760 FORI=1TOLEN(O$):A=ASC(MID$(O$,I,1)):IFA=171THENA=34
  79. 780 PRINTCHR$(A);
  80. 790 IFPEEK(669)<>PEEK(670)THEN790
  81. 800 IFA<65THENPRINT#6,CHR$(A);:NEXT:RETURN
  82. 810 PRINT#6,CHR$(PEEK(AS+A));:NEXT:RETURN
  83. 820 IFCHTHEN870
  84. 830 IFKK<=.THEN100
  85. 840 K=K-1:IFK=.THENK=40:L$(L)="":L=L-1:GOTO870
  86. 850 X=LEN(L$(L))
  87. 860 L$(L)=LEFT$(L$(L),X-1)
  88. 870 PRINTCHR$(20);:PRINT#6,D$+SP$+D$;:IFCHTHEN100
  89. 880 IFFLTHENRETURN
  90. 890 KK=KK-1
  91. 900 GOTO100
  92. 910 P=166:IFPOS(X)<39THENPRINT#6,R$;:PRINTRB$;
  93. 920 GOTO1070
  94. 930 O$="[206]EXT [205]ESSAGE"+R$+R$:GOSUB760:FO=1:RE=.:GOTO970
  95. 940 O$="[198]ORWARD [214]IEWING"+R$+R$:GOSUB760:FO=1:RE=.:GOTO970
  96. 950 O$="[214]IEW [205]ESSAGES"+R$+R$:GOSUB760:FO=1:RE=.:GOTO970
  97. 960 O$="[210]EVERSE [214]IEWING"+R$+R$:GOSUB760:FO=.:RE=1
  98. 970 LZ=.:MN=VAL(MID$(RM$(7),RM+1,1)):VR=HL+2:IFMN=9THENO$=R$:GOSUB760:GOTO4120
  99. 980 FL=.:MX=MN+1:IFRETHENMX=MN
  100. 990 IFMX>5THENMX=.
  101. 1000 O$=" [195][207][205][205][193][206][196][211]:   [206]EXT    [208]AUSE     [193]BORT"+R$+R$:GOSUB760:ZZ=.
  102. 1010 O$="    * [211]PACE [194]AR [211]TOPS AND [199]OES *"+R$:GOSUB760:GOSUB4950:GOSUB1210
  103. 1020 PE=FNLC(X):IFSYTHENPOKE53265,11:GOTO1060
  104. 1030 P=PEEK(PE):PE=PE+1:IFP>161ANDP<179THEN1090
  105. 1040 PRINTCHR$(P);:GOTO1030
  106. 1050 PE=FNLC(X):IFSY=.THEN1030
  107. 1060 P=PEEK(PE):PE=PE+1:IFP>161THENIFP<179THEN1090
  108. 1070 IFP>64THENPRINT#6,CHR$(PEEK(AS+P));:GOTO1060
  109. 1080 PRINT#6,CHR$(P);:GOTO1060
  110. 1090 IFP=171THENP=34:GOTO1080
  111. 1095 LZ=LZ+1:YY=YY+1:IFFOTHENIFLZ>7THENLZ=.:MX=MX+1:IFMX>5THENMX=.
  112. 1100 IFRETHENIFLZ>7THENLZ=.:MX=MX-1:IFMX=(-1)THENMX=5
  113. 1110 IFP=178THENPRINT#6,R$;:IFSY=.THENIFPOS(X)<>40ANDPOS(X)<>.THENPRINTR$;
  114. 1120 IFP=178THENIFLZ=1THENPRINT#6,R$;:PRINTR$;
  115. 1130 IFP=162THENGOSUB1210
  116. 1140 IFYY>=48THEN4120
  117. 1145 IFSY=.THEN1160
  118. 1146 IF((PEEK(CA))AND16)<>.THENT=.:GOTO1190
  119. 1150 GET#6,A$:IFA$<>""THEN2450
  120. 1160 GETB$:IFB$<>""THENA$=B$:GOTO2450
  121. 1170 IFSY=.THEN1050
  122. 1180 IF((PEEK(CA))AND16)=.THENT=.:GOTO1050
  123. 1190 POKE53265,27:PRINTCA$:T=T+1:IFT=50THENT=.:GOTO5029
  124. 1200 GOTO1170
  125. 1210 O$=R$+SP$:GOSUB760:A$="/":FORI=1TO38:PRINTA$;
  126. 1220 FORJ=1TO15:NEXTJ
  127. 1230 PRINT#6,A$;:NEXT
  128. 1240 O$=R$+R$:GOSUB760:RETURN
  129. 1250 POKE646,5:O$="[195]ALLING MICRO[210][193][205] [211]YSOP"+R$+R$:GOSUB760:FORI=1TO500:NEXT:POKE53281,.
  130. 1260 GOSUB2730:POKE646,.:POKE53281,15:POKE54296,.:IFW<>20THEN1290
  131. 1270 O$=S$+SP$+"* [211]YSOP NOT [193]VAILABLE"+R$:GOSUB20
  132. 1271 IFPPTHENCLOSE4:OPEN4,4,7:PRINT#4,"[210][197][209][213][197][211][212][197][196] [195][200][193][212]":CLOSE4
  133. 1280 FORI=1TO1000:NEXT:GOTO4120
  134. 1290 TI$="000000":S=.:F=.:QE=.
  135. 1300 O$=R$+SP$+"* [211]YSTEM [207]PERATOR [195]ONTACT"+R$+R$:GOSUB760
  136. 1310 FORI=1TO1000:NEXT
  137. 1320 PRINT"    [150]                               [146][152][191]"
  138. 1330 PRINT"    [150]   [208][210][197][211][211] [198]2 TO [212][197][210][205][201][206][193][212][197] [195][200][193][212]  [146][152][191]"
  139. 1340 PRINT"    [150]                               [146][152][191]"
  140. 1350 PRINT"    [152][191][191][191][191][191][191][191][191][191][191][191][191][191][191][191][191][191][191][191][191][191][191][191][191][191][191][191][191][191][191][191][191][144]"
  141. 1360 GOSUB4950:GOSUB5080:O$=MS$+R$+R$:GOSUB760:PRINT"[145]_[157]_[157]";:CH=1:B=.:GOTO100
  142. 1370 PRINT"[144]";:CH=.:O$=R$+R$+" * [195]HAT [212]ERMINATED"+R$:GOSUB20
  143. 1375 CLOSE4:OPEN4,4,7:CLOSE4:IFST=(-128)THENPP=.
  144. 1380 IFPPTHENCLOSE4:OPEN4,4,7:PRINT#4,"[212][201][205][197] [201][206] [195][200][193][212]: "LEFT$(TI$,2)":"MID$(TI$,3,2):CLOSE4
  145. 1381 TI$="000000":FORI=1TO500:NEXT:GOTO4120
  146. 1390 SS=SS+1:IFSS>6THEN4120
  147. 1391 MZ=1:SM=.:PR=.:GOTO1430
  148. 1400 SM=1:MZ=.
  149. 1410 IFPPTHENO$="[204]EAVE [205]ESSAGE TO [211]YSOP"+R$+R$+SP$:GOSUB760
  150. 1420 IFSMTHENIFPP=.THEN2280
  151. 1430 O$="[197]NTER NOW:"+R$+R$:GOSUB760:O$="       UP TO <7> LINES MAXIMUM AT"+R$:GOSUB760
  152. 1440 O$="     40 CHARACTERS PER LINE OF TEXT"+R$:GOSUB760
  153. 1450 RT=1:TX=1::CH=.:F=.:PR=.:S=.:VI=.:FORI=.TO8:L$(I)="":NEXT:L=.:K=.:AR=.
  154. 1460 PR=.:S=.:IFNMTHENHM=VAL(HM$):LM=VAL(LM$)
  155. 1470 IFVITHEN1510
  156. 1480 O$=R$+"  * [212]WO [195]ARRIAGE [210]ETURNS [199]IVES [205]ENU *"+R$:GOSUB760:GOSUB4950
  157. 1490 O$=" ([193]UTOMATIC [208]ARAGRAPH [201]NDENTS [208]ROVIDED)"+R$:GOSUB760:PRINT"[152] [213][211][197][210]: "NM$
  158. 1500 POKE646,.:PRINTR$;:PRINT#6,R$;:FORI=1TO40:PRINT"-";:PRINT#6,"-";:FORJ=1TO10:NEXTJ
  159. 1510 NEXTI:PRINT#6,R$;:X=FRE(0):IFPRTHENRETURN
  160. 1520 IFSYTHENPOKE53265,11
  161. 1530 IFL>6THEN1610
  162. 1540 IFARTHENRT=1:GOTO1560
  163. 1550 PRINT">";:L=L+1:L$(L)=SP$:K=1:KK=K:PRINT#6,">";
  164. 1560 AR=.:GOSUB70:IFRT<1THENGOTO1610
  165. 1580 RT=RT-1:IFPP=.THEN1590
  166. 1590 IFL=6THENGOSUB2530
  167. 1600 GOTO1530
  168. 1610 PR=1:GOSUB1500:PR=.:IFLEN(L$(7))>1THENL=8
  169. 1620 O$="   [193]BORT  [204]IST  [194]ADWORD  [211]TORE  [195]ONT"+R$+R$:GOSUB760:KK=1:FX=2
  170. 1630 O$=">":GOSUB760:F=.:RT=1:S=.:FS=.:FL=.:VI=.
  171. 1640 GOSUB4950:C=99:TM=VAL(TI$)
  172. 1650 IFS=12THENTE=1:
  173. 1660 GETB$:IFB$<>""THENA$=B$:GOTO1740
  174. 1670 IFSY=.THEN1660
  175. 1680 GET#6,A$:IFA$<>""THEN1730
  176. 1690 IFTM+300<VAL(TI$)THENPOKE53265,27:GOTO5025
  177. 1700 IF((PEEK(CA))AND16)=.THENT=.:GOTO1650
  178. 1710 POKE53265,27:PRINTCA$:T=T+1:IFT=50THENT=.:GOTO5029
  179. 1720 GOTO1690
  180. 1730 A=ASC(A$):IFA>96ANDA<123THENA=PEEK(AS+A):A$=CHR$(A)
  181. 1740 ONFXGOTO1750,1760,1770,1780,1790,1800,1810
  182. 1750 PR$="GNFH?RE"+CHR$(13)+"MCLTKZV":GOTO1820
  183. 1760 PR$="ALSCB":GOTO1820
  184. 1770 PR$=CHR$(13)+"YN":GOTO1820
  185. 1780 PR$=CHR$(13)+"YAN PS":GOTO1820
  186. 1790 PR$=CHR$(13)+"YNZ":GOTO1820
  187. 1800 PR$="AP ":GOTO1820
  188. 1810 PR$=CHR$(13)+"YTN":GOTO1820
  189. 1820 PR=LEN(PR$):FORB=1TOPR:IFMID$(PR$,B,1)=A$THENC=B
  190. 1830 NEXTB:IFC=99THEN1640
  191. 1840 ONFXGOTO1850,1860,1870,1880,1890,1900,1910
  192. 1850 ONCGOTO4290,930,940,4150,4150,960,1390,1390,4380,1250,1400,5000,4330,4900,950
  193. 1860 ONCGOTO1940,2300,1930,2150,1950
  194. 1870 ONCGOTO4980,4980,4990
  195. 1880 ONCGOTO2370,2370,2370,2420,2550,2550,2370
  196. 1890 ONCGOTO4530,4530,4540,4530
  197. 1900 ONCGOTO4120,1150,1150
  198. 1910 ONCGOTO5050,5050,5050,5020
  199. 1920 GOTO1640
  200. 1930 O$="[211]TORE [205]ESSAGE [206]OW???"+R$+">":GOSUB760:SR=1:FX=4:GOSUB4950:GOTO1640
  201. 1940 O$="[193]RE YOU SURE YOU WANT TO [193]BORT???"+R$+">":GOSUB760:FX=4:FL=1:GOTO1640
  202. 1950 O$="[194]ADWORD???":GOSUB760:X=FRE(.)
  203. 1955 O$="  [201]NPUT WHICH [204]INE OR [210][197][212][213][210][206]"+R$+">":GOSUB760:GOSUB4950
  204. 1960 LT=L:X=.:GOSUB80:L=LT:IFA$=""THEN1610
  205. 1970 Y=VAL(A$):IFY=.THEN1610
  206. 1980 IF(Y>L-1)AND(Y<>7)THENO$=" * [206]UMBER TOO [204]ARGE"+R$+">":GOSUB760:GOTO1950
  207. 1990 O$=" * [197]NTER UP TO 40 [195]HARACTERS"+R$:GOSUB760:X=FRE(.)
  208. 2000 O$="     [207]R [208]RESS [210][197][212][213][210][206] IF [207][203]"+R$:GOSUB760:KK=.:K=.:AR=.
  209. 2010 O$=STR$(Y)+"."+R$+L$(Y)+R$:GOSUB760
  210. 2020 O$=STR$(Y)+"."+R$:GOSUB760
  211. 2030 GOSUB4950:I$=L$(1):L$(1)="":LT=L:L=1:GOSUB70:IFL$(L)=""THENL$(1)=I$:L=LT:GOTO1610
  212. 2040 L$(Y)=L$(1)::L=LT:IFY=1THEN1610
  213. 2050 L$(1)=I$:GOTO1610
  214. 2060 LZ=.:MN=VAL(MID$(RM$(7),RM+1,1)):MX=MN+1:IFMX>5THENMX=.
  215. 2070 MN=MX::N$=RIGHT$(STR$(MN),1):IFL>7THENL=7
  216. 2080 L$(.)="[194]Y:"+NM$:VR=HL+2:GOSUB3370:LZ=.:FORI=.TOL:GOSUB4630:LZ=LZ+1
  217. 2090 FORK=1TOLEN(L$(I)):POKEPE,ASC(MID$(L$(I),K,L)):PE=PE+1:NEXTK:POKEPE,178
  218. 2100 NEXTI:POKEPE,162:FORJ=.TOL:L$(L)="":NEXTJ
  219. 2105 IFPPTHENCLOSE4:OPEN4,4,7:PRINT#4,"[211][212][207][210][197][196] [205][197][211][211][193][199][197] [201][206] "RM$(RM):CLOSE4
  220. 2110 I$=RM$(7):GOSUB4620
  221. 2130 XR=RL+7*(24+8):FORJ=1TO7:POKE XR,ASC(MID$(I$,J,1)):XR=XR+1:NEXTJ:I$=""
  222. 2140 GOTO4120
  223. 2150 IFLEN(L$(7))=40THENL=9
  224. 2151 IFL>8THENO$="[195]AN'T CONTINUE - [198]ILE [198]ULL"+R$+">":GOSUB760:FX=2:GOTO1640
  225. 2160 L=L-1:O$="[195]ONTINUE [212]YPING. . .":GOSUB760:F=.:X=FRE(.):IFL<.THENL=1
  226. 2170 O$=" [207]N [204]INE #"+STR$(L)+"."+R$+L$(L):GOSUB760:K=LEN(L$(L)):RT=1:KK=K
  227. 2180 IFL<>1ANDL<>.THENIFMID$(L$(L),1,1)=CHR$(32)THENIFK=1THENL$(L)=""
  228. 2190 GOTO1560
  229. 2200 O$=R$:GOSUB760:L=L-2:IFL<.THENL=.
  230. 2210 IFL=1THENL=.
  231. 2220 GOTO1530
  232. 2230 IFMZTHEN2060
  233. 2240 CLOSE4:OPEN4,4,7:CLOSE4:IFST=(-128)THENPP=.:GOTO2270
  234. 2250 PP=1
  235. 2260 CLOSE4:OPEN4,4,7:FORI=1TOL:PRINT#4,L$(I):NEXT:PRINT#4,R$
  236. 2270 PRINT#4,R$:CLOSE4:FORJ=1TO8:L$(J)="":NEXTJ:GOTO4120
  237. 2280 POKE53265,27:O$=R$+R$+R$+" [208]RINTER [206][207][212] CONNECTED...."+R$+R$:GOSUB760:GOTO4120
  238. 2290 GOTO1550
  239. 2300 O$="[204]IST WITH [204]INE NUMBERS...."+R$+R$:GOSUB760:VI=1:X=FRE(0):LV=L
  240. 2310 PR=1:GOSUB1500
  241. 2320 LV=LV-1
  242. 2330 FORZZ=1TOLV:J$=STR$(ZZ)+"."+R$+L$(ZZ)
  243. 2340 O$=J$:GOSUB760
  244. 2350 PRINT#6,R$;:IFPOS(X)<>40ANDPOS(X)<>.THENPRINTR$;
  245. 2360 NEXTZZ:PR=.:VI=.:X=FRE(0):GOTO1610
  246. 2370 IFSRORFLTHEN2384
  247. 2380 FX=4:GOTO1640
  248. 2384 IFSRTHENIFC=3THEN2430
  249. 2385 IFSRTHEN2400
  250. 2390 IFC<4THENO$="[193]BORTED!"+R$+R$:GOSUB760:GOSUB5110:FORI=.TO8:L$(I)="":NEXT:GOTO4120
  251. 2400 IFFL=.THENO$="[211]TORING [205]ESSAGE..."+R$+R$:GOSUB760:SR=.:X=FRE(0):GOTO2230
  252. 2420 IFFLTHENO$="[206]O [196]ON'T [193]BORT"+R$:GOSUB760:FL=.:GOTO1610
  253. 2430 IFSRTHENO$="[206]O [196]ON'T [211]TORE"+R$:GOSUB760:SR=.:GOTO1610
  254. 2440 IFVITHEN2320
  255. 2450 GOSUB4950
  256. 2460 B=ASC(A$):IFB>96ANDB<123THENB=PEEK(AS+B)
  257. 2470 IFB=78THENYY=YY+(7-LZ):LZ=8:P=162:GOTO1090
  258. 2480 IFB=90THENMZ=1:O$=R$+R$:GOSUB760:GOTO4900
  259. 2490 IFB=65THEN4120
  260. 2500 IF(B=32)OR(B=80)THENFX=6:GOTO1640
  261. 2510 IFB=83THENO$=R$+" * [208][210][197][211][211] '[193]' TO [193]BORT"+R$:GOSUB760:GOTO1050
  262. 2520 GOTO1050
  263. 2530 O$=" * [204][193][211][212] [204][201][206][197]!":GOSUB760:GOSUB5120:FL=1:FORI=1TO13:GOSUB870:NEXTI:FL=.:RETURN
  264. 2540 GOTO1550
  265. 2550 IFSRTHEN1640
  266. 2551 GET#6,A$:IFA$=CHR$(32)ORA$=CHR$(80)THEN2340
  267. 2560 GETB$:IFB$=CHR$(32)ORB$=CHR$(80)THEN2340
  268. 2570 GOTO2550
  269. 2580 GOSUB5300:VR=HL+2:RM=7:MX=.:LZ=.:PRINT"[147][156]";:GOSUB4950
  270. 2590 PRINT"      [211][208][193][195][197] [194][193][210] [211][212][207][208][211] [193][206][196] [199][207][197][211][152]":GOSUB4950
  271. 2600 PE=FNLC(X)
  272. 2610 P=PEEK(PE):PE=PE+1:IF(P=166)OR(P=162)OR(P=178)THENLZ=LZ+1:GOTO2630
  273. 2620 PRINTCHR$(P);:GOTO2610
  274. 2630 IFP=166THEN2700
  275. 2640 IFP=178THENIFPOS(X)<39ANDPOS(X)>1THENPRINTR$:GOTO2700
  276. 2650 IFP=162THEN2670
  277. 2660 GOTO2700
  278. 2670 PRINTR$+R$+R$+"         > [208][210][197][211][211] [211][208][193][195][197] [194][193][210]":GOSUB4950
  279. 2680 GETA$:IFA$<>CHR$(32)THEN2680
  280. 2690 GOTO5031
  281. 2700 GETA$:IFA$=""THEN2600
  282. 2710 GETA$:IFA$=""THEN2710
  283. 2720 GOTO2600
  284. 2730 FORR=54272TO54296:POKER,.:NEXT:POKE646,2
  285. 2740 POKE54296,15:POKE54277,.:POKE54278,240
  286. 2750 FORY=.TO5:FORW=.TO19:POKE54272,.:POKE54273,125:POKE54276,33
  287. 2760 FORX=.TO600:NEXT:POKE54273,100
  288. 2770 FORZ=.TO600:NEXT:GETA$:IFA$<>""THENX=600:Z=600:Y=5:W=19:POKE54293,.:RETURN
  289. 2780 POKE54276,32:POKE53281,1:O$="* ":GOSUB20:FORR=.TO10:NEXT:POKE53281,.:NEXT:POKE54293,.
  290. 2790 RETURN
  291. 2791 FORI=1TOLEN(O$):PRINTMID$(O$,I,1);:FORJ=1TO4:NEXTJ:NEXTI:RETURN
  292. 2800 CLOSE6:OPEN6,2,6,CHR$(6)+CHR$(.):AS=828-65:GOSUB4950:GOSUB5152
  293. 2810 X=16+18+1:NM$="":AD=828+65:FORJ=.TOX:A=PEEK(AD+J):IFA<>166THENNM$=NM$+CHR$(A)
  294. 2811 IFA=166THENJ=X
  295. 2820 NEXTJ:GOSUB4790:RL=HL+16974+1:GOSUB4820:JP=40+8:R$=CHR$(13)
  296. 2830 PRINTCHR$(14)CHR$(8):IFPEEK(821)THENSY=1:GOSUB4631:IFPEEK(822)THENR$=R$+CHR$(10)
  297. 2840 FORI=1TO8:L$(I)="":NEXT:QT$=CHR$(34):POKE650,128:CA=56577:CB=CA+2:RM$(.)="[204]OBBY"
  298. 2850 GOSUB5130:RB$=CHR$(157)+CHR$(157)+R$
  299. 2860 D$=CHR$(8):SP$=CHR$(32):LN=48578:IFSYTHEN2910
  300. 2870 WE$="     [151][172][175][175][175][175][175][175][175][175][175][175][175][175][175][187]"
  301. 2880 WA$="     [161][146][156]   [215][193][201][212][201][206][199]   [161]":WB$="[152] [204]AST CALLER[155]: [154]"
  302. 2890 WD$="     [151][188][183][183][183][183][183][183][183][183][183][183][183][183][183][190]":GOSUB4631:SY=.:POKE821,.:POKE822,.
  303. 2910 RI$="[147]        * * * * [210][201][206][199] [210][201][206][199] * * * *":K=1:KK=1
  304. 2920 D$=CHR$(8):CA$=R$+" -- [206][207] [195][193][210][210][201][197][210] --[144][145][145]":IFSY=.THENGOSUB5270
  305. 2930 MS$=SP$+"[200]ELLO!":REM CHAT GREETING
  306. 2940 WF$="     [211][208][193][195][197] [194][193][210]":WG$="[155]       FOR [204]OCAL [211]TART"
  307. 2950 AK$=CHR$(6):POKE53281,.:POKE53280,.:WH$="  [200] FOR [200]ELP":POKE.,47:IFSYTHEN4120
  308. 2960 PRINT"[145][145]";::PRINTSPC(7);:O$=WD$+"     ":GOSUB2791:PRINT
  309. 2970 PRINTSPC(7);:O$=WA$:GOSUB2791:PRINT:PRINTSPC(7);:O$=WE$:GOSUB2791:PRINT
  310. 2980 PRINTSPC(13):O$=WB$:GOSUB2791:PRINT:PRINT:PRINTSPC(19-LEN(NM$)/2);
  311. 2990 O$=NM$:GOSUB2791:PRINT:PRINT:PRINTSPC(10);:O$=WF$:GOSUB2791
  312. 3000 PRINT:PRINTSPC(5);:O$=WG$:GOSUB2791:PP=1:PRINT:PRINTSPC(13);:O$=WH$:GOSUB2791
  313. 3020 POKE.,47:CLOSE4:OPEN4,4,7:CLOSE4:IFST=(-128)THENPP=.
  314. 3030 A=8:FORI=1TO200:AN=((PEEK(CA))ANDA):IFAN=.THENSY=1:I=100:GOTO3090
  315. 3040 GETA$:IFA$="H"THENGOSUB5300:GOTO2580
  316. 3050 IFA$=SP$THENGOSUB5300:SC=1:I=50:POKE53281,15:POKE53280,12::GOTO3190
  317. 3060 NEXTI:X=INT(RND(.)*11)+1:PRINT"[147]":FORI=1TOX:PRINT:NEXT
  318. 3070 X=INT(RND(.)*18)+.:PRINTSPC(X+9)RM$(7):PRINTSPC(X)WD$:PRINTSPC(X)WA$:PRINTSPC(X)WE$
  319. 3080 PRINTSPC(X+6)WB$:PRINT:PRINTSPC(19-LEN(NM$)/2);NM$:GOSUB5130:GOTO3030
  320. 3090 POKE53281,15:POKE53280,12:PRINT#6,AK$;:SC=.:SY=1:PRINTCHR$(14);
  321. 3100 POKE53280,7:GOSUB5145:FORT=1TO10:PRINT"[144]"RI$:FORTT=1TO10:NEXTTT
  322. 3110 PRINT""RI$:FORDF=1TO10:NEXTDF
  323. 3120 NEXTT:GOSUB5145
  324. 3130 POKE646,.:POKE53280,12:GOSUB5300
  325. 3140 FORDE=1TO2000:IF((PEEK(CA))AND16)=.THENT=T+1:GET#6,A$
  326. 3150 IFA$=CHR$(5)THENPRINT#6,AK$;:GOTO3190
  327. 3160 IFT=50THEN3190
  328. 3170 NEXTDE
  329. 3180 DE=.:GOSUB5031:GOTO2860
  330. 3190 TI$="000000":S=.:X=FRE(.):CR=.:DE=2000:T=.:FORI=1TODE:NEXTI:PRINT#6,AK$;:PRINT"[147][144]";
  331. 3200 PRINTCHR$(14);:O$=" 8 [194][201][212] [215][207][210][196] * 1 [211][212][207][208] [194][201][212] * [206][207] [208][193][210][201][212][217]"+R$+CHR$(10):GOSUB760
  332. 3210 T=.:TM=VAL(TI$):O$=R$+CHR$(10)+" [208]RESS [210]ETURN"+R$+CHR$(10):GOSUB4950:GOSUB760
  333. 3220 GET#6,A$:PRINT#6,A$;:IFA$=CHR$(13)ORA$=CHR$(46)ORA$=CHR$(141)THEN3390
  334. 3230 GETB$:IFB$=CHR$(13)ORB$=CHR$(141)ORB$=CHR$(46)THEN3390
  335. 3240 IFTM+100<VAL(TI$)THEN5025
  336. 3250 IFSY=.THEN3220
  337. 3260 IF((PEEK(CA))AND16)=.THENT=.:GOTO3290
  338. 3270 POKE53265,27:PRINTCA$:T=T+1:IFT=50THENT=.:GOTO5029
  339. 3280 GOTO3240
  340. 3290 IFA$<>""THENPRINT"[195][200][210]$("ASC(A$)")[145]":T=T+1:IFT=200THEN5027
  341. 3300 GOTO3220
  342. 3310 CLOSE6:OPEN6,2,6,CHR$(6)+CHR$(.)
  343. 3320 GET#6,B$:IFB$=""THEN3340
  344. 3330 PRINT#6,B$;:PRINTB$;
  345. 3340 GETA$:IFA$=""THEN3320
  346. 3350 PRINT#6,A$;:PRINTA$;
  347. 3360 GOTO3320
  348. 3370 LZ=.:FORI=.TO7:GOSUB4630
  349. 3380 FORJ=.TO40:POKEPE,166:PE=PE+1:NEXTJ:LZ=LZ+1:NEXTI
  350. 3381 IFPPANDZPTHENCLOSE4:OPEN4,4,7:PRINT#4,"[218][193][208][208][197][196] [205]ESSAGE IN "RM$(RM):CLOSE4
  351. 3382 ZP=.:RETURN
  352. 3390 O$=R$+CHR$(10)+SP$+"[217]OUR [194][194][211] [206]AME HERE!"+R$+CHR$(10):GOSUB760:REM BBS NAME
  353. 3400 T=.:O$=" MICRO[210][193][205] [208]ERSONAL [210]OOM [211]YSTEM  [214]1"+R$+CHR$(10)+R$+CHR$(10):GOSUB760
  354. 3410 O$=NM$+R$+CHR$(10):GOSUB760
  355. 3420 S=.:T=.:O$=SP$+"[215]AS [204]AST [208]ERSON [200]ERE"+R$+CHR$(10):GOSUB760
  356. 3430 GOSUB4960
  357. 3440 T=T+1:IFT=4THEN5027
  358. 3450 S=.:O$=R$+SP$+"[208]LEASE [197][206][212][197][210] [217]OUR [206]AME"+R$+R$+">":GOSUB760:MM$=NM$:NM$=""
  359. 3460 GOSUB4950:L$(L)="":AR=.:KK=.:K=1:L=1:GOSUB70:IFL$(L)="NEW"THEN3450
  360. 3470 IF(LEN(L$(L))<2)OR(LEN(L$(L))>17)OR(MID$(L$(L),1,1)=CHR$(32))THEN3490
  361. 3480 NM$=SP$+L$(L):GOTO3500
  362. 3490 O$=R$+SP$+"[204]ET'S TRY THAT AGAIN."+R$:GOSUB760:L$(L)="":GOTO3440
  363. 3500 T=T+1:IFT=4THEN5027
  364. 3510 T=.:S=.:O$=R$+SP$+"[215]HAT [195]ITY & [211]TATE YOU CALLING FROM?"+R$:GOSUB760
  365. 3520 O$=SP$+"([213]SE TWO LETTER [208][207] CODE FOR STATE.)"+R$:GOSUB760:FL=1:GOSUB5230:FL=.
  366. 3530 O$=SP$+"[207]R [208]RESS [210][197][212][213][210][206] IF '"+PL$+"'"+R$+R$+">":GOSUB760
  367. 3540 S=.:L$(L)="":L=1:KK=.:K=1:AR=.:GOSUB4950:GOSUB70
  368. 3550 IFLEN(L$(L))=.THENL$(L)=PL$:O$=">"+L$(L)+R$:GOSUB760:GOTO3590
  369. 3560 IF(LEN(L$(L))<2)OR(LEN(L$(L))>17)OR(MID$(L$(L),1,1)=CHR$(32))THEN3590
  370. 3570 GOTO3590
  371. 3580 O$=R$+SP$+"[193]H, IS THAT RIGHT?"+R$:GOSUB760:L$(L)="":GOTO3500
  372. 3590 IFNM$+", "+L$(L)=MM$THEN5031
  373. 3591 O$=R$+SP$+"[215]ELCOME TO MICRO[210][193][205],"+NM$+R$+R$:GOSUB760
  374. 3600 NM$=NM$+", "+L$(L)
  375. 3610 IFPPTHENCLOSE4:OPEN4,4,7:PRINT#4,R$+">>> "+NM$+SP$+"[204][207][199][199][197][196] [207][206]":CLOSE4
  376. 3650 O$="  [212]HIS IS THE LOGON MESSAGE!"+R$+R$:GOSUB760
  377. 3660 O$=" [212]HE TEXT FOR THIS IS TO BE FOUND"+R$:GOSUB760
  378. 3670 O$=" BEGINNING AT LINE 3650. [194]E SURE THAT"+R$:GOSUB760
  379. 3680 O$=" QUOTE MARKS ARE PROPERLY POSITIONED"+R$:GOSUB760
  380. 3681 O$=" AT THE END OF EACH LINE AS SHOWN."+R$:GOSUB760
  381. 3690 O$=" ([207]PEN UP LINES W/ INSERT KEY.)"+R$:GOSUB760
  382. 3710 PR=1:GOSUB1500:PR=.
  383. 3711 O$=" [208]RESS '[200]' FOR HELP"+R$:GOSUB760:GOTO4120
  384. 3720 POKE53281,.:POKE53280,.
  385. 3730 PRINT"[147]":CLR
  386. 3740 N=.:X=36:FORV=ITO34:PRINT""
  387. 3750 PRINTTAB(X)" ":X=X-1:NEXTV
  388. 3760 FORI=1TO17:PRINT"  [150] ":FORT=1TO12:NEXTT:NEXTI
  389. 3770 PRINT"  [129] ";:FORJ=1TO33:PRINT" ";:FORS=1TO12:NEXTS:NEXTJ:PRINT" "
  390. 3780 X=20:FORZ=1TO19:PRINT"":FORH=1TOX:PRINT:NEXTH
  391. 3790 PRINTTAB(37)"[158] ":X=X-1:NEXTZ
  392. 3800 X=36:FORO=ITO52:PRINT""
  393. 3810 PRINTTAB(X)"[153] ":X=X-1:NEXTO
  394. 3820 FORI=1TO17:PRINT"   ":FORT=1TO18:NEXTT:NEXTI
  395. 3830 PRINT"   ";:FORJ=1TO33:PRINT" ";:FORT=1TO16:NEXTT:NEXTJ:PRINT" "
  396. 3840 X=20:FORZ=1TO19:PRINT"":FORT=1TOX:PRINT:NEXTT
  397. 3850 PRINTTAB(37)"[156] ":X=X-1:NEXTZ
  398. 3860 X=36:FORO=ITO52:PRINT""
  399. 3870 PRINTTAB(X)" ":X=X-1:NEXTO
  400. 3880 FORI=1TO17:PRINT"   ":NEXTI
  401. 3890 PRINT"   ";:FORJ=1TO33:PRINT" ";:NEXTJ:CLOSE6:OPEN6,2,6,CHR$(6)+CHR$(.)
  402. 3900 PRINT" [154]"SPC(10);:O$="[146][212][197][204][197][195][207][205][205][213][206][201][195][193][212][201][207][206][211]":GOSUB760:PRINT
  403. 3910 PRINTSPC(2);:O$="[146][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175]":GOSUB760
  404. 3920 PRINT:PRINTSPC(2);:O$="[154] MICRO[210][193][205] [208]ERSONAL [210]OOM [211]YSTEM   [214]1 ":GOSUB760
  405. 3930 PRINT:PRINTSPC(2);:O$="[146][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184]":GOSUB760
  406. 3940 PRINT:PRINT"[151]"SPC(10):O$=" ([195])OPYRIGHT 1986":GOSUB760
  407. 3950 PRINT:PRINTSPC(12):O$="[197]UGENE [212]IFFANY":GOSUB760:PRINT""
  408. 3960 PRINTSPC(14)"[154][211][197][212][212][201][206][199] [213][208]":GOTO5070
  409. 4120 POKE53265,27:POKE53281,15:POKE53280,12:POKE646,.
  410. 4130 PRINT:PRINT"[145][152] [213][211][197][210]:"NM$"[145][145][144]":O$=R$+R$+" "+RM$(RM)+"> ":GOSUB760:TM=VAL(TI$):GOSUB4950
  411. 4140 MN=VAL(MID$(RM$(RM),RM+1,1)):SM=.:FL=.:SR=.:FX=1:LZ=.:YY=.:MZ=.:GOTO1640
  412. 4150 O$="[200]ELP [200]ELP!"+R$:GOSUB760
  413. 4160 O$=R$+" *  MICRO[210][193][205] [210]OOM [211]YSTEM *"+R$:GOSUB760
  414. 4170 O$=" * [211]INGLE [204]ETTER [195]OMMANDS *"+R$+R$:GOSUB760
  415. 4180 O$="           [214]IEW [205]ESSAGES"+R$:GOSUB760
  416. 4190 O$="          [206]EXT [205]ESSAGE"+R$:GOSUB760
  417. 4200 O$="         [198]ORWARD [214]IEWING"+R$:GOSUB760
  418. 4210 O$="        [210]EVERSE [214]IEWING"+R$:GOSUB760
  419. 4220 O$="       [197]NTER [205]ESSAGE"+R$:GOSUB760
  420. 4230 O$="      [199]OTO [206]EXT [210]OOM"+R$:GOSUB760
  421. 4240 O$="     [205]AKE [206]EW [210]OOM"+R$:GOSUB760
  422. 4250 O$="    [203]NOWN [210]OOMS [204]IST"+R$:GOSUB760
  423. 4260 O$="   [195]HAT WITH [211]YSTEM [207]PERATOR"+R$:GOSUB760
  424. 4270 O$="  [204]EAVE [205]ESSAGE TO [211]YSTEM [207]PERATOR"+R$:GOSUB760
  425. 4280 T=.:O$=" [212]ERMINATE"+R$:GOSUB760:TM=VAL(TI$):GOSUB4950:GOTO4120
  426. 4290 O$="[199]OTO ":GOSUB760:RM=RM+1
  427. 4300 IFRM>5THENRM=.
  428. 4310 IFRM$(RM)=""THENRM=RM+1:GOTO4300
  429. 4320 O$=RM$(RM)+R$:GOSUB760:GOTO4120
  430. 4330 O$="[203]NOWN [210]OOMS"+R$+" -----"+R$:GOSUB760
  431. 4340 FORJ=.TO6:IFRM$(J)=""THENNEXTJ
  432. 4350 O$=SP$+RM$(J):GOSUB760
  433. 4360 IFJ=6THENO$=SP$+"* [200]IGH [193]CCESS":GOSUB760
  434. 4370 O$=R$:GOSUB760:NEXTJ:O$=R$+SP$+"-----"+R$:GOSUB760:GOTO4120
  435. 4380 O$="[205]AKE [206]EW [210]OOM"+R$+R$:GOSUB760
  436. 4390 FORI=1TO6:IFRM$(I)=""THENRM=I:I=6:GOTO4430
  437. 4400 NEXT:O$=" [206]EW [210]OOM NOT [193]VAILABLE."+R$+R$:GOSUB760:GOTO4120
  438. 4430 O$=SP$+"[197]NTER [206]AME FOR [206]EW [210]OOM"+R$:GOSUB760
  439. 4440 AR=.:L=1:L$(L)="":K=1:KK=1:O$=">":GOSUB760:GOSUB70:IFLEN(L$(L))<2THENRM=.:GOTO4130
  440. 4450 IFLEN(L$(L))>24THENO$=" [206]AME TOO LONG. [212]RY AGAIN."+R$+R$:GOSUB760:GOTO4440
  441. 4460 SR=RL:RM$(RM)=L$(L):L$(L)="":FORJ=1TOLEN(RM$(RM))
  442. 4470 POKESR+((RM*(24+8))),ASC(MID$(RM$(RM),J,1)):SR=SR+1:NEXTJ
  443. 4471 IFPPTHENCLOSE4:OPEN4,4,7:PRINT#4,"[205][193][196][197] [210][207][207][205]: "+RM$(RM):CLOSE4
  444. 4472 N$="0":GOTO2110
  445. 4480 IF(RM=.ANDMZ=.)OR(RM=6ANDMZ=.)THEN4120
  446. 4490 O$=SP$+"[193]RE YOU SURE YOU WANT TO [218]AP"+R$:GOSUB760
  447. 4500 IFMZTHENO$=SP$+"THIS MESSAGE???"+R$+R$+">":ZP=1:GOSUB760:GOSUB4950
  448. 4510 IFMZ=.THENO$=SP$+"YOUR"+SP$+RM$(RM)+" [210]OOM???"+R$+R$+">":GOSUB760
  449. 4520 FX=5:GOTO1640
  450. 4530 O$="[217]ES, [218]AP!"+R$+R$:GOSUB760:GOTO4550
  451. 4540 O$="[206]O"+R$:GOSUB760:GOTO4120
  452. 4550 O$=SP$+"[207][203]! [218]APPING THIS PATHETIC FILTH..."+R$+R$:GOSUB760
  453. 4560 IFMZ=.THENIFPPTHENOPEN4,4,7:PRINT#4,NM$+SP$+"[218][193][208][208][197][196]:"+SP$+RM$(RM):CLOSE4
  454. 4561 IFMZTHENMZ=.:LZ=.:GOSUB3370:GOTO4120
  455. 4570 I$=RM$(7):ZR=RL:FORI=ZR+(RM*(24+8))TO ZR+(RM*(24+8))+24:POKEI,166:NEXTI:GOSUB4610
  456. 4580 XR=RL+7*(24+8):FORJ=1TO7:POKEXR,ASC(MID$(I$,J,1)):XR=XR+1:NEXTJ
  457. 4590 VR=HL+2
  458. 4600 FORH=.TO5:LZ=.:MX=H:GOSUB3370:NEXTH:RM=.:GOTO4120
  459. 4610 MX=.:N$="9":I$=RM$(7):RM$(RM)=""
  460. 4620 L$=LEFT$(I$,RM):RR$=MID$(I$,RM+2):RM$(7)=L$+N$+RR$:I$=RM$(7):RETURN
  461. 4630 PE=FNLC(X):RETURN
  462. 4631 DEFFNLC(X)=VR+(RM*(JP*48))+(MX*(JP*8))+(LZ*JP):RETURN
  463. 4639 IFPEEK(2084-1)=42THENRETURN
  464. 4640 IFPEEK(2089)=42THENRETURN
  465. 4641 GOTO4650
  466. 4650 GOSUB5330:PRINT"[147]   [211]ETTING UP MICRO[210][193][205] [205]ESSAGE [194]ASE"
  467. 4660 PRINT"        [208]RESS [210][197][212][213][210][206] TO CONTINUE
  468. 4670 [161]A$:[139]A$[179][177][199](13)[167]4670
  469. 4680 [153]"LOAD":[151]251,.:A[178].:[151]252,.
  470. 4690 [153]"         (null)ORKING FOR 4 MINUTES":[129]I[178]1[164]2000:[130]
  471. 4700 [139][194](252)[167]A[178]253
  472. 4710 I[178][194](251):I[178]I[170]1:L[178]10048[170]I[170]A:[151]251,I
  473. 4720 [153]"LOADPRINT"L" "[199](34)"SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC("[199](34)
  474. 4730 [153]"RUN4700
  475. 4740 POKE631,13:POKE632,13:POKE633,13:POKE198,5:POKE634,13:POKE635,13:PRINT""
  476. 4750 IFI=253THENI=.:POKE252,1:POKE251,.
  477. 4760 POKE251,I
  478. 4770 IFL<>10336+1THENEND
  479. 4780 POKE198,.:POKE2084-1,42:GOTO5150
  480. 4790 HE=19400:TA=26000:FORI=HE TO TA
  481. 4800 IFPEEK(I)=169THENIFPEEK(I+1)=169THENHL=I:I=TA:RETURN
  482. 4810 NEXT:GOTO4940
  483. 4820 FORI=RL+300TORL+310:IFPEEK(I)=169THENIFPEEK(I+1)=169THENRL=I+2:GOTO4840
  484. 4830 NEXT:GOTO4940
  485. 4840 I=RL:RN=RL:FORI=.TO8
  486. 4850 FORJ=1TO24:A=PEEK(RN)
  487. 4860 RN=RN+1:IFA=166THENNEXTJ:GOTO4880
  488. 4870 RM$(I)=RM$(I)+CHR$(A):NEXTJ
  489. 4880 RN=RN+8:NEXTI
  490. 4890 RETURN
  491. 4900 POKE53265,27:O$="[218]AP!"+R$+R$+" [218][193][208]ASSWORD?"+R$+R$+">":GOSUB760:GOSUB4950:L=1:L$(L)=""
  492. 4910 AR=.:KK=.:K=1:GOSUB70:IFPPTHENCLOSE4:OPEN4,4,7:PRINT#4,"[213][211][197][196] [218][193][208][193][211][211][215][207][210][196]: "L$(L):CLOSE4
  493. 4911 AR=.:IFMZ=.THENIFL$(L)="KNOCK KNOCK"THENRM=6:GOTO4120:REM INNER SANCT. PW
  494. 4920 IFL$(L)<>"KILL"THEN4120:REM ZAP MSG PW
  495. 4930 GOTO4480
  496. 4940 POKE53281,15:PRINT"[147] [200]EADER [206]OT [198]OUND":END
  497. 4950 POKE669,PEEK(670):POKE668,PEEK(667):POKE198,.:RETURN
  498. 4960 O$=R$+CHR$(10)+" [196]O [217]OU [206]EED [204]INEFEED?"+R$+CHR$(10)+R$+CHR$(10)+">":GOSUB760
  499. 4970 FX=3:GOTO1640
  500. 4980 R$=R$+CHR$(10):O$="[217]A [211]URE [217]OU [194]ETCHA!"+R$:GOSUB760:POKE822,1:RETURN
  501. 4990 O$="[206]O"+R$:GOSUB760:RETURN
  502. 5000 O$="[212]ERMINATE"+R$+R$+" [193]RE YOU SURE YOU WANT TO TERMINATE???"+R$+R$+">"
  503. 5010 GOSUB760:FX=7:GOTO1640
  504. 5020 GOSUB4990:GOTO4120
  505. 5025 A$="[206][207] [193][195][212][201][214][201][212][217]":PRINT:PRINTA$:IFPPTHENCLOSE4:OPEN4,4,7:PRINT#4,A$
  506. 5026 GOTO5031
  507. 5027 A$="[197][210][210][207][210][197][196] [207][213][212]":PRINT:PRINTA$:IFPPTHENCLOSE4:OPEN4,4,7:PRINT#4,A$:GOTO5031
  508. 5028 GOTO5031
  509. 5029 A$="[196][210][207][208][208][197][196] [195][193][210][210][201][197][210]    ":PRINT:PRINTA$:IFPPTHENCLOSE4:OPEN4,4,7:PRINT#4,A$
  510. 5030 GOTO5060
  511. 5031 O$=R$+"[212]ERMINATED"+R$+R$:GOSUB760:GOSUB5110:GOSUB5270
  512. 5032 IFPPTHENCLOSE4:OPEN4,4,7:PRINT#4,O$+SP$+LEFT$(TI$,2)+":"+MID$(TI$,3,2)
  513. 5040 POKE53265,27:GOSUB5110:GOTO5060
  514. 5050 O$="[212]ERMINATE":GOSUB760:GOSUB5110:GOSUB5270:IFNM$<>""THENGOSUB5080
  515. 5051 IFPPTHENCLOSE4:OPEN4,4,7
  516. 5052 IFPPTHENPRINT#4,"[204][207][199][199][197][196] [207][198][198] [193][212] "LEFT$(TI$,2)":"MID$(TI$,3,2)
  517. 5060 CLOSE4:PRINT"[147]    MICRO[210][193][205] [208]ERSONAL [210]OOM [211]YSTEM"
  518. 5070 CA=56577:CB=CA+2:GOSUB5270:CLR:POKE820,.:POKE821,.:GOTO2800
  519. 5080 X=828+65
  520. 5090 FORJ=1TOLEN(NM$):POKEX,ASC(MID$(NM$,J,1)):X=X+1:NEXTJ
  521. 5100 POKEX,166:POKEX+1,166:RETURN
  522. 5110 FORI=1TO2000:NEXT:RETURN
  523. 5120 FORI=1TO300:NEXT:RETURN
  524. 5130 IFPEEK(828)<>97ORPEEK(828+32)<>65ORPEEK(828+58)<>91THENGOSUB5180
  525. 5140 RETURN
  526. 5145 POKE53280,8:PRINT#6,CHR$(7);:FORI=1TO200:NEXT:POKE53280,12
  527. 5146 X=54272:POKEX+24,15:POKEX+1,110:POKEX+5,9:POKEX+6,9:POKEX+4,17:POKEX+4,16
  528. 5147 POKE54296,.:RETURN
  529. 5150 PRINTCHR$(14)CHR$(8)"[147]":GOSUB5160:GOSUB5152:GOTO3720
  530. 5152 OPEN4,4,7:CLOSE4:ZT=ST:PRINT""SPC(7)"[208]RINTER [211]TATUS: ";:IFZT=.THENPRINT"[207][206] [204][201][206][197]"
  531. 5153 PP=1:IFZT=(-128)THENPRINT"[207][198][198] [204][201][206][197]":PP=.
  532. 5154 GOSUB5110:RETURN
  533. 5160 IFPEEK(828)=97THENRETURN
  534. 5170 PRINT"   [211]ETTING UP [193][211][195][201][201] [212]RANSLATION [212]ABLES":AS=828-65:BL=256-37
  535. 5180 FORI=65TOBL:A=I
  536. 5190 IFA<91ANDA>64THENA=A+32:GOTO5220
  537. 5200 IFA<126ANDA>96THENA=A-32:GOTO5220
  538. 5210 IFA<219ANDA>192THENA=A-128:GOTO5220
  539. 5220 POKEAS+I,A:NEXT
  540. 5230 PL$="[211]EATTLE [215][193]":IFFLTHENRETURN:REM YOUR CITY AND STATE HERE
  541. 5231 NM$=" "+"[205]AINTENANCE, "+PL$:GOSUB5080:RETURN
  542. 5270 IFPEEK(2084)=35THENPOKECB,32:POKECA,.:RETURN
  543. 5280 IFPEEK(2084)=37THENPOKECA,38:POKECB,.:POKECB,.:PRINT#6,"+++":RETURN
  544. 5290 END
  545. 5300 IFPEEK(2084)=35THENPOKECB,32:POKECA,.:POKECA,32:RETURN
  546. 5310 IFPEEK(2084)=37THENPOKECA,38:POKECB,.:POKECA,.:POKECB,32:PRINT#6,"ATH":RETURN
  547. 5320 END
  548. 5330 PRINT"[147]       [211][197][204][197][195][212] [217][207][213][210] [205][207][196][197][205] [212][217][208][197]"
  549. 5340 PRINTTAB(9)"1> [195]OMMODORE 1650
  550. 5350 [153][163]9)"2> LENOMMODORE 1660
  551. 5360 PRINTTAB(9)"3> [195]OMMODORE 1670
  552. 5370 [153][163]9)"4> LEFT$VAL(null) RIGHT$RIGHT$
  553. 5380 PRINTTAB(9)"5> [215]ESTRIDGE
  554. 5390 [153][163]9)"6> (null)OTAL (null)ELECOMMUNICATIONS
  555. 5400 PRINTTAB(9)"7> [205]ITEY [205]O
  556. 5410 [141]4950
  557. 5420 [161]A$:[139]A$[178]""[167]5420
  558. 5430 [145][197](A$)[137]5440,5450,5450,5450,5440,5440,5450
  559. 5435 [137]5420
  560. 5440 [151]2084,35:[142]
  561. 5450 [151]2084,37:[142]
  562. 9999 [128]
  563. 10000 "** (null)ATN(null)(null)RIGHT$(null)CHR$!**  STR$O (null)(null)(null) MESS BEYOND THIS POINT OR THIS SYSTEM MAY CRASH!!!
  564. 10001 "[169][169][194]Y: [197]UGENE [212]IFFANY, [211]EATTLE [215][193][178][166][166][166][166][166][166][166][166][166][166]"
  565. 10002 " [212]HIS [194][194][211] PROGRAM IS VERY EASY TO SET UP[178]"
  566. 10003 "AND TO USE. [201]T CONTAINS ONLY ONE FILE. [178][166]"
  567. 10004 " [212]HIS ONE. [212]O BACKUP YOUR MESSAGE BASE[178][166][166]"
  568. 10005 " SIMPLY SAVE A COPY OF THE CURRENT PRG[178][166][166]"
  569. 10006 " IN MEMORY. -- [212]HIS PROGRAM DOES NOT USE[178]"
  570. 10007 "THE DISK DRIVE DURING OPERATION. [211]O PRG[178][166]"
  571. 10008 " MAY BE BOOTED FROM CASSETTE ALSO.[162][166][166][166][166][166][166]"
  572. 10009 "[194]Y: [197]UGENE [212]IFFANY, [211]EATTLE [215][193][178][166][166][166][166][166][166][166][166][166][166]"
  573. 10010 " [205]ESSAGES TO THE SYSOP ARE SENT TO THE[178][166][166]"
  574. 10011 " PRINTER. [201]F A PRINTER IS NOT CONNECTED[178][166]"
  575. 10012 " THAT IS NO PROBLEM. [200]OWEVER, IF A PRINT[178]"
  576. 10013 "ER IS CONNECTED BUT SET IN THE [196][197][211][197][204][197][195][212][178][166]"
  577. 10014 " MODE THEN THE SYSTEM WILL HANG UNTIL TH[178]"
  578. 10015 "E PROPER SWITCH ON THE PRINTER IS PRESSE[178]"
  579. 10016 "D SO THAT IT WILL OPERATE. [210]EMEMBER THAT[162]"
  580. 10017 "[194]Y: [197]UGENE [212]IFFANY, [211]EATTLE [215][193][178][166][166][166][166][166][166][166][166][166][166]"
  581. 10018 " [211]CREEN BLANKING OCCURS DURING THE USER'[178]"
  582. 10019 "S [214]IEWING OR ENTERING MESSAGES. [194]E NOT A[178]"
  583. 10020 "LLARMED. [212]HIS IS TO ALLOW FOR GREATER[178][166][166][166]"
  584. 10021 "SPEED AS THIS PROGRAM IS IN [194][193][211][201][195].[178][166][166][166][166][166][166]"
  585. 10022 "  [205]ESSAGES OR [210]OOMS ARE [218][193][208][208][197][196] WITH THE[178][166]"
  586. 10023 " [218][193][208] COMMAND, AT THE ROOM OR THE MESSAGE[178]"
  587. 10024 ". [212]HE CURRENT PASSWORD IS 'KILL'.[162][166][166][166][166][166][166][166]"
  588. 10025 "[194]Y: [197]UGENE [212]IFFANY, [211]EATTLE [215][193][178][166][166][166][166][166][166][166][166][166][166]"
  589. 10026 " [212]HE [201][206][206][197][210] [211][193][206][195][212][213][205] IS REACHED VIA A [218][193][208][178][166]"
  590. 10027 " COMMAND, AND THE [208][215]:'KNOCK KNOCK'.[178][166][166][166][166][166]"
  591. 10028 " .  [206]EITHER THE [204]OBBY NOR THE [201]NNER [211]ANC[178]"
  592. 10029 "TUM MAY BE [218]APPED FROM THE MESSAGE BASE.[178]"
  593. 10030 "  [218]APPING OF MESSAGES AND ROOMS CAN BE[178][166][166]"
  594. 10031 " REMOTELY. [193]LL PASSWORDS ARE CHANGABLE A[178]"
  595. 10032 "T ANY TIME. [211]EE SYSOP HELP FILE FOR INFO[162]"
  596. 10033 "[194]Y: [197]UGENE [212]IFFANY, [211]EATTLE [215][193][178][166][166][166][166][166][166][166][166][166][166]"
  597. 10034 " [212]HIS PROGRAM MAY BE FREELY TRADED.[178][166][166][166][166][166]"
  598. 10035 " [200]OWEVER, [201], [197]UGENE [212]IFFANY, HOLD THE[178][166][166][166]"
  599. 10036 " COPYRIGHT, AND ALL RIGHTS ARE RESERVED.[178]"
  600. 10037 " [201]F YOU USE THIS THEN [201] WOULD APPECIATE[178][166]"
  601. 10038 " RENUMERATION FOR THE WORK THAT THE DEVE[178]"
  602. 10039 "LOPMENT OF THIS PROGRAM ENTAILED. [207]THER [178]"
  603. 10040 "AND BETTER [194][194][211] PROGRAMS ARE BEING PLANED[162]"
  604. 10041 "[194]Y: [197]UGENE [212]IFFANY, [211]EATTLE [215][193][178][166][166][166][166][166][166][166][166][166][166]"
  605. 10042 " [211]END WHAT YOU THINK THE PROGRAM IS WORT[178]"
  606. 10043 "H TO: [197]UGENE [212]IFFANY, #103, [178][166][166][166][166][166][166][166][166][166][166][166][166]"
  607. 10044 " 4700 12TH [193]VE [206][197], [211]EATTLE [215][193] 98105[178][166][166][166][166][166]"
  608. 10045 " *** [194]E SURE TO SAVE A COPY OF THIS SET [178]"
  609. 10046 "UP VERSION. [193]ND USE THE NON-SET UP VERSI[178]"
  610. 10047 "ON FOR TRADING. [201]T IS FASTER TO TRANSFER[162]"
  611. 10337 "[166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166]"
  612. 10338 " [212]HIS PROGRAM MAY BE REPROGRAMED AT ANY[178][166]"
  613. 10339 " TIME. [197]VEN WHEN A USER IS ON LINE.[178][166][166][166][166][166]"
  614. 10340 " [202]UST USE THE STOP KEY. [193]ND TO RE-RUN[178][166][166][166]"
  615. 10341 " TYPE: [210][213][206]10 -- [196]ON'T FORGET THE TEN.[178][166][166][166]"
  616. 10342 " [193] [218][193][208] COMMAND AND THE PROPER [208][193][211][211][215][207][210][196][178][166][166]"
  617. 10343 " IS USED TO [199][207][212][207] THE [201]NNER [211]ANCTUM, AS[178][166][166]"
  618. 10344 " WELL AS TO [218][193][208] MESSAGES OR THE ROOMS.[178][166][166]"
  619. 10345 " > [195]HANGE FOLLOWING LINES TO CUSTOMIZE[178][166][166]"
  620. 10346 " YOUR OWN SYSTEM. ([194]UT BE CAREFUL!) <[178][166][166][166]"
  621. 10347 "  [204][201][206][197] #             [211]UBJECT[178][166][166][166][166][166][166][166][166][166][166][166][166]"
  622. 10348 "  4911 [201]NNER [211]ANCTUM [208][193][211][211][215][207][210][196][178][166][166][166][166][166][166][166][166][166][166][166]"
  623. 10349 "  4920 [205]ESSAGE AND [210]OOM [218][193][208] [208][193][211][211][215][207][210][196][178][166][166][166][166]"
  624. 10350 "  2930 [195]HAT MODE GREETING, ([200]ELLO?)[178][166][166][166][166][166]"
  625. 10351 "  3390 [194][194][211][160][206]AME[178][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166]"
  626. 10352 "  5230 [217]OUR LOCATION (CITY AND STATE)[178][166][166][166]"
  627. 10353 " [208]ASSWORDS SHOULD BE ONLY LOWER CAS.[178][166][166][166][166]"
  628. 10354 " [193]ND PLEASE OBSERVE QUOTE MARKS.  [212]HIS[178][166][166]"
  629. 10355 " PROGRAM MAY BE ALTERED AT WILL. [178][166][166][166][166][166][166][166]"
  630. 10356 "     [217]ET IT IS A [211][200][193][210][197] [215][193][210][197] [194][194][211].[178][166][166][166][166][166][166][166][166]"
  631. 10357 " [211]O NO MATTER HOW IT IS USED A PAYMENT[178][166][166]"
  632. 10358 " OF $$ IS BEING ASKED FOR.  [211]END TO:[178][166][166][166][166]"
  633. 10359 " [208]ROGRAMER, [197][213][199][197][206][197] [212][201][198][198][193][206][217], #103[178][166][166][166][166][166][166][166][166]"
  634. 10360 " 4700 12TH [193]VE [206][197], [211]EATTLE [215][193] 98105[162][166][166][166][166][166]"
  635. 10361 " [195]ALL: (206)523-2530 FOR MORE HELP.[162][166][166][166][166][166]"
  636. 10362 "[169][169][204]OBBY[166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166]"
  637. 10363 "[166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166]"
  638. 10364 "[166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166]"
  639. 10365 "[166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166]"
  640. 10366 "[166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166]"
  641. 10367 "[166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166]"
  642. 10368 "[201]NNER [211]ANCTUM[166][166][166][166][166][166][166][166][166][166][166][166]"
  643. 10369 "0999990[166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166]"
  644.