10 ! PROGRAM TO LIST SUMMARY REPORTS
20 DIM A$[132]V
30 OPEN #4, "SUMMARY.RPT/WR/LN:132"
50 OPEN #3, "DKER.RPT/RO/LN:132"
55 GOSUB 1000
60 OPEN #3, "DP0ER.RPT/RO/LN:132"
65 GOSUB 1000
70 OPEN #3, "DP1ER.RPT/RO/LN:132"
75 GOSUB 1000
80 OPEN #3, "DP2ER.RPT/RO/LN:132"
85 GOSUB 1000
90 OPEN #3, "MEMER.RPT/RO/LN:132"
95 GOSUB 1000
100 OPEN #3, "MISCER.RPT/RO/LN:132"
105 GOSUB 1000
110 OPEN #3, "MTER.RPT/RO/LN:132"
115 GOSUB 1000
120 OPEN #3, "MMER.RPT/RO/LN:132"
125 GOSUB 1000
130 OPEN #3, "DRER.RPT/RO/LN:132"
135 GOSUB 1000
140 CLOSE 
150 EXIT 
1000 ! SUB TO PROCESS SUMMARY REPORT
1005 IF END #3 THEN 1100
1010 INPUT LINE #3, A$
1015 IF POS(A$,"SUMMARY")<1 THEN 1010
1020 PRINT #4,CHR$(12)
1030 INPUT LINE #3,A$
1035 PRINT #4,A$
1040 GOTO 1030
1100 CLOSE 3
1105 RETURN 
