home *** CD-ROM | disk | FTP | other *** search
/ ftp.barnyard.co.uk / 2015.02.ftp.barnyard.co.uk.tar / ftp.barnyard.co.uk / cpm / walnut-creek-CDROM / CPM / PROGRAMS / LIST / HB15-PT1.ARK / FFONT.PAS < prev    next >
Pascal/Delphi Source File  |  1986-10-21  |  768b  |  27 lines
  1. { Copyright (C) 1986 Adam Fritz, 133 Main St., Afton, N.Y. 13730 }
  2.  
  3. procedure FinFont ;
  4.  
  5. var
  6.      ndRec          : integer ;
  7.      i              : integer ;
  8.  
  9. begin
  10.                                 { fill, output, and close font data file }
  11.    while dOffset < 128 do begin
  12.       fData[dOffset] := 0 ;
  13.       dOffset := dOffset + 1
  14.    end ;
  15.    BlockWrite (fdID, fData, 1) ;
  16.    close (fdID) ;
  17.                                 { output and close font index file }
  18.    for i := 0 to 127 do
  19.       writeln (fiID,fIndex[i].iDef,' ',fIndex[i].iOff) ;
  20.    close (fiID) ;
  21.                                 { close Hershey designation file }
  22.    close (hID)
  23.  
  24. end ;
  25.  
  26. { Copyright (C) 1986 Adam Fritz, 133 Main St., Afton, N.Y. 13730 }
  27.