Table of Contents
Advertisement
CHAPTER 8
Convenient DATA BANK Function
160
176
188
190
200
218
220
230
240
250
260
278
288
299
300
3108
320
330
348
350
360
379
380
396
400
410
420
430
440
450
NEXT
C
FOR. D=1
TO At+1
F(D,B+1)=e
NEXT D
RESTORE#
FOR C=1
TOA
FOR
D=1.TO
B
READH
$,F(C,D)
F(A+1,D)=F(A+1,D)+F(C,D)
iF A=C
THEN
WRITE#
F(A+1,D)
F(C,B+1)=F(C,Bt1 )+F(C,D)
NEXT
D
PRINT
RESTORE#
FOR. C=1
TO A
RESTORE#
"M"
READH
$,E
PRINT
$3"="GE
NEXT
C
RESTORE#
READH
$,$%
FOR
C=1
TO B
READ#
$,E,E
PRINT
$3"="3E
NEXT
C
BEEP
: PRINT
"OVER"
PRINT
: END
;
500 bytes
© Variables Table
89
'Application to Tabular Calculations
Variable name
Contents
Number of horizontal items in the table
Number of vertical items in the table
Control variable for a FOR ~ NEXT loop
Control variable for a FOR ~ NEXT Loop
For reading data
mot)
OPO)
a] >
For calculating vertical total
FQ) ~
The array for calculating horizontal total (Prepares number of
vertical items in table.)
For preparing writing data to the DATA BANK and for reading
space by the READ #$.
.
© Program Execution Examples
Calculate the vertical and horizontal totals using the table on page 231.
.
Operation
feo) (C2)
(DICT es)
2682 b9
4 Ge)! (Inputs number of horizontal items.)
3G)
Unputs number of vertical items.)
f
5 32 9g
(Inputs the value in the first
¢
vertical column.)
tm xX oni?
Input data in the 2nd, 3rd and 4th columns in sequential order. After all data are
input, "Calculation" will be displayed. When calculation is over, the following
results will be displayed.
233
Advertisement
Table of Contents
