Compucolor.org – Virtual Media

Listing of file='6P4.BAS;01' on disk='vmedia/color_graphics_2_suits-sector.ccvf'

5 REM  PROGRAM 6.4
6 REM  RESOLUTION OF COLORS
10 PLOT 15,6,6,12:REM  SET UP
20 PLOT 6,15:REM  WHITE ON RED
30 PLOT 3,15,15:PRINT "TEST TEST TEST"
40 FOR J= 1TO 700:NEXT :REM  PAUSE
50 PLOT 6,2:REM  GREEN
60 PLOT 2:REM  GENERAL PLOT MODE
69 REM  PLOT GREEN BLOCKS AT THE TOP OF THE LINE
70 FOR X= 0TO 64
80   PLOT X,67
90 NEXT
100 PLOT 255:REM  EXIT PLOT MODE
110 FOR J= 1TO 700:NEXT :REM  PAUSE
120 PLOT 6,3:REM  YELLOW
128 REM  PLOT YELLOW BLOCKS TWO PLOT POSITIONS DOWN FROM
129 REM  THE GREEN ONES
130 PLOT 2:REM  GENERAL PLOT MODE
140 FOR X= 0TO 64
150   PLOT X,65
160 NEXT
170 PLOT 255:REM  EXIT PLOT MODE