100 HGR 
  110 PENDOWN 
  120 COLOUR = Aqua
  130 FOR i = 0 TO 359 CYCLE 
  140   COLOUR = i MOD 14 + 1
  150   MOVE (i / 10)
  160   RIGHT (i * 5)
  170   WAIT (0)
  180 REPEAT 
  190 END