mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-07 17:47:56 +02:00
21 lines
295 B
ObjectPascal
21 lines
295 B
ObjectPascal
{ %NORUN }
|
|
|
|
program tw37286;
|
|
|
|
{$mode objfpc}
|
|
|
|
var preShiftWorldDx: LongInt;
|
|
WorldDx: LongInt;
|
|
playWidth: LongInt;
|
|
|
|
procedure ShiftWorld(Dir: LongInt); inline;
|
|
begin
|
|
preShiftWorldDx:= WorldDx;
|
|
WorldDx:= WorldDx + LongInt(Dir * LongInt(playWidth));
|
|
|
|
end;
|
|
|
|
begin
|
|
ShiftWorld(-1);
|
|
end.
|