10 GOSUB700:C0=53280:SE=54272:POKESE+24,15
20 DIMI$(10,21),G$(10,23),TI$(10,23),TG$(10,23),R$(24)
25 R$(0)="":FORI=1TO24:R$(I)=R$(I-1)+"":NEXT
26 POKEC0+2,14:POKEC0+3,13:POKEC0+4,5
30 ES$=R$(24)+"                                       "
32 A$="     ITEM     ":GOSUB1000:A2$=B$:A3$=" C "
33 A$=" WT ":GOSUB1000:A4$=B$
34 ER$=R$(20)+"            "
35 L$=CHR$(32):FORI=1TO14:C2$=L$+C2$:NEXT:FORI=1TO4:C4$=C4$+L$:NEXT
36 D$=CHR$(160):C3$=D$+D$+D$:CX$=C3$+C3$+C3$
37 CL$=C4$+C4$+C4$
38 A$=" WHAT ITEM? ":GOSUB1000:S2$=B$:A$="WEIGHT OF ":GOSUB1000:S3$=B$
39 A$=" CODE FOR ":GOSUB1000:S4$=B$
40 A$=" CHOSE ANY ":GOSUB1000:S1$=B$:A$=" DELETE ANY ":GOSUB1000:SD$=B$
41 A$=" F1-DEL  ":GOSUB1000:F1$=B$:A$=" F2-CHNG ":GOSUB1000:F2$=B$
43 A$=" F3-EXTR ":GOSUB1000:F3$=B$:A$=" F4-TOTL ":GOSUB1000:F4$=B$
44 A$=" F5-NEW  ":GOSUB1000:F5$=B$:A$=" F6-COPY ":GOSUB1000:F6$=B$
45 A$=" F7-NEXT ":GOSUB1000:F7$=B$:A$=" F8-LIST ":GOSUB1000:F8$=B$
46 A$="  E-END  ":GOSUB1000:E1$=B$
60 READ C$:IFC$="END"THEN115
70 M=M+1:C$(M)=C$:N=0
100 READI$,NO:IFI$="0"THENN(M)=N:GOTO60
110 N=N+1:I$(M,N)=I$:P=4:GOSUB1100:G$(M,N)=A$:GOTO100
115 PRINT"[147]":POKE53265,PEEK(53265)OR64
120 POKEC0,3:POKEC0+1,3:FOR X=1TOM:GOSUB500:PRINT""R$(20)S1$;
130 PRINTR$(24)F1$TAB(10)F3$TAB(20)F5$TAB(30)F7$;:GOSUB800
150 GETK$:IFK$=""THEN150
155 PRINTER$;:IFK$="[136]"THEN260
156 IFK$="[133]"THENGOSUB3000:PRINT""R$(20)S1$:GOTO150
158 IFK$="[135]"THENGOSUB3500:PRINT""R$(20)S1$:GOTO150
159 IFK$="[134]"THENGOSUB2500:PRINT""R$(20)S1$:GOTO150
160 K=ASC(K$)-64:IFK>N(X)ORK<1THENGOSUB2100:GOTO150
170 IFI$(X,K)=TI$(X,K)THENGOSUB2100:GOTO150
190 GOSUB400:GOTO150
260 NEXTX:GOTO4000
400 PRINT"[153]"R$(1+K)TAB(13)D$CHR$(K+96)D$;
402 IFCHTHEN410
405 GOSUB2000
410 J$=I$(X,K):I$=LEFT$(J$,LEN(J$)-1)
420 PRINT""TAB(17)I$;:A$=RIGHT$(J$,1):GOSUB1000
430 PRINT"[153]"TAB(31)B$;TAB(33)""G$(X,K):IFCHTHENRETURN
440 FT=FT+VAL(G$(X,K)):GOSUB800
470 S(X)=S(X)+VAL(G$(X,K)):NO=S(X):P=5:GOSUB1100:GOSUB1000
475 PRINTR$(22)TAB(31)D$B$D$
480 TI$(X,K)=I$(X,K):TG$(X,K)=G$(X,K):RETURN
500 A$=" "+CHR$(X+64):GOSUB1000:PRINT"[147]"TAB(13)B$D$"[144]"A2$"[144]"A3$"[144]"A4$L$
520 Z$="":A$=C$(X):FORK=1TOLEN(A$)+2:Z$=Z$+D$:NEXT:PRINT""Z$
522 GOSUB1000:PRINT""D$B$D$:PRINT""Z$
530 PRINT"";:FORI=1TO21:PRINTTAB(13)""C3$C2$C3$C4$D$:NEXT
540 PRINT"";:FORY=1TON(X):A$=CHR$(Y+64):GOSUB1000:PRINTTAB(14)""B$;
545 J$=I$(X,Y):I$=LEFT$(J$,LEN(J$)-1)
550 PRINT"[151]"TAB(17)I$;:A$=RIGHT$(J$,1):GOSUB1000
560 PRINT""TAB(31)B$TAB(33)"[151]"G$(X,Y):NEXT:RETURN
700 POKE53280,0:POKE53281,0:PRINT"[147][153]";:A$=""
715 FORI=1TO7:READA$:PRINTTAB(13)A$:NEXT:RETURN
750 DATA" [146][208]  [146]  [146]  [146][208]  [146][208]  [146][206]"," [146]   [146][192] [146]  [146][192]  [146]   [146][205]"
760 DATA" [146][186]  [146]  [146]  [146][186]  [146][186]  [146][170]",
770 DATA"    [146]   [146] [169][146][205][183] [146][183]","    [146]   [146] [223][223][146]  ","    [146][186]  [146] [205][169]  "
780 RETURN
800 PRINTR$(5)"  TOTAL  "
810 PRINTTAB(1)C3$C3$D$:NO=FT:P=5:GOSUB1100:GOSUB1000
820 PRINTTAB(1)""D$B$D$:PRINTTAB(1)C3$C3$D$:RETURN
1000 B$="":FORJ=1TOLEN(A$):B=ASC(MID$(A$,J,1)):B=B+32:B=B-96*(B<96)
1010 B$=B$+CHR$(B):NEXT:RETURN
1100 A$=STR$(NO):LN=LEN(A$)-1
1110 FORJ=1TOP-LN:A$=" "+A$:NEXT:A$=RIGHT$(A$,P):RETURN
2000 POKESE+5,0:POKESE+6,247:POKESE+4,17:POKESE+1,50:POKESE,0
2010 FORT=1TO99:NEXT:POKESE+4,16:RETURN
2100 POKESE+5,45:POKESE+6,165:POKESE+4,33:POKESE+1,6:POKESE,5
2110 FORT=1TO150:NEXT:POKESE+4,32:POKESE+1,0:POKESE,80:RETURN
2500 I$="":N(X)=N(X)+1:POKEC0,2
2502 PRINTR$(23);:INPUT"[151] EXTRA ITEM";I$
2504 IFI$=""THENPOKEC0,3:PRINTR$(23)"            ":RETURN
2505 IFASC(I$)=13THENPOKEC0,3:RETURN
2507 IFLEN(I$)>12THENI$=LEFT$(I$,12)
2510 I$(X,N(X))=I$+"X":PRINTR$(23)"                              "
2520 PRINTR$(23);:INPUT" WEIGHT";NO:P=4:GOSUB1100:G$(X,N(X))=A$
2530 PRINTR$(23)"                      "
2540 PRINTR$(N(X)+1);:A$=CHR$(N(X)+64):GOSUB1000:PRINTTAB(14)""B$;
2550 PRINT"[151]"TAB(17)I$;:A$="X":GOSUB1000
2590 PRINT""TAB(31)B$;TAB(33)"[151]"G$(X,N(X)):GOSUB2000:POKEC0,3:RETURN
3000 POKEC0,10:PRINT""R$(20)SD$;
3010 GETE$:IFE$=""THEN3010
3015 E=ASC(E$)-64:IFE=-51THEN3090
3020 IFE<0ORE>N(X)THENGOSUB2100:GOTO3010
3030 IFTI$(X,E)<>I$(X,E)THENGOSUB2100:GOTO3010
3035 S(X)=S(X)-VAL(G$(X,E)):FT=FT-VAL(G$(X,E)):TI$(X,E)=""
3055 PRINT"[151]";:A$=CHR$(E+64):GOSUB1000:PRINTR$(E+1)TAB(14)""B$;
3056 J$=I$(X,E):I$=LEFT$(J$,LEN(J$)-1)
3057 PRINT"[151]"TAB(17)I$;:A$=RIGHT$(J$,1):GOSUB1000
3058 PRINT""TAB(31)B$;TAB(33)"[151]"G$(X,E)
3060 NO=S(X):P=4:GOSUB1100:GOSUB1000:PRINT""R$(22)TAB(33)B$:GOSUB800
3090 POKEC0,3:PRINT""R$(20)S1$:RETURN
3500 POKEC0,4:PRINTR$(20)""S2$
3505 GETA$:IFA$=""THEN3505
3506 IFASC(A$)=13THEN3590
3510 K=ASC(A$)-64:IFK>N(X)ORK<1THENGOSUB2100:GOTO3505
3520 IFI$(X,K)=TI$(X,K)THENGOSUB2100:GOTO3505
3535 GOSUB1000:PRINT""ER$R$(22)S3$B$"[151]":INPUTW$
3540 NO=VAL(W$):P=4:GOSUB1100:G$(X,K)=A$:PRINTR$(21)"        "
3550 PRINT""R$(23)"      "R$(22)S4$B$"[151]";
3555 GETA$:IFA$=""THEN3555
3556 IFASC(A$)=13THEN3580
3560 I$(X,K)=LEFT$(I$(X,K),LEN(I$(X,K))-1)+A$
3565 GOSUB1000:PRINT""R$(K+1)TAB(31)B$
3580 PRINT"[151]"R$(K+1)TAB(33)G$(X,K):PRINTR$(21)"      "
3590 POKEC0,3:PRINT""R$(20)S1$R$(22)"            ":RETURN
4000 PRINT"[147]":POKEC0,3:POKEC0+1,1:POKEC0+2,14:POKEC0+3,15:POKEC0+4,12
4010 A$="   CATEGORY  ":GOSUB1000:T2$=B$:T3$="SUBTOTAL"
4015 PRINT"[155]"R$(2)TAB(7)L$L$L$L$T2$"[151]"T3$;
4020 FORI=1TOM+2:PRINT""R$(I+2)TAB(7)D$C3$C4$C4$C4$L$C3$C3$D$D$:NEXT
4030 FORI=1TOM:NO=S(I):P=5:GOSUB1100:GOSUB1000:N2$=B$
4040 NO=I:P=1:GOSUB1100:GOSUB1000:N1$=B$
4050 PRINT""R$(3+I)TAB(8)N1$D$TAB(12)C$(I)TAB(26)N2$:NEXT
4055 A$=" FINAL TOTAL ":GOSUB1000:F$=B$
4060 NO=FT:P=6:GOSUB1100:GOSUB1000:FT$=B$
4090 PRINT""R$(20)TAB(10)CX$CX$D$D$:PRINT""TAB(10)F$FT$D$
4100 PRINT""TAB(10)CX$CX$D$D$
4120 PRINT""R$(24)F2$TAB(10)F6$TAB(20)F8$TAB(30)E1$;
4130 GETA$:IFA$=""THEN4130
4140 IFA$="[137]"THEN6000
4150 IFA$="E"THENPRINT"":END
4160 IFA$="[140]"THEN5000
4161 IFA$="[139]"THEN7000
4170 GOSUB2100:GOTO4130
5000 PRINTES$"";:POKEC0+3,14:POKEC0+3,13:POKEC0+4,5:POKEC0,1
5005 TB=1:C=0:FORI=1TO23:PRINT" "CL$D$CL$D$CL$:NEXT
5010 PRINT"";:FORX=1TOM:A$=C$(X):C=C+1:IFC=23THENTB=TB+13:C=1:PRINT"";
5011 O$="  "+C$(X):FORI=LEN(O$)TO11:O$=O$+" ":NEXT:PRINT""TAB(TB)O$"[151]"
5015 FORY=1TON(X):IFTI$(X,Y)=""THEN5050
5016 C=C+1:IFC=24THENTB=TB+13:C=1:PRINT"";
5020 I$=TI$(X,Y):IFLEN(I$)>12THENI$=LEFT$(I$,12)
5035 PRINT""TAB(TB)I$
5050 NEXTY,X:PRINTR$(24)""F2$TAB(10)F4$TAB(20)F6$TAB(30)E1$;
5060 GETA$:IFA$=""THEN5060
5070 IFA$="E"THENPRINT"":END
5080 IFA$="[137]"THEN6000
5090 IFA$="[138]"THEN4000
5095 IFA$="[139]"THEN7000
5099 GOSUB2100:GOTO5060
6000 POKEC0,3:PRINT"[147][151]"TAB(12)"WHAT CATEGORY?":PRINT
6005 FORI=1TOM:PRINTTAB(12)CHR$(I+64)" "C$(I):NEXT
6010 GETA$:IFA$=""THEN6010
6020 IFASC(A$)<65ORASC(A$)>M+64THEN6010
6026 CH=-1:POKEC0+2,14:POKEC0+3,13:POKEC0+4,5
6030 POKEC0+1,3:X=ASC(A$)-64:GOSUB500
6040 PRINT""R$(24)F1$TAB(10)F3$TAB(20)F4$TAB(30)F5$;
6050 FORK=1TON(X):IFTI$(X,K)<>""THENGOSUB400
6051 NEXT:GOSUB800:NO=S(X):P=5:GOSUB1100:GOSUB1000:PRINTR$(22)TAB(31)D$B$D$
6060 CH=0:PRINT""R$(20)S1$
6150 GETK$:IFK$=""THEN6150
6155 PRINTER$;:IFK$="[138]"THEN4000
6156 IFK$="[133]"THENGOSUB3000:GOTO6150
6157 IFK$="[135]"THENGOSUB3500:GOTO6150
6158 IFK$="[134]"THENGOSUB2500:GOTO6150
6160 K=ASC(K$)-64:IFK>N(X)ORK<0THENGOSUB2100:GOTO6150
6170 IFI$(X,K)=TI$(X,K)THENGOSUB2100:GOTO6150
6180 GOSUB400:GOTO6150
7000 POKEC0,1:POKEC0+1,1:PRINT"[147]":FORI=1TO5:PRINT:NEXT:L$=CHR$(13):S$=CHR$(32)
7010 ST$=CHR$(15):FORI=1TO75:BL$=BL$+CHR$(99):NEXT
7020 INPUT"[144]TITLE FOR HARD COPY";H$
7030 BX$=CHR$(8):FORI=1TO7:READA:BX$=BX$+CHR$(A):NEXT:BX$=BX$+ST$
7040 FORI=1TO4:READT$:T$(I)=CHR$(16)+T$:NEXT
7100 OPEN4,4:PRINT#4,CHR$(16)"25 "CHR$(14)H$ST$
7105 PRINT#4,L$CHR$(18)BL$CHR$(146)L$L$
7110 FORI=1TOM:NO=S(I):P=5:GOSUB1100:GOSUB1100
7115 PRINT#4,CHR$(14)C$(I)CHR$(16)"15"A$ST$L$
7120 G=0:FORJ=1TON(I):IFTI$(I,J)=""THEN7160
7125 G=G+1:IFG=3THENG=1:PRINT#4
7130 I$=TI$(I,J):PRINT#4,T$(2*G-1)" "BX$S$LEFT$(I$,LEN(I$)-1);
7140 PRINT#4,T$(2*G)RIGHT$(I$,1)S$S$TG$(I,J);
7160 NEXT:PRINT#4,L$L$BL$:NEXT
7165 PRINT#4,L$CHR$(14)"FINAL TOTAL"CHR$(16)"15"FT;ST$
7170 PRINT#4:CLOSE4:END
9000 DATA SHELTER ,AIR MATTRESS ,490,SLPG. BAG L,1000,SLPG. BAG H,1775
9010 DATA GROUNDSHEET ,225,TENT *,1820,0,0
9020 DATA CLOTHING,TIGHTS *,275,JACKET *,260,SOCKS ,35,NYLON SHORTS ,60
9030 DATAPANTS ,340,0,0
9080 DATA ACCESSORY,LOCK+CABLE ,360,SPARE TUBE ,70,TOOLS ,205,FLASHLIGHT ,50
9085 DATASWISSKNIFE ,70,0,0
9090 DATA COOKWARE,CUP ,10,UTENSILS ,45,POT ,250,BOWL ,60
9110 DATA STOVE G,280,CARTRIDGES 2,320,0,0
9200 DATAEND
9300 DATA255,193,193,193,193,193,255
9350 DATA08,24,44,60