PROCEDURE WAIT( timer: integer; var ch: char );
{
LAST EDITED: 03/03/84 rep

REQUIRES:
	FUNCTION keyboard();
}
label 1;
const	factor = 2625;{Z80 CPU at 4 mcps}
var	i,j : integer;
{$c-,r-,m-,f-}
{
	NAME	WAIT
	ENTRY	WAIT
}
FUNCTION keyboard( var c:char ):boolean;external;
{
WAIT:
}
BEGIN
  for j:=1 to timer do begin
     for i:=1 to factor do begin
	if keyboard(ch) then goto 1
     end;
  end;
1:END{WAIT};