Разработка игровой программы на языке программирования Turbo Pascal
| Категория реферата: Рефераты по информатике, программированию
| Теги реферата: ответы 8 класс, реферат история развития
| Добавил(а) на сайт: Модест.
Предыдущая страница реферата | 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 | Следующая страница реферата
Главная