CATPRINT

  1 REM CATPRINT  J. Colonna
                  SINCUS
    This program lprints the
    disk catalog for Oliger
    systems.

  5 LET /p=o: POKE 23324,10:
REM  Sets Print Driver and adds
    a line feed for Oliger
    system - eliminate the POKE
    statement if line feed is
    not needed.

 10 BORDER 1: PAPER 1: INK 7: C
LS
 20 PRINT '''''''''"To LPRINT
 the Current Disk";'';"      CA
TALOG Press "; INVERSE 1;"<ENTE
R>"
 30 PAUSE 0
 40 OPEN #2,"P": CAT /: CLOSE #
2
 50 PRINT #0;"Press ENTER for a
nother copy or insert new disk a
nd press ENTER"
 60 GO TO 30