%begin
   %include "level1:graphinc.imp"
   %integer i, j, m

   %on %event 0 %start
      print symbol(27)
      print symbol('R')
      %stop
   %finish
   clear
   m = 0
   %for i = 0, 32, 224 %cycle
      %for j = 0, 1, 31 %cycle
         colour map(i+j) = (j<<10+j<<5+j)&m
      %repeat
      m = m!!31
      %if m&31=0 %start
         m = m!!(31<<5)
         %if m&(31<<5)=0 %start
            m = m!!(31<<10)
         %finish
      %finish
   %repeat
   m = 32
   %for i = 0, 73, 438 %cycle
      %for j = 1, 21, 652 %cycle
         colour(m)
         fill(j, i, j+20, i+72)
         m = m+1
      %repeat
   %repeat
   line(0, 0, 673, 0)
   line(0, 511, 673, 511)
   line(0, 0, 0, 511)
   line(673, 0, 673, 511)
   %cycle; %repeat
%end %of %program