Casio FX-730P - Page 208

198
CHAPTER 7 Convenient DATA BANK Function
160 NEXT C
170 FOR D=1 TO A+1
180 F(D,B+1 )=0
190 NEXT D
200 RESTORE#
210 FOR C=1 TO A
220 FOR D=1 TO B
230 READ# $,F(C,D> \
240 F(A+1,D>=F(A+1,D>+F(C,D>
250 IF A=C THEN WRITE# F(A+1,D>
260 F(C,B+1 )=F(C,B+1 >+F(C,D>
270 NEXT D
280 READ#$: WRITE tt F(C,B+1)
290 NEXT C
300 PRINT
310 RESTORE#
320 FOR C=1 TO A
330 RESTORE# "M"
340 READ# $,E
350 PRINT $;"=";E
360 NEXT C
370 RESTORE#
380 IF A>1 THEN RESTORE# "M"+ STR$(A
-1 )
390 READ# $,$
400 FOR C=1 TO B
410 READ# $,E,E
420 PRINT $;"=";E
430 NEXT C
440 BEEP : PRINT
450 PRINT : END
"OVER II
500 bytes