Casio FP-200 - Page 81

UTILITY__)
28121 PRINT: PRINT"Are t.t,e r-·esul ts to be output to p
rinter? <YORN>"
29121 Z$=INf~:EY$: IF Z$="" THEN 290 ELSE IF Z$:::"Y" OR
ZS="y
11
THEN 35121
300 FOR !=1 TO X:F'RINT:PRINT"Sub--total of <X="; I;
11
)
11
; FL< 0, I , Y + 1 >
310 PRINTUSING"Configuraton is #H.#1/..";FL(Q),I,Y
+1)/FL<0,X+1,Y+1)*100
320 Z$=INKEY$: IF Z$=
11
" THEN 320 ELSE NEXT
330 F'RINT:PRINT
11
Total of Ytl;FL<el,X+l ,Y+l)
34121 END
350 'PRINTER
36121 IF X>9 THEN PRINT"Dat.a can't be output. to pri
nter":GOTO 300
370 CLS:LPRINT" <CROSS TOTAL>":LF'RINT
380 LPRINT" ..-------,-"; :FOR I=:1 TO X:LPRINT"---~
II;: NEXT: LPRINT
11
-----"
390 LPRINT" I "; :FOR I=l TO X:LFRINT" I X"; I;
:NEXT:LPRINT" I Total I"
400 FOR J=l TO Y:GOSUB 460
41121 LPRINT" I Y";J; :FOR I=l TO X:LF'RINT USING" 1##
####"; FL (0, I ,J);: NEXT I: LF'RINT US ING" l#tt####tHt I"; FL
((Z'.I, X + 1 , J) : NEXT J
420 GOSUB 460:LPRINT" I Total"; :FOR 1=1 TO X:LPRIN
TUSING" l######
11
;FL((21,I,Y+l);:NEXT:LF'RINT USING" ltt#
tt##### 1
11
; FL <0, X+ 1, Y+ 1)
430 GOSUB 460:LF'RINT" IRatio'l."; :FOR !::;1 TO X:LPRIN
TUSING" I ##.#";FLrn,I,J)/FLC0,X+l,Y+1)*100;:NEXT:
LF'RINT" I I"
44121 LPR I NT" .__ __ __._ti; : FOR
I=l TO X: LF'RINT"----'-
"; :NEXT:LPRINT'i "
450 END
460 LF'R I NT ti ,__ ___ ., ; : FOR I I= 1 TO X: LF'R I NT"+--·----
";: NEXT I I: LPRINT"-+-----{": RETURN
. Ol;Blf(i l
If no printer is available, lines 280, 290, and 350 to 460 may be omitted. In this i
case, change THEN 280 in line 200 to THEN 300. The number of items in a hori- i
zontal row and/or the number of records in a vertical column can be increased by
1
changing the number 24 in lines 30, 50, and 70 to the desired number. In this
case, do not forget to change the number of items and/or the number of records
in CETL accordingly.
85