clrdevc.pas

{Clrdevc.PAS}
 
{ Пример программы для процедуры ClearDevice }
 
  Uses Crt, Graph;
 
 Var Gd, Gm : Integer;
 
 Begin 
 Gd:=Detect;
 InitGraph(Gd, Gm, 'C:\BP\BGI'); { Путь к BGI драйверам }
 If GraphResult <> grOk Then Halt(1);
 Randomize;
 Repeat
  LineTo(Random(200), Random(200));
 Until KeyPressed;
 ClearDevice;
 ReadLn;
 CloseGraph;
End.