Реферат: Разработка игровой программы на языке программирования Turbo Pascal
begin
if Init then
begin
SetIntVec($9,OldKbdHandler);
WarmRebootFlag:=FALSE;
Init:=FALSE;
end;
end;
Function ButtonsInited;
begin
ButtonsInited:=Init;
end;
Function IsKeypressed;
Var
i:Byte;
f:Boolean;
begin
f:=false;
i:=1;
While (i<=128) and not f do
begin
f:=Key[i];
Inc(i);
end;
IsKeypressed:=f;
end;
Function Pressed;
begin
if WasPressed[Index] then