Compucolor.org – Virtual Media

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

5 REM  DRAW BOX THE COLOUR OF THE PRESENT FOREGROUND COLOUR
7 PLOT 12
10 PLOT 2,64,64,242,64,122
20 PLOT 242,122,122,122,64,64,64,255
30 PLOT 29,20:REM  CHANGE COLOUR TO BLUE
35 REM  DRAW BLUE BOX
40 PLOT 2,97,97,242,97,4,4,4,4,97,97,97,255
50 PLOT 29,17:REM  CHANGE COLOUR TO RED
55 REM  DRAW RED CONNECTING LINES
60 PLOT 2,4,97,242,64,122,253,4,4,242,64,64
70 PLOT 253,97,97,242,122,122,253,97,4,242,122,64,255
80 END