Casio FP-200 - Page 45

BUSINESS.J
1210 CLS:PRINT TI$
1220 PR I NT "Save < :<-RDATA > on tape. Connec:t the ca
sset te tape r·ecor·der· and pnci~;s the en kt:?Y. ";
1230 IF INKEYS<>CHR$(13) THEN 1230
1240 OPEN "CAS(Z): :-:-RDATA" Fon OUTPUT A~:i U 1
1250 PRINT #1,N;",";K:FOR I==l TO K:FOR J::::1 TO N:F'R
INT #1,X<I,J>:NEXT J,I
1260 CLOSE #1
1270 RETURN
13121121 '
1310 LPRINT CHR$(28>;CHRS<37l
1320 LF'RINT "J0":LF'RINT "Z3,1
11
:LF'RINT "S2":LPRINT
"Q0": LPRINT "Y0"
1330 X=10: Y=0: Z$==TI$: GOSUB 1.400: LPRINT "S1
11
1340 RETURN
1400 '
1410 LPRINT
11
M";X;
11
,";Y:LPRil"T
11
F'";ZS:RETURN
1500
1510 X=I*80/K+10:Y=CZ-ZCl/YS-25:IF Z>ZU OR Z<ZL TH
EN P:::8 ELSE P:::3
1520 LF'RINT
11
L0": IF Y>0 THEN Y=IZl: LPRINT "L2
11
153121 IF Y<YL THEN Y==YL:LF'RINT "1..2"
1540 RETURN
1600 '
161121 IF P=B THEN LPRINT "J3":LPRINT
11
N8":LF'RINT "J
1
11
ELSE LPRINT "N3"
1620 RETURN
1 700 '
171121 L1Ql1;=::" 1-----
11
: Ll 11•="+ ----": Ll2$::::"•·-'-----
-": L 1 $=
11
r---·-": L2$==L 1 (2)$: L3$
0
-=L 1 (2)$: L4$c:.:" .__ __
1720 FOR I=1 TO N+2:L1$=LH;+"..,.-----":L2$=L2$+L1
1$:NEXT I:L1$=L1$+",":L2$=L2$+" I"
1 730 FOR r = 1 Tb N: L3~,:::cL31,+L 121,: L4$"-'L4!J;.t- "-----
: NE X T I : L 3 $ :::L 3 $ + L 1 1 $ + L 1 1 $ +
11
I
11
: l-4 $ == L 4 $ + L 1 2 $ + L 1 2 $ + " _, "
1740 RETURN
:oesuGI
During data input, a 'MOUNT error' may occur when reading data from a cassette
tape. In this case, execute 'MOUNT l' in direct mode.
If an 'RW error' errors while saving data on a cassette tape, adjust the VOL dial
on the cassette tape recorder (the TONE dial should be set to HIGH).
49