2068 Color Demo

  20 REM T/S 2068 COLOR DEMO
  30 REM  E SALTER  1-20-85
  50 RANDOMIZE 0
  55 BORDER INT (RND*7)
  60 FOR a=0 TO 150: INK INT (RN
D*7)
  70 CIRCLE 127,87,a-67: PLOT a,
a: DRAW 255-a-a,0: DRAW 0,175-a-
a: DRAW -255+a+a,0: DRAW 0,-175+
a+a
  80 NEXT a
  90 PAUSE 50: GO TO 55
 100 REM GOTO 9999 to list progr
am
9999 BORDER 7: PAPER 7: INK 0: C
LS : LIST