Listing of file='DIRDUM.BAS;01' on disk='vmedia/comtronics-sector.ccvf'
100 REM DUMP DIRECTORY 110 REM 11/06/81 120 REM A. LEE 130 REM 140 CLEAR 100 145 PLOT 14,27,18,3,15:REM SET BAUD RATE 150 PLOT 12:PRINT "DUMP DIRECTORY TO PRINTER":PRINT 160 PRINT :INPUT "PLEASE INSERT YOUR DISKETTE NOW AND HIT RETURN > ";A$ 170 PLOT 12,27,4:PRINT "DIR":PLOT 27,27,28,11,3,0,30:INPUT "DUMP ? > ";A$ 180 IF A$< > "Y" GOTO 160 190 PLOT 28,11:INPUT "PRINTER READY ? > ";A$:IF A$< > "Y" GOTO 190 200 PLOT 28,11,3,0,0,24:REM DUMP 210 POKE 33265,0:PLOT 3,0,30:INPUT "HIT RETURN WHEN FINISHED >";A$ 220 GOTO 100