Предыдущая страница реферата | 1  2  3  4  5  6  7  8  9  10  11 | Следующая страница реферата



Tmp:=Tmp xor 21;

WarmRebootFlag:=TRUE; end;

Mem[Seg0040:$0017]:=Tmp; end; asm in al,61h or al,82h out 61h,al and al,7Fh out 61h,al mov al,20h out 20h,al end;

end;
Procedure InitButtons; begin if not Init then begin

GetIntVec($9,OldKbdHandler);

SetIntVec($9,@Int9);

FillChar(Key,SizeOf(Key),FALSE);

FillChar(WasPressed,SizeOf(WasPressed),FALSE);

CheckWarmReboot:=TRUE;

WarmRebootFlag:=FALSE;

Init:=TRUE; end; end;
Procedure DoneButtons; 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');

Old:=Res; end; if Pressed(keyUp) then begin

Res:=Res-1; if Res4 then Res:=1; end;

Until Key[keyEnter];

Logo:=Res; end;
Procedure Center(y:Integer;Const s:String); begin

DrawString(Base1,160-(Length(s)*8 div 2),y,s); end;
Procedure Info; begin

ClearBase(Base1);

Center(2,'Instructions');

Center(20,'Arrows - moving Hero');

Center(30,'Space - throw stone');

Рекомендуем скачать другие рефераты по теме: список литературы реферат, изложение дубровский.

Предыдущая страница реферата | 1  2  3  4  5  6  7  8  9  10  11 | Следующая страница реферата

Поделитесь этой записью или добавьте в закладки