Compucolor.org – Virtual Media

Listing of file='PRTDIR.BAS;01' on disk='vmedia/selective_utilities-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