%begin
   %include "level1:graphinc.imp"
   %integer i, j, z = 0

   %on %event 0 %start
      print symbol(27)
      print symbol('R')
      %stop
   %finish
   colour(255)
   clear
   colour map(j) = z %for j = 0, 1, 255
   %for i = 0, 1, 7 %cycle
      colour map(1<<i) = 16_7FFF
      enable(1<<i)
      line(j, i<<6, j, i<<6+63) %for j = 0, 17, 544
      line(0, i<<6, 553, i<<6)
      text at(560, i<<6+3)
      show i(i, 3)
   %repeat
   %cycle; %repeat
%end %of %program
