Реферат: Разработка игровой программы на языке программирования Turbo Pascal

begin

for Row:=y1 to y2 do

for Column:=x1 to x2 do

Mem[Base:(Row shl 8)+(Row shl 6)+Column]:=Color;

end;

Function InitVirtualPage;

Var

Temp:Longint;

begin

VirtualPage:=NIL;

Base2:=0;

Page2:=NIL;

InitVirtualPage:=false;

GetMem(VirtualPage,PageSize+15);

Temp:=(Longint(Seg(VirtualPage^)) shl 4)+Longint(Ofs(VirtualPage^));

if Temp and $F<>0 then Temp:=(Temp shr 4)+1 else Temp:=Temp shr 4;

Base2:=Temp;

Page2:=Ptr(Base2,0);

ClearBase(Base2);

InitVirtualPage:=true;

end;

Procedure DoneVirtualPage;

begin

FreeMem(VirtualPage,PageSize+15);

VirtualPage:=NIL;

Base2:=0;

Page2:=NIL;

end;

{==================================================================}