Advertisement
cP-Pn
CONTROL C H A R T - - - - - - - - - - - - - - - - - - - - - - - -
320
INPUT
"data file no.:
",F: IF F<0 OR F>9 THEN
32(2)
330 INPUT "Number
of
gr □ Llps:
11
,G: IF G<20 OR G>4CZJ T
HEN
330
400
'
410 LPRINT CHR$(28);CHR$(37):LPRINT "J0":LPRINT"
Z2,6":LPRINT "Q0":LPRINT "Y0":LPRINT "B2"
420 X=10:Y=0:Z$=T$<TI>:LF'RINT "S2":GOSUB 800:LF'RI
NT "S1"
430 LF'RINT "00,-10":LPRINT "LIZl":LF'RINT "D10,0,10,
-50,90,-50"
440 FOR I=G TO 1 STEP -1:X=I*80/G+10:LPRINT "D";X
;",-48,";X;",-50":NEXT I:X==10:Y=-60:Z$=="Group numbe
r":GOSUB 800
450 FOR I=1 TO G:X=I*81Zl/G+9.2:Y=-53:Z$=MID$(STR$(
I) ,2,1):GOSUB 800:IF I>9 THEN Y=-56.6:Z$=RIGHT$(STR
$(I) ,1):GOSUB
800
460 NEXT I
470 LF'RINT "L1":LF'RINT "D90,-40,10,-40":LPRINT "L
12)":
LPR I NT "D 10, -25, 90, -25": LPR I NT "L
1" :
LF'R I NT
II
D90,
-10, 1(21, -10" : LPR I NT "L 1 "
480 X=0:Y=-3:Z$=P$(TI>:LPRINT "S2":GOSUB 800:LPRI
NT "S1"
490 Xal.6:Y=-11.2:2$=-"UCL":GOSUB 800:Y=-26.2:Z$="
CL":GOSUB 800:Y=-41.2:Z$="LCL":GOSUB 800:LPRINT "J
1
II
500
'
510 ON TI+l GOSUB 600
1
700
520 LPRINT "H5":LPRINT "J0":LF'RINT -CHR$(28);CHR$(
46)
530 ON Ti+1 GOSUB 650,750
540
LPRINT CHR$(27);"F5"
550 GOTO 240
6(2)(2)
610 CL=FL(F,G+1,4):FOR I=l TO G:UCL=FL(F,I,5):LCL
=FL(F,I,6):Z=FL(F,I,4):GOSUB 900
620 IF I=1 THEN LPRINT
11
M
11
;X;
11
,
11
;Y ELSE LPRINT
11
0
'
II ;
X ;
II '
"
;
y
630 GOSUB 1000:NEXT I
640 RETURN
650
LPRINT USING" CL=###.####'l.";CL:RETURN
700
710 N=FL(F,1,2):PB=FL(F,G+1,4l/100:NP=N*PB:S1=3•S
QR (
NP* ( 1-PB) )
720 CL=NP:UCL=NP+S1:LCL=NP-Sl
Advertisement
