100 ON ERROR GOTO 570
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    [LbrCat]"'<---- INIT ----> 11 AUG 87 @ 21:51
210 CPRT$="(c)   AB17 Remote Systems"
220 DEAD$="<ESC> will Abort  Program"
230 PRINT CLS$:PRINT LOGO$:PRINT CPRT$:PRINT DEAD$;TAB(63);TYPE$
240 FOR I=1 TO 4:PRINT:NEXT
250 OPEN "I",#1,"MAST.LST"
260 IF EOF(1) THEN 340
270 IF INKEY$=CHR$(27) THEN CLOSE:END
280 LINE INPUT#1,A$
290 B$=MID$(A$,10,3)
300 IF B$="ARC" OR B$="ARK" OR B$="LBR" THEN 310 ELSE 260
310 PRINT"Records Count => ";:PRINT USING"#####";OK;:PRINT CHR$(13);
320 OK=OK+1:TR=OK
330 GOTO 260
340 CLOSE
350 PRINT"Printing";TAB(12)"So Far";TAB(21)"To Go";
360 PRINT TAB(63)"Records => ";:PRINT USING"#####";OK
370 OPEN "I",#1,"MAST.LST"
380 OPEN "O",#2,"LBRCAT.DAT"
390 IF EOF(1) THEN 520
400 IF INKEY$=CHR$(27) THEN 520
410 LINE INPUT#1,A$
430 B$=MID$(A$,10,3)
440 IF B$="ARK" OR B$="ARC" OR B$="LBR" THEN 450 ELSE 390
450 T=T+1:TR=TR-1
460 PRINT LEFT$(A$,8);
470 PRINT TAB(12);USING"######";T;
480 PRINT TAB(21);USING"#####";TR;:PRINT CHR$(13);
490 IF MID$(A$,15,1)<>"-" THEN 520
500 PRINT#2,LEFT$(A$,12)+" - "+RIGHT$(A$,3)
510 GOTO 390
520 PRINT CLS$:PRINT LOGO$:PRINT CPRT$;TAB(63);TYPE$:PRINT:PRINT:PRINT
530 PRINT"Records written to disk...: ";:PRINT USING"######";T;
540 PRINT:PRINT:PRINT"Output file contains......: ";:PRINT USING"######";(LOC(2)*128)+((T*2)+1);
550 PRINT" Bytes":PRINT:PRINT
560 CLOSE
570 IF ERR=53 AND ERL=120 THEN PRINT"No PUBCAT.DAT File!":END
580 IF ERR=53 AND ERL=370 THEN PRINT"No Input File => MAST.LST Aborting!":END
590 RESUME NEXT
600 END