Listing of file='PTDIR.BAS;01' on disk='vmedia/taylor-sideA-sector.ccvf'
100 REM LIST DIRECTORY TO PRINTER UTILITY 200 REM FOR A BASE2 PRINTER SET FOR 9600 BAUD 600 CLEAR 500 1000 OUT 8,255:POKE 33265,0:INPUT "ENTER DRIVE ADDRESS 0 OR 1: ";DA 1100 IF DA< > 0AND DA< > 1THEN 1000 1200 PRINT "" 18100 OUT 8,4:POKE 33278,255 18104 PLOT 27,13 18105 PLOT 27,72,27,74,127,27,74,17 18110 PLOT 27,52,27,98,18:REM 132 COL/8 LINES/INCH 18112 PLOT 27,67,27,68,27,56,27,53,27,57,6,27,58 18113 PLOT 27,106 18120 PLOT 13:REM CR 18400 WAIT 1,128,128:POKE 33265,0 18500 OUT 8,4:PLOT 27,7:REM FCS/PRINTER 18600 PRINT "DIR";DA;":" 18700 GOTO 1000