100 HGR 
  110 COLOUR = Green
  120 PENUP 
  130 MOVE (50)
  140 PENDOWN 
  150 FOR i = 1 TO 4 CYCLE 
  155   COLOUR = 10 + i
  160   x = 1
  170   FOR j = 1 TO 100 CYCLE 
  180     MOVE (10)
  190     RIGHT (100 - x)
  200     x = x + 1
  201     WAIT (0)
  210   REPEAT 
  220 REPEAT 
  230 END