16 puzzle game: Difference between revisions
→{{header|FutureBasic}}
Line 245:
void local fn move( tag as int )
int r, a, b, c, rc = (tag mod 10)
select tag / 10
case
case _right
case
case _left
for r = rc to 12 step 4▼
swap board[r], board[r+4]▼
next▼
end select
if board == winBoard then window 1, @"!!! YOU WON !!!" : text,,fn colorRed
fn drawBoard
|