10 !PROGRAM TO COMPRESS DRER.RPT
22 DIM A$[6],B$[62]V,SS(5),CS(55)
23 OPEN #4, "DRER.TMP/WR"
24 OPEN #3, "DRER.RPT/RO" : IF END #3 GOTO 250
25 PRINT #4 "ERROR REPORT FOR DR'S  ";DDAT$();" AT ";TIM$()
26 LX=0
30 INPUT LINE #3,B$
31 IF POS(B$,"LOGGED")>0 THEN  PRINT #4 : PRINT #4, SEG$(B$,11,34);SEG$(B$,41,60)
33 IF SBS$(B$,9,8)="UNIT NAM" THEN  PRINT #4 SBS$(B$,9,30) : INPUT LINE #3,B$ : PRINT #4, SBS$(B$,9,32)
35 IF SBS$(B$,9,4)<>"RMCS" THEN 30
40 PRINT #4,SBS$(B$,9,50) : INPUT LINE #3,B$
41 IF SBS$(B$,1,9)="ERROR DIA" THEN  INPUT LINE #3,B$ : PRINT #4, SBS$(B$,1,13);"  "; : GOTO 50
42 GOTO 40
50 INPUT LINE #3,B$
51 IF SBS$(B$,1,4)="RETR" THEN  PRINT #4 SBS$(B$,1,30) : GOTO 55
52 GOTO 50
55 PRINT #4, B$
60 INPUT LINE #3,B$
61 IF SBS$(B$,9,4)<>"TASK" THEN 60
62 FOR JJ=1 TO 5
63 PRINT #4, SBS$(B$,9,50)
64 INPUT LINE #3,B$
65 NEXT JJ
70 FOR JJ=1 TO 9
71 PRINT #4, SBS$(B$,17,58)
72 INPUT LINE #3,B$
73 NEXT JJ
80 INPUT LINE #3,B$
81 IF SBS$(B$,1,4)<>"NUMB" THEN 80
82 PRINT #4, B$
83 PRINT #4, CHR$(12); "ERROR REPORT FOR DR'S"
85 GOTO 30
250 CLOSE  3
260 EXIT