Program rtest2;

Program rtest2;
{ 11/27/81 rep }
var
a1, a2 ,a3: integer;
seed: real;

function random( var seed: real):real; external;

procedure randomize; external;

BEGIN
a1 := 0; a2 := 0; a3 := 0;
Write('Enter your first move -->');
RANDOMIZE;
readln( a1 );
writeln('First twenty numbers generated:' );
for a3:=1 to 20 do begin
write( a3:2 );writeln( trunc(random(seed)*10) );
end;
writeln;
writeln( 'NOTE: first move generated to block #', a1:1 );
END.

PROCEDURE RANDOMIZE;
{ SEED THE RANDOM NUMBER GENERATOR BASED ON A RANDOM TIME DELAY }
var dummy: real;

function constat: boolean; external;

begin
seed := 4.0;{ lucky guess }
{ generate random numbers until a key press is detected }
while not constat do
dummy := random( seed );
end{of randomize};