Compucolor.org – Virtual Media

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

5 L= 1
10 TMP= PEEK (33265)
20 PLOT 27,13
100 PRINT "PAGE ";:PRINT L
105 PLOT 10,10,10
110 PRINT "                  PRINT TEST     "
120 FOR I= 1TO 16
130 PLOT 29:PRINT ;:FOR A= 64TO 95:PLOT A,32:NEXT :PRINT
140 PLOT 29:PRINT ;:FOR A= 33TO 57:PLOT A,32:NEXT :PRINT
150 PLOT 10
160 NEXT
500 PRINT "                     TEST COMPLETE   "
505 FOR X= 0TO 11:PLOT 10:NEXT
510 POKE 33265,TMP
520 L= L+ 1:IF L= 10THEN 600
530 GOTO 10
600 END