DEFINT A-Z
RANDOMIZE TIMER
DIM grid(1 TO 4, 1 TO 4)
DO
 CLS
 placed = 0
 DO
 x = INT(RND(1) * 4) + 1
 y = INT(RND(1) * 4) + 1
 IF grid(x, y) = 0 THEN grid(x, y) = 2 + 2 * INT(RND(1) * 2): placed = 1
 LOOP UNTIL placed = 1
 lose = -1: win = 0
 FOR i = 1 TO 4
 PRINT "+-----+-----+-----+-----+"
 PRINT "|";
   FOR j = 1 TO 4
    IF grid(i, j) = 2048 THEN win = -1: lose = 0
    IF grid(i, j) = 0 THEN lose = 0: PRINT "     |";  ELSE COLOR 0, LOG(grid(i, j)) / LOG(2): PRINT USING "#####"; grid(i, j); : COLOR 7, 0: PRINT "|";
   NEXT
   PRINT
 NEXT
 PRINT "+-----+-----+-----+-----+"
 IF win THEN PRINT "You Win!!!": END
 IF lose THEN PRINT "You Lose!": END
 x$ = "": WHILE x$ = "": x$ = INKEY$: WEND
SELECT CASE x$
CASE CHR$(27)
END
CASE CHR$(0) + CHR$(72)' up
FOR i = 3 TO 1 STEP -1
FOR j = 1 TO 4
IF grid(i, j) = 0 THEN grid(i, j) = grid(i + 1, j): grid(i + 1, j) = 0
IF grid(i, j) = grid(i + 1, j) THEN grid(i, j) = grid(i, j) * 2: grid(i + 1, j) = 0
NEXT
NEXT
CASE CHR$(0) + CHR$(75) 'left
FOR i = 1 TO 4
FOR j = 3 TO 1 STEP -1
IF grid(i, j) = 0 THEN grid(i, j) = grid(i, j + 1): grid(i, j + 1) = 0
IF grid(i, j) = grid(i, j + 1) THEN grid(i, j) = grid(i, j) * 2: grid(i, j + 1) = 0
NEXT
NEXT
CASE CHR$(0) + CHR$(77)' right-
FOR i = 1 TO 4
FOR j = 2 TO 4
IF grid(i, j) = 0 THEN grid(i, j) = grid(i, j - 1): grid(i, j - 1) = 0
IF grid(i, j) = grid(i, j - 1) THEN grid(i, j) = grid(i, j) * 2: grid(i, j - 1) = 0
NEXT
NEXT
CASE CHR$(0) + CHR$(79) ' down
FOR i = 2 TO 4
FOR j = 1 TO 4
IF grid(i, j) = 0 THEN grid(i, j) = grid(i - 1, j): grid(i - 1, j) = 0
IF grid(i, j) = grid(i - 1, j) THEN grid(i, j) = grid(i, j) * 2: grid(i - 1, j) = 0
NEXT
NEXT
END SELECT


LOOP