100 POKE 55,0:POKE 56,128:CLR
110 DE=PEEK(186):IFDE<8THENDE=8
115 GOTO230
120 SYS 52496,FR,FC,TR,TC,AD,FU,CO,RV
130 AD=AD+(TR-FR+1)*(TC-FC+1)*2:N=N+1
140 IF AD>52495THENPRINT"WINDOWS ABORT!":END
150 FR(N)=FR:FC(N)=FC:TR(N)=TR:TC(N)=TC
160 RETURN
170 :
180 FR=FR(N):FC=FC(N):TR=TR(N):TC=TC(N)
190 AD=AD-(TR-FR+1)*(TC-FC+1)*2:N=N-1
200 SYS 52496,FR,FC,TR,TC,AD,8,1,1
210 RETURN
220 :
230 PRINT"[147]":DIM L$(12),L(12),LA(12),LW$(7),MM$(4)
240 DIM LA$(106),LB(106),LC(106),LP(106),PI(22)
250 L$(1)="[197]ACH ":L$(2)="[199]RAM ":L$(3)="[207]UNCE":L$(4)="[208]OUND":L$(5)="[212]SP  "
260 L$(6)="[212]BL  ":L$(7)="[207]UNCE":L$(8)="[195]UP  ":L$(9)="[208]INT ":L$(10)="[209]UART"
270 L$(11)="[199]AL  ":L$(12)="     "
280 L(1)=1.0:L(2)=.035273:L(3)=1.0:L(4)=16:L(5)=.16666667:L(6)=0.5
290 L(7)=1.0:L(8)=8.0:L(9)=16.0:L(10)=32.0:L(11)=64.0:L(12)=-1.0
300 A3$=CHR$(125):A6$="[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]"
310 LA(1)=0.:LA(2)=31.:LA(3)=59.:LA(4)=90.:LA(5)=120.:LA(6)=151.
320 LA(7)=181.:LA(8)=212.:LA(9)=243.:LA(10)=273.:LA(11)=304.:LA(12)=334.
330 LW$(0)="[211][213][206]":LW$(1)="[205][207][206]":LW$(2)="[212][213][197]":LW$(3)="[215][197][196]":LW$(4)="[212][200][210]"
340 LW$(5)="[198][210][201]":LW$(6)="[211][193][212]"
350 MM$(1)="[194][210][197][193][203][198][193][211][212]":MM$(2)="[204][213][206][195][200]":MM$(3)="[196][201][206][206][197][210]":MM$(4)="[211][206][193][195][203]"
360 SS$="                               ":ZC=0
370 GOSUB540:END
380 FR=21:FC=09:TR=23:TC=29:FU=7 :CO=1 :RV=3:GOSUB120
390 YY=23:XX=10:GOSUB530
400 PRINT"[159] [193]NY [203]EY [195]ONTINUES";
410 POKE198,0:WAIT198,15:GETA$:GOSUB180:RETURN
420 IF ZC=1THEN RETURN
430 FR=18:FC=08:TR=22:TC=32:FU=7 :CO=1 :RV=3:GOSUB120:YY=21:XX=09:GOSUB530
440 PRINT"[159] [204]OADING [195]ATEGORY [198]ILE":GOSUB1130:GOSUB180:ZC=1:RETURN
450 GOSUB520:PRINT"[144][147]NEW":PRINT"LOAD"CHR$(34)F$CHR$(34)","DE
460 PRINT"?C[200](144)C[200](142):RUN"
470 POKE198,3:POKE631,13:POKE632,13:POKE633,13:POKE56,160:END
480 INPUT#15,E,E$,A,B:IFE<20 ORRE=73 THEN RETURN
490 IF E=50THENRETURN
500 PRINT "[147]  [196][201][211][203] [208][210][207][194][204][197][205]: [195]AN'T [195]ONTINUE!":GOSUB380
510 GOSUB520:END
520 CLOSE3:CLOSE15:OPEN15,DE,15,"I0":GOSUB480:FORI=1TO150:NEXT:CLOSE15:RETURN
530 POKE 214,YY:POKE211,XX:PRINT"[145]";:RETURN
540 REM HSKPNG
560 DIM CA$(30),CI$(30),CX(30),CS(30),SD(6,7)
570 DIM FR(20),FC(20),TR(20),TC(20)
580 AD=49920:FORI=1TO30:CX(I)=0:CS(I)=0:NEXT
590 POKE 147,0:SYS57812"WINDOWS.O",DE,1:SYS62631
600 POKE147,0:SYS57812"CAL.RD.O",DE,1:SYS62631
610 PRINTCHR$(14)
620 POKE53280,0:POKE53281,0
630 POKE53280,0:FR=07:FC=05:TR=20:TC=33:FU=7:CO=7:RV=3:GOSUB5000:GOSUB120
640 YY=10:XX=16:GOSUB530:PRINT"[159][207][208][212][201][207][206][211]"
650 PRINT"[159][163][163][163][163][163][163][163]"
660 PRINT"[159]1. [208]LAN [210]EVIEW/[213]PDATE"
670 PRINT"2. [195]ONSUME [210]EVIEW/[213]PDATE"
680 PRINT"3. [208]RINT & [193]NALYSIS"
690 PRINT"4. [194]ROWSE [195]ALORIE [212]ABLE"
700 PRINT"5. [195]ALORIE [212]ABLE [213]PDATE"
710 PRINT"6. [209]UIT [212]HIS [208]ROGRAM"
720 PRINT"[208]LEASE [211]ELECT"
730 POKE198,0:WAIT198,15:GETA$:IFA$<"1"ORA$>"6"THEN730
740 IF A$="1" THEN GOSUB180:ZT=1:GOSUB2780:GOTO630
750 IF A$="2" THEN GOSUB180:ZT=0:GOSUB2780:GOTO630
760 IF A$="3" THEN GOSUB180:F$="CAL.PRINT":GOTO450
770 IF A$="5" THEN GOSUB180:F$="CAL.TAB.UPTE":GOTO450
780 IF A$="4" THENGOSUB180:GOTO810
790 IF A$="6" THEN GOSUB180:F$="HELLO CONNECT":DE=8:GOTO450
800 GOTO 730
810 GOSUB420:GOSUB1250:GOTO630
820 WAIT198,15:GETA$:GOSUB180:RETURN
830 REM GET ROUTINE
840 A1$=""
850 GOSUB1050
860 GETA$:IFA$=""ORA$=","ORA$=";"THEN860
870 A=ASC(A$):IF A=20 THENGOSUB1080:GOTO940
880 IF A=13THEN 960
890 IF A5$="A"THEN 1100
900 IF A$="."ORA$="," THEN930
910 IF A$ = "-" AND LEN(A1$) = 0 THEN 930
920 IF A < 48 OR A > 60 THEN 860
930 IFLEN(A1$)<AL THEN A1$=A1$+A$
940 GOSUB950:GOTO 860
950 GOSUB1050:RETURN
960 DV=0:L =LEN(A1$):A = 0:AT = 0:P = 0:AN = 1
970 IF A5$="A"THEN RETURN
980 FOR I=1 TO L:A$ = MID$(A1$,I,1)
990 IF A$="-" THEN AN=-1:GOTO 1040
1000 IFA$=","THEN 1040
1010 IF A$="."THENDV=1:GOTO 1040
1020 IF DV=0 THEN A=VAL(A$):AT = AT*10 + A
1030 IF DV=1 THEN P=P+1:A=VAL(A$):AT = AT + A/(10^P)
1040 NEXT:AT=AT*AN:RETURN
1050 A4$=LEFT$(A6$,AL)
1060 GOSUB530:PRINTA7$;A2$;" "; A3$;A1$" ";SPC(AL-LEN(A1$));"[157]"A3$
1070 PRINT A7$;SPC(XX+    LEN(A2$)+1);CHR$(173);A4$;CHR$(189);"[145][145]":RETURN
1080 L=LEN(A1$):IFL=0THEN RETURN
1090 L=L-1:A1$=MID$(A1$,1,L):RETURN
1100 IF A> 31 AND A <94 THEN 930
1110 IF A> 159 AND A <221 THEN 930
1120 GOTO 860
1130 REM GET CATEGORY FILE
1140 CLOSE15:OPEN15,DE,15,"I0":PRINT#15,"R0:%%MAST.CAT=%%MAST.CAT"
1150 INPUT#15,ER:CLOSE15
1160 IF ER<>63 THEN 65535
1170 CLOSE15:OPEN15,DE,15,"I0":GOSUB1220:OPEN3,DE,3,"%%MAST.CAT,S,R":GOSUB1220
1180 I=0:INPUT#3,NC:REM NC=NXT CAT NUM
1190 I=I+1:INPUT#3,CA$(I):INPUT#3,CI$(I):INPUT#3,CX(I)
1200 IFLEFT$(CA$(I),1)<>CHR$(255)THEN1190
1210 GOSUB1220:CLOSE3:CLOSE15:CL=I:RETURN
1220 INPUT#15,E,E$,A,B:IFE<20ORE=73THEN RETURN
1230 IF E=50 THEN RETURN
1240 GOTO500
1250 PG=0:PRINT"[147] _ = [197]SCAPE  F1 = [208]AGE  <[210]TN> = [211]ELECT"
1260 FR=04:FC=09:TR=22:TC=30:FU=7 :CO=1:RV=3:GOSUB120
1270 YY=6:XX=13:GOSUB530:PRINT"[159]  [195][193][212][197][199][207][210][201][197][211]":YY=7:GOSUB530
1280 PRINT"  [163][163][163][163][163][163][163][163][163][163]":CP=0
1290 CP=CP+1:IF CP+PG*13>CLTHEN CP=CP-2:GOTO1340
1300 IF CP>13 THEN CP=13:GOTO1340
1310 YY=7+CP:GOSUB530:PRINT""CA$(CP+(PG*13))
1320 IF CP+PG*13 =CLTHEN GOSUB530:PRINT "   [146][197]ND [204]IST[159]"
1330 GOTO1290
1340 PM=CP:CP=1:XX=11:CQ=1
1350 GOSUB1470
1360 XX=11:WAIT198,15:GETA$:IFA$=""THENCR=1:GOTO1420
1370 IF A$="[133]"THEN CR=PM-CP+1:GOTO1420
1380 IF A$="_"THEN GOSUB180:RETURN
1390 IF A$="[145]"THENCR=-1:GOTO1420
1400 A=ASC(A$):IFA=13THEN1480
1410 GOTO1360
1420 CP=CP+CR:IFCP<1THENCP=PM:GOTO1350
1430 IF CP<=PMTHEN1350
1440 IFCL<15THENCP=1:GOTO1350
1450 PG=PG+1:IF PG>1THENPG=0
1460 GOSUB180:GOTO1260
1470 YY=CQ+7:GOSUB530:PRINT"[159] ":YY=CP+7:GOSUB530:PRINT">":CQ=CP:RETURN
1480 AX=PG*13+CP:CR=PM:GOSUB1710
1490 FR=09:FC=02:TR=24:TC=37:FU=7 :CO=1 :RV=5:GOSUB120
1500 CS=CS(AX):PRINT"[159]";
1510 SYS32771,CS,RT:DL=RT:IF RT>127 THEN 1510
1520 IF RT=64 THEN 1500
1530 IF RT>63 THEN DL=DL-65
1540 DP=0:XX=4:POKE198,0:DQ=0
1550 GOSUB1640:WAIT198,15:GETA$
1560 IF A$="" THEN DP=DP+1:IFDP>DL THEN DP=0
1570 IF A$="[145]" THEN DP=DP-1:IFDP<0  THEN DP=DL
1580 IF ASC(A$)=13 THEN CS=DPOR64:GOTO1650
1590 IF A$="[133]"THEN CS=0:GOTO1620
1600 IF A$="_" THEN GOSUB180:PM=CR:GOTO1360
1610 GOTO1550
1620 IF RT>63  THEN 1500
1630 GOTO 1510
1640 YY=DQ+12:GOSUB530:PRINT" ":YY=DP+12:GOSUB530:PRINT">":DQ=DP:RETURN
1650 SYS32771,CS,RT,N$
1660 IF RT>999 THENGOSUB180:GOSUB1810:GOTO1680
1670 GOTO1550
1680 IFZA=1 THEN ZA=0:GOSUB180:RETURN
1690 GOTO1360
1700 S3=INT(SI/1000000):SI=SI-S3*1000000:S1=INT(SI/1000):S2=SI-S1*1000:RETURN
1710 REM GET SUBCAT FLE
1720 A$=CI$(AX):IF CS(AX)<>0THEN 1800
1730 CLOSE15:OPEN15,DE,15:GOSUB1220
1740 OPEN3,DE,3,A$+",S,R":GOSUB1220:FL=CX(AX):SYS32768,FL,CC,CS,RT
1750 I=0:RT=INT(RT)
1760 I=I+1:IFI>CLTHEN1790
1770 IF CS(I)<=CC AND CS(I)>=CS THENCS(I)=0
1780 GOTO 1760
1790 CS(AX)=CS:GOSUB1220:CLOSE3:CLOSE15
1800 RETURN
1810 FR=07:FC=02:TR=20:TC=36:FU=07:CO=1:RV=3:GOSUB120
1820 YY=9:XX=4:GOSUB530:PRINT N$:PRINT
1830 SI=RT:GOSUB1700
1840 B$=STR$(S1):BA$=RIGHT$("    "+B$,5)
1850 PRINT "[159][195]ALORIES PER       [212][207][212][193][204]  ";BA$:BB$=" [197]ACH           "
1860 B$=STR$(S2):BA$=RIGHT$("    "+B$,5):S4=S3-(INT(S3/10)*10)
1870 IF S4=3 THEN BB$=" [207]UNCE BY [214]OLUME"
1880 IF S4=2 THEN BB$=" [207]UNCE BY [215]EIGHT"
1890 PRINT"[159]";BB$;"   [211][193][212] [198][193][212]";BA$
1900 GOSUB1930:IFLQ<0THEN GOSUB180:RETURN
1910 GOSUB2050:GOSUB2080:IFLQ<0THEN GOSUB180:RETURN
1920 GOSUB180:RETURN
1930 IF S4=1 THEN PT=1:LQ=1:RETURN
1940 FR=12:FC=10:TR=23:TC=19:FU=7:CO=1:RV=3:GOSUB120:P1=2:P2=4:PL=13
1950 IFS4=3 THEN P1=5:P2=11:PL=10
1960 YY=14:XX=13:GOSUB530:PRINT"[159][213][206][201][212]"
1970 FOR I=P1TOP2:PRINTTAB(13);"[159]";L$(I):NEXT:PT=P1:PQ=P1
1980 YY=PT+PL:XX=11:GOSUB530:PRINT">":POKE198,0:WAIT198,15:GETA$
1990 IF A$="_"THEN LQ=-1:GOSUB180:RETURN
2000 IF A$=""THENPT=PT+1:IFPT>P2THENPT=P1
2010 IF A$="[145]"THENPT=PT-1:IFPT<0THENPT=P2
2020 IF ASC(A$)=13 THEN LQ=L(PT):GOSUB180:RETURN
2030 IF A$="_"THEN L=-1:GOSUB180:RETURN
2040 YY=PQ+PL:GOSUB530:PRINT" ":PQ=PT:GOTO1980
2050 FR=12:FC=09:TR=18:TC=29:FU=7:CO=1:RV=3:GOSUB120
2060 YY=14:XX=12:GOSUB530:PRINT"[159] [197][206][212][197][210] [209][213][193][206][212][201][212][217] "
2070 YY=16:A5$="":AL=8:A2$=" ":A7$="[159]":GOSUB830:GOSUB180:RETURN
2080 YY=15:XX=07:GOSUB530:PRINT"[159]"AT;L$(PT);" WILL PRODUCE"
2090 B=AT*LQ*S1:B$=RIGHT$("     "+STR$(INT(B)),5)
2100 PRINT "[159]";B$;" [212]OTAL [195]OLORIES, AND"
2110 B=AT*LQ*S2:B$=RIGHT$("     "+STR$(INT(B)),5)
2120 PRINT "[159]";B$;" [211]AT [198]AT [195]ALORIES":GOSUB380:RETURN
2130 PRINT"[147]":POKE53281,0:POKE53280,0:FR=09:FC=09:TR=20:TC=31:FU=7:CO=1:RV=3
2140 GOSUB120:YY=11:XX=10:GOSUB530:PRINT"[159]";B$;" [210][197][214][201][197][215] [213][208][196][193][212][197]"
2150 A7$="[159]":A5$="A":AL=8:A2$=" "
2160 PRINT TAB(11);"[197]NTER ";B$;" [206]AME: ":YY=15:XX=16:GOSUB830:LP$=A1$
2170 YY=17:XX=11:GOSUB530:PRINT"[197]NTER [211]TART [196]ATE:"
2180 A2$="[217][217]/[205][205]/[196][196]":YY=19:XX=12:GOSUB830:LD$=A1$:A1$=A1$+"/"
2190 LN$="":A$="":J=0:GOSUB2300:IFJ<0THEN 2330
2200 LN$=A$:LY=VAL(A$):A$="":GOSUB2300:IFJ<0THEN 2330
2210 LN$=LN$+A$:LM=VAL(A$):A$="":GOSUB2300:IFJ<0THEN 2330
2220 LN$=LN$+A$:LD=VAL(A$):IFLY<89 OR LY>99 THEN 2330
2230 IF LM<1OR LM>12 THEN 2330
2240 IF LD<1 OR LD>31 THEN2330
2250 LF$=LEFT$(LP$+"........",8)+LN$
2260 LW=(LY-88)*365+LD+LA(LM):LW=LW+INT((LY-88)/4)
2270 IF (INT(LY/4)-(LY/4)=0) AND LM<3 THEN LW=LW-1
2280 LW=LW-(INT(LW/7)*7):GOSUB180:LW=LW+5:IFLW>6THEN LW=LW-7
2290 RETURN
2300 J=J+1:IFMID$(A1$,J,1)="/"THENRETURN
2310 IFJ>8THENJ=-1:RETURN
2320 A$=A$+MID$(A1$,J,1):GOTO2300
2330 PRINT TAB(11)"[159][196][193][212][197] [201][211] [201][206][214][193][204][201][196]![159]":GOSUB380:PRINT"[145][145][145][145][145]"
2340 PRINT TAB(10);"[159]                     ":GOTO2170
2350 IF MM=99 THEN RETURN
2360 FR=12:FC=2:TR=22:TC=38:FU=7:CO=1:RV=3:GOSUB120:PRINT"[159]"
2370 YY=13:XX=16:GOSUB530:PRINT X$:PRINT"";N$
2380 PRINT TAB(6);"[196][193][217]= ";LW$(MD);SPC(9);"[205][197][193][204]= ";MM$(MM)
2390 M1$=RIGHT$("     "+STR$(MF),5):M2$=RIGHT$("     "+STR$(MT),5)
2400 PRINTTAB(5);"[195][193][204][207][210][201][197][211]: [198]AT ";M1$;"  [212]OTAL ";M2$
2410 PRINT TAB(12);"FOR ";STR$(MX/1000);"  ";L$(MQ)
2420 IF A=1 THEN PRINT TAB(12);"[211]EE [195]HANGE [205]ENU":RETURN
2430 PRINT TAB(5);"[159]_ = [195][193][206][195][197][204]    <[210]TN> = [197][216][197][195][213][212][197]"
2440 POKE 198,0:WAIT198,15:GETA$:IFA$="_" THEN A=0:GOSUB180:RETURN
2450 IF ASC(A$)=13 THEN A=1:GOSUB180:PRINT"":RETURN
2460 GOTO2440
2470 FR=12:FC=10:TR=23:TC=19:FU=7:CO=1:RV=3:GOSUB120
2480 YY=14:XX=13:GOSUB530:PRINT"[159][196][193][217]":PRINT
2490 FORL=0TO6:PRINT TAB(13);"";LW$(L):NEXT
2500 L=1:LZ=1:LL=1:GOSUB2550
2510 POKE198,0:WAIT198,15:GETA$:IFA$=""THENL=L+1:GOSUB2550:GOTO2510
2520 IFA$="[145]"THENL=L-1:GOSUB2550:GOTO2510
2530 IF ASC(A$)=13THEN GOSUB180:L=L-1:RETURN
2540 GOTO2510
2550 IF L>7THENL=1
2560 IF L<1THENL=7
2570 YY=LL+15:XX=11:GOSUB530:PRINT" ":YY=L+15:GOSUB530:PRINT">":LL=L:RETURN
2580 IF LO<1 THEN LO=LP
2590 IF LO>LP THEN LO=1
2600 YY=LR+4:XX=0:GOSUB530:PRINT" ":YY=LO+4:GOSUB530:PRINT"[159]>":LR=LO:RETURN
2610 IFPP=0 THEN IFPL<3 THEN 2640
2620 M1$=RIGHT$("     "+STR$(M1),6):M2$=RIGHT$("     "+STR$(M2),5)
2630 PRINTTAB(16);"[159][205]EAL [212]OTAL: ";M1$;M2$;"":PI(PL)=0:PL=PL+1:PP=0
2640 M1=0:M2=0:IFMM=9THEN2670
2650 IF L<0 THEN 2670
2660 PRINT"[159] ";MM$(MM);"[159]":PI(PL)=0:PL=PL+1
2670 XM=MM:RETURN
2680 MM=INT(MC/100000000):MC=MC-MM*100000000:MT=INT(MC/10000):MF=MC-MT*10000
2690 MD=INT(MU/10000000):MU=MU-MD*10000000:MX=INT(MU/100):MQ=MU-MX*100
2700 RETURN
2710 PRINT"[147][159]";C$;" FOR:[146] ";LP$:PRINT"[145]"TAB(24);"[211][212][193][210][212]:[146] ";LD$
2720 J=MD:IFMD=99THENJ=0
2730 PRINTTAB(4);"[159]([200][159])ELP SCREEN";SPC(09);"[196][193][217]:[146] ";LW$(J):LP=0:PL=0
2740 PRINT"   [215][197][201][199][200][212] ";WA/10
2750 PRINT " [192][192][192][192][192][192][192][192] [197][206][212][210][217] [192][192][192][192][192][192][192][192] [195][193][204][211]> [198][193][212]  [212][207][212]"
2760 YY=5:XX=0:GOSUB530:IFPP=0 THEN XD=MD:XM=0
2770 RETURN
2780 IF ZT=1THEN C$=" [208][204][193][206]":LE$="%!":GOTO2800
2790 C$="[195][207][206][211][213][205][197]":LE$="%$"
2800 GOSUB2130:CLOSE15:OPEN15,DE,15,"I0":PRINT#15,"R0:"+LE$+LF$+"="+LE$+LF$
2810 INPUT#15,ER:CLOSE15:IFER<>63THEN 3250
2820 OPEN15,DE,15:GOSUB480:OPEN3,DE,3,LE$+LF$+",S,R":GOSUB480:I=0:INPUT#3,WA,WB
2830 I=I+1:INPUT#3,LA$(I):INPUT#3,LB(I):INPUT#3,LC(I):LP(I)=I
2840 IF LEFT$(LA$(I),1)<> CHR$(255) THEN 2830
2850 LH=I:LG=I:GOSUB480:CLOSE3:CLOSE15:MM=9:XM=0:XD=0
2860 I=NI:PL=0:PO=0:IFMM=9 THEN I=0
2870 I=I+1
2880 MC=LB(LP(I)):MU=LC(LP(I)):GOSUB2680
2890 IF PL=0THEN NH=I-1:GOSUB2710
2900 PL=PL+1:IFPL>17 THEN PO=1: PRINTTAB(12)"[159][205][207][210][197]":GOTO2980
2910 IF MM=9 THEN GOSUB 2610:GOTO2970
2920 IF XD<>MD THEN L=-1:GOSUB2610:PRINTTAB(13);"[159][197][206][196] [207][198] [196][193][217]":GOTO2980
2930 L=0: IF XM<>MM THEN GOSUB2610
2940 M1$=RIGHT$("     "+STR$(MF),5):M2$=RIGHT$("     "+STR$(MT),5)
2950 PRINT" ";LEFT$(LA$(LP(I))+SS$,28);M1$;M2$
2960 M1=M1+MF:M2=M2+MT:PI(PL)=I:GOTO2870
2970 PRINT TAB(5);"[197]ND OF [204]IST":PI(PL)=I:PL=PL+1
2980 LO=1:LQ=1:LP=PL-1:LR=1:GOSUB2580:NI=I-1
2990 POKE198,0:WAIT198,15:GETA$
3000 IFA$=""THEN LO=LO+1:GOSUB2580:GOTO2990
3010 IFA$="[145]"THEN LO=LO-1:GOSUB2580:GOTO2990
3020 IF A$="[133]"THEN PP=PO :GOTO2860
3030 IF A$="[134]"THEN N$=LA$(PI(LO)):GOTO3110:REM F3
3040 IF A$="H"THEN GOSUB3360:GOTO2990
3050 IF A$="[138]"THEN GOTO3740:REM INSERT
3060 IF A$="[135]"THEN 3990:REM  F5
3070 IF A$="[139]"THEN GOTO3670:REM F6
3080 IF A$="[136]"THEN 4230
3090 IF A$="_"THENGOSUB3800:PRINT"[147]":RETURN
3100 GOTO2990
3110 GOSUB420
3120 MC=LB(LP(PI(LO))):MU=LC(LP(PI(LO))):GOSUB2680
3130 L=0:ZA=1:GOSUB1250:IFA$="_" THEN NI=NH:GOTO2860
3140 IFLQ<0THEN 3240
3150 MX=AT*1000:MQ=PT:MT=AT*LQ*S2:MF=AT*LQ*S1
3160 IF MM=9 OR PI(LO)=0 THEN GOSUB2470:MD=L:GOSUB3540:MM=L:GOSUB3480
3170 X$=" [208][201][195][203]":A=0:GOSUB2350:PRINT"[159]":IFA=0THEN NI=NH:GOTO2860
3180 IFPI(LO)=0 THEN GOSUB3480
3190 LH=LH+1:LG=LG+1:IFLH>106 OR LG>106 THEN 4400
3200 FOR I1=LGTOPI(LO) STEP-1:LP(I1)=LP(I1-1):NEXT
3210 LP(PI(LO))=LH:LA$(LH)=N$
3220 LB(LH)=INT(MM)*100000000+INT(AT*LQ*S1)*10000+INT(AT*LQ*S2)
3230 LC(LH)=INT(MD)*10000000+INT(AT*100000)+INT(PT)
3240 L=0:GOSUB3480:GOTO2860
3250 FR=12:FC=10:TR=20:TC=29:FU=7 :CO=1 :RV=3:GOSUB120
3260 YY=14:XX=12:GOSUB530:PRINT"[159]";LF$:PRINTTAB(12)"NOT IN [196]IRECTORY."
3270 IFLW<>0 THEN PRINTTAB(12);" [196]AY IS A ";LW$(LW);"!"
3280 PRINTTAB(12);"[195]REATE IT? (Y/N)"
3290 POKE 198,0:WAIT198,15:GETA$:IF A$="N"THEN GOSUB180:RETURN
3300 GOSUB3940:WA=INT(AT*10):YY=18:XX=13:GOSUB530:PRINT"[159]";
3310 PRINT TAB(13);"[195]REATING [198]ILE!"
3320 CLOSE15:OPEN15,DE,15,"I0":GOSUB480:OPEN3,DE,3,LE$+LF$+",S,W":GOSUB480
3330 PRINT#3,WA :PRINT#3,0.0:PRINT#3,CHR$(255)+CHR$(255)
3340 PRINT#3,900000000.0:PRINT#3,990000000.0:GOSUB480
3350 CLOSE3:CLOSE15:GOSUB180:GOTO2820
3360 FR=02:FC=26:TR=15:TC=39:FU=7 :CO=1 :RV=3:GOSUB120:YY=4:XX=0:GOSUB530
3370 PRINTTAB(31)"[159][200][197][204][208]":PRINTTAB(30)"[163][163][163][163][163][163]"
3380 PRINTTAB(27)"[195][210][211][210] = [211]EL"
3390 PRINTTAB(27)"F1 = [208]AGE"
3400 PRINTTAB(27)"F3 = [208]ICK"
3410 PRINTTAB(27)"F4 = [201]NSERT"
3420 PRINTTAB(27)"F5 = [195]HANGE"
3430 PRINTTAB(27)"F6 = [196]ELETE"
3440 PRINTTAB(27)"F7 = [211]UMMARY"
3450 PRINTTAB(27)" _ = [197]SCAPE "
3460 PRINTTAB(27)"  [146]ANY KEY"
3470 POKE 198,0:WAIT198,15:GETA$:GOSUB180:RETURN
3480 A=0:AA=MD*10000000
3490 A=A+1:IFAA>LC(LP(A)) THEN 3490
3500 AA=(MD+1)*10000000:AB=MM * 100000000:NI=A-1
3510 IFAB<LB(LP(A)) THEN 3530
3520 IF AA>LC(LP(A))THEN A=A+1:GOTO3510
3530 PI(LO)=A:RETURN
3540 FR=12:FC=20:TR=20:TC=33:FU=7:CO=1:RV=3:GOSUB120:PRINT"[159]"
3550 YY=14:XX=23:GOSUB530:PRINT"[205][197][193][204]"
3560 FORL=1TO4:PRINTTAB(23);"";MM$(L):NEXT
3570 L=1:LZ=1:LL=1:GOSUB3620
3580 POKE198,0:WAIT198,15:GETA$:IFA$=""THENL=L+1:GOSUB3620:GOTO3580
3590 IFA$="[145]"THEN L=L-1:GOSUB3620:GOTO3580
3600 IF ASC(A$)=13 THEN GOSUB180:PRINT"":RETURN
3610 GOTO3580
3620 IF L>4 THEN L=1
3630 IF L<1 THEN L=4
3640 YY=LL+15:XX=21:GOSUB530:PRINT" ":YY=L+15:GOSUB530:PRINT">":LL=L:RETURN
3650 FR=4:FC=13:TR=8:TC=27:FU=7:CO=1:RV=3:GOSUB120:PRINT"[159]"
3660 YY=7:XX=15:GOSUB530:PRINT"[205][207][214][197] [195][213][210][211][207][210]":GOSUB380:GOSUB180:PRINT"":RETURN
3670 I=PI(LO):IFI=0THENGOSUB3650:GOTO2990
3680 X$="[196][197][204][197][212][197]":N$=LA$(LP(I)):MC=LB(LP(I)):MU=LC(LP(I)):GOSUB2680
3690 IFMM=9THENGOSUB3650:GOTO2860
3700 A=0:GOSUB2350:PRINT"[159]":IFA=0THEN2990
3710 GOSUB 3720:GOTO2860
3720 LG=LG-1:FORL=ITOLG:LP(L)=LP(L+1):NEXT
3730 NI=NH:RETURN
3740 A$="[201][206][211][197][210][212][201][206][199]":GOSUB4380
3750 I=PI(LO):GOSUB2470:MD=L:GOSUB3540:MM=L:GOSUB3880:N$=A1$
3760 A$="[212][207][212][193][204]":GOSUB3910:MT=AT:A$="[211][193][212] [198][193][212]":GOSUB3910:MF=AT:S2=AT:MQ=1:PT=1
3770 GOSUB2050:IFAT=.0THENGOSUB4420:GOTO3770
3780 MX=AT*1000:S1=MT/AT:S2=MF/AT:A=0:GOSUB2350:IF A=0THENGOTO2860
3790 GOSUB3480:GOTO3190
3800 CLOSE15:OPEN15,DE,15,"R:STAR=STAR":INPUT#15,JE:CLOSE15
3810 IFJE=63THENRETURN
3811 FR=12:FC=10:TR=20:TC=29:FU=7:CO=1:RV=3:GOSUB120:PRINT"[159]"
3819 YY=15:XX=13:GOSUB530:PRINT" [211]AVING [198]ILE!"
3820 CLOSE15:OPEN15,DE,15,"I0":GOSUB480:OPEN3,DE,3,"@0:"+LE$+LF$+",S,W":GOSUB480
3830 PRINT#3,WA:PRINT#3,WB:I=0
3840 I=I+1:IFLEFT$(LA$(LP(I)),1)=CHR$(255)THEN3860
3850 PRINT#3,LA$(LP(I)):PRINT#3,LB(LP(I)):PRINT#3,LC(LP(I)):GOTO3840
3860 PRINT#3,LA$(LP(I)):PRINT#3,LB(LP(I)):PRINT#3,LC(LP(I))
3870 GOSUB480:CLOSE3:CLOSE15:GOSUB180:RETURN
3880 FR=16:FC=02:TR=22:TC=38:FU=7:CO=1:RV=3:GOSUB120:YY=18:XX=14
3890 GOSUB530:A7$="[159]":A5$="A":AL=30.:A2$="":PRINT "[197][206][212][197][210] [206][193][205][197]"
3900 YY=20:XX=4:GOSUB830:PRINT"":GOSUB180:RETURN
3910 FR=16:FC=08:TR=22:TC=33:FU=7:CO=1:RV=3:GOSUB120:YY=18:XX=10
3920 GOSUB530:A7$="[159]":A5$="":AL=8. :A2$="":PRINT "[197][206][212][197][210] ";A$;" [195][193][204][207][210][201][197][211]"
3930 YY=20:XX=15:GOSUB830:PRINT"[159]":GOSUB180:RETURN
3940 IFZT=1THEN A$="[212][193][210][199][197][212]":GOTO3960
3950 A$="[193][195][212][213][193][204]"
3960 FR=9:FC=9:TR=15:TC=32:FU=7:CO=1:RV=3:GOSUB120:PRINT"[159]"
3970 YY=11:XX=11:GOSUB530:PRINT"[197][206][212][197][210] ";A$;" [215][197][201][199][200][212]":YY=13:XX=16
3980 A7$="[159]":A5$="":AL=6:A2$="":GOSUB830:GOSUB180:RETURN
3990 I=PI(LO):IF I=0THEN GOSUB 3650:GOTO2990
4000 X$="[195][200][193][206][199][197]":N$=LA$(LP(I)):MC=LB(LP(I)):MU=LC(LP(I)):GOSUB2680
4010 IF MM=9 THEN GOSUB3650:GOTO2990
4020 AT=MX/1000:PT=MQ:LQ=1:S1=MT/AT:S2=MF/AT
4030 FR=2:FC=2:TR=10:TC=38:FU=7:CO=1:RV=3:GOSUB120:PRINT"[159]"
4040 YY=4:XX=14:GOSUB530:PRINT"[195][200][193][206][199][197][205][197][206][213]":YY=5:GOSUB530:PRINT"[163][163][163][163][163][163][163][163][163][163][163]"
4050 PRINT " 1.[196]AY   4. [198]AT [195]AL    7.[215]EIGHT"
4060 PRINT " 2.[205]EAL  5. [212]OT [195]AL"
4070 PRINT " 3.[206]AME  6. [209]UANTITY   _ = [197][211][195][193][208][197]"
4080 A=1:GOSUB2350
4090 POKE198,0:WAIT198,15:GETA$:IFA$="_"THENGOSUB180:GOTO4130
4100 IF A$<"1"THEN 4090
4110 IF A$>"7"THEN 4090
4120 GOSUB180:A=VAL(A$):ON A GOTO4150,4160,4170,4180,4190,4200,4210
4130 GOSUB180:A=0:GOSUB2350:IFA=0THENNI=NH:GOTO2860
4140 I=PI(LO):GOSUB3720:GOSUB3480:GOTO3190
4150 GOSUB2470:MD=L:GOTO4080
4160 GOSUB3540:MM=L:GOTO4080
4170 GOSUB3880:N$=A1$:AT=MX/1000:GOTO4080
4180 A$="[211][193][212] [198][193][212]":GOSUB3910:MF=AT:AT=MX/1000:GOTO4220
4190 A$="[212][207][212][193][204]":GOSUB3910:MT=AT:AT=MX/1000:GOTO4220
4200 GOSUB2050:MX=AT*1000:GOTO4220
4210 GOSUB3940:WA=INT(AT*10):NI=NH:GOSUB180:GOTO2860:REM WEIGHT
4220 LQ=1:S1=MT/AT:S2=MF/AT:GOTO4080
4230 A$=" [215][193][201][212]... ":GOSUB4380
4240 FORI=0TO6:FORJ=0TO7:SD(I,J)=0:NEXT:NEXT
4250 FORI=1TOLG:MC=LB(LP(I)):MU=LC(LP(I)):GOSUB2680
4260 IF MM=9 THEN 4280
4270 SD(MD,MM-1)=SD(MD,MM-1)+MT:SD(MD,MM+3)=SD(MD,MM+3)+MF
4280 NEXT:GOSUB180:PRINT"[147][159]"SPC(11)"[195][193][204][207][210][201][197] [211][213][205][205][193][210][217]":A$="[212][207][212][193][204]"
4290 PRINT "  [196][193][217]  [194]KFT [204]NCH [196]INR [211]NCK [212]OTAL"
4300 FORO=0TO1:PRINTTAB(15);"[159]";A$
4310 FORI=0TO6:M1$=RIGHT$("     "+STR$(SD(I,0+O*4)),5):SE=SE+SD(I,O*4+0)
4320 M2$=RIGHT$("     "+STR$(SD(I,1+O*4)),5):SE=SE+SD(I,O*4+1)
4330 M3$=RIGHT$("     "+STR$(SD(I,2+O*4)),5):SE=SE+SD(I,O*4+2)
4340 M4$=RIGHT$("     "+STR$(SD(I,3+O*4)),5):SE=SE+SD(I,O*4+3)
4350 M5$=RIGHT$("     "+STR$(SE),5):SE=0
4360 PRINT"  [159]";LW$(I)" ";M1$;M2$;M3$;M4$;M5$:NEXT
4370 A$="[211][193][212] [198][193][212]":NEXT:GOSUB380:NI=NH:MM=0: GOTO2860
4380 FR=4:FC=13:TR=8:TC=27:FU=7:CO=1:RV=3:GOSUB120:PRINT"[159]"
4390 YY=6:XX=16:GOSUB530:PRINTA$:RETURN
4400 A$=" [204][201][205][201][212]":GOSUB4380:YY=7:GOSUB530:PRINT"[197][216][195][197][197][196][197][196]":GOSUB380:GOSUB180
4410 GOSUB3800:PRINT"[147]":RETURN
4420 A$="[209][213][193][206][212][201][212][217]":GOSUB4380:YY=7:GOSUB530:PRINT"  [218][197][210][207]  ":GOSUB380:GOSUB180
4430 RETURN
5000 PRINT"[147][146][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162]";
5010 FORI=1TO3:PRINT"[159]                                        ";:NEXT
5020 PRINT"[162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162]"
5030 PRINT"[159]"TAB(5)"[195][160][193] [204] [207] [210] [201] [197] [160] [212][160][210][160][193][160][195] [203][160][197][160][210]"
5040 FORI=217TO242:POKEI,PEEK(I)OR128:NEXT:RETURN