Advertisement
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"---~
I I ; :
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
f no printer is available, lines 280, 290, and 350 to 460 may be omitted. In this
i
ase, change THEN 280 in line 200 to THEN 300. The number of items in a hori-
i
ontal row and/or the number of records in a vertical column can be increased by
1
hanging the number 24 in lines 30, 50, and 70 to the desired number. In this
ase, do not forget to change the number of items and/or the number of records
n CETL accordingly.
Advertisement
