%begin
   %include "level1:graphinc.imp"
   %include "inc:util.imp"
   %string(255) file
   %integer i, j, f
   %on %event 0 %start
      print symbol(27)
      print symbol('R')
      write(font height, 5)
      write(font depth, 5)
      write(max font width, 5)
      write(min font width, 5)
      new line
      %stop
   %finish

   %routine showfont(%integer x, y, %integer cfont)
      %integer h
      font(cfont)
      %for i = 0, 16, 240 %cycle
      h = y-((i>>4)+1)*(font height+2)
      colour(1)
      enable(7)
      line(0, h, 687, h)
      textat(x, h)
      %for j = 0, 1, 15 %cycle
         enable(8)
         colour(8)
         fill(text x pos, text y pos-font depth, text x pos+char width(i+j),
                           text y pos+font height)
         enable(6)
         colour(6)
         show symbol(i+j)
      %repeat
   %repeat
   %end
   file = cliparam
   clear
   colour(1)
   line(0, 0, 0, 511)
   %if file="" %start
      f = 0
   %else
      read font(cliparam.".bft", f)
   %finish
   show font(0, 512, f)
   %cycle
   %repeat
%end %of %program