10 ! PROGRAM TO COMPRESS MAG-TAPE ERRORS
22 DIM A$[6],B$[62]V,SS(5),CS(51)
23 OPEN #4, "COMPRESS.TMP/WR"
24 OPEN #3, "MTER.RPT/RO" : IF END #3 GOTO 250
25 PRINT #4 "ERROR REPORT FOR MT0: ";DDAT$();" AT ";TIM$()
26 LX=0 : FOR I=1 TO 5 : SS(I)=0 : NEXT I
28 FOR I=1 TO 51 : CS(I)=0 : NEXT I
29 DA=0 : CA=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)
32 IF SBS$(B$,9,3)<>"MTS" THEN 36
33 PRINT #4 SBS$(B$,9,43) : INPUT LINE #3,B$
34 IF SBS$(B$,9,3)<>"MTC" THEN PRINT #4, SBS$(B$,9,43)
35 IF SBS$(B$,9,3)="MTC" THEN PRINT #4, " "
36 IF SBS$(B$,9,4)="MTC " THEN  PRINT #4 SBS$(B$,9,42)
37 IF SBS$(B$,9,8)="USER FUN" THEN PRINT #4, SBS$(B$,9,46)
39 IF SBS$(B$,12,4)="K NA" THEN  PRINT #4 "TASK NAME, UIC          ";SBS$(B$,33,6);"  ";
40 IF SBS$(B$,12,4)="K UI" THEN  PRINT #4 SBS$(B$,33,7)
41 IF SBS$(B$,1,9)="ERROR DIA" THEN INPUT LINE #3,B$ : PRINT #4, SBS$(B$,1,13);"  ";
42 IF SBS$(B$,1,4)="RETR" THEN  PRINT #4 SBS$(B$,1,30)
43 IF SBS$(B$,1,4)="VECT" THEN  GOTO 50
45 GOTO 30
50 PRINT #4
55 GOTO 29
250 CLOSE  3
260 OPEN #3, "MMER.RPT/RO" : IF END #3 GOTO 300
270 PRINT #4, CHR$(12)
275 PRINT #4, "ERROR REPORT FOR MM0: ";DDAT$();" AT ";TIM$()
280 GOTO 26
300 CLOSE 3
301 EXIT