1 SKIP 25
2 READ CCP.DAT X NUMDEF NUMTOT
3 CHARACTERS CONTROL CHART; CHAR FILL ON
4 LINES CONTROL CHART
5 C CONTROL CHART NUMDEF NUMTOT X
6 LET N1 = SUM NUMDEF; LET N2 = SUM NUMTOT; LET M = N1/N2
7 SPIKE ON; SPIKE BASE M
8 C CONTROL CHART NUMDEF NUMTOT X
9