Source file: /~heha/messtech/ad_da.zip/PAS/AUTOGRAF.PAS

unit autograf;
{Fehlte bei den Quelltexten zum ADU-Versuch;
 Nachprogrammierung: h#s 11/02
}
interface
procedure Init_Link_Graf_VGA(gm:Integer);

implementation
uses graph;
procedure egavga; external; {$L egavga}
procedure trip; external; {$L trip}
procedure litt; external; {$L litt}
procedure sans; external; {$L sans}

procedure Init_Link_Graf_VGA(gm:Integer);
 var
  gd:Integer;
 begin
  gd:=VGA;
  RegisterBgiDriver(@egavga);
  RegisterBgiFont(@trip);
  RegisterBgiFont(@litt);
  RegisterBgiFont(@sans);
  InitGraph(gd,gm,'');
 end;
end.