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

procedure InitBanner ;

var
     i              : integer ;

begin
                                { reset line counter }
   nBLines := 0 ;
                                { get banner string }
   if ParamCount = 2 then begin
      Banner := ParamStr(1) ;
      fName := ParamStr(2)
   end
   else begin
      write ('Banner: ') ;
      readln (Banner) ;
                                { get font name }
      write ('Font name: ') ;
      readln (fName)
   end ;
                                { open font index file }
   fiName := fName + '.FND' ;
   Assign (fiID, fiName) ;
   Reset (fiID) ;
   if IOResult <> 0 then begin
      writeln ('Error: Unable to Open Font Index ',fiName) ;
      BIOS(0)
   end ;
                                { open font data file }
   fdName := fName + '.FNT' ;
   Assign (fdID, fdName) ;
   Reset (fdID) ;
   if IOResult <> 0 then begin
      writeln ('Error: Unable to Open Font Data ',fdName) ;
      close (fiID) ;
      BIOS(0)
   end ;
                                { read font index }
   for i := 0 to 127 do
      read (fiID, fIndex[i].iDef,fIndex[i].iOff) ;
   close (fiID) ;
                                { read font data }
   nRec := FileSize(fdID) ;
   if nRec <= nRecx then begin
      BlockRead (fdID, fData, FileSize(fdID)) ;
      close (fdID)
   end
   else begin
      writeln ('Error: Incompatible Font Data File ',fdName,', Too Large.') ;
      close (fdID) ;
      BIOS(0)
   end

end ;

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