tw37286.pp 295 B

1234567891011121314151617181920
  1. { %NORUN }
  2. program tw37286;
  3. {$mode objfpc}
  4. var preShiftWorldDx: LongInt;
  5. WorldDx: LongInt;
  6. playWidth: LongInt;
  7. procedure ShiftWorld(Dir: LongInt); inline;
  8. begin
  9. preShiftWorldDx:= WorldDx;
  10. WorldDx:= WorldDx + LongInt(Dir * LongInt(playWidth));
  11. end;
  12. begin
  13. ShiftWorld(-1);
  14. end.