home *** CD-ROM | disk | FTP | other *** search
/ The Equalizer BBS / equalizer-bbs-collection_2004.zip / equalizer-bbs-collection / DEMOSCENE-STUFF / HQ_WATER.ZIP / FONTBIN.PAS < prev    next >
Pascal/Delphi Source File  |  1993-12-13  |  504b  |  24 lines
  1.  
  2. var
  3.  FontData : array[0..256*16-1] of byte;
  4.  i, o : file;
  5.  s : string;
  6.  
  7. begin
  8.   writeln('FONTEDIT font file to FONT.BIN (256x16) //  ARM 12/93');
  9.   writeln;
  10.   if paramcount = 1 then
  11.     s := Paramstr(1)
  12.   else begin
  13.     write  ('Font file: '); readln(s);
  14.   end;
  15.   assign( i, s ); reset( i,1 );
  16.   seek( i, 18 );
  17.   blockread( i, FontData, sizeof(Fontdata) );
  18.   close( i );
  19.   assign( o, 'FONT.BIN'); rewrite( o,1 );
  20.   blockwrite( o, FontData, sizeof(Fontdata) );
  21.   close( o );
  22. end.
  23.  
  24.