1 POKE665,32:POKE666,13:GOSUB4639:GOTO5150:REM"00"
10 PRINTCHR$(14);:POKE821,1:POKE53281,15:POKE53280,12:GOTO2800
20 RD=1:IFO$=""THENRD=.:RETURN
30 FORX=1TOLEN(O$):A$=MID$(O$,X,1):IFA$=""THENNEXT
40 IFX<>1THEN60
50 IFLEFT$(O$,1)=SP$THENPRINT:PRINT#6,R$;
60 GOSUB400:NEXTX:JZ=.:RD=.:O$="":RETURN
70 POKE646,.:DR=.:B$="":A$="":O$="":J$="":TX=1:GOSUB100:TX=.:RETURN
80 DR=1:O=1:PRINT#6,LF$;
90 GOSUB100:DR=.:O=.:RETURN
100 IFSY=.THEN390
110 TM=VAL(TI$)
120 GET#6,B$:IFB$=""THENPOKE646,1:GOTO310
130 POKE646,.
140 A=ASC(B$):IFA>64ANDA<126THENPRINT#6,B$;:A=(PEEK(AS+A)):PRINTCHR$(A);:POKE212,.:GOTO240
150 IFA=127ORA=8THENA=8:GOTO820
160 IFA<>13ANDA<>17ANDA<>141THEN200
170 PRINTCHR$(13);:PRINT#6,R$;
180 IFCHTHENPOKE646,2:PRINT"_[157]";:POKE646,1:GOTO110
190 RETURN
200 IFA=10THENPRINT"";:PRINT#6,CHR$(10);:GOTO110
210 IFA=7THENGOSUB5145:GOTO110
220 IFA<32ORA>127THEN110
230 PRINT#6,B$;:PRINTCHR$(A);:POKE212,.
240 TW$=TI$:T=.:IFA=34THENA=171
255 IFCHTHEN110
260 IFTX=.THENA$=B$:RETURN
270 IFK=39THENAR=1
280 RT=1:K=K+1:IFK=41THENK=1:L=L+1:L$(L)=""
290 L$(L)=L$(L)+CHR$(A):KK=KK+1:IFARTHENRETURN
300 GOTO120
310 CK=CK+1:IFCK<25THEN390
320 CK=.:IFTXTHENIFTM+500<VAL(TI$)THEN5025
330 IF((PEEK(CA))AND16)=.THENT=.:GOTO360
340 POKE53265,27:PRINTCA$:T=T+1:IFT=25THENT=.:GOTO5029
350 GOTO330
360 IFTXORFSORCHTHEN390
370 IFVAL(TI$)<060000THEN390
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
381 IFPPTHENCLOSE4:OPEN4,4,7:PRINT#4,O$:CLOSE4
382 GOTO5031
390 GETA$:IFA$=""THENPOKE646,.:GOTO100
400 A=ASC(A$):POKE212,.
410 IFA=.THEN100
420 IFA>31ANDA<65THEN650
430 IFA>64ANDA<122ORA>192ANDA<219THENGOTO450
440 GOTO460
450 PRINTCHR$(A);:POKE212,.:PRINT#6,CHR$(PEEK(AS+A));:GOTO670
460 IFCHTHENIFA=147THENA=20:GOTO820
470 IFA=149THEN740
480 IFA=92ORA=64ORA=95THEN650
490 IFA=91ORA=93ORA=94THEN650
500 IFA<>13ANDA<>145ANDA<>167THEN560
510 IFA$=CHR$(167)THENA=44:A$=",":GOTO670
520 PRINTCHR$(13);:PRINT#6,R$;
540 IFCHTHENPOKE646,2:PRINT"_[157]";:POKE646,1:GOTO100
550 A=13:K=.:RETURN
560 IFA=20ORA=157THENA=20:GOTO820
570 IFA=17THENIFCHTHENPRINTCHR$(17);:PRINT#6,CHR$(10);:GOTO100
580 IFA=137THENIFCHTHEN1370
590 IFA=188THEN1290
600 IFA=20THEN100
610 IFA=163THEN5031
620 IFA=133THENPRINT" "NM$" ON "LEFT$(TI$,2)":"MID$(TI$,3,2):POKE646,.
630 IFA=7THENGOSUB5145:GOTO100
640 IFRD=.THEN100
650 PRINTA$;:PRINT#6,CHR$(A);
660 TW$=TI$:T=.:IFA=34THENA=39
670 IFCHTHEN100
680 IFDRORRDTHENRETURN
690 IFTX=.THENRETURN
700 IFK=39THENAR=1
710 RT=1:K=K+1:IFK=41THENK=1:L=L+1:L$(L)=""
720 IFA=34THENA=171
730 L$(L)=L$(L)+A$:KK=KK+1:IFARTHENRETURN
740 GOTO100
750 IFSY=.THEN1640
760 FORI=1TOLEN(O$):A=ASC(MID$(O$,I,1)):IFA=171THENA=34
780 PRINTCHR$(A);
790 IFPEEK(669)<>PEEK(670)THEN790
800 IFA<65THENPRINT#6,CHR$(A);:NEXT:RETURN
810 PRINT#6,CHR$(PEEK(AS+A));:NEXT:RETURN
820 IFCHTHEN870
830 IFKK<=.THEN100
840 K=K-1:IFK=.THENK=40:L$(L)="":L=L-1:GOTO870
850 X=LEN(L$(L))
860 L$(L)=LEFT$(L$(L),X-1)
870 PRINTCHR$(20);:PRINT#6,D$+SP$+D$;:IFCHTHEN100
880 IFFLTHENRETURN
890 KK=KK-1
900 GOTO100
910 P=166:IFPOS(X)<39THENPRINT#6,R$;:PRINTRB$;
920 GOTO1070
930 O$="[206]EXT [205]ESSAGE"+R$+R$:GOSUB760:FO=1:RE=.:GOTO970
940 O$="[198]ORWARD [214]IEWING"+R$+R$:GOSUB760:FO=1:RE=.:GOTO970
950 O$="[214]IEW [205]ESSAGES"+R$+R$:GOSUB760:FO=1:RE=.:GOTO970
960 O$="[210]EVERSE [214]IEWING"+R$+R$:GOSUB760:FO=.:RE=1
970 LZ=.:MN=VAL(MID$(RM$(7),RM+1,1)):VR=HL+2:IFMN=9THENO$=R$:GOSUB760:GOTO4120
980 FL=.:MX=MN+1:IFRETHENMX=MN
990 IFMX>5THENMX=.
1000 O$=" [195][207][205][205][193][206][196][211]:   [206]EXT    [208]AUSE     [193]BORT"+R$+R$:GOSUB760:ZZ=.
1010 O$="    * [211]PACE [194]AR [211]TOPS AND [199]OES *"+R$:GOSUB760:GOSUB4950:GOSUB1210
1020 PE=FNLC(X):IFSYTHENPOKE53265,11:GOTO1060
1030 P=PEEK(PE):PE=PE+1:IFP>161ANDP<179THEN1090
1040 PRINTCHR$(P);:GOTO1030
1050 PE=FNLC(X):IFSY=.THEN1030
1060 P=PEEK(PE):PE=PE+1:IFP>161THENIFP<179THEN1090
1070 IFP>64THENPRINT#6,CHR$(PEEK(AS+P));:GOTO1060
1080 PRINT#6,CHR$(P);:GOTO1060
1090 IFP=171THENP=34:GOTO1080
1095 LZ=LZ+1:YY=YY+1:IFFOTHENIFLZ>7THENLZ=.:MX=MX+1:IFMX>5THENMX=.
1100 IFRETHENIFLZ>7THENLZ=.:MX=MX-1:IFMX=(-1)THENMX=5
1110 IFP=178THENPRINT#6,R$;:IFSY=.THENIFPOS(X)<>40ANDPOS(X)<>.THENPRINTR$;
1120 IFP=178THENIFLZ=1THENPRINT#6,R$;:PRINTR$;
1130 IFP=162THENGOSUB1210
1140 IFYY>=48THEN4120
1145 IFSY=.THEN1160
1146 IF((PEEK(CA))AND16)<>.THENT=.:GOTO1190
1150 GET#6,A$:IFA$<>""THEN2450
1160 GETB$:IFB$<>""THENA$=B$:GOTO2450
1170 IFSY=.THEN1050
1180 IF((PEEK(CA))AND16)=.THENT=.:GOTO1050
1190 POKE53265,27:PRINTCA$:T=T+1:IFT=50THENT=.:GOTO5029
1200 GOTO1170
1210 O$=R$+SP$:GOSUB760:A$="/":FORI=1TO38:PRINTA$;
1220 FORJ=1TO15:NEXTJ
1230 PRINT#6,A$;:NEXT
1240 O$=R$+R$:GOSUB760:RETURN
1250 POKE646,5:O$="[195]ALLING MICRO[210][193][205] [211]YSOP"+R$+R$:GOSUB760:FORI=1TO500:NEXT:POKE53281,.
1260 GOSUB2730:POKE646,.:POKE53281,15:POKE54296,.:IFW<>20THEN1290
1270 O$=S$+SP$+"* [211]YSOP NOT [193]VAILABLE"+R$:GOSUB20
1271 IFPPTHENCLOSE4:OPEN4,4,7:PRINT#4,"[210][197][209][213][197][211][212][197][196] [195][200][193][212]":CLOSE4
1280 FORI=1TO1000:NEXT:GOTO4120
1290 TI$="000000":S=.:F=.:QE=.
1300 O$=R$+SP$+"* [211]YSTEM [207]PERATOR [195]ONTACT"+R$+R$:GOSUB760
1310 FORI=1TO1000:NEXT
1320 PRINT"    [150]                               [146][152][191]"
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]"
1340 PRINT"    [150]                               [146][152][191]"
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]"
1360 GOSUB4950:GOSUB5080:O$=MS$+R$+R$:GOSUB760:PRINT"[145]_[157]_[157]";:CH=1:B=.:GOTO100
1370 PRINT"[144]";:CH=.:O$=R$+R$+" * [195]HAT [212]ERMINATED"+R$:GOSUB20
1375 CLOSE4:OPEN4,4,7:CLOSE4:IFST=(-128)THENPP=.
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
1381 TI$="000000":FORI=1TO500:NEXT:GOTO4120
1390 SS=SS+1:IFSS>6THEN4120
1391 MZ=1:SM=.:PR=.:GOTO1430
1400 SM=1:MZ=.
1410 IFPPTHENO$="[204]EAVE [205]ESSAGE TO [211]YSOP"+R$+R$+SP$:GOSUB760
1420 IFSMTHENIFPP=.THEN2280
1430 O$="[197]NTER NOW:"+R$+R$:GOSUB760:O$="       UP TO <7> LINES MAXIMUM AT"+R$:GOSUB760
1440 O$="     40 CHARACTERS PER LINE OF TEXT"+R$:GOSUB760
1450 RT=1:TX=1::CH=.:F=.:PR=.:S=.:VI=.:FORI=.TO8:L$(I)="":NEXT:L=.:K=.:AR=.
1460 PR=.:S=.:IFNMTHENHM=VAL(HM$):LM=VAL(LM$)
1470 IFVITHEN1510
1480 O$=R$+"  * [212]WO [195]ARRIAGE [210]ETURNS [199]IVES [205]ENU *"+R$:GOSUB760:GOSUB4950
1490 O$=" ([193]UTOMATIC [208]ARAGRAPH [201]NDENTS [208]ROVIDED)"+R$:GOSUB760:PRINT"[152] [213][211][197][210]: "NM$
1500 POKE646,.:PRINTR$;:PRINT#6,R$;:FORI=1TO40:PRINT"-";:PRINT#6,"-";:FORJ=1TO10:NEXTJ
1510 NEXTI:PRINT#6,R$;:X=FRE(0):IFPRTHENRETURN
1520 IFSYTHENPOKE53265,11
1530 IFL>6THEN1610
1540 IFARTHENRT=1:GOTO1560
1550 PRINT">";:L=L+1:L$(L)=SP$:K=1:KK=K:PRINT#6,">";
1560 AR=.:GOSUB70:IFRT<1THENGOTO1610
1580 RT=RT-1:IFPP=.THEN1590
1590 IFL=6THENGOSUB2530
1600 GOTO1530
1610 PR=1:GOSUB1500:PR=.:IFLEN(L$(7))>1THENL=8
1620 O$="   [193]BORT  [204]IST  [194]ADWORD  [211]TORE  [195]ONT"+R$+R$:GOSUB760:KK=1:FX=2
1630 O$=">":GOSUB760:F=.:RT=1:S=.:FS=.:FL=.:VI=.
1640 GOSUB4950:C=99:TM=VAL(TI$)
1650 IFS=12THENTE=1:
1660 GETB$:IFB$<>""THENA$=B$:GOTO1740
1670 IFSY=.THEN1660
1680 GET#6,A$:IFA$<>""THEN1730
1690 IFTM+300<VAL(TI$)THENPOKE53265,27:GOTO5025
1700 IF((PEEK(CA))AND16)=.THENT=.:GOTO1650
1710 POKE53265,27:PRINTCA$:T=T+1:IFT=50THENT=.:GOTO5029
1720 GOTO1690
1730 A=ASC(A$):IFA>96ANDA<123THENA=PEEK(AS+A):A$=CHR$(A)
1740 ONFXGOTO1750,1760,1770,1780,1790,1800,1810
1750 PR$="GNFH?RE"+CHR$(13)+"MCLTKZV":GOTO1820
1760 PR$="ALSCB":GOTO1820
1770 PR$=CHR$(13)+"YN":GOTO1820
1780 PR$=CHR$(13)+"YAN PS":GOTO1820
1790 PR$=CHR$(13)+"YNZ":GOTO1820
1800 PR$="AP ":GOTO1820
1810 PR$=CHR$(13)+"YTN":GOTO1820
1820 PR=LEN(PR$):FORB=1TOPR:IFMID$(PR$,B,1)=A$THENC=B
1830 NEXTB:IFC=99THEN1640
1840 ONFXGOTO1850,1860,1870,1880,1890,1900,1910
1850 ONCGOTO4290,930,940,4150,4150,960,1390,1390,4380,1250,1400,5000,4330,4900,950
1860 ONCGOTO1940,2300,1930,2150,1950
1870 ONCGOTO4980,4980,4990
1880 ONCGOTO2370,2370,2370,2420,2550,2550,2370
1890 ONCGOTO4530,4530,4540,4530
1900 ONCGOTO4120,1150,1150
1910 ONCGOTO5050,5050,5050,5020
1920 GOTO1640
1930 O$="[211]TORE [205]ESSAGE [206]OW???"+R$+">":GOSUB760:SR=1:FX=4:GOSUB4950:GOTO1640
1940 O$="[193]RE YOU SURE YOU WANT TO [193]BORT???"+R$+">":GOSUB760:FX=4:FL=1:GOTO1640
1950 O$="[194]ADWORD???":GOSUB760:X=FRE(.)
1955 O$="  [201]NPUT WHICH [204]INE OR [210][197][212][213][210][206]"+R$+">":GOSUB760:GOSUB4950
1960 LT=L:X=.:GOSUB80:L=LT:IFA$=""THEN1610
1970 Y=VAL(A$):IFY=.THEN1610
1980 IF(Y>L-1)AND(Y<>7)THENO$=" * [206]UMBER TOO [204]ARGE"+R$+">":GOSUB760:GOTO1950
1990 O$=" * [197]NTER UP TO 40 [195]HARACTERS"+R$:GOSUB760:X=FRE(.)
2000 O$="     [207]R [208]RESS [210][197][212][213][210][206] IF [207][203]"+R$:GOSUB760:KK=.:K=.:AR=.
2010 O$=STR$(Y)+"."+R$+L$(Y)+R$:GOSUB760
2020 O$=STR$(Y)+"."+R$:GOSUB760
2030 GOSUB4950:I$=L$(1):L$(1)="":LT=L:L=1:GOSUB70:IFL$(L)=""THENL$(1)=I$:L=LT:GOTO1610
2040 L$(Y)=L$(1)::L=LT:IFY=1THEN1610
2050 L$(1)=I$:GOTO1610
2060 LZ=.:MN=VAL(MID$(RM$(7),RM+1,1)):MX=MN+1:IFMX>5THENMX=.
2070 MN=MX::N$=RIGHT$(STR$(MN),1):IFL>7THENL=7
2080 L$(.)="[194]Y:"+NM$:VR=HL+2:GOSUB3370:LZ=.:FORI=.TOL:GOSUB4630:LZ=LZ+1
2090 FORK=1TOLEN(L$(I)):POKEPE,ASC(MID$(L$(I),K,L)):PE=PE+1:NEXTK:POKEPE,178
2100 NEXTI:POKEPE,162:FORJ=.TOL:L$(L)="":NEXTJ
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
2110 I$=RM$(7):GOSUB4620
2130 XR=RL+7*(24+8):FORJ=1TO7:POKE XR,ASC(MID$(I$,J,1)):XR=XR+1:NEXTJ:I$=""
2140 GOTO4120
2150 IFLEN(L$(7))=40THENL=9
2151 IFL>8THENO$="[195]AN'T CONTINUE - [198]ILE [198]ULL"+R$+">":GOSUB760:FX=2:GOTO1640
2160 L=L-1:O$="[195]ONTINUE [212]YPING. . .":GOSUB760:F=.:X=FRE(.):IFL<.THENL=1
2170 O$=" [207]N [204]INE #"+STR$(L)+"."+R$+L$(L):GOSUB760:K=LEN(L$(L)):RT=1:KK=K
2180 IFL<>1ANDL<>.THENIFMID$(L$(L),1,1)=CHR$(32)THENIFK=1THENL$(L)=""
2190 GOTO1560
2200 O$=R$:GOSUB760:L=L-2:IFL<.THENL=.
2210 IFL=1THENL=.
2220 GOTO1530
2230 IFMZTHEN2060
2240 CLOSE4:OPEN4,4,7:CLOSE4:IFST=(-128)THENPP=.:GOTO2270
2250 PP=1
2260 CLOSE4:OPEN4,4,7:FORI=1TOL:PRINT#4,L$(I):NEXT:PRINT#4,R$
2270 PRINT#4,R$:CLOSE4:FORJ=1TO8:L$(J)="":NEXTJ:GOTO4120
2280 POKE53265,27:O$=R$+R$+R$+" [208]RINTER [206][207][212] CONNECTED...."+R$+R$:GOSUB760:GOTO4120
2290 GOTO1550
2300 O$="[204]IST WITH [204]INE NUMBERS...."+R$+R$:GOSUB760:VI=1:X=FRE(0):LV=L
2310 PR=1:GOSUB1500
2320 LV=LV-1
2330 FORZZ=1TOLV:J$=STR$(ZZ)+"."+R$+L$(ZZ)
2340 O$=J$:GOSUB760
2350 PRINT#6,R$;:IFPOS(X)<>40ANDPOS(X)<>.THENPRINTR$;
2360 NEXTZZ:PR=.:VI=.:X=FRE(0):GOTO1610
2370 IFSRORFLTHEN2384
2380 FX=4:GOTO1640
2384 IFSRTHENIFC=3THEN2430
2385 IFSRTHEN2400
2390 IFC<4THENO$="[193]BORTED!"+R$+R$:GOSUB760:GOSUB5110:FORI=.TO8:L$(I)="":NEXT:GOTO4120
2400 IFFL=.THENO$="[211]TORING [205]ESSAGE..."+R$+R$:GOSUB760:SR=.:X=FRE(0):GOTO2230
2420 IFFLTHENO$="[206]O [196]ON'T [193]BORT"+R$:GOSUB760:FL=.:GOTO1610
2430 IFSRTHENO$="[206]O [196]ON'T [211]TORE"+R$:GOSUB760:SR=.:GOTO1610
2440 IFVITHEN2320
2450 GOSUB4950
2460 B=ASC(A$):IFB>96ANDB<123THENB=PEEK(AS+B)
2470 IFB=78THENYY=YY+(7-LZ):LZ=8:P=162:GOTO1090
2480 IFB=90THENMZ=1:O$=R$+R$:GOSUB760:GOTO4900
2490 IFB=65THEN4120
2500 IF(B=32)OR(B=80)THENFX=6:GOTO1640
2510 IFB=83THENO$=R$+" * [208][210][197][211][211] '[193]' TO [193]BORT"+R$:GOSUB760:GOTO1050
2520 GOTO1050
2530 O$=" * [204][193][211][212] [204][201][206][197]!":GOSUB760:GOSUB5120:FL=1:FORI=1TO13:GOSUB870:NEXTI:FL=.:RETURN
2540 GOTO1550
2550 IFSRTHEN1640
2551 GET#6,A$:IFA$=CHR$(32)ORA$=CHR$(80)THEN2340
2560 GETB$:IFB$=CHR$(32)ORB$=CHR$(80)THEN2340
2570 GOTO2550
2580 GOSUB5300:VR=HL+2:RM=7:MX=.:LZ=.:PRINT"[147][156]";:GOSUB4950
2590 PRINT"      [211][208][193][195][197] [194][193][210] [211][212][207][208][211] [193][206][196] [199][207][197][211][152]":GOSUB4950
2600 PE=FNLC(X)
2610 P=PEEK(PE):PE=PE+1:IF(P=166)OR(P=162)OR(P=178)THENLZ=LZ+1:GOTO2630
2620 PRINTCHR$(P);:GOTO2610
2630 IFP=166THEN2700
2640 IFP=178THENIFPOS(X)<39ANDPOS(X)>1THENPRINTR$:GOTO2700
2650 IFP=162THEN2670
2660 GOTO2700
2670 PRINTR$+R$+R$+"         > [208][210][197][211][211] [211][208][193][195][197] [194][193][210]":GOSUB4950
2680 GETA$:IFA$<>CHR$(32)THEN2680
2690 GOTO5031
2700 GETA$:IFA$=""THEN2600
2710 GETA$:IFA$=""THEN2710
2720 GOTO2600
2730 FORR=54272TO54296:POKER,.:NEXT:POKE646,2
2740 POKE54296,15:POKE54277,.:POKE54278,240
2750 FORY=.TO5:FORW=.TO19:POKE54272,.:POKE54273,125:POKE54276,33
2760 FORX=.TO600:NEXT:POKE54273,100
2770 FORZ=.TO600:NEXT:GETA$:IFA$<>""THENX=600:Z=600:Y=5:W=19:POKE54293,.:RETURN
2780 POKE54276,32:POKE53281,1:O$="* ":GOSUB20:FORR=.TO10:NEXT:POKE53281,.:NEXT:POKE54293,.
2790 RETURN
2791 FORI=1TOLEN(O$):PRINTMID$(O$,I,1);:FORJ=1TO4:NEXTJ:NEXTI:RETURN
2800 CLOSE6:OPEN6,2,6,CHR$(6)+CHR$(.):AS=828-65:GOSUB4950:GOSUB5152
2810 X=16+18+1:NM$="":AD=828+65:FORJ=.TOX:A=PEEK(AD+J):IFA<>166THENNM$=NM$+CHR$(A)
2811 IFA=166THENJ=X
2820 NEXTJ:GOSUB4790:RL=HL+16974+1:GOSUB4820:JP=40+8:R$=CHR$(13)
2830 PRINTCHR$(14)CHR$(8):IFPEEK(821)THENSY=1:GOSUB4631:IFPEEK(822)THENR$=R$+CHR$(10)
2840 FORI=1TO8:L$(I)="":NEXT:QT$=CHR$(34):POKE650,128:CA=56577:CB=CA+2:RM$(.)="[204]OBBY"
2850 GOSUB5130:RB$=CHR$(157)+CHR$(157)+R$
2860 D$=CHR$(8):SP$=CHR$(32):LN=48578:IFSYTHEN2910
2870 WE$="     [151][172][175][175][175][175][175][175][175][175][175][175][175][175][175][187]"
2880 WA$="     [161][146][156]   [215][193][201][212][201][206][199]   [161]":WB$="[152] [204]AST CALLER[155]: [154]"
2890 WD$="     [151][188][183][183][183][183][183][183][183][183][183][183][183][183][183][190]":GOSUB4631:SY=.:POKE821,.:POKE822,.
2910 RI$="[147]        * * * * [210][201][206][199] [210][201][206][199] * * * *":K=1:KK=1
2920 D$=CHR$(8):CA$=R$+" -- [206][207] [195][193][210][210][201][197][210] --[144][145][145]":IFSY=.THENGOSUB5270
2930 MS$=SP$+"[200]ELLO!":REM CHAT GREETING
2940 WF$="     [211][208][193][195][197] [194][193][210]":WG$="[155]       FOR [204]OCAL [211]TART"
2950 AK$=CHR$(6):POKE53281,.:POKE53280,.:WH$="  [200] FOR [200]ELP":POKE.,47:IFSYTHEN4120
2960 PRINT"[145][145]";::PRINTSPC(7);:O$=WD$+"     ":GOSUB2791:PRINT
2970 PRINTSPC(7);:O$=WA$:GOSUB2791:PRINT:PRINTSPC(7);:O$=WE$:GOSUB2791:PRINT
2980 PRINTSPC(13):O$=WB$:GOSUB2791:PRINT:PRINT:PRINTSPC(19-LEN(NM$)/2);
2990 O$=NM$:GOSUB2791:PRINT:PRINT:PRINTSPC(10);:O$=WF$:GOSUB2791
3000 PRINT:PRINTSPC(5);:O$=WG$:GOSUB2791:PP=1:PRINT:PRINTSPC(13);:O$=WH$:GOSUB2791
3020 POKE.,47:CLOSE4:OPEN4,4,7:CLOSE4:IFST=(-128)THENPP=.
3030 A=8:FORI=1TO200:AN=((PEEK(CA))ANDA):IFAN=.THENSY=1:I=100:GOTO3090
3040 GETA$:IFA$="H"THENGOSUB5300:GOTO2580
3050 IFA$=SP$THENGOSUB5300:SC=1:I=50:POKE53281,15:POKE53280,12::GOTO3190
3060 NEXTI:X=INT(RND(.)*11)+1:PRINT"[147]":FORI=1TOX:PRINT:NEXT
3070 X=INT(RND(.)*18)+.:PRINTSPC(X+9)RM$(7):PRINTSPC(X)WD$:PRINTSPC(X)WA$:PRINTSPC(X)WE$
3080 PRINTSPC(X+6)WB$:PRINT:PRINTSPC(19-LEN(NM$)/2);NM$:GOSUB5130:GOTO3030
3090 POKE53281,15:POKE53280,12:PRINT#6,AK$;:SC=.:SY=1:PRINTCHR$(14);
3100 POKE53280,7:GOSUB5145:FORT=1TO10:PRINT"[144]"RI$:FORTT=1TO10:NEXTTT
3110 PRINT""RI$:FORDF=1TO10:NEXTDF
3120 NEXTT:GOSUB5145
3130 POKE646,.:POKE53280,12:GOSUB5300
3140 FORDE=1TO2000:IF((PEEK(CA))AND16)=.THENT=T+1:GET#6,A$
3150 IFA$=CHR$(5)THENPRINT#6,AK$;:GOTO3190
3160 IFT=50THEN3190
3170 NEXTDE
3180 DE=.:GOSUB5031:GOTO2860
3190 TI$="000000":S=.:X=FRE(.):CR=.:DE=2000:T=.:FORI=1TODE:NEXTI:PRINT#6,AK$;:PRINT"[147][144]";
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
3210 T=.:TM=VAL(TI$):O$=R$+CHR$(10)+" [208]RESS [210]ETURN"+R$+CHR$(10):GOSUB4950:GOSUB760
3220 GET#6,A$:PRINT#6,A$;:IFA$=CHR$(13)ORA$=CHR$(46)ORA$=CHR$(141)THEN3390
3230 GETB$:IFB$=CHR$(13)ORB$=CHR$(141)ORB$=CHR$(46)THEN3390
3240 IFTM+100<VAL(TI$)THEN5025
3250 IFSY=.THEN3220
3260 IF((PEEK(CA))AND16)=.THENT=.:GOTO3290
3270 POKE53265,27:PRINTCA$:T=T+1:IFT=50THENT=.:GOTO5029
3280 GOTO3240
3290 IFA$<>""THENPRINT"[195][200][210]$("ASC(A$)")[145]":T=T+1:IFT=200THEN5027
3300 GOTO3220
3310 CLOSE6:OPEN6,2,6,CHR$(6)+CHR$(.)
3320 GET#6,B$:IFB$=""THEN3340
3330 PRINT#6,B$;:PRINTB$;
3340 GETA$:IFA$=""THEN3320
3350 PRINT#6,A$;:PRINTA$;
3360 GOTO3320
3370 LZ=.:FORI=.TO7:GOSUB4630
3380 FORJ=.TO40:POKEPE,166:PE=PE+1:NEXTJ:LZ=LZ+1:NEXTI
3381 IFPPANDZPTHENCLOSE4:OPEN4,4,7:PRINT#4,"[218][193][208][208][197][196] [205]ESSAGE IN "RM$(RM):CLOSE4
3382 ZP=.:RETURN
3390 O$=R$+CHR$(10)+SP$+"[217]OUR [194][194][211] [206]AME HERE!"+R$+CHR$(10):GOSUB760:REM BBS NAME
3400 T=.:O$=" MICRO[210][193][205] [208]ERSONAL [210]OOM [211]YSTEM  [214]1"+R$+CHR$(10)+R$+CHR$(10):GOSUB760
3410 O$=NM$+R$+CHR$(10):GOSUB760
3420 S=.:T=.:O$=SP$+"[215]AS [204]AST [208]ERSON [200]ERE"+R$+CHR$(10):GOSUB760
3430 GOSUB4960
3440 T=T+1:IFT=4THEN5027
3450 S=.:O$=R$+SP$+"[208]LEASE [197][206][212][197][210] [217]OUR [206]AME"+R$+R$+">":GOSUB760:MM$=NM$:NM$=""
3460 GOSUB4950:L$(L)="":AR=.:KK=.:K=1:L=1:GOSUB70:IFL$(L)="NEW"THEN3450
3470 IF(LEN(L$(L))<2)OR(LEN(L$(L))>17)OR(MID$(L$(L),1,1)=CHR$(32))THEN3490
3480 NM$=SP$+L$(L):GOTO3500
3490 O$=R$+SP$+"[204]ET'S TRY THAT AGAIN."+R$:GOSUB760:L$(L)="":GOTO3440
3500 T=T+1:IFT=4THEN5027
3510 T=.:S=.:O$=R$+SP$+"[215]HAT [195]ITY & [211]TATE YOU CALLING FROM?"+R$:GOSUB760
3520 O$=SP$+"([213]SE TWO LETTER [208][207] CODE FOR STATE.)"+R$:GOSUB760:FL=1:GOSUB5230:FL=.
3530 O$=SP$+"[207]R [208]RESS [210][197][212][213][210][206] IF '"+PL$+"'"+R$+R$+">":GOSUB760
3540 S=.:L$(L)="":L=1:KK=.:K=1:AR=.:GOSUB4950:GOSUB70
3550 IFLEN(L$(L))=.THENL$(L)=PL$:O$=">"+L$(L)+R$:GOSUB760:GOTO3590
3560 IF(LEN(L$(L))<2)OR(LEN(L$(L))>17)OR(MID$(L$(L),1,1)=CHR$(32))THEN3590
3570 GOTO3590
3580 O$=R$+SP$+"[193]H, IS THAT RIGHT?"+R$:GOSUB760:L$(L)="":GOTO3500
3590 IFNM$+", "+L$(L)=MM$THEN5031
3591 O$=R$+SP$+"[215]ELCOME TO MICRO[210][193][205],"+NM$+R$+R$:GOSUB760
3600 NM$=NM$+", "+L$(L)
3610 IFPPTHENCLOSE4:OPEN4,4,7:PRINT#4,R$+">>> "+NM$+SP$+"[204][207][199][199][197][196] [207][206]":CLOSE4
3650 O$="  [212]HIS IS THE LOGON MESSAGE!"+R$+R$:GOSUB760
3660 O$=" [212]HE TEXT FOR THIS IS TO BE FOUND"+R$:GOSUB760
3670 O$=" BEGINNING AT LINE 3650. [194]E SURE THAT"+R$:GOSUB760
3680 O$=" QUOTE MARKS ARE PROPERLY POSITIONED"+R$:GOSUB760
3681 O$=" AT THE END OF EACH LINE AS SHOWN."+R$:GOSUB760
3690 O$=" ([207]PEN UP LINES W/ INSERT KEY.)"+R$:GOSUB760
3710 PR=1:GOSUB1500:PR=.
3711 O$=" [208]RESS '[200]' FOR HELP"+R$:GOSUB760:GOTO4120
3720 POKE53281,.:POKE53280,.
3730 PRINT"[147]":CLR
3740 N=.:X=36:FORV=ITO34:PRINT""
3750 PRINTTAB(X)" ":X=X-1:NEXTV
3760 FORI=1TO17:PRINT"  [150] ":FORT=1TO12:NEXTT:NEXTI
3770 PRINT"  [129] ";:FORJ=1TO33:PRINT" ";:FORS=1TO12:NEXTS:NEXTJ:PRINT" "
3780 X=20:FORZ=1TO19:PRINT"":FORH=1TOX:PRINT:NEXTH
3790 PRINTTAB(37)"[158] ":X=X-1:NEXTZ
3800 X=36:FORO=ITO52:PRINT""
3810 PRINTTAB(X)"[153] ":X=X-1:NEXTO
3820 FORI=1TO17:PRINT"   ":FORT=1TO18:NEXTT:NEXTI
3830 PRINT"   ";:FORJ=1TO33:PRINT" ";:FORT=1TO16:NEXTT:NEXTJ:PRINT" "
3840 X=20:FORZ=1TO19:PRINT"":FORT=1TOX:PRINT:NEXTT
3850 PRINTTAB(37)"[156] ":X=X-1:NEXTZ
3860 X=36:FORO=ITO52:PRINT""
3870 PRINTTAB(X)" ":X=X-1:NEXTO
3880 FORI=1TO17:PRINT"   ":NEXTI
3890 PRINT"   ";:FORJ=1TO33:PRINT" ";:NEXTJ:CLOSE6:OPEN6,2,6,CHR$(6)+CHR$(.)
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
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
3920 PRINT:PRINTSPC(2);:O$="[154] MICRO[210][193][205] [208]ERSONAL [210]OOM [211]YSTEM   [214]1 ":GOSUB760
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
3940 PRINT:PRINT"[151]"SPC(10):O$=" ([195])OPYRIGHT 1986":GOSUB760
3950 PRINT:PRINTSPC(12):O$="[197]UGENE [212]IFFANY":GOSUB760:PRINT""
3960 PRINTSPC(14)"[154][211][197][212][212][201][206][199] [213][208]":GOTO5070
4120 POKE53265,27:POKE53281,15:POKE53280,12:POKE646,.
4130 PRINT:PRINT"[145][152] [213][211][197][210]:"NM$"[145][145][144]":O$=R$+R$+" "+RM$(RM)+"> ":GOSUB760:TM=VAL(TI$):GOSUB4950
4140 MN=VAL(MID$(RM$(RM),RM+1,1)):SM=.:FL=.:SR=.:FX=1:LZ=.:YY=.:MZ=.:GOTO1640
4150 O$="[200]ELP [200]ELP!"+R$:GOSUB760
4160 O$=R$+" *  MICRO[210][193][205] [210]OOM [211]YSTEM *"+R$:GOSUB760
4170 O$=" * [211]INGLE [204]ETTER [195]OMMANDS *"+R$+R$:GOSUB760
4180 O$="           [214]IEW [205]ESSAGES"+R$:GOSUB760
4190 O$="          [206]EXT [205]ESSAGE"+R$:GOSUB760
4200 O$="         [198]ORWARD [214]IEWING"+R$:GOSUB760
4210 O$="        [210]EVERSE [214]IEWING"+R$:GOSUB760
4220 O$="       [197]NTER [205]ESSAGE"+R$:GOSUB760
4230 O$="      [199]OTO [206]EXT [210]OOM"+R$:GOSUB760
4240 O$="     [205]AKE [206]EW [210]OOM"+R$:GOSUB760
4250 O$="    [203]NOWN [210]OOMS [204]IST"+R$:GOSUB760
4260 O$="   [195]HAT WITH [211]YSTEM [207]PERATOR"+R$:GOSUB760
4270 O$="  [204]EAVE [205]ESSAGE TO [211]YSTEM [207]PERATOR"+R$:GOSUB760
4280 T=.:O$=" [212]ERMINATE"+R$:GOSUB760:TM=VAL(TI$):GOSUB4950:GOTO4120
4290 O$="[199]OTO ":GOSUB760:RM=RM+1
4300 IFRM>5THENRM=.
4310 IFRM$(RM)=""THENRM=RM+1:GOTO4300
4320 O$=RM$(RM)+R$:GOSUB760:GOTO4120
4330 O$="[203]NOWN [210]OOMS"+R$+" -----"+R$:GOSUB760
4340 FORJ=.TO6:IFRM$(J)=""THENNEXTJ
4350 O$=SP$+RM$(J):GOSUB760
4360 IFJ=6THENO$=SP$+"* [200]IGH [193]CCESS":GOSUB760
4370 O$=R$:GOSUB760:NEXTJ:O$=R$+SP$+"-----"+R$:GOSUB760:GOTO4120
4380 O$="[205]AKE [206]EW [210]OOM"+R$+R$:GOSUB760
4390 FORI=1TO6:IFRM$(I)=""THENRM=I:I=6:GOTO4430
4400 NEXT:O$=" [206]EW [210]OOM NOT [193]VAILABLE."+R$+R$:GOSUB760:GOTO4120
4430 O$=SP$+"[197]NTER [206]AME FOR [206]EW [210]OOM"+R$:GOSUB760
4440 AR=.:L=1:L$(L)="":K=1:KK=1:O$=">":GOSUB760:GOSUB70:IFLEN(L$(L))<2THENRM=.:GOTO4130
4450 IFLEN(L$(L))>24THENO$=" [206]AME TOO LONG. [212]RY AGAIN."+R$+R$:GOSUB760:GOTO4440
4460 SR=RL:RM$(RM)=L$(L):L$(L)="":FORJ=1TOLEN(RM$(RM))
4470 POKESR+((RM*(24+8))),ASC(MID$(RM$(RM),J,1)):SR=SR+1:NEXTJ
4471 IFPPTHENCLOSE4:OPEN4,4,7:PRINT#4,"[205][193][196][197] [210][207][207][205]: "+RM$(RM):CLOSE4
4472 N$="0":GOTO2110
4480 IF(RM=.ANDMZ=.)OR(RM=6ANDMZ=.)THEN4120
4490 O$=SP$+"[193]RE YOU SURE YOU WANT TO [218]AP"+R$:GOSUB760
4500 IFMZTHENO$=SP$+"THIS MESSAGE???"+R$+R$+">":ZP=1:GOSUB760:GOSUB4950
4510 IFMZ=.THENO$=SP$+"YOUR"+SP$+RM$(RM)+" [210]OOM???"+R$+R$+">":GOSUB760
4520 FX=5:GOTO1640
4530 O$="[217]ES, [218]AP!"+R$+R$:GOSUB760:GOTO4550
4540 O$="[206]O"+R$:GOSUB760:GOTO4120
4550 O$=SP$+"[207][203]! [218]APPING THIS PATHETIC FILTH..."+R$+R$:GOSUB760
4560 IFMZ=.THENIFPPTHENOPEN4,4,7:PRINT#4,NM$+SP$+"[218][193][208][208][197][196]:"+SP$+RM$(RM):CLOSE4
4561 IFMZTHENMZ=.:LZ=.:GOSUB3370:GOTO4120
4570 I$=RM$(7):ZR=RL:FORI=ZR+(RM*(24+8))TO ZR+(RM*(24+8))+24:POKEI,166:NEXTI:GOSUB4610
4580 XR=RL+7*(24+8):FORJ=1TO7:POKEXR,ASC(MID$(I$,J,1)):XR=XR+1:NEXTJ
4590 VR=HL+2
4600 FORH=.TO5:LZ=.:MX=H:GOSUB3370:NEXTH:RM=.:GOTO4120
4610 MX=.:N$="9":I$=RM$(7):RM$(RM)=""
4620 L$=LEFT$(I$,RM):RR$=MID$(I$,RM+2):RM$(7)=L$+N$+RR$:I$=RM$(7):RETURN
4630 PE=FNLC(X):RETURN
4631 DEFFNLC(X)=VR+(RM*(JP*48))+(MX*(JP*8))+(LZ*JP):RETURN
4639 IFPEEK(2084-1)=42THENRETURN
4640 IFPEEK(2089)=42THENRETURN
4641 GOTO4650
4650 GOSUB5330:PRINT"[147]   [211]ETTING UP MICRO[210][193][205] [205]ESSAGE [194]ASE"
4660 PRINT"        [208]RESS [210][197][212][213][210][206] TO CONTINUE
4670 [161]A$:[139]A$[179][177][199](13)[167]4670
4680 [153]"LOAD":[151]251,.:A[178].:[151]252,.
4690 [153]"         (null)ORKING FOR 4 MINUTES":[129]I[178]1[164]2000:[130]
4700 [139][194](252)[167]A[178]253
4710 I[178][194](251):I[178]I[170]1:L[178]10048[170]I[170]A:[151]251,I
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)
4730 [153]"RUN4700
4740 POKE631,13:POKE632,13:POKE633,13:POKE198,5:POKE634,13:POKE635,13:PRINT""
4750 IFI=253THENI=.:POKE252,1:POKE251,.
4760 POKE251,I
4770 IFL<>10336+1THENEND
4780 POKE198,.:POKE2084-1,42:GOTO5150
4790 HE=19400:TA=26000:FORI=HE TO TA
4800 IFPEEK(I)=169THENIFPEEK(I+1)=169THENHL=I:I=TA:RETURN
4810 NEXT:GOTO4940
4820 FORI=RL+300TORL+310:IFPEEK(I)=169THENIFPEEK(I+1)=169THENRL=I+2:GOTO4840
4830 NEXT:GOTO4940
4840 I=RL:RN=RL:FORI=.TO8
4850 FORJ=1TO24:A=PEEK(RN)
4860 RN=RN+1:IFA=166THENNEXTJ:GOTO4880
4870 RM$(I)=RM$(I)+CHR$(A):NEXTJ
4880 RN=RN+8:NEXTI
4890 RETURN
4900 POKE53265,27:O$="[218]AP!"+R$+R$+" [218][193][208]ASSWORD?"+R$+R$+">":GOSUB760:GOSUB4950:L=1:L$(L)=""
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
4911 AR=.:IFMZ=.THENIFL$(L)="KNOCK KNOCK"THENRM=6:GOTO4120:REM INNER SANCT. PW
4920 IFL$(L)<>"KILL"THEN4120:REM ZAP MSG PW
4930 GOTO4480
4940 POKE53281,15:PRINT"[147] [200]EADER [206]OT [198]OUND":END
4950 POKE669,PEEK(670):POKE668,PEEK(667):POKE198,.:RETURN
4960 O$=R$+CHR$(10)+" [196]O [217]OU [206]EED [204]INEFEED?"+R$+CHR$(10)+R$+CHR$(10)+">":GOSUB760
4970 FX=3:GOTO1640
4980 R$=R$+CHR$(10):O$="[217]A [211]URE [217]OU [194]ETCHA!"+R$:GOSUB760:POKE822,1:RETURN
4990 O$="[206]O"+R$:GOSUB760:RETURN
5000 O$="[212]ERMINATE"+R$+R$+" [193]RE YOU SURE YOU WANT TO TERMINATE???"+R$+R$+">"
5010 GOSUB760:FX=7:GOTO1640
5020 GOSUB4990:GOTO4120
5025 A$="[206][207] [193][195][212][201][214][201][212][217]":PRINT:PRINTA$:IFPPTHENCLOSE4:OPEN4,4,7:PRINT#4,A$
5026 GOTO5031
5027 A$="[197][210][210][207][210][197][196] [207][213][212]":PRINT:PRINTA$:IFPPTHENCLOSE4:OPEN4,4,7:PRINT#4,A$:GOTO5031
5028 GOTO5031
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$
5030 GOTO5060
5031 O$=R$+"[212]ERMINATED"+R$+R$:GOSUB760:GOSUB5110:GOSUB5270
5032 IFPPTHENCLOSE4:OPEN4,4,7:PRINT#4,O$+SP$+LEFT$(TI$,2)+":"+MID$(TI$,3,2)
5040 POKE53265,27:GOSUB5110:GOTO5060
5050 O$="[212]ERMINATE":GOSUB760:GOSUB5110:GOSUB5270:IFNM$<>""THENGOSUB5080
5051 IFPPTHENCLOSE4:OPEN4,4,7
5052 IFPPTHENPRINT#4,"[204][207][199][199][197][196] [207][198][198] [193][212] "LEFT$(TI$,2)":"MID$(TI$,3,2)
5060 CLOSE4:PRINT"[147]    MICRO[210][193][205] [208]ERSONAL [210]OOM [211]YSTEM"
5070 CA=56577:CB=CA+2:GOSUB5270:CLR:POKE820,.:POKE821,.:GOTO2800
5080 X=828+65
5090 FORJ=1TOLEN(NM$):POKEX,ASC(MID$(NM$,J,1)):X=X+1:NEXTJ
5100 POKEX,166:POKEX+1,166:RETURN
5110 FORI=1TO2000:NEXT:RETURN
5120 FORI=1TO300:NEXT:RETURN
5130 IFPEEK(828)<>97ORPEEK(828+32)<>65ORPEEK(828+58)<>91THENGOSUB5180
5140 RETURN
5145 POKE53280,8:PRINT#6,CHR$(7);:FORI=1TO200:NEXT:POKE53280,12
5146 X=54272:POKEX+24,15:POKEX+1,110:POKEX+5,9:POKEX+6,9:POKEX+4,17:POKEX+4,16
5147 POKE54296,.:RETURN
5150 PRINTCHR$(14)CHR$(8)"[147]":GOSUB5160:GOSUB5152:GOTO3720
5152 OPEN4,4,7:CLOSE4:ZT=ST:PRINT""SPC(7)"[208]RINTER [211]TATUS: ";:IFZT=.THENPRINT"[207][206] [204][201][206][197]"
5153 PP=1:IFZT=(-128)THENPRINT"[207][198][198] [204][201][206][197]":PP=.
5154 GOSUB5110:RETURN
5160 IFPEEK(828)=97THENRETURN
5170 PRINT"   [211]ETTING UP [193][211][195][201][201] [212]RANSLATION [212]ABLES":AS=828-65:BL=256-37
5180 FORI=65TOBL:A=I
5190 IFA<91ANDA>64THENA=A+32:GOTO5220
5200 IFA<126ANDA>96THENA=A-32:GOTO5220
5210 IFA<219ANDA>192THENA=A-128:GOTO5220
5220 POKEAS+I,A:NEXT
5230 PL$="[211]EATTLE [215][193]":IFFLTHENRETURN:REM YOUR CITY AND STATE HERE
5231 NM$=" "+"[205]AINTENANCE, "+PL$:GOSUB5080:RETURN
5270 IFPEEK(2084)=35THENPOKECB,32:POKECA,.:RETURN
5280 IFPEEK(2084)=37THENPOKECA,38:POKECB,.:POKECB,.:PRINT#6,"+++":RETURN
5290 END
5300 IFPEEK(2084)=35THENPOKECB,32:POKECA,.:POKECA,32:RETURN
5310 IFPEEK(2084)=37THENPOKECA,38:POKECB,.:POKECA,.:POKECB,32:PRINT#6,"ATH":RETURN
5320 END
5330 PRINT"[147]       [211][197][204][197][195][212] [217][207][213][210] [205][207][196][197][205] [212][217][208][197]"
5340 PRINTTAB(9)"1> [195]OMMODORE 1650
5350 [153][163]9)"2> LENOMMODORE 1660
5360 PRINTTAB(9)"3> [195]OMMODORE 1670
5370 [153][163]9)"4> LEFT$VAL(null) RIGHT$RIGHT$
5380 PRINTTAB(9)"5> [215]ESTRIDGE
5390 [153][163]9)"6> (null)OTAL (null)ELECOMMUNICATIONS
5400 PRINTTAB(9)"7> [205]ITEY [205]O
5410 [141]4950
5420 [161]A$:[139]A$[178]""[167]5420
5430 [145][197](A$)[137]5440,5450,5450,5450,5440,5440,5450
5435 [137]5420
5440 [151]2084,35:[142]
5450 [151]2084,37:[142]
9999 [128]
10000 "** (null)ATN(null)(null)RIGHT$(null)CHR$!**  STR$O (null)(null)(null) MESS BEYOND THIS POINT OR THIS SYSTEM MAY CRASH!!!
10001 "[169][169][194]Y: [197]UGENE [212]IFFANY, [211]EATTLE [215][193][178][166][166][166][166][166][166][166][166][166][166]"
10002 " [212]HIS [194][194][211] PROGRAM IS VERY EASY TO SET UP[178]"
10003 "AND TO USE. [201]T CONTAINS ONLY ONE FILE. [178][166]"
10004 " [212]HIS ONE. [212]O BACKUP YOUR MESSAGE BASE[178][166][166]"
10005 " SIMPLY SAVE A COPY OF THE CURRENT PRG[178][166][166]"
10006 " IN MEMORY. -- [212]HIS PROGRAM DOES NOT USE[178]"
10007 "THE DISK DRIVE DURING OPERATION. [211]O PRG[178][166]"
10008 " MAY BE BOOTED FROM CASSETTE ALSO.[162][166][166][166][166][166][166]"
10009 "[194]Y: [197]UGENE [212]IFFANY, [211]EATTLE [215][193][178][166][166][166][166][166][166][166][166][166][166]"
10010 " [205]ESSAGES TO THE SYSOP ARE SENT TO THE[178][166][166]"
10011 " PRINTER. [201]F A PRINTER IS NOT CONNECTED[178][166]"
10012 " THAT IS NO PROBLEM. [200]OWEVER, IF A PRINT[178]"
10013 "ER IS CONNECTED BUT SET IN THE [196][197][211][197][204][197][195][212][178][166]"
10014 " MODE THEN THE SYSTEM WILL HANG UNTIL TH[178]"
10015 "E PROPER SWITCH ON THE PRINTER IS PRESSE[178]"
10016 "D SO THAT IT WILL OPERATE. [210]EMEMBER THAT[162]"
10017 "[194]Y: [197]UGENE [212]IFFANY, [211]EATTLE [215][193][178][166][166][166][166][166][166][166][166][166][166]"
10018 " [211]CREEN BLANKING OCCURS DURING THE USER'[178]"
10019 "S [214]IEWING OR ENTERING MESSAGES. [194]E NOT A[178]"
10020 "LLARMED. [212]HIS IS TO ALLOW FOR GREATER[178][166][166][166]"
10021 "SPEED AS THIS PROGRAM IS IN [194][193][211][201][195].[178][166][166][166][166][166][166]"
10022 "  [205]ESSAGES OR [210]OOMS ARE [218][193][208][208][197][196] WITH THE[178][166]"
10023 " [218][193][208] COMMAND, AT THE ROOM OR THE MESSAGE[178]"
10024 ". [212]HE CURRENT PASSWORD IS 'KILL'.[162][166][166][166][166][166][166][166]"
10025 "[194]Y: [197]UGENE [212]IFFANY, [211]EATTLE [215][193][178][166][166][166][166][166][166][166][166][166][166]"
10026 " [212]HE [201][206][206][197][210] [211][193][206][195][212][213][205] IS REACHED VIA A [218][193][208][178][166]"
10027 " COMMAND, AND THE [208][215]:'KNOCK KNOCK'.[178][166][166][166][166][166]"
10028 " .  [206]EITHER THE [204]OBBY NOR THE [201]NNER [211]ANC[178]"
10029 "TUM MAY BE [218]APPED FROM THE MESSAGE BASE.[178]"
10030 "  [218]APPING OF MESSAGES AND ROOMS CAN BE[178][166][166]"
10031 " REMOTELY. [193]LL PASSWORDS ARE CHANGABLE A[178]"
10032 "T ANY TIME. [211]EE SYSOP HELP FILE FOR INFO[162]"
10033 "[194]Y: [197]UGENE [212]IFFANY, [211]EATTLE [215][193][178][166][166][166][166][166][166][166][166][166][166]"
10034 " [212]HIS PROGRAM MAY BE FREELY TRADED.[178][166][166][166][166][166]"
10035 " [200]OWEVER, [201], [197]UGENE [212]IFFANY, HOLD THE[178][166][166][166]"
10036 " COPYRIGHT, AND ALL RIGHTS ARE RESERVED.[178]"
10037 " [201]F YOU USE THIS THEN [201] WOULD APPECIATE[178][166]"
10038 " RENUMERATION FOR THE WORK THAT THE DEVE[178]"
10039 "LOPMENT OF THIS PROGRAM ENTAILED. [207]THER [178]"
10040 "AND BETTER [194][194][211] PROGRAMS ARE BEING PLANED[162]"
10041 "[194]Y: [197]UGENE [212]IFFANY, [211]EATTLE [215][193][178][166][166][166][166][166][166][166][166][166][166]"
10042 " [211]END WHAT YOU THINK THE PROGRAM IS WORT[178]"
10043 "H TO: [197]UGENE [212]IFFANY, #103, [178][166][166][166][166][166][166][166][166][166][166][166][166]"
10044 " 4700 12TH [193]VE [206][197], [211]EATTLE [215][193] 98105[178][166][166][166][166][166]"
10045 " *** [194]E SURE TO SAVE A COPY OF THIS SET [178]"
10046 "UP VERSION. [193]ND USE THE NON-SET UP VERSI[178]"
10047 "ON FOR TRADING. [201]T IS FASTER TO TRANSFER[162]"
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]"
10338 " [212]HIS PROGRAM MAY BE REPROGRAMED AT ANY[178][166]"
10339 " TIME. [197]VEN WHEN A USER IS ON LINE.[178][166][166][166][166][166]"
10340 " [202]UST USE THE STOP KEY. [193]ND TO RE-RUN[178][166][166][166]"
10341 " TYPE: [210][213][206]10 -- [196]ON'T FORGET THE TEN.[178][166][166][166]"
10342 " [193] [218][193][208] COMMAND AND THE PROPER [208][193][211][211][215][207][210][196][178][166][166]"
10343 " IS USED TO [199][207][212][207] THE [201]NNER [211]ANCTUM, AS[178][166][166]"
10344 " WELL AS TO [218][193][208] MESSAGES OR THE ROOMS.[178][166][166]"
10345 " > [195]HANGE FOLLOWING LINES TO CUSTOMIZE[178][166][166]"
10346 " YOUR OWN SYSTEM. ([194]UT BE CAREFUL!) <[178][166][166][166]"
10347 "  [204][201][206][197] #             [211]UBJECT[178][166][166][166][166][166][166][166][166][166][166][166][166]"
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]"
10349 "  4920 [205]ESSAGE AND [210]OOM [218][193][208] [208][193][211][211][215][207][210][196][178][166][166][166][166]"
10350 "  2930 [195]HAT MODE GREETING, ([200]ELLO?)[178][166][166][166][166][166]"
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]"
10352 "  5230 [217]OUR LOCATION (CITY AND STATE)[178][166][166][166]"
10353 " [208]ASSWORDS SHOULD BE ONLY LOWER CAS.[178][166][166][166][166]"
10354 " [193]ND PLEASE OBSERVE QUOTE MARKS.  [212]HIS[178][166][166]"
10355 " PROGRAM MAY BE ALTERED AT WILL. [178][166][166][166][166][166][166][166]"
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]"
10357 " [211]O NO MATTER HOW IT IS USED A PAYMENT[178][166][166]"
10358 " OF $$ IS BEING ASKED FOR.  [211]END TO:[178][166][166][166][166]"
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]"
10360 " 4700 12TH [193]VE [206][197], [211]EATTLE [215][193] 98105[162][166][166][166][166][166]"
10361 " [195]ALL: (206)523-2530 FOR MORE HELP.[162][166][166][166][166][166]"
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]"
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]"
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]"
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]"
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]"
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]"
10368 "[201]NNER [211]ANCTUM[166][166][166][166][166][166][166][166][166][166][166][166]"
10369 "0999990[166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166]"