10 VDU20,26,29,48;32;
   20 *REFRESH OFF
   30 DIM bub% 15
   40 bub%!0=&8F8F8977
   50 bub%!4=&F8F89877
   60 bub%!8=&8F8F8977
   70 bub%!12=&F8F89877
   80 PT=PI/3
   90 REPEAT
  100   T%=TIME
  110   GCOLPAT bub%+((TIME/8)AND7)
  120   CLG
  130   GCOL 0
  140   a=(T%AND1023)/512*PI
  150   S%=40*(.5+SIN((T%AND2047)/1024*PI))
  160   FOR P%=0 TO 1
  170     MOVE S%*SIN(a),S%*COS(a)
  180     MOVE S%*SIN(a+2*PT),S%*COS(a+2*PT)
  190     PLOT 85,S%*SIN(a+4*PT),S%*COS(a+4*PT)
  200     a=a+PT
  210   NEXT P%
  220   *REFRESH
  230 UNTIL INKEY(0)<>-1
  240 *REFRESH ON