100 SCREEN 3:ACTIVE 2
  110 '
  120 ' パレットテーブル作成
  130 '
  150 FOR I=0 TO 60 : P=RGBADD(RGBADD(0,I-10,I-10,I-10),0,0,I)
  160 A$=A$+STRW$(1,P):NEXT :PALETTE 2,10,A$
  170 '
  180 ' グラフィックス作成
  190 '
  200 FOR I=60 TO 10 STEP -1:U=I/2+65/2:CIRCLE (160,112+I/5),(U*2,U/2),I,F:NEXT
  210 U=I/2+65/2:CIRCLE (160,112),(U*2,U/2),0,F
  220 '
  230 ' 拡大処理をしながら複数パレットを変更
  240 '
  250 FOR I=1 TO 350 STEP 3:Z=I/127
  260 ROTZOOM Z,Z:VSYNC :PALETTE 2,10+I/7,A$:NEXT