20 lines
483 B
Plaintext
20 lines
483 B
Plaintext
100 rem Colour bars/Display
|
|
110 graphics 0 : graphics cls
|
|
120 for i = 0 to 7
|
|
130 read r,g,b
|
|
140 graphics color r,g,b
|
|
150 for j = 0 to 79
|
|
160 x = i*80+j
|
|
170 graphics moveto x,0
|
|
180 graphics lineto x,399
|
|
190 next j
|
|
200 next i
|
|
500 data 0,0,0 : rem black
|
|
510 data 100,0,0 : rem red
|
|
520 data 0,100,0 : rem green
|
|
530 data 0,0,100 : rem blue
|
|
540 data 100,0,100 : rem magenta
|
|
550 data 0,100,100 : rem cyan
|
|
560 data 100,100,0 : rem yellow
|
|
570 data 100,100,100 : rem white
|