%begin
   %include "inc:util.imp"
   %include "level1:graphinc.imp"
   %integer i, j, z = 0, f, h
   %string(255) file

   %on %event 0 %start
      print symbol(27)
      print symbol('R')
      %stop
   %finish
   file = cli param
   %if file#"" %start
      read font("level1:".file.".bft", f)
      font(f)
   %finish
   clear
   colour(white)
   j = 0
   %for i = 1, 1, 7 %cycle
      text at(20, 480-i*32)
      j = j*10+i
      show i(j, 8)
      show r(j/1000, 10, 5)
      show f(j/1000, 6)
   %repeat
   %while test symbol<0 %cycle; %repeat
   clear
   i = cpu time
   h = 0
   %cycle
      j = cputime+20
      colour(black)
      fill(200, 240+h, 400, 270+h)
      colour(white)
      text at(200, 245+h)
      show i((cpu time-i)//10, 10)
      offset(0, h)
      h = 512-h
      %while cputime<j %cycle; %repeat
   %repeat
%end %of %program
