10 POKE53280,0:POKE53281,0:POKE808,225
20 PRINT"[147]":D=214:X=11:GOSUB490:PRINTSPC(10)"[155][204][207][193][196][201][206][199] [195][200][193][210][193][195][212][197][210] [211][197][212]"
30 IFA=0THENA=1:LOAD"INDEX FONT",8,1
40 GOTO2930
50 POKEB,11:PRINT"[147]"
60 PRINT"    [161][162][163][164][165][166][155][167][168][169][170][171][172][173][170][171][174][175][176][177][178][181][182][179][180][183][184]"
70 PRINT"   [154][187][192][192][192][192][188] [155][167][168][169][170][171][172][173][170][171][174][175][176][177][178][181][182][179][180][183][184]":PRINTJ$:RETURN
80 X=2:GOSUB490:PRINT"[154]"U$:GOSUB490:PRINT"[154][201][206][196][197][216]:"TAB(27)"[205][193][195][210][207][211]:":PRINTP$
90 IFN=0THENFI$="[206]O [201]NDEX"
100 GOSUB490:PRINTSPC(8)"[154]"FI$TAB(35)""M$:RETURN
110 X=24:Y=24:GOTO130
120 X=21:Y=24
130 FORI=XTOY:POKE781,I:SYS59903:NEXT:RETURN
140 POKED,X:PRINT:FORI=0TOL:PRINTSPC(S+1)"[155]"M$(I):NEXT:POKE198,0
150 POKED,X+Y:PRINT:PRINTSPC(S)"[155][220]"M$(Y)"[255][146][145]":GOSUB670
160 PRINTSPC(S)"[220]"M$(Y)"[255]":IFG$=""THENY=Y+1:IFY>LTHENY=0
170 IFG$="[145]"THENY=Y-1:IFY<0THENY=L
180 IFG$=CHR$(13)THENG=Y+1:RETURN
190 IFG$=""THENRETURN
200 GOTO150
210 Q$="":POKE198,0
220 GETG$:PRINT"[155][221][157]";:IFG$=""THEN220
230 IFG$=CHR$(13)THENPRINT" ":RETURN
240 IF(G$=CHR$(20)ANDLEN(Q$))THENQ$=LEFT$(Q$,LEN(Q$)-1):GOTO310
250 IF(G$=CHR$(20)ANDLEN(Q$)=0)ORLEN(Q$)=>LTHEN220
260 GOSUB320:IFF=1THENG$=LEFT$(G$,L-LEN(Q$)):GOTO300
270 IF(G$>CHR$(31)ANDG$<CHR$(34))OR(G$=>"#"ANDG$<",")OR(G$>","ANDG$<":")THEN300
280 IF(G$>":"ANDG$<"^")OR(G$>"[192]"ANDG$<"[219]")ORG$="[186]"THEN300
290 GOTO220
300 Q$=Q$+G$
310 PRINTG$;:F=0:GOTO220
320 IFG$="[144]"THENG$=F$(0):F=1
330 IFG$=""THENG$=F$(1):F=1
340 IFG$=""THENG$=F$(2):F=1
350 IFG$="[159]"THENG$=F$(3):F=1
360 IFG$="[129]"THENG$=F$(4):F=1
370 IFG$="[149]"THENG$=F$(5):F=1
380 IFG$="[150]"THENG$=F$(6):F=1
390 IFG$="[151]"THENG$=F$(7):F=1
400 IFG$="[133]"THENG$=F$(8):F=1
410 IFG$=CHR$(137)THENG$=F$(9):F=1
420 IFG$="[134]"THENG$=F$(10):F=1
430 IFG$="[138]"THENG$=F$(11):F=1
440 IFG$="[135]"THENG$=F$(12):F=1
450 IFG$="[139]"THENG$=F$(13):F=1
460 IFG$="[136]"THENG$=F$(14):F=1
470 IFG$="[140]"THENG$=F$(15):F=1
480 RETURN
490 POKED,X:PRINT:RETURN
500 GOSUB490:PRINTTAB(11)CHR$(A)"[191][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][223]"
510 FORI=1TOL:PRINTTAB(11)CHR$(A)"[187]               [188][146][151][255]":NEXT
520 PRINTTAB(11)CHR$(A)"[190][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][189][146][151][255]"
530 PRINTTAB(12)"[151][221][221][221][221][221][221][221][221][221][221][221][221][221][221][221][221][189]":POKED,X+1:PRINT:RETURN
540 FORI=0TO3:PRINT"[154][195][212][210][204]"I+1":[155]"F$(I):NEXT:FORI=4TO7
550 PRINT"[154][195][205][196][210]"I-3":[155]"F$(I):NEXT:FORI=8TO14STEP2:PRINT"   [154][198]"I-7":[155]"F$(I)
560 NEXT:FORI=9TO15STEP2:PRINT"   [154][198]"I-7":[155]"F$(I):NEXT:RETURN
570 PRINT"           [154][[205]][146][155]ACRO [196]ISPLAY ":RETURN
580 PRINT"[154][[209]][146][155]UIT                 [154][[195][210][211][210]][146][155] [203]EYS [208]AGE":RETURN
590 X=21:GOSUB490:PRINT" [155][192][192][192][192][192][192][192][192][192][192][192][192]":PRINT" [197]RASE [195]URRENT [198]ILE? [152]":GOTO640
600 X=22:GOSUB490:PRINTU$:L=14:GOSUB1020:RETURN
610 OPEN15,8,15:PRINT#15,"R0:"+NA$+"="+NA$:INPUT#15,ER,ER$:CLOSE15:RETURN
620 OPEN15,8,15:INPUT#15,ER,ER$:CLOSE15:RETURN
630 X=23:GOSUB490:PRINT" [154] [211][212][193][212][213][211]: [146]"ER,ER$""
640 POKEZ+24,15:POKEZ+5,45:POKEZ+6,165:POKEZ+4,33:POKEZ+1,6:POKEZ,5
650 FORI=1TO250:NEXT:POKEZ+4,32:POKEZ+1,0:POKEZ,0
660 POKE198,0
670 GETG$:IFG$=""THEN670
680 RETURN
690 X=3:GOSUB490:PRINT"[191][192][192][192][192][192][192][192][223][155] [205]ACRO [196]EFINITIONS [146][191][192][192][192][192][192][192][192][223]"
700 FORI=1TO16:PRINT"[220]"E$"        [255]":NEXT
710 PRINT"[190][221][221][221][221][221][221][221][221][221][189][155] [208]RESS [193]NY [203]EY [146][190][221][221][221][221][221][221][221][221][221][189]"
720 X=4:GOSUB490:GOSUB540:GOTO660
730 GOSUB50:X=2:GOSUB490
740 PRINT"[154]"U$:GOSUB490:PRINT"[154]"T$TAB(26)"#     [207][198]":RETURN
750 X=2:GOSUB490:PRINTTAB(28)"[154]        ":GOSUB490:PRINTTAB(27)""QTAB(34)N
760 PRINTP$:PRINTU$:PRINT"[155][221][221][221][221][221][221][221][221][221][221] "E$
770 PRINT"[154]1:"AR$"[146] "E$:PRINTV$E$:PRINT"[154]2:"AU$"[146] "E$:PRINTV$E$
780 PRINT"[154]3:"MG$"[146] "E$:PRINTV$E$:PRINT"[154]4:"DT$"[146] "E$:PRINTV$E$
790 PRINT"[154]5:"PG$"[146] "E$:PRINTV$E$:PRINT"[154]6:"SB$"[146] "E$:PRINT"[155][192][192][192][192][192][192][192][192][192][192] "E$
800 PRINTU$:PRINTU$:PRINTJ$:RETURN
810 GOSUB750:X=6:GOSUB490:FORI=0TO5:PRINT"[155]"S$RE$(I,Q)"":NEXT:RETURN
820 X=21:GOSUB490:PRINT"[154][[210]][146][155]ECORD [200]ARDCOPY      [154][[201]][146][155]NDEX [200]ARDCOPY"
830 GOSUB580:POKEB,27
840 GOSUB660:IFG$=""THENRETURN
850 IFG$=""ANDLEFT$(T$,11)<>K$THENQ=Q+4:RETURN
860 IFG$="[145]"ANDQ>1THENQ=Q-2:RETURN
870 IFG$="[157]"ANDLEFT$(T$,11)<>K$ANDQ>5THENQ=Q-6:RETURN
880 IFG$="R"THENC=1:GOSUB2810:GOTO820
890 IFG$="I"THENC=2:GOSUB2810:GOTO820
900 IFG$="Q"THENQ=N:RETURN
910 GOTO840
920 Q=Q+1:IFQ>NTHENRETURN
930 IFLEFT$(RE$(A,Q),LEN(Q$))<>Q$THEN920
940 GOSUB810:GOSUB820:GOTO920
950 N=N+1:X=21:GOSUB490:PRINT"[154]           [201]NSERTING [210]ECORD            "
960 PRINTR$:GOSUB110:FORI=NTOQ+1STEP-1:FORX=0TO5:RE$(X,I)=RE$(X,I-1):NEXT:NEXT
970 FORI=0TO5:RE$(I,Q)="*":NEXT:RETURN
980 X=21:GOSUB490:PRINT"[154]           [196]ELETING [210]ECORD             ":PRINTR$
990 GOSUB110:FORI=Q+1TON:FORX=5TO0STEP-1:RE$(X,I-1)=RE$(X,I):NEXT:NEXT:N=N-1
1000 IFQ>NTHENQ=N
1010 RETURN
1020 X=21:GOSUB490:PRINT" [155][192][192][192][192][192][192][192][192][192][192][192][192]":PRINT" [198]ILENAME: ";:GOSUB210:RETURN
1030 X=21:GOSUB490:PRINT" [211]TART [193]T [210]ECORD: ";:L=3:GOSUB210:Q=VAL(Q$):RETURN
1040 X=21:GOSUB490:PRINT" [211]EARCH [198]OR: ";:L=25:GOSUB210:RETURN
1050 X=23:GOSUB490:PRINT" [204]OADING [154]"Q$" [155]- [211]TAND BY...":RETURN
1060 X=X+2:POKED,X:PRINT:PRINTSPC(S)E$:POKED,X:PRINT:PRINTSPC(S);:GOSUB210
1070 IFQ$=""THENQ$="*":POKED,X:PRINT:PRINTSPC(S)Q$
1080 RETURN
1090 L=27:S=10:GOSUB1060:IFQ$="*"THENQ$=UN$
1100 Q$=LEFT$(Q$,L):RETURN
1110 POKE648,4:PRINT"[147]":PRINTLEN(M$)TAB(6)M$
1120 FORI=0TO15:PRINTLEN(F$(I))TAB(6)F$(I):NEXT:RETURN
1130 OPEN3,3,3:PRINT"":INPUT#3,M$:FORI=0TO15:INPUT#3,F$(I):NEXT:CLOSE3
1140 X=VAL(LEFT$(M$,4)):M$=MID$(M$,6,X):FORI=0TO15:X=VAL(LEFT$(F$(I),4))
1150 F$(I)=MID$(F$(I),6,X):NEXT:POKE648,192:RETURN
1160 POKEB,11:PRINT"[147]"
1170 GOSUB60:GOSUB80
1180 M$(0)=" [195][210][197][193][212][197] [201][206][196][197][216]    ":M$(1)=" [204][207][193][196] [201][206][196][197][216]      "
1190 M$(2)=" [197][196][201][212] [210][197][195][207][210][196][211]    ":M$(3)=" [193][196][196] [210][197][195][207][210][196][211]     "
1200 M$(4)=" [211][193][214][197] [201][206][196][197][216]      ":M$(5)=" [196][197][198][201][206][197] [205][193][195][210][207][211]   [155]"
1210 M$(6)=" [204][207][193][196] [205][193][195][210][207][211]     [155]":M$(7)=" [211][193][214][197] [205][193][195][210][207][211]     [155]"
1220 M$(8)="[154] [201][206][196][197][216] [196][201][210][197][195][212][207][210][217] [155]":M$(9)="[154] [211][197][193][210][195][200] [205][197][206][213]     [155]"
1230 M$(10)="[154] [197][216][201][212] [208][210][207][199][210][193][205]    [155]"
1240 X=4:GOSUB490:PRINT"          [221][221][221][221][221][221][221][221][221][221][221][221][221][221][221][221][221][221][221]  "
1250 PRINT"          [155][220]     [204][201][194][210][193][210][217]     [255]  "
1260 PRINT"          [155][146][191][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][223]  "
1270 FORI=0TO10:PRINT"          [146][155][220]"M$(I)"[255]  ":NEXT
1280 PRINT"          [155][146][190][221][221][221][221][221][221][221][221][221][221][221][221][221][221][221][221][221][189]  "
1290 PRINT"        [221][221][221][221][221][221][221][221][221][221][221][221][221][221][221][221][221][221][221][221][221][221][221]"
1300 GOSUB120:POKEB,27:IFM=1THEN2480
1310 IFC=1THENC=0:GOTO3050
1320 IFEF=1THENEF=0:GOTO2760
1330 X=7:Y=0:S=10:L=10:GOSUB140:IFG$=""THEN3090
1340 ONGGOTO1350,1410,1490,1750,1890,2020,2260,2300,2360,2450,3090
1350 X=20:GOSUB490:PRINTM$(0):IFN=0THEN1380
1360 GOSUB590:IFG$<>"Y"THEN1300
1370 GOSUB1110:CLR:M=1:GOSUB2950:GOSUB1130:GOSUB60:GOSUB80
1380 M$(0)=" [195][210][197][193][212][197] [201][206][196][197][216]":GOSUB600:IFQ$=""THEN1180
1390 NA$="I."+Q$:GOSUB610:IFER=63THEN2350
1400 T$=M$(0):FI$=MID$(NA$,3):GOTO1770
1410 X=20:GOSUB490:PRINTM$(1):IFN=0THEN1440
1420 GOSUB590:IFG$<>"Y"THEN1300
1430 GOSUB1110:CLR:M=1:GOSUB2950:GOSUB1130:GOSUB60:GOSUB80
1440 GOSUB600:IFQ$=""THEN1180
1450 NA$="I."+Q$:GOSUB610:IFER=62THEN2350
1460 GOSUB1050:OPEN2,8,2,NA$+",S,R":INPUT#2,A$:LM%=VAL(A$):INPUT#2,A$:N=VAL(A$)
1470 INPUT#2,A$:AV%=VAL(A$):FORQ=1TON:FORI=0TO5:INPUT#2,RE$(I,Q):NEXT:NEXT
1480 CLOSE2:FI$=MID$(NA$,3):GOSUB620:GOSUB80:GOSUB120:GOTO2760
1490 IFN=0THEN2460
1500 IFN>50THENGOSUB1030:IFQ>NTHEN1240
1510 IFN<50THENQ=1
1520 T$=M$(2):GOSUB730:IFQ=0THENQ=1
1530 GOSUB810
1540 X=21:GOSUB490:PRINT"[154][[197]][146][155]DIT [198]IELD";:GOSUB570
1550 PRINT"[154][[201]][146][155]NSERT [210]ECORD        [154][[196]][146][155]ELETE [210]ECORD ":GOSUB580:POKEB,27
1560 GOSUB660:IFG$=""ANDQ<NTHENQ=Q+1:GOTO1530
1570 IFG$=""ANDQ=NTHEN1560
1580 IFG$=""ANDQ<N-4THENQ=Q+5:GOTO1530
1590 IFG$="[145]"ANDQ>1THENQ=Q-1:GOTO1530
1600 IFG$="[157]"ANDQ>5THENQ=Q-5:GOTO1530
1610 IFG$="I"ANDN+1<=LM%THENGOSUB950:EF=1:GOTO1530
1620 IFG$="D"ANDN-1=>1THENGOSUB980:EF=1:GOTO1530
1630 IFG$="Q"THEN1880
1640 IFG$="M"THENGOSUB690:GOTO1530
1650 IFG$<>"E"THEN1560
1660 X=21:GOSUB490:PRINT"[154]         [211]ELECT [198]IELD [212]O [197]DIT          ":PRINTR$
1670 GOSUB110:S=11:L=27
1680 GOSUB660:IFG$="1"THENX=4:GOSUB1060:RE$(0,Q)=LEFT$(Q$,L):EF=1:GOTO1530
1690 IFG$="2"THENX=6:GOSUB1060:RE$(1,Q)=LEFT$(Q$,L):EF=1:GOTO1530
1700 IFG$="3"THENX=8:GOSUB1060:RE$(2,Q)=LEFT$(Q$,L):EF=1:GOTO1530
1710 IFG$="4"THENX=10:GOSUB1060:RE$(3,Q)=LEFT$(Q$,L):EF=1:GOTO1530
1720 IFG$="5"THENX=12:GOSUB1060:RE$(4,Q)=LEFT$(Q$,L):EF=1:GOTO1530
1730 IFG$="6"THENX=14:GOSUB1060:RE$(5,Q)=LEFT$(Q$,L):EF=1:GOTO1530
1740 GOTO1540
1750 IFN=0THEN2460
1760 T$=M$(3):IFN+1>LM%THEN1180
1770 GOSUB730
1780 N=N+1:Q=N
1790 GOSUB750:PRINT"[154][[193]][146][155]DD [210]ECORD";:GOSUB570
1800 PRINT"[154][[209]][146][155]UIT      "E$:POKEB,27
1810 GOSUB660:IFG$="M"THENGOSUB690:GOTO1790
1820 IFG$="Q"THENN=N-1:GOTO1880
1830 IFG$<>"A"THEN1810
1840 X=21:GOSUB490:PRINT"[154] [205]AXIMUM [195]HARACTERS [201]N [197]ACH [198]IELD:  27 ":PRINTR$
1850 GOSUB110:GOSUB750:EF=1:X=4:S=11:L=27
1860 FORI=0TO5:GOSUB1060:RE$(I,N)=LEFT$(Q$,L):NEXT:IFN=LM%THEN1940
1870 GOTO1780
1880 IFEF=0THEN1160
1890 IFN=0THEN1330
1900 EF=1:X=20:GOSUB490:PRINTJ$
1910 PRINT"[154]            [211]AVE [206]EW [201]NDEX?            ":PRINTR$:GOSUB110
1920 GOSUB660:IFG$="N"THENEF=0:GOTO1160
1930 IFG$<>"Y"THEN1920
1940 IFT$=M$(0)THEN1990
1950 X=21:GOSUB490:PRINT"[154]          [211]CRATCHING [207]LD [198]ILE          "
1960 OPEN15,8,15:PRINT#15,"S0:I."+FI$:PRINT#15,"U:"
1970 X=21:GOSUB490:PRINT" [195]ALCULATING [205]EMORY [213]SE - [208]LEASE [215]AIT  "
1980 V%=FRE(0):AV%=(U%-V%)/N:LM%=U%/AV%:CLOSE15:IFLM%>400THENLM%=400
1990 X=21:GOSUB490:PRINT"[154]            [211]AVING [206]EW [198]ILE            "
2000 OPEN2,8,2,"I."+FI$+",S,W":PRINT#2,LM%:PRINT#2,N:PRINT#2,AV%:FORQ=1TON
2010 FORX=0TO5:PRINT#2,RE$(X,Q):NEXT:NEXT:PRINT#2:CLOSE2:GOSUB620:GOTO1160
2020 GOSUB50
2030 X=2:GOSUB490:PRINT"[154]    [208]RESS [203]EY [195]OMBINATION [212]O [196]EFINE    ":PRINTP$
2040 PRINTSPC(10)"^[192][192][192][223][155] [205][193][216][201][205][213][205] [204][197][206][199][212][200] [146][191][192][192][192][192]_":GOSUB540
2050 PRINTJ$:PRINT"[154]          [208]RESS [211][208][193][195][197] TO EXIT          ":PRINTR$:POKEB,27
2060 GOSUB660:IFG$="[144]"THENX=3:GOSUB1090:F$(0)=LEFT$(Q$,27):GOTO2030
2070 IFG$=""THENX=4:GOSUB1090:F$(1)=Q$:GOTO2030
2080 IFG$=""THENX=5:GOSUB1090:F$(2)=Q$:GOTO2030
2090 IFG$="[159]"THENX=6:GOSUB1090:F$(3)=Q$:GOTO2030
2100 IFG$="[129]"THENX=7:GOSUB1090:F$(4)=Q$:GOTO2030
2110 IFG$="[149]"THENX=8:GOSUB1090:F$(5)=Q$:GOTO2030
2120 IFG$="[150]"THENX=9:GOSUB1090:F$(6)=Q$:GOTO2030
2130 IFG$="[151]"THENX=10:GOSUB1090:F$(7)=Q$:GOTO2030
2140 IFG$="[133]"THENX=11:GOSUB1090:F$(8)=Q$:GOTO2030
2150 IFG$=CHR$(137)THENX=15:GOSUB1090:F$(9)=Q$:GOTO2030
2160 IFG$="[134]"THENX=12:GOSUB1090:F$(10)=Q$:GOTO2030
2170 IFG$="[138]"THENX=16:GOSUB1090:F$(11)=Q$:GOTO2030
2180 IFG$="[135]"THENX=13:GOSUB1090:F$(12)=Q$:GOTO2030
2190 IFG$="[139]"THENX=17:GOSUB1090:F$(13)=Q$:GOTO2030
2200 IFG$="[136]"THENX=14:GOSUB1090:F$(14)=Q$:GOTO2030
2210 IFG$="[140]"THENX=18:GOSUB1090:F$(15)=Q$:GOTO2030
2220 IFG$=" "THEN2240
2230 GOTO2060
2240 FORI=0TO15:IFF$(I)=UN$THENM$="[206]O":NEXT:GOTO1160
2250 M$="[217]ES":GOTO1160
2260 X=20:GOSUB490:PRINTM$(6):L=14:GOSUB1020:IFQ$=""THEN1300
2270 NA$="M."+Q$:GOSUB610:IFER<>63THEN2350
2280 GOSUB1050:OPEN2,8,2,NA$+",S,R":FORI=0TO15:INPUT#2,F$(I):NEXT:CLOSE2
2290 GOSUB620:M$="[217]ES":GOTO1170
2300 IFM$="[206]O"THEN1330
2310 X=20:GOSUB490:PRINTM$(7):L=14:GOSUB1020:IFQ$=""THEN1300
2320 NA$="M."+Q$:GOSUB610:IFER<>62THEN2350
2330 OPEN2,8,2,NA$+",S,W":FORI=0TO15:PRINT#2,F$(I):NEXT:CLOSE2
2340 GOSUB620:GOTO1300
2350 GOSUB630:GOTO1180
2360 GOSUB50:PRINT"[154]  [205][193][199][193][218][201][206][197] [201][206][196][197][216][197][211] [193][206][196] [205][193][195][210][207][211] [207][206] [196][201][211][203]  "
2370 PRINT"[154]  <[211][200][201][198][212]> [208]AUSES          <[195][205][196][210]> [197]NDS  ":PRINTP$:POKEB,27
2380 X=12:Y=13:OPEN1,8,0,"$0:?.*":GET#1,A$
2390 GET#1,G$,G$,G$,G$,H$,I$:PRINTASC(H$+CHR$(0))*256+ASC(G$+CHR$(0))I$;
2400 FORI=1TOX:GET#1,G$,H$:PRINTG$H$;:NEXT:PRINT:IFH$<>""THENX=Y:WAIT654,1,1
2410 IFPEEK(653)=2THEN2430
2420 IFH$<>""THENPOKE198,0:GOTO2390
2430 CLOSE1:PRINTJ$:PRINT"[154]             [208]RESS [193]NY [203]EY             "
2440 PRINTR$:GOSUB660:GOTO1160
2450 IFN>0THEN2480
2460 X=14:A=28:L=2:GOSUB500:PRINTS$"[206]O [193]CCESS [213]NTIL"
2470 PRINTS$" [201]NDEX [204]OADED!":GOSUB640:GOTO1240
2480 M$(0)=" [193][204][204] [210][197][195][207][210][196][211]   ":M$(1)=" [194][217] [193][210][212][201][195][204][197]    [155]"
2490 M$(2)=" [194][217] [193][213][212][200][207][210]     [155]":M$(3)=" [194][217] [205][193][199][193][218][201][206][197]   [155]"
2500 M$(4)=" [194][217] [196][193][212][197]       [155]":M$(5)=" [194][217] [211][213][194][202][197][195][212]    [155]"
2510 M$(6)="[154] [198][201][204][197] [193][206][193][204][217][211][201][211] [155]":M$(7)="[154] [204][201][194][210][193][210][217] [205][197][206][213]  [155]"
2520 X=4:GOSUB490:PRINT"        [221][221][221][221][221][221][221][221][221][221][221][221][221][221][221][221][221]  "
2530 PRINT"        [155][220]    [211][197][193][210][195][200]     [255]  [151] "
2540 PRINT"        [155][146][191][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][223]  [146][151][192]"
2550 FORI=0TO7:PRINT"        [155][146][220]"M$(I)"[255]  [146][155] [255]":NEXT
2560 PRINT"        [155][146][190][221][221][221][221][221][221][221][221][221][221][221][221][221][221][221][189]  [146][155] [255]"
2570 PRINT"      [221][221][221][221][221][221][221][221][221][221][221][221][221][221][221][221][221][221][221][221][221][146][155] [255]"
2580 PRINTSPC(8)"[166][166][146][151][220] [197][216][201][212] [208][210][207][199][210][193][205]    [155][255]":PRINTTAB(12)"[155][221][221][221][221][221][221][221][221][221][221][221][221][221][221][221][221][189]"
2590 GOSUB120:X=7:Y=0:S=8:L=7:M=1:GOSUB140:IFG$=""THENM=0:GOTO1180
2600 ONGGOTO2610,2660,2680,2700,2720,2740,2760,2800
2610 IFN<50THENQ=0:GOTO2630
2620 GOSUB1030:IFQ>NTHEN2480
2630 T$=" [211][197][193][210][195][200] [193][204][204] [210][197][195][207][210][196][211]":GOSUB730
2640 Q=Q+1:IFQ>NTHEN1160
2650 GOSUB810:GOSUB820:GOTO2640
2660 Q=0:GOSUB1040:IFQ$=""THEN2480
2670 T$=K$+"[193][210][212][201][195][204][197]":GOSUB730:A=0:GOSUB920:GOTO1160
2680 Q=0:GOSUB1040:IFQ$=""THEN2480
2690 T$=K$+"[193][213][212][200][207][210]":GOSUB730:A=1:GOSUB920:GOTO1160
2700 Q=0:GOSUB1040:IFQ$=""THEN2480
2710 T$=K$+"[205][193][199][193][218][201][206][197]":GOSUB730:A=2:GOSUB920:GOTO1160
2720 Q=0:GOSUB1040:IFQ$=""THEN2480
2730 T$=K$+"[196][193][212][197]":GOSUB730:A=3:GOSUB920:GOTO1160
2740 Q=0:GOSUB1040:IFQ$=""THEN2480
2750 T$=K$+"[211][213][194][202][197][195][212]":GOSUB730:A=5:GOSUB920:GOTO1160
2760 X=10:A=154:L=6:GOSUB500:PRINTS$"[154] [198][201][204][197] [193][206][193][204][217][211][201][211]:"
2770 PRINTS$" [193]VAILABLE:":PRINTS$" [201]N [205]EMORY:":PRINTS$" [210]EMAINING:"
2780 PRINTS$"[193]VG.[204]ENGTH:":X=13:GOSUB490:PRINTS$S$""LM%:PRINTS$S$""N
2790 PRINTS$S$""LM%-N:PRINTS$S$""AV%:GOSUB660:IFM=1THEN2480
2800 M=0:GOTO1180
2810 OPEN2,4,2:CLOSE2:IFST=0THEN2840
2820 X=21:GOSUB490:PRINT"          [208]RINTER [206]OT [207]NLINE!          ":PRINTR$
2830 GOSUB110:C=0:GOTO640
2840 IFC=1THENA=Q:GOSUB2860:GOSUB2880:C=0:RETURN
2850 FORA=1TON:GOSUB2860:GOSUB2880:NEXT:C=0:RETURN
2860 X=21:GOSUB490:PRINT"             [208][210][201][206][212][201][206][199] #                ":PRINTR$
2870 GOSUB110:X=21:GOSUB490:PRINTSPC(23)""A:RETURN
2880 OPEN4,4,7:CMD4:PRINT#4,"   "FI$" [210]ECORD #"A:PRINT#4,"   "RIGHT$(P$,38)
2890 PRINT#4,"   "AR$": "RE$(0,A):PRINT#4,"   "AU$": "RE$(1,A)
2900 PRINT#4,"   "MG$": "RE$(2,A):PRINT#4,"   "DT$": "RE$(3,A)
2910 PRINT#4,"   "PG$": "RE$(4,A):PRINT#4,"   "SB$": "RE$(5,A)
2920 PRINT#4:CLOSE4:RETURN
2930 POKE53265,11:POKE56576,(PEEK(56576)AND252):POKE53272,PEEK(53272)AND15
2940 POKE648,192:PRINT"[147]":POKE53272,(PEEK(53272)AND240)OR2:CLR
2950 U$="                                       ":E$=LEFT$(U$,27):M$="[206]O"
2960 P$="[155][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192]":R$=P$+"":S$=""
2970 J$="[155][221][221][221][221][221][221][221][221][221][221][221][221][221][221][221][221][221][221][221][221][221][221][221][221][221][221][221][221][221][221][221][221][221][221][221][221][221][221][221]":B=53265:AV%=162:D=214:C=1
2980 AR$=" [193][210][212][201][195][204][197]":AU$="  [193][213][212][200][207][210]":MG$="[205][193][199][193][218][201][206][197]":DT$="    [196][193][212][197]":PG$="    [208][193][199][197]"
2990 SB$=" [211][213][194][202][197][195][212]":Z=54272:K$=" [211][197][193][210][195][200] [194][217] ":UN$="[213]NDEFINED                 [219]"
3000 V$="[155][219][219][219][219][219][219][219][219][219][219][146] ":FI$="[206]O [201]NDEX"
3010 DIMA,EF,ER,F,G,I,L,LM%,M,N,Q,S,T,U%,V%,X,Y,A$,ER$,G$,H$,I$,NA$,Q$,T$
3020 DIMRE$(5,400),F$(15),M$(10):FORI=0TO15:F$(I)=UN$:NEXT
3030 U%=FRE(0)-AV%:LM%=U%/AV%:IFM=1THENM=0:C=0:RETURN
3040 GOTO1160
3050 X=9:A=154:L=7:GOSUB500:PRINTS$"[154]  [205][193][199][193][218][201][206][196][197][216]":PRINTS$"    ^_1992"
3060 PRINTS$" [210][213][206] [205]AGAZINE":PRINTS$"  & [212]ECH[205]EDIA"
3070 PRINTS$"[208]UBLISHING [201]NC.":PRINTS$"  [215]RITTEN [194]Y"
3080 PRINTS$"  [199]ARY [206]OAKES":GOSUB660:GOTO1240
3090 X=14:A=28:L=2:GOSUB500:PRINTS$" [197]XIT [208]ROGRAM!"
3100 PRINTS$" [193]RE [217]OU [211]URE?":GOSUB640:IFG$<>"Y"THEN1240
3110 POKEB,11:POKE56576,(PEEK(56576)AND252)OR3:POKE53272,21:POKE648,4
3120 POKE53280,14:POKE53281,6:POKE808,237:PRINT"[147][142]	[154]":POKEB,27