rCROSS-TOTALING-------------------------
This
program
uses
the
CETL
file
FO.
Therefore,
if
this
file
is
already
occupied
by
some
other
data,
it
should
be cleared
by
the
K
command
before
the
program
can
be
stored.
Note
also
that
inputting
extremely
large
numbers
(i.e., so large
that
a
calculation
result
exceeds
8 digits}
produces
incorrect
output.
84
10
'CROSS TOTALING
20
'CROSS TOTAL
20.12
Bytes
30
CLS:
CLEAR: F'RINT"CROSS TOTAL
ING":
PRINT"Ver·t
i
ca
1
colunms
24,hor·izontal
r·ows
24":F'RINT"
rn<":PRINT
40
INF'UT"Number
of
Colunms.X";X
50
IF
X)25
OR
X<2
THEN
40
60
INF'UT"Number
of
rows.
Y";Y
70
IF
Y>25
OR
Y<2
THEN
60
80
PRINT:PRINT"
X -
Y"
90
FOR
J=1
TO
Y+1:FL<0,X+1,J)=0:NEXT
100
FOR
I=l
TO
X+1:FL(0,I,Y+1)=0:NEXT
110
FOR
J=1
TOY
120
FOR
I=l
TO
X
130
PR I
NT
I ; " - " ; J ; " " ; : INPUT A
140
FL(0,I,J)=A:FL(0,X+1,J)=FL(0,X+1,J)+A:FL(0,I,
Y+l)=FL(0,I,Y+l)+A:NEXT
I
150
PRINT"Sub-total
of(Y=";J;">";FL<CZJ,X+l,J):F'RIN
T
160
FL(0,X+1,Y+1)=FL(0,X+1,Y+1)+Fl(0,X+1,J):NEXT
J
170
PRINT"Input
completed"
180
PRINT:tNPUT"Do
you
want
to
change
any
itum-::-
X=";Q:IF
D<0
OR
Q)X
THEN
180
190
INF'UT"Y==";W:
IF
W<IZl
OR
W>Y
THEN
190
200
IF
Q=0
OR
W=0
THEN
280
2 1
QJ
PR
I NTQ; " - " ;
W;
"==" ; FL
(0
, Q ,
W)
220
F'RINT"Do
you
wish
to
change
numeric
data')(Y/N
) "
230
Z$=INKEY$:
IF
2$='"'
THEN
230
ELSE
IF
Z$="Y"
OR
Z$="y"
~HEN
24(2)
ELSE
180
240
F'RINTQ;
"-";
W;"
";:
INPUT
A
250
FL(0,Q,Y+l)=FL(0,Q,Y+1)-FL(0,Q,W)+A:FL<0,X+1,
W>=Fl(0,X+1,W)-FL(0,Q,W)+A
260
FL(0
1
X+1,Y+l)=FL(X0,+1,Y+1)-FL((2),0,W)+A:FL<0,
Q,W>=A
270
F'RINT"Sub-total
of
<Y=";W;")";FL<0,X+l,W):GOT
0
180
To Next Page
Loading...
