%include "frame"
%begin
   read font
   clear
   setup
   at(0, 0)
   showstring("ABCDEFGHIJKLMNOPQRSTUVWXYZ")
%end