15 puzzle game: Difference between revisions
→{{header|BBC BASIC}}
Line 1,260:
@%=2 + LOG(MAX + 1)
WHILE
PRINT "Use arrow keys to move the gap around. Moves taken: ";N%
PROCSlide(GET - 136)
ENDWHILE
PRINT "Solved after ";N% LEFT$(" moves", 6 + (N% = 1)) "."
Line 1,281:
ENDPROC
DEF
CLS
Solved=TRUE
FOR I%=0 TO MAX
COLOUR 12 : COLOUR 135
IF I% = Gap COLOUR 1 : COLOUR 129
IF I% MOD SIZE = SIZE - 1 PRINT Board(I%) ELSE PRINT Board(I%),;
NEXT
COLOUR 0 : COLOUR 143
PRINT
ENDPROC</lang>
▲ IF Board(I%) > Board(I% + 1) THEN =TRUE
=={{header|C}}==
| |||