15PUZZV2.BAS

' 15 Puzzle version 2 | IchigoJam BASIC
' Copyright (c) 2025 Keiichi Shiga (BALLOON | FU-SEN)
' The MIT License (MIT) - https://mit.balloon.net.eu.org/#2025
POKE #F88,254,250,250,250,250,250,254,0
POKE #F90,254,226,250,226,238,226,254,0
POKE #F98,254,226,250,226,250,226,254,0
POKE #FA0,254,234,234,226,250,250,254,0
POKE #FA8,254,226,238,226,250,226,254,0
POKE #FB0,254,226,238,226,234,226,254,0
POKE #FB8,254,226,250,250,250,250,254,0
POKE #FC0,254,226,234,226,234,226,254,0
POKE #FC8,254,226,234,226,250,226,254,0
POKE #FD0,254,162,170,170,170,162,254,0
POKE #FD8,254,186,186,186,186,186,254,0
POKE #FE0,254,162,186,162,174,162,254,0
POKE #FE8,254,162,186,162,186,162,254,0
POKE #FF0,254,170,170,162,186,186,254,0
POKE #FF8,254,162,174,162,186,162,254,0

100 '15Puzzle version 2
110 VIDEO 5:CLV:M=15:CLS:?
120 COPY #788,#F88,120
130 ? CHR$(0,0,241,242,243,244)
140 ? CHR$(0,0,245,246,247,248)
150 ? CHR$(0,0,249,250,251,252)
160 ? CHR$(0,0,253,254,255)
170 FOR I=0 TO 15:[I]=I+1:NEXT
180 FOR I=99 TO 0 STEP -1
190 LC 3,0:? I;" "
200 R=RND(4)
210 X=M%4-(R==0)+(R==1)
220 Y=M/4-(R==2)+(R==3)
230 IF 0>X OR X>3 OR 0>Y OR Y>3 GOTO 200
240 LC X+2,Y+1:?" ";
250 LC M%4+2,M/4+1:? CHR$(240+[X+Y*4]);
260 T=[X+Y*4]:[X+Y*4]=0:[M]=T
270 M=X+Y*4:WAIT 10:NEXT
280 LC 3,0:? S:I=14
290 IF[I]!=I+1 GOTO 320
300 I=I-1:IF I GOTO 290
310 CLK:LC 5,4:END
320 I=INKEY()
330 X=M%4-(I==28)+(I==29)
340 Y=M/4-(I==30)+(I==31)
350 IF M%4==X AND M/4==Y GOTO 320
360 IF 0>X OR X>3 OR 0>Y OR Y>3 GOTO 320
370 IF INKEY() CONT
380 LC X+2,Y+1:?" ";
390 LC M%4+2,M/4+1:? CHR$(240+[X+Y*4]);
400 T=[X+Y*4]:[X+Y*4]=0:[M]=T
410 M=X+Y*4:S=S+1:GOTO 280