22 lines
713 B
Plaintext
22 lines
713 B
Plaintext
5 rem color bars program
|
|
10 print chr$(147);:dim co(17):c=1
|
|
20 read co(c):if co(c)>0 then c=c+1:goto 20
|
|
25 sp$=" ":h=22:c=c-1:rem sp$=5 spaces
|
|
30 for r=1 to c step int(c/2)
|
|
40 for h=1 to 10
|
|
50 for b=r to (r+int(c/2))-1
|
|
60 print chr$(18);chr$(co(b));sp$;
|
|
70 next b
|
|
75 rem check if palette is only 8 (vic-20).
|
|
76 rem if so, we need to fill the last two spaces.
|
|
80 if c<=8 then print " ";
|
|
90 next h:next r
|
|
100 get k$:if k$="" then 100
|
|
110 end
|
|
280 rem because the control codes for color are non-sequential,
|
|
285 rem we put them into a sequential array for use
|
|
300 data 144,5,28,159,156,30,31,158
|
|
305 rem omit or rem the next line for vic-20
|
|
310 data 129,149,150,151,152,153,154,155
|
|
320 data 0:rem data terminato
|