Category : Pascal Source Code
Archive   : PASBGI.ZIP
Filename : RANDOMGR.PAS

PROGRAM RandomGraphics;

(* PURPOSE: Demonstrate BGI graphics
* SYSTEM: Turbo Pascal 4.0
* AUTHOR: Tom Swan
*)

USES Crt, Graph;

VAR grDriver, grMode, grError : Integer;


PROCEDURE DoGraphics;

{ Display graphics. }

VAR ch : Char;

BEGIN
REPEAT
SetColor( 1 + Random( GetMaxColor ) ); { Select color }
LineTo( Random( GetMaxX + 1 ), { x coordinate value }
Random( GetMaxY + 1 ) ); { y coordinate value }
UNTIL Keypressed;
ch := Readkey
END; { DoGraphics }


BEGIN
grDriver := Detect;
InitGraph( grDriver, grMode, '' );
grError := GraphResult;
IF grError <> GrOk
THEN Writeln( 'Graphics error : ', GraphErrorMsg( grError ) )
ELSE BEGIN
DoGraphics;
CloseGraph
END
END.