%begin
   %include "level1:graphinc.imp"
   %integer i, f, c, s, o, b

   read font("level1:bantamn", f)
   font(f)
   s = 32
   o = 0
   %cycle
      c = s
      b = (o-8)&1023
      colour(0)
      %if b<o %start
         fill(0, b, 687, o)
      %else
         fill(0, 0, 687, o)
         fill(0, b, 687, 1023)
      %finish
      colour(7)
      offset(0, b)
      text at(0, b)
      %for i = 1, 1, 114 %cycle
         show symbol(c)
         c = c+1
         c = 32 %if c=128
      %repeat
      s = s+1
      s = 32 %if s=128
      o = (o-9)&1023
   %repeat
%end %of %program
