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 TERMINATOR