Anonymous user
2048: Difference between revisions
→{{header|M2000 Interpreter}}
Line 3,893:
Def Tile$(x)=If$(x=0->"[ ]", format$("[{0::-4}]", x))
\\ empty board
BoardTileRight
BoardTileLeft=lambda (x, y)->3-x+y*4
BoardTileUp=lambda (x, y)->x*4+y
Line 3,943:
End
Sub Process(Boardtile)
Inventory EmptyTiles ' clear inventory
local
For i=0 to 3
Gravity()
|