Compucolor.org – Virtual Media

Listing of file='DSPFLE.BAS;01' on disk='vmedia/comtronics-sector.ccvf'

2140 PLOT 6,0,12,15:DP$= "1"
2150 PLOT 27,4:PRINT "LOAD DIRFL2.DSP;"DP$:PLOT 27,27
2160 PLOT 6,2,15,3,0,31:PRINT "(N)EXT PAGE / (Q)UIT ";
2170 GOSUB 2210:PLOT 12
2200 DP= VAL (DP$):DP= DP+ 1:DP$= STR$ (DP):PLOT 6,0:GOTO 2150
2210 POKE 33278,0:POKE 33279,80
2220 KB= PEEK (33278)
2230 IF KB= 78THEN RETURN
2240 IF KB= 81THEN PLOT 6,2,12,15:END
2250 GOTO 2220
2260 END