Program GRAPHIC;
Uses
Crt, Graph;
Const
TimeOut: Integer = 50;
Driver : String = 'DRIVER\';
Var
Gd, Gm: Integer;
Begin
ClrScr; (* Pulisco la schermata *)
Gd := Detect; (* Rilevo automaticamente i driver video *)
InitGraph(Gd, Gm, Driver); (* Inizializzo la grafica *)
If GraphResult <> grOk Then (* Se ci sono errori *)
Begin
GotoXY(1,4); (* Setto la CP *)
TextColor(LightRed); (* Setto un colore per il testo *)
WriteLn('Graphic error.'); (* Messaggio *)
WriteLn('Press any key to exit.');
ReadKey; (* Aspetto la pressione d'un tasto *)
Halt(1); (* Termino il programma con error *)
End;
Repeat (* Ripeti *)
SetColor(Random(GetMaxColor)); (* Setto un colore casuale *)
Circle( (* Disegno un cerchio con parametri casuali *)
Random(GetMaxX),
Random(GetMaxY),
Random((GetMaxX+GetMaxY) Div 2)
);
Delay(TimeOut); (* Aspetta TOT millisecondi *)
Until KeyPressed; (* Fino alla pression d'un tasto *)
CloseGraph; (* Chiudo la grafica *)
End.