Advertisement
- - - - - - - - - - - - - - - - - - - - - - - B U S I N E S S J
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'
I I ;
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.;.:.,; .'
Advertisement
