setbkcol.pas

{Setbkcol.PAS}
 
{ Пример программы для процедуры SetBkColor }
 
Uses Crt, Graph;
 
Var GraphDriver, GraphMode : Integer;
                   Palette : PaletteType;
 
Begin
 GraphDriver:=Detect;
 InitGraph(GraphDriver, GraphMode,'');
 Randomize;
 If GraphResult <> grOk Then Halt(1);
 GetPalette(Palette);
 Repeat
  If Palette.Size <> 1 Then SetBkColor(Random(Palette.Size));
  LineTo(Random(GetMaxX),Random(GetMaxY));
 Until KeyPressed;
 CloseGraph;
End.