[Color-Graduation] SAMPLE

100 COLOR ,,,,2:CLS 3
110 FOR I=1 TO 7
120 G=(I AND 4)\4
130 R=(I AND 2)\2
140 B=I AND 1
150 FOR J=0 TO 15
160 COLOR=(10,G*J*256+R*J*16+B*J)
170 LINE (J*30,I*50-50)-(J*30+30,I*50),7,BF,10
180 NEXT J
190 NEXT I

100行 4096色中・16色モード
160行 カラーパレット10を、GRBコードで指定
  カラーコードは&H000〜&HFFFで指定。
170行 長方形をパレット番号10でぬりつぶしています。