%begin
   %include "level1:graphinc.imp"
   %integer i, j, f1, f2, f3, f4, f5, f6, f7

   %routine showfont(%integer x, y, %integer cfont)
      font(cfont)
      %for i = 0, 16, 240 %cycle
      textat(x, y-13*(i>>4))
      %for j = 0, 1, 15 %cycle
         show symbol(i+j)
      %repeat
   %repeat
   %end
   colour(4)
   clear
   fill(0, 0, 25, 25)
   colour(1)
   line(0, 0, 50, 50)
   colour(3)
   triangle(100, 100, 125, 125, 100, 125)
   colour(2)
   disc(200, 200, 50)
   colour(5)
   ring(200, 200, 51)
   %for i = 0, 5, 100 %cycle
      plot(i, i)
   %repeat
   textat(304, 300)
   show string("Hello there")
   textat(304, 320)
   read font("bantam", f1)
   font(f1)
   show string("Hello there")
   textat(304, 340)
   read font("igor", f2)
   font(f2)
   show string("Hello there")
   read font("evisual",f3)
   font(f3)
   text at(300, 360)
   show string("Back to good ol' Visual 200 font")
   enable(4)
   colour(0)
   textat(300, 360)
   font(0)
   show string("Back to good ol' Visual 200")
   read font("level1:evisualp.bft",f4)
   font(f4)
   enable(7)
   colour(7)
   text at(300, 380)
   show string("And now for something proportionally spaced")
   read font("Level1:visual.bft", f5)
   read font("Level1:timesb4.bft", f6)
   read font("Level1:timesr4.bft", f7)
   show font(0, 500, f3)
   show font(0, 280, f1)
   show font(150, 500, f4)
   show font(300, 500, f2)
   show font(450, 500, f5)
   show font(300, 200, f6)
   show font(450, 200, f7)
   %cycle
   %repeat
%end %of %program