Program   Ex6_1 (input,output);

Const
   %include 'ilap:nmos.consts'

Type
   %include 'ilap:nmos.types'

Var
   i : integer;
   characters : string [255];

%include 'ilap:nmos.specs'

Begin
   Initialise ('symbols');
   characters := '';
   for i := 33 to 126 do begin          { All printable Ascii Characters }
      characters := characters+chr(i);
      if i mod 16 = 0 then characters := characters+chr(10);
   end;

   text ('chars', characters, 850, 700);
   crest ('Crest', 275, 350);

   symbol ('annotation');
      draw ('chars', 0, 0);
      draw ('crest', 275, -700);
   endsymbol;

   Finish;
End.