Listing of file='PRTDIR.BAS;01' on disk='vmedia/utility-sector.ccvf'
10 PLOT 14,27,18,7,15,27,13 20 PLOT 27,15,27,108,8 30 POKE 33265,0 40 PLOT 12,14 50 PRINT TAB( 23):PRINT "DIRECTORY PRINTER" 60 PLOT 15 70 PRINT TAB( 16):PRINT "USING SUPER 5 PRINTER SET AT..." 75 PRINT 80 PRINT TAB( 16):PRINT "132 CH/LINE & LH MARGIN 8 SPACES." 90 PRINT :PRINT :PRINT :PRINT TAB( 20) 100 INPUT "INSERT DISK & HIT RETURN";A$ 110 PLOT 27,7:PRINT "DIR" 120 POKE 33265,0 130 PRINT :PRINT 140 INPUT "PRINT ANOTHER DIRECTORY?--(Y OR N)";B$ 150 IF B$= "Y"THEN GOTO 40 160 IF B$= "N"THEN GOTO 170 170 PLOT 14,27,18,7,15,27,13 180 PLOT 27,80,27,108,0 190 POKE 33265,0:END