{ Copyright (C) 1986 Adam Fritz, 133 Main St., Afton, N.Y. 13730 }

procedure FinFont ;

var
     ndRec          : integer ;
     i              : integer ;

begin
                                { fill, output, and close font data file }
   while dOffset < 128 do begin
      fData[dOffset] := 0 ;
      dOffset := dOffset + 1
   end ;
   BlockWrite (fdID, fData, 1) ;
   close (fdID) ;
                                { output and close font index file }
   for i := 0 to 127 do
      writeln (fiID,fIndex[i].iDef,' ',fIndex[i].iOff) ;
   close (fiID) ;
                                { close Hershey designation file }
   close (hID)

end ;

{ Copyright (C) 1986 Adam Fritz, 133 Main St., Afton, N.Y. 13730 }