CP/M/CPM_CDROM.iso/mbug/mbug120.arc/PASCAL.LBR/FONT.PZS/FONT.PAS

Pascal/Delphi Source File | 1979-12-31 | 2KB | 49 lines

USING GRAPHIC WORDBEE FONT FILES WITH TURBO PASCAL
by Glenn Satchell

Arσ yo⌡ sicδ oµ usinτ plaiε olΣ inversσ character≤ iε you≥ pasca∞ ì
programs┐ FONT.FU╬ i≤ ß shor⌠ pasca∞ functioε whicΦ load≤ thσ PC╟ ì
memor∙á froφ ß selecteΣ file«á Thi≤ filσ ma∙ bσ onσ oµ thσá font≤ ì
createΣ usinτ thσ Graphiπ Wordbeσ Utilit∙ FONT.COM«á M∙ favouritσ ì
i≤ ß runninτ writinτ font«

FONT.CO═á offer≤ jus⌠ abou⌠ thσ easies⌠ wa∙ oµ creatinτ ß specia∞ ì
stylσá oµá letters¼á althougΦ file≤ ma∙ bσ createΣá usinτá Basic¼ ì
Assembl∙á Language¼á Turb∩ Pascal¼á C¼á o≥ an∙ othσ program≤á yo⌡ ì
like.

Thσ forma⌠ oµ thσ filσ i≤ simpl∙ 2δ oµ datß t∩ bσ loadeΣ int∩ thσ ì
PC╟á memory«á Thσ functioε doe≤ no⌠ looδ fo≥ ß specia∞á beginninτ ì
or end of file character.

Thσ functioε return≤ TRU┼ iµ therσ arσ n∩ errors¼á FALS┼ iµ therσ ì
i≤ aε error. Typical usage might be:

  IF FONT('A:ESPERANT.FON') THEN LOWVIDEO;

Thσá cal∞á t∩ Lowvide∩ i≤ requireΣ t∩ switcΦ thσá outpu⌠á t∩á pcτ ì
characters«

functioε fon⌠ (fontfilσ ║ str14⌐ ║ boolean;
{ You must include the following declaration in the main program:
  TYPE STR14 = STRING[14]
}

var
    pcg : array[1..2048] of byte absolute $F800;
    fn : file;
    okay : boolean;
begin
okay:=true;
assign(fn,fontfile);
{$I-} reset(fn); {$I+}
okay:=ioresult=0;
if okay then
    begin
    {$I-} blockread(fn,pcg,16); {$I+}
    okay:=ioresult=0;
    end;
close(fn);
font:=okay
end;