Casio FP-200 - Page 101

UTILITY
1020 FOR I=XS TO XE: IF RI=l THEN ZS=IMSII):K=FL<FO
, RS, I) ELSE Z$=FL (FD, I, 1): K=FL CFO, I, IS)
1030 X2=(I-XS+1)*C+10:X1=X2-C/2:Y=S*K-80:GOSUB 195
O:XM=<Xl+X2)/2:YM=-84
1040 LPRINT "JO":FOR L=l TO LENIZ$) :LPFUNT "M"; XM;
",";Yt1:LPRINT "P";MIDS(ZS,L,1>:YM=YM-3.6:NEXT L
1
050 LPR I NT "J 1 " : LPR I NT "D" ; X 1 ; " , -80, " ; X 1 ; " , " ; Y; " ,
It; X2; .. :- It; Y; tf :- II; X2; fl:- -BC>"
1060 NEXT I:GOTO 1400
1200 •======== Jagged-LEN
1210 GOSUB 1700:GOSUB 1800:C=BO/(XE-XS+l)
1220 LF'RINT "Ll":FOR I=XS TO XE: IF RI=l THEN ZS=IM
$(!) ELSE ZS=FL<FO,I, 1)
1230 X=<I-XS+l)*C+lO:LF'RINT "D"; X; ",O, "; X; ",-80"
1240 Y=-84:FOR L=l TO LEN(ZS):LPRINT "M";X;",";Y:L
PRINT "P";MIDS(ZS,L,1):Y=Y-3.2 .
1250 NEXT L,I:LPRINT "LO":LPRINT "Jl"
1260 FOR I=XS TO XE:IF RI=l THEN K=FL<FO,RS, I> ELS
E K=FL(FO, I,IS)
1270 X=II-XS+l)*C+lO:Y=S*K-80:GOSUB 1950: IF I=XS T
HEN LF'RINT "M";X;",";Y ELSE LPRINT "O,";X;",";Y
1280 LPRINT "N3"
1290 NEXT I
1400 ·--------
1410 LPRINT "HlO":LPRINT "JO":LPRINT CHR$(28);CHR$
(46)
1420 LPRINT CHRS(27);"S2'':LPRINT TS:LPRINT CHRSC27
) ; II s 1 II
1430 IF RI=l THEN Zl$="ITEM":Z2$=IMS(l)+" "+FLCFO,
RS,1) ELSE Z1S=IM$(1):Z2S=IMS<IS)
1440 Z2S=LEFTSIZ2S,10):LPRINT" No. ";Z1S;TAB(27-
LENIZ2S));Z2S;:IF SE<3 THEN LPRINT "Percentage" EL
SE LF'RINT I
1450 LPRINT MLS:J=O
1460 FOR I=XS TO XE:IF RI=l THEN ZS=IMSII):K=FLIFO
, RS, I) ELSE ZS=FL CFO, I, 1): l<=FL (FD, I, IS>
1470 IF SE<3 THEN LF'RINT CHR$(27);"J";J MOD 4
1480 LF'RINT USING"#####"; I;:LF'RINT CHR$(27); "JO":
LF'RINT USING"~, ~< ##, ###, ###"; Z'f.; K;
1490 IF SE<3 THEN LPRINT USING" ####.##";HCI>:J==J+
1 ELSE LF'RINT
1500 NEXT I:IF SE<3 THEN LPRINT MLS:LPRINT TAB(ll)
;"Total";:LF'RINT USING "##,###,###":SUM
1510 LPRINT CHR$(27);"F5"
1520 GOTO 300
1600 •======== Caliculate percentage
105