SCREEN 13
DIM Sphere(700)
CLS
PAINT (160, 100), 201
Red = 1
Green = 1
Blue = 1

Radius = 25 '*****CHANGE THIS TO '50' FOR A REALLY COOL EFFECT!!!*****

FOR PaletteRange = 15 TO 40
  Red = PaletteRange
  Green = PaletteRange
  ToColor = 65536 * Blue + 256 * Green + Red
  PALETTE PaletteRange, ToColor
  CIRCLE (160, 100), Radius, PaletteRange
  PAINT (160, 100), PaletteRange
  IF Radius > 1 THEN
    Radius = Radius - 1
  END IF
NEXT
 
' Get Sphere, store in array, clear and repaint screen
 
GET (134, 78)-(186, 122), Sphere
CLS
PAINT (160, 100), 201
X = 4
Y = 4
X1 = 4
Y1 = 150
' Move Sphere around screen until a key is pressed
 
WHILE INKEY$ = ""
  IF X > 259 THEN
    Xadj = -1
  ELSEIF X <= 4 THEN
    Xadj = 1
  END IF
  IF Y >= 148 THEN
    Yadj = -1
  ELSEIF Y <= 4 THEN
    Yadj = 1
  END IF
 
  IF X1 > 259 THEN
    Xadj1 = -1
  ELSEIF X1 <= 4 THEN
    Xadj1 = 1
  END IF
  IF Y1 >= 148 THEN
    Yadj1 = -1
  ELSEIF Y1 <= 4 THEN
    Yadj1 = 1
   END IF

  X = X + Xadj
  Y = Y + Yadj
  X1 = X1 + Xadj1
  Y1 = Y1 + Yadj1

  PUT (X, Y), Sphere, PSET
  PUT (X1, Y1), Sphere, PSET
WEND
END
'</PRE>