1----- <~dataexec\REHM.DP> Load & Execute REHM.DAT
2
3. This is file    REHM.DP
4
5DELETE Y1 Y2 X PATIENT TAG
6SKIP 25
7READ REHM.DAT Y1 Y2 X PATIENT
8TITLE REHM.DAT
9RETAIN Y1 Y2 X PATIENT SUBSET PATIENT 1
10LET N = NUMBER Y1
11LET TAG = SEQUENCE 1 4 1 300
12RETAIN TAG FOR I = 1 1 N
13MULTIPLOT 2 2
14PLOT Y TAG TAG
15MEAN CONTROL CHART Y TAG
16RANGE CONTROL CHART Y TAG
17END OF MULTIPLOT
18
19