Casio FP-200 - Page 51

------------------------BUSINESSJ
730 FOR 1~1 TO G:Z=FL<F,I,4):GOSUB 900: IF I=l THE
N LPR I NT II M II ; X; II ' II ; y ELSE LPR I NT II D' II; X; II ' " ; y
740 GOSUB 1000iNEXT !:RETURN
750 '
760 GOSUB 650:LF'RINT USING "UCL=###.####'l.
11
;UCL:LP
RINT USING "LCL=###.####'l.";LCL
770 RETURN
800
810
LPRINT "M
11
;X;
11
,
11
;Y:LPRINT "P";Z$:RETURN
900
910 X=I•80/G+10:Y=(Z-CLJ/(UCL-LCLJ•30-25:IF Z>UCL
OR Z<LCL THEN P=8 ELSE P=3
920 LPR I NT
II
L0" : IF Y >0 THEN Y=0: LF'R I NT "L2"
930 IF Y<-50 THEN Y==-50:LPRINT "L2"
940 RETURN
1000
1010 IF P=B THEN LPRINT "J3": LPRINT "N8": LF'RINT "J
1" ELSE LPRINT "N3"
l.020 RETURN
.QEBUGI
Although this program is not very complicated, it requires some understanding
of the CETL commands becuase it is linked to CETL.
The CETL commands used in this program are N (create a new file), J (modify
and input data), and T (display or print data in a file in the form of a table). For
example, to output a list of input data on a printer, the T command is used as
follows:
>T
Rec.?, g
Item? 1,3 r:,:..,J
Printer (Y/N) ? YR]
To output all the data, change 'ITEM ? 1, 3 ~J 'to 'ITEM ?, L.;.:.,; .'
55