100 ON ERROR GOTO 590
110 TYPE$="Your System Name"
120 OPEN "I",#1,"PUBCAT.DAT"
130 WHILE NOT EOF(1)
140 LINE INPUT #1,A$
150 IF LEFT$(A$,3)="299" THEN 170
160 IF LEFT$(A$,3)="999" THEN 190
170 CLS$=CLS$+CHR$(VAL(A$))
180 WEND
190 CLOSE
200 LOGO$="PUBTOOL    v1    [FilCat]"'<---- INIT ----> 07 AUG 87 @ 10:16
210 CPRT$="(c)   AB17 Remote Systems"
220 DEAD$="<ESC> will Abort  Program"
230 EN0$="TXT":EN1$="TZT":EN2$="ASM":EN3$="AQM":EN4$="COM"
240 EN5$="OBJ":EN6$="ENV":EN7$="RCP":EN8$="DOC":EN9$="NOT"
250 PRINT CLS$:PRINT LOGO$:PRINT CPRT$:PRINT DEAD$;TAB(63);TYPE$
260 FOR I=1 TO 4:PRINT:NEXT
270 OPEN "I",#1,"MAST.LST"
280 IF EOF(1) THEN 360
290 LINE INPUT#1,A$
300 B$=MID$(A$,10,3)
310 IF B$=EN0$ OR B$=EN1$ OR B$=EN2$ OR B$=EN3$ OR B$=EN4$ THEN 280
320 IF B$=EN5$ OR B$=EN6$ OR B$=EN7$ OR B$=EN8$ OR B$=EN9$ THEN 280
330 PRINT"Records Count => ";:PRINT USING"#####";OK;:PRINT CHR$(13);
340 OK=OK+1:TR=OK
350 GOTO 280
360 CLOSE
370 PRINT"Printing";TAB(12)"So Far";TAB(21)"To Go";
380 PRINT TAB(63)"Records => ";:PRINT USING"#####";OK
390 OPEN "I",#1,"MAST.LST"
400 OPEN "O",#2,"FILCAT.DAT"
410 IF EOF(1) THEN 540
420 LINE INPUT#1,A$
430 IF INKEY$=CHR$(27) THEN 540
440 B$=MID$(A$,10,3)
450 IF B$=EN0$ OR B$=EN1$ OR B$=EN2$ OR B$=EN3$ OR B$=EN4$ THEN 410
460 IF B$=EN5$ OR B$=EN6$ OR B$=EN7$ OR B$=EN8$ OR B$=EN9$ THEN 410
470 T=T+1:TR=TR-1
480 PRINT LEFT$(A$,8);
490 PRINT TAB(12);USING"######";T;
500 PRINT TAB(21);USING"#####";TR-1;:PRINT CHR$(13);
510 IF MID$(A$,15,1)<>"-" THEN 540
520 PRINT#2,LEFT$(A$,12)+" - "+RIGHT$(A$,3)
530 GOTO 410
540 PRINT CLS$:PRINT LOGO$:PRINT CPRT$;TAB(63);TYPE$:PRINT:PRINT:PRINT
550 PRINT"Records written to disk...: ";:PRINT USING"######";T;
560 PRINT:PRINT:PRINT"Output file contains......: ";:PRINT USING"######";(LOC(2)*128)+((T*2)+1);
570 PRINT" Bytes":PRINT:PRINT
580 CLOSE
590 IF ERR=53 AND ERL=120 THEN PRINT"No PUBCAT.DAT file!":END
600 IF ERR=53 AND ERL=390 THEN PRINT"No Input File => ";"MAST.LST"+"  ";:END
610 RESUME NEXT
620 END