10 GOTO100 20 FORI=217TO242:POKEI,PEEK(I)OR128:NEXT 22 POKE214,21:PRINT:PRINT" [154][212]OTAL [211]HARES ON HAND:[158] [157][157][157][157][157]"TS 24 PRINT" [154][208]RESENT VALUE OF STOCK:[158] [157][157][157][157][157][157][157][157][157]"ABS(TA); 26 IFTA<0THENPRINT"+"; 27 PRINT:PRINTMV$ 28 RETURN 100 IFPEEK(174)<255THENIFI<2THENI=I+1:LOAD"WALL WIZ"+STR$(I),8,1 110 CLR:POKE53280,0:POKE53281,0 111 HD$="" 120 DIMA$,A1,A5,AA,AB,AC,AD,AE,AF,AS,B$,BK,BM,BS,C,C$,CH,CL,E6,E$,E1$,EE,F$,FG 130 DIMHB,HD$,I,II,IT,J,J1,L,L2,LB,LI,LW,MS$,N,N1,N2,PM$,PN,R,RA,RC,S$,S1$,S2$ 140 DIMSL,SM,SP$,T,TA,TS,V,VS,W$,W1,W2,W4,W5,X,Y,YN$,Z$,E2$,E3$,RB$,LB$ 150 DIMW1(66),L1(66),H1(66),W2(66),H2(66),W3(66),L3(66),H3(66),W4(66),H4(66) 160 DIMW5(66),H5(66),W6(66),L6(66),H6(66) 170 DIMB3$(22),B4(22),B5(22),B6(22),B8(22),S3$(22),S4(22),S5(22),S6(22),S8(22) 180 DIMU3$(22),U4(22),U5(22),U8(22),J1(66),L(22),N(22),M$(10,1),X(10),Y(10) 190 FORI=1TO10:READM$(I,1),M$(I,0),X(I),Y(I):NEXT:OPEN15,8,15 200 BS=16384:BM=BS+8192-1024:SM=BS+7168-1024 210 SP$="[152] ":A$="[167][157]":W$="[165][157] 215 MV$[178]" ASC1OPEN - VALNTER A TRANSACTION ASC3 OPEN- (null)ENUON" 217 SS$[178]" ON" 220 [129]I[178]1[164]18:LB$[178]LB$[170]A$:RB$[178]RB$[170]W$:[130]:I[178][184](0):AC[178]49200:AD[178]49299:AE[178]49845:AF[178]50700 230 [151]680,96:[151]681,92:[158]AC,0:[158]AC,1,16:[158]AE:[158]AF:[137]800 240 [151]56576,2:[151]53272,120:[151]53265,[194](53265)[176]32:AA[178]1:[142] 250 [143] 260 [151]53272,23:[151]53265,27:[151]56576,151:AA[178]0:[142] 270 MS$[178]"(null)AKE (null)EW LENHART FIRST. ATNNY KEY...":[141]2710:[151]198,0:[146]198,1:[161]A$ 280 IT[178]1:MS$[178]PM$:[141]2710:[142] 290 [151]848,209:[151]896,112:[151]50563,186:[151]50564,204:[158]50560:RA[178]4:[142] 300 [151]848,209:[151]896,112:[151]50563,40:[151]50564,205:[158]50560:RA[178]2:[142] 310 [151]848,209:[151]896,112:[151]50563,62:[151]50564,205:[158]50560:RA[178]1:[142] 320 [151]848,209:[151]896,112:[158]50610:RA[178].5:[142] 330 [151]24352,64:[151]24353,64:[151]848,209:[151]851,121:RC[178]125 340 [151]847,112:[151]850,0:[158]830:[151]847,144:[151]850,8:[158]830:[142] 350 [151]24352,64:[151]24353,64:[151]848,209:[151]851,121:RC[178]12.5:[151]847,144:[151]850,8:[158]830:[142] 360 [151]24352,64:[151]24353,64:[151]848,209:[151]851,121:RC[178]1.25 370 [151]847,144:[151]850,0:[158]830:[151]847,128:[151]850,8:[158]830:[142] 380 [158]AD,X,Y,FG[172]16:[142] 390 [141]250:[153]"LOADLIST (null)ALL (null)TREET FILES THIS DISK: WAIT":[159]1,8,0,"$WW.*":[161]#1,A$,B$ 400 [161]#1,A$,B$:[161]#1,A$,B$:C[178]0:[139]A$[179][177]""[167]C[178][198](A$) 410 [139]B$[179][177]""[167]C[178]C[170][198](B$)[172]256 420 [153][202]([196](C),2);[163]3); 430 [161]#1,B$:[139]ST[179][177]0[167]500 440 [139]B$[179][177][199](34)[167]430 450 [161]#1,B$:[139]B$[179][177][199](34)[167][153]B$;:[137]450 460 [161]#1,B$:[139]B$[178][199](32)[167]460 470 [153][163]22);:C$[178]" 480 C$=C$+B$:GET#1,B$:IFB$<>""THEN480 490 PRINTLEFT$(C$,3):IFST=0THEN400 500 PRINT" BLOCKS FREE ":CLOSE1:PRINT:PRINT"[208]RESS ANY KEY...[152]":POKE198,0:WAIT198,1:GETA$:GOSUB770:RETURN 510 OPEN3,3:OPEN4,4,7:PRINT"";:FORII=0TO11:INPUT#3,A$:IFLEN(A$)>40THENA$=LEFT$(A$,40)+CHR$(13)+MID$(A$,41) 520 IFPOS(0)=40THENA$=CHR$(13) 530 PRINT#4,A$:NEXT:CLOSE3:CLOSE4:RETURN 540 NN=LEN(S$):EE=0:FORI=1TONN:CH=ASC(MID$(S$,I,1)):IFCH>31ANDCH<64THENPN=CH 550 IFCH>63ANDCH<96THENPN=CH-64 560 CL=PN*8+53248:HB=INT(CL/256):LB=CL-HB*256:POKE850,EE:POKE847,LB:POKE848,HB:SYS830 570 EE=EE+8:NEXT:RETURN 580 IFAA=1THENGOSUB250 590 POKE828,0:IFF$<>""THENPOKE828,7:RUN 600 MS$="[157][157][157][157][157][204]OAD WHICH FILE?":GOSUB2710:GOSUB2780:IFLEFT$(W$,3)="WW."THENW$=MID$(W$,4) 610 F$=W$:IFF$=""THENMS$=PM$:GOSUB2710:RETURN 620 POKE680,96:SYSAC,0:MS$="SEARCHING FOR "+F$:GOSUB2710 630 OPEN1,8,2,"0:WW."+F$+"S,R":GOSUB2880:IFA$<>"OK"THENMS$=A$:GOSUB2710:RUN 640 INPUT#1,F$,SD$,RA,W3,L,S1$:MS$="[204]OADING "+F$:GOSUB2710:FORI=0TOW3:INPUT#1,L1(I),L3(I) 650 INPUT#1,H1(I),H2(I),H3(I),H4(I),H5(I):NEXT:INPUT#1,RC:N2=L:FORJ=0TON2 660 INPUT#1,B4(J),B5(J),B6(J),B3$(J):INPUT#1,S4(J),S5(J),S6(J),S3$(J) 670 INPUT#1,U4(J),U5(J),U3$(J):NEXT:CLOSE1:GOSUB240:SYSAE:SYSAF:S$=F$:POKE850,0:POKE851,96:GOSUB540 680 S$=SD$:POKE850,0:POKE851,97:GOSUB540:IFRA=4THENGOSUB290 690 IFRA=2THENGOSUB300 700 IFRA=1THENGOSUB310 710 IFRA=.5THENGOSUB320 720 IFRC=125THENGOSUB330 730 IFRC=12.5THENGOSUB360 740 IFRC=1.25THENGOSUB360 750 N=W3:FORJ=0TON:W1=J:GOSUB1480:W2=J:GOSUB1550:W3=J:GOSUB1630:W4=J:GOSUB1710:W5=J:GOSUB1770:NEXT:RETURN 760 REM 770 POKE53280,0:POKE53281,0:PRINT"[147]":GOSUB2630:GOSUB2700 780 MS$="[213]SE [195][210][211][210] [203][197][217][211] AND [210][197][212][213][210][206]":PM$=MS$:GOSUB2710:TI$="000000":IT=1 790 AB=0:R=1:RETURN 800 IFPEEK(828)=7THENGOSUB580 810 GOSUB760:POKE198,0:IFPEEK(828)=5THENGOSUB1100 820 GETA$:IFTI>15THENT=NOTT:GOSUB2720:TI$="000000 830 [139]A$[178]""[167]820 840 T[178][171]1:[141]2720:[139]A$[178]""[167]IT[178][171][168]IT[172][171](IT[179]10):T[178]0:[141]2720:[137]820 850 [139]A$[178]"CMD"[167]IT[178][168][171]IT[170]10[172](IT[178]1):T[178]0:[141]2720:[137]820 860 [139]A$[178]""[167]IT[178]IT[170]2:[139]IT[178]11[167]IT[178]2 870 [139]IT[177]11[167]IT[178]1:T[178]0:[141]2720:[137]820 880 [139]A$[178]""[167]T[178]0:[141]2720:[137]820 890 [139]A$[178]"ON"[167]IT[178]IT[171]2:[139]IT[178][171]1[167]IT[178]10 900 [139]IT[178]0[167]IT[178]10:T[178]0:[141]2720:[137]820 910 [139]A$[178]"ON"[167]T[178]0:[141]2720:[137]820 920 [139]A$[179][177][199](13)[167]820 930 A$[178]M$(IT,0) 940 [139]A$[178]"INPUT"[167][141]240:[151]198,0:[146]198,1:[161]A$:[141]260:[153]" 950 IFA$="[137]"THENGOSUB1270 960 IFA$="[134]"THENPRINT"":GOSUB250:MS$=PM$:GOSUB2710 970 IFA$="[138]"THEN2150 980 IFA$="[135]"THENGOSUB1100 990 IFA$="[139]"THENI=I+20:GOSUB2010:GOTO990 1000 IFA$="[136]"THENGOSUB580:GOSUB2900:GOSUB260:I=0:GOTO940 1010 IFA$="[140]"THENGOSUB1340 1020 IFA$="*"THENGOSUB390 1030 IFA$="^"THENGOSUB240:POKE2,1:SYS51200 1040 IFA$="\"THENPOKE680,96:SYSAC,0:CLR 1050 IFA$="@"THENGOSUB510 1060 IFA$=""THENGOSUB2930 1070 IFA$=" "THEN1090 1080 GOTO820 1090 GOTO820 1100 IFAA=1THENGOSUB250 1130 POKE828,0:IFF$<>""THENPOKE828,5:RUN 1140 SYSAC,0:SYSAE:SYSAF:MS$="[157][157][157][157][157][157][206]AME OF CHART:":GOSUB2710:GOSUB2780:F$=W$ 1150 IFF$=""THENYN$="N":GOTO1120 1160 S$=F$:POKE850,0:POKE851,96:GOSUB540 1170 MS$="[157][157][157][157][211]TART DATE (MO/DA/YR)":GOSUB2710:LI=8:GOSUB2780:SD$=W$ 1180 S$=SD$:POKE850,0:POKE851,97:GOSUB540 1190 GOSUB2890:MS$="[211]ELECT SCALE: (1/2/3/4)":GOSUB2710 1195 POKE214,7:PRINT 1200 PRINT"[152][211]CALE 0-20, 0-40, 0-80, 0-160":POKE198,0:WAIT198,1:GOSUB2710 1210 GETA$:SL=VAL(A$):IFSL<1ORSL>4THEN1195 1220 GOSUB2710:ONSLGOSUB290,300,310,320 1230 PRINTLEFT$(HD$,10)"[152][215]EEKLY VOLUME: (0-.2), (0-2), (0-20)":PRINT"[201]N MILLIONS. 1240 MS$[178]"(null)ELECT SCALE: (1/2/3)":[141]2710:[151]198,0:[146]198,1:[161]A$:[141]2710 1250 VS[178][197](A$):[139]VS[179]1[176]VS[177]3[167]VS[178]1 1260 [145]VS[141]330,350,360:[151]199,0:[141]2890:[141]2700:MS$[178]PM$:[141]2710:IT[178]2:[137]820 1270 [139]AA[178]1[167][141]250 1280 [139]F$[178]""[167][141]270:[142] 1290 [151]199,0:[141]2890:[151]214,7:[151]211,7:[153]"PRINT#1. STR$OW MID$ONES 4. (null)IELD 1300 PRINTTAB(7)"2. [215]EEKLY VOLUME 5. [208]/[197]":PRINTTAB(7)"3. [211]TOCK/[198]UND 6. [197]RASE 1310 MS$[178]"(null)ELECT (1-6)":[141]2710:[153]"":[151]198,0:[146]198,1:[161]A$:A1[178][197](A$) 1320 [139]A1[179]1[176]A1[177]6[167][141]2890:[141]2700:MS$[178]PM$:[141]2710:[142] 1330 [145]A1[141]1420,1510,1570,1660,1730,1790:[141]2890:MS$[178]PM$:[141]2710:[141]2700:[142] 1340 [139]AA[178]1[167][141]250 1350 MS$[178]"(null)AVE? ATNRE YOU SURE? ((null)/(null))":[141]2710:[151]198,0:[146]198,1:[161]YN$ 1360 [139]YN$[179][177]"Y"[167]MS$[178]PM$:[141]2710:[142] 1370 [152]15,"S0:WW."[170]F$:[159]1,8,2,"0:WW."[170]F$[170]"S,W":Z$[178][199](13) 1380 [152]1,F$;Z$;SD$;Z$;RA;Z$;W3;Z$;L;Z$;S1$:N[178]W3:[129]I[178]0[164]N:[152]1,L1(I);Z$;L3(I) 1390 [152]1,H1(I);Z$;H2(I);Z$;H3(I);Z$;H4(I);Z$;H5(I):[130]:[152]1,RC:N2[178]L:[129]J[178]0[164]N2 1400 [152]1,B4(J);Z$;B5(J);Z$;B6(J);Z$;B3$(J):[152]1,S4(J);Z$;S5(J);Z$;S6(J);Z$;S3$(J) 1410 [152]1,U4(J);Z$;U5(J);Z$;U3$(J):[130]:[160]1:[141]760:[142] 1420 MS$[178]"STR$ (null)CLOSE(null)CLOSECLOSE MID$CLOSE(null)CLOSE(null) VAL (null)":[141]2710:[141]2660:[151]214,8 1430 [153]"ONPRINT#(null)EEK? (1 - 64) CMDCMDCMDCMD";:LI[178]2:[141]2780:W1[178][197](W$) 1435 [139]W1[177]64[167][153]:[151]214,8:[137]1430 1440 [153]:LI[178]4:[151]214,10:[153]"ON"[163]2)"(null)OW AMOUNT? (1700-3400) CMDCMDCMDCMDCMD"; 1445 [141]2780 1450 L1(W1)[178][197](W$):[139]L1(W1)[179]1700[176]L1(W1)[177]3400[167]1440 1460 LI[178]4:[153][200](HD$,13)"LEFT$IGH AMOUNT? (1700-3400) CMDCMDCMDCMDCMDON"; 1465 [141]2780 1470 [153]:H1(W1)[178][197](W$):[139]H1(W1)[179]1700[176]H1(W1)[177]3400[167][153]:[137]1460 1480 FG[178]10:BK[178]0:X[178]W1[172]4[170]20:[139]H1(W1)[178]0[176]L1(W1)[178]0[167][142] 1490 [129]Y[178]106[171](H1(W1)[173]37)[164]106[171](L1(W1)[173]37):[141]380:[130] 1500 X[178]X[170]1:[129]Y[178]106[171](H1(W1)[173]37)[164]106[171](L1(W1)[173]37):[141]380:[130]:[142] 1510 MS$[178]"(null) VAL VAL (null)CLOSE(null)CLOSE(null)CLOSE (null)CLOSE(null) (null) (null) (null) VAL":[141]2710:[141]2890:[151]214,8 1520 [153]"ONPRINT#(null)EEK? (1 - 66) CMDCMDCMDCMD";:LI[178]2:[141]2780:W2[178][197](W$) 1525 [139]W2[177]66[167][153]:[151]214,8:[137]1520 1530 [153]:LI[178]4:[151]214,10:[153]"ON"[163]2)"ATNMOUNT? CMDCMDCMDCMDCMD";:[141]2780:H2(W2)[178][197](W$) 1540 [139]H2(W2)[172]RC[177]25[167]1530 1550 FG[178]4:BK[178]0:X[178]W2[172]4[170]20:L2[178]188:[139]H2(W2)[178]0[167][142] 1560 [129]Y[178]188[171](H2(W2)[172]RC)[164]L2:[141]380:[130]:X[178]X[170]1:[129]Y[178]188[171](H2(W2)[172]RC)[164]L2:[141]380:[130]:[142] 1570 MS$[178]"(null)ATN(null)(null) (null)(null)(null)VALVAL(null) (null)RIGHT$(null)ATN(null)STR$":[141]2710:[141]2890:[151]214,8 1580 [153]"ONPRINT#(null)EEK? (1 - 66) CMDCMDCMDCMD";:LI[178]2:[141]2780:W3[178][197](W$) 1585 [139]W3[177]66[167][153]:[151]214,8:[137]1580 1590 [153]:LI[178]4:[151]214,10:[153]"ON"[163]2)"(null)OW AMOUNT? CMDCMDCMDCMDCMD";:[141]2780 1600 L3(W3)[178][197](W$):[139]L3(W3)[172]RA[177]85[167]1590 1610 LI[178]4:[153][200](HD$,13)"LEFT$IGH AMOUNT CMDCMDCMDCMDCMDON";:[141]2780 1620 [153]:H3(W3)[178][197](W$):[139]H3(W1)[172]RA[177]85[167][153]:[137]1610 1630 FG[178]7:BK[178]0:X[178]W3[172]4[170]20:[139]H3(W3)[178]0[176]L3(W3)[178]0[167][142] 1640 [129]Y[178]132[171](H3(W3)[172]RA)[164]132[171](L3(W3)[172]RA):[141]380:[130] 1650 X[178]X[170]1:[129]Y[178]132[171](H3(W3)[172]RA)[164]132[171](L3(W3)[172]RA):[141]380:[130]:[142] 1660 MS$[178]"(null)CLOSERIGHT$ VAL (null) STR$":[141]2710:[141]2890 1665 [151]214,7:[153] 1670 [153]"PRINT#(null)EEK? (1 - 66) CMDCMDCMDCMD";:LI[178]2:[141]2780:W4[178][197](W$) 1680 [139]W4[179]1[176]W4[177]66[167]1665 1685 [151]214,9:[153] 1690 [153]"(null)ERCENT (0 - 17) CMDCMDCMDCMDCMD";:[141]2780:H4(W4)[178][197](W$) 1700 [139]H4(W4)[179]0[176]H4(W4)[177]16[167]1685 1710 FG[178]3:BK[178]0:X[178]W4[172]4[170]20:[139]H4(W4)[178]0[167][142] 1720 Y[178]132[171](H4(W4)[172]4):[141]380:X[178]X[170]1:Y[178]132[171](H4(W4)[172]4):[141]380:[142] 1730 MS$[178]"(null) / VAL (null)CLOSEATNCLOSE(null) RIGHT$ (null)":[141]2710:[141]2890:[151]214,8 1740 LI[178]2:[153]"ONPRINT#(null)EEK (1 - 66) CMDCMDCMDCMDCMD";:[141]2780:W5[178][197](W$) 1750 LI[178]3:[139]W5[177]66[167][153]:[151]214,8:[137]1740 1760 [151]214,8:[153]"ON"[163]24)"ATNMOUNT CMDCMDCMDCMDCMD";:[141]2780:H5(W5)[178][197](W$):[139]H5(W5)[177]16[167][153]:[137]1760 1770 FG[178]3:BK[178]0:X[178]W5[172]4[170]20:[139]H5(W5)[178]0[167][142] 1780 Y[178]132[171](H5(W5)[172]4):[141]380:X[178]X[170]1:Y[178]132[171](H5(W5)[172]4):[141]380:[142] 1790 MS$[178]"VAL (null) ATN (null) VAL":[141]2710:[151]214,15:[151]211,0 1800 [153]"ON(null)EEK (1 - 66) CMDCMDCMDCMD";:[141]2780:W6[178][197](W$) 1805 [139]W6[179]1[176]W6[177]66[167][153][151]214,15:[137]1800 1810 [151]214,15:[153]"ON"[163]21)"(null)HICH FIELD? (1-5) 1820 GETA$:IFA$<"1"ORA$>"5"THEN1820 1830 E6=VAL(A$):GOSUB2890:FG=0:BK=0:X=W6*4+20:ONE6GOSUB1890,1940,1840,1980,1980:RETURN 1840 MS$="[197][160][210] [193] [211] [197] [160] [211] [212] [207] [195] [203] / [198] [213] [206] [196]":GOSUB2710:PRINT:POKE214,8 1850 LI=4:PRINT"[145][204]OW AMOUNT? ";:GOSUB2780:L6(W6)=VAL(W$) 1860 LI=4:PRINTTAB(20)"[200]IGH AMOUNT? ";:GOSUB2780:H6(W6)=VAL(W$) 1870 FORY=132-(H6(W6)*RA)TO132-(L6(W6)*RA):GOSUB380:NEXT 1880 X=X+1:FORY=132-(H6(W6)*RA)TO132-(L6(W6)*RA):GOSUB380:NEXT:RETURN 1890 MS$="[197] [210] [193] [211] [197] [160] [196] [207] [215] [160] [202] [207][160][206][160][197] [211]":GOSUB2710:PRINT:POKE214,8 1900 LI=4:PRINT"[145][204]OW AMOUNT? ";:GOSUB2780:L6(W6)=VAL(W$) 1910 LI=4:PRINTTAB(20)"[200]IGH [193]MOUNT? ";:GOSUB2780:H6(W6)=VAL(W$) 1920 FORY=119-(H6(W6)/20)TO119-(L6(W6)/20):GOSUB380:NEXT 1930 X=X+1:FORY=119-(H6(W6)/20)TO119-(L6(W6)/20):GOSUB380:NEXT:RETURN 1940 MS$="[197][210][193][211][197][160][215][197][197][203][204][217][160][214][207][204][213][205][197]":GOSUB2710:PRINT 1950 LI=2:POKE214,8:PRINT"[145][193]MOUNT? [157][157][157][157]";:GOSUB2780:H6(W6)=VAL(W$) 1960 IFH6(W6)<0ORH6(W6)>20THENPRINT:GOTO1950 1970 L6=188:FORY=188-(H6(W6)/.8)TOL6:GOSUB380:NEXT:X=X+1:FORY=188-(H6(W6)/.8)TOL6:GOSUB380:NEXT:RETURN 1980 MS$="[197][210][193][211][197] [217][201][197][204][196] & [208]/[197] [210][193][212][201][207]":GOSUB2710:PRINT:POKE214,8 1990 LI=2:PRINT"[145][193]MOUNT? (%) ";:GOSUB2780:H6(W6)=VAL(W$):Y=132-(H6(W6)*4):GOSUB380 2000 X=X+1:Y=132-(H6(W6)*4):GOSUB380:RETURN:STOP 2010 IFAA=1THENGOSUB250 2020 IFAB=1THENRETURN 2030 N1=W3:IFI<0ORI>N1THENI=1 2040 PRINT"[147][153] NAME "F$SPC(3)" STARTS "SD$:PRINT"[155][215]EEK [196]OW [202]. [214]OL. [211]TK/[198]ND [217]LD [208]/[197] 2050 [139]I[178]1[167][151]53280,6 2060 [129]J1[178]I[164]I[170]19:[153]"PRINTCMD"J1:[153][163]2)"ON"L1(J1):[153][163]7)"ON"H1(J1):[153][163]12)"ON"H2(J1) 2070 [153][163]17)"ON"L3(J1):[153][163]23)"ON"H3(J1):[153][163]30)"ON"H4(J1):[153][163]34)"ON"H5(J1):[139]J1[177]65[167][142] 2080 [130]:[151]214,22:[153]"LIST(null)(null)ATNLENVAL PAGE/LEN(null)(null)(null)-(null) PRINT/(null)VAL(null)(null)(null)(null) EXIT 2090 GETA$:IFA$=""THEN2090 2100 IFA$=" "THENA$="[139]":POKE53280,14:RETURN 2110 IFA$=""THENGOSUB2130:GOSUB510:GOTO2090 2120 A$="":GOSUB770:RETURN 2130 IFPEEK(53280)=246THENRETURN 2140 PRINT"";:FORII=1TO2:PRINT" ":NEXT:RETURN 2150 IFAA=1THENGOSUB250 2160 PRINT"[147]":GOSUB2360:IFL=0THENGOTO2400 2170 GOSUB2300 2180 GETA$:IFA$<>"[133]"ANDA$<>"[134]"ANDA$<>""THEN2180 2190 IFA$<>"[133]"THEN2200 2195 IFL<20THEN2220 2197 GOTO2180 2200 IFA$=""THENGOSUB510:GOTO2180 2210 GOTO800:GOTO2180 2220 S2$="":POKE214,23:PRINT"[212]RANSACTION [153] B [146] [159] S [146] [156] U [146] (B,S,U) [145]" 2230 GETS2$:IFS2$<>"B"ANDS2$<>"S"ANDS2$<>"U"ANDS2$<>CHR$(13)THEN2230 2240 IFS2$=CHR$(13)THEN2180 2245 L=L+1 2250 IFS2$="B"THENGOSUB2430:GOTO2180 2260 IFS2$="S"THENGOSUB2500:GOTO2180 2270 GOSUB2570:GOTO2180 2300 A5=0:TS=0:TA=0:N2=L:FORL=1TON2:IFB5(L)THENGOSUB2470 2310 IFS5(L)THENGOSUB2540 2320 IFU5(L)THENGOSUB2600 2330 IFB3$(L)<>""THENA5=1 2340 NEXT:GOSUB20 2348 L=L-1:IFA5=0THENL=2 2350 RETURN 2360 PRINT"[158] "S1$" [146] "TAB(7)"[153] [194]OUGHT [146] [159] [211]OLD [146] [156] [213]PDATE [146] [129] [212]OTAL [146] 2370 [153]"TANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTAN FOR VALUE WAIT 2380 PRINT"[196]ATE #[211]HR [208]RICE [212]OTAL [195]OMM" 2382 POKE214,20:PRINT:PRINT"[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]" 2385 RETURN 2400 PRINT"[147]":S1$="[217]EAR":GOSUB2360:POKE214,22:PRINT:S1$="" 2405 PRINT"[215]HICH YEAR? (XXXX)";:LI=4:GOSUB2780:S1$=W$ 2410 IFS1$=""THENGOSUB760:GOTO820 2420 GOSUB2360:L=L+2:GOTO2170 2430 POKE214,23:PRINT:PRINTSS$:PRINT"[196]ATE (MO/DA)";:LI=5:GOSUB2780:B3$(L)=W$ 2440 PRINTSS$:PRINT"[206]UMBER OF [211]HARES";:GOSUB2780:B4(L)=V 2450 PRINTSS$:PRINT"[208]RICE [208]ER [211]HARE";:GOSUB2780:B5(L)=V 2460 PRINTSS$:PRINT"[195]OMMISSION";:GOSUB2780:B6(L)=V 2470 POKE214,L:PRINT"[153]"B3$(L);TAB(5)B4(L);TAB(11)B5(L);TAB(17)INT(B4(L)*B5(L)) 2480 B8(L)=B4(L)*B5(L)-B6(L):PRINT"[145]"TAB(24)B6(L);TAB(30)B8(L) 2490 TA=TA+B8(L)-S8(L):TS=TS+B4(L):GOSUB20:RETURN 2500 POKE214,23:PRINT:PRINTSS$:PRINT"[196]ATE (MO/DA)";:LI=5:GOSUB2780:S3$(L)=W$ 2510 PRINTSS$:PRINT"[206]UMBER OF [211]HARES";:GOSUB2780:S4(L)=V 2515 IFV>TSTHEN2510 2520 PRINTSS$:PRINT"[208]RICE [208]ER [211]HARE";:GOSUB2780:S5(L)=V 2530 PRINTSS$:PRINT"[195]OMMISSION";:GOSUB2780:S6(L)=V 2540 POKE214,L:PRINT"[159]"S3$(L);TAB(5)S4(L);TAB(11)S5(L);TAB(17)INT(S4(L)*S5(L)) 2550 PRINT"[145]"TAB(24)S6(L):S8(L)=S4(L)*S5(L)-S6(L):PRINT"[145]"TAB(30)S8(L):TA=TA-S8(L):TS=TS-S4(L) 2560 GOSUB20:RETURN 2570 POKE214,23:PRINT:PRINTSS$:PRINT"[196]ATE (MO/DA)";:GOSUB2780:U3$(L)=W$ 2580 U4(L)=TS:REM PRINTSS$:PRINT"[206]UMBER OF [211]HARES";:GOSUB2780:U4(L)=V 2590 PRINTSS$:PRINT"[206]EW [208]RICE";:GOSUB2780:U5(L)=V 2600 POKE214,L:PRINT"[156]"U3$(L);TAB(5)U4(L);TAB(11)U5(L) 2610 PRINT"[145]"TAB(17)INT(U4(L)*U5(L)):U8(L)=U4(L)*U5(L):PRINT"[145]"TAB(30)U8(L) 2620 TA=0:TA=U8(L):TS=U4(L):GOSUB20:RETURN 2630 HD$=" 2631 [153]"WAITCONTPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOS" 2632 [129]I[178]1[164]3:[153]"OPEN ":[130] 2633 [153]"FREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFRE" 2640 : 2650 [153][200](HD$,21)"WAITLISTPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOS" 2651 [129]I[178]1[164]3:[153]"PRINT# ":[130] 2652 [153]"POKEFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFRE" 2660 [153][200](HD$,6)"WAITLISTPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOS" 2661 [129]I[178]1[164]13:[153]"PRINT# ":[130] 2670 [153]"POKEFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFRE" 2680 [153]"OPEN (null) ATN (null) (null) (null)CLOSE(null)CLOSE(null)CLOSEVAL VAL (null)CLOSE (null)CLOSERIGHT$ (null)CLOSEATN (null) STR$":[151]53280,6 2690 [153]"SYS"LB$""[163]39)RB$"":[129]I[178]217[164]242:[151]I,[194](I)[176]128:[130]:[142] 2700 [129]IT[178]1[164]10:T[178][171]1:[141]2720:[130]:IT[178]1:[142] 2710 [153][200](HD$,23)SP$"ON":[153][166]20[171][195](MS$)[173]2)""MS$;:MS$[178]"":[142] 2720 [151]199,[171]T:[153][200](HD$,Y(IT))"PRINT#"[166]X(IT))M$(IT,1):[142] 2730 [131]" (null)AKE (null)EW LENHART ","READ",0,8," (null)AKE VALNTRIES ","GOTO",23,8 2740 [131]" (null)RANSACTIONS ","RUN",0,10," (null)RINT LENHART ","^",23,10 2750 [131]" (null)OAD (null)LD LENHART ","LET",0,12," (null)AVE LENHART ","RESTORE",23,12 2760 [131]" (null)HOW STR$ATA ","IF",0,14," STR$IRECTORY ","*",23,14 2770 [131]" (null)IEW LENHART ","INPUT",0,16," (null)UIT ","",23,16 2780 W$[178]"":[153]">CMD";:[139]LI[178]0[167]LI[178]14 2790 [161]A$:[139]A$[178]"ON"[176]A$[178]""[176]A$[178]"CMD"[176]A$[178]""[176]A$[178]""[176]A$[178]"LOAD"[176]A$[178]""[167]2790 2800 LW[178][195](W$):AS[178][198](A$):[139]AS[178]13[176]AS[178]141[176]AS[178]20[167]2850 2810 [139][194](653)[178]2[176][194](653)[178]4[176]AS[178]148[167]2790 2820 [139]LW[178]LI[175](AS[179][177]20[175]AS[179][177]13[175]AS[179][177]141)[167]2790 2830 [139]AS[178]34[176](AS[177][178]133[175]AS[179][178]140)[176](AS[177][178]1[175]AS[179][178]31)[167]2790 2840 W$[178]W$[170]A$:[153]A$">CMD";:LW[178][195](W$):[137]2790 2850 [139]AS[178]20[175]W$[179][177]""[167]W$[178][200](W$,LW[171]1):[153]"CMD< CMDCMD";:[137]2790 2860 [139]AS[178]20[175]W$[178]""[167]2790 2870 [139]AS[178]13[167][153]" ON":LW[178][195](W$):V[178][197](W$):LI[178]0:[142] 2880 [132]15,W$,A$:[142] 2890 [153]"";:[129]I[178]1[164]13:[153]"PRINT# ";:[130]:[153]"":[142] 2900 [161]A$:[139]A$[178]""[167]2900 2910 [139]A$[179][177]"GOTO"[175]A$[179][177]"RUN"[175]A$[179][177]"IF"[167]A$[178]"DIM 2920 RETURN 2930 MS$="[209]UIT? [193]RE YOU SURE? (Y/N)":GOSUB2710:POKE198,0:WAIT198,1:GETA$ 2940 IFA$<>"Y"THENMS$=PM$:GOSUB2710:RETURN 2950 CLR 2970 A$="HELLO CONNECT":OPEN15,8,15,"R0:"+A$+"="+A$:INPUT#15,ER:CLOSE15:IFER<>63THENPRINT"[147]":END 2980 Q$=CHR$(34):POKE646,PEEK(53281):PRINT"[147]":PRINT"LOAD"Q$A$Q$",8 2990 [153]"RUN":[151]631,13:[151]632,13:[151]198,2:[128]