10 BPS 9600
20 ?:? "INIT 1000,750,#00FF00"
30 ? "FONT 1,1,1,80"
40 ? "IMAGE 1,15GAME.JPG,250,250"
50 ? "DRAWTEXT 15GAME,500,0,1,1,#FF0000"
60 ? "DRAWRECT 200,100,600,600,#000000, FILL"
70 FOR P=0 TO 14:[P]=P+1:GSB 300:NEXT
80 SRND [99]:[99]=RND(100)
90 FOR I=0 TO 31:P=RND(15):Q=(P+RND(14)+1)%15:M=[P]:[P]=[Q]:[Q]=M:GSB 300:P=Q:GSB 300:NEXT
100 ? "LP: DRAWTEXT LET'S PLAY, 500,400,4,1,#FF0000":L=1
110 P=15
120 K=INKEY():IF K=0 GOTO 120
130 IF L=1 ? "REMOVE LP":L=0 
150 Q=P
160 IF K=28 AND P%4<3 Q=P+1
170 IF K=31 AND P>3   Q=P-4
180 IF K=29 AND P%4>0 Q=P-1
190 IF K=30 AND P<12  Q=P+4
200 IF P=Q GOTO 120
210 [P]=[Q]:GSB 300:P=Q
220 R=0:FOR I=1 TO 15:R=R+ABS(I-[I-1]):NEXT
230 IF R<>0 GOTO 120
235 [15]=16:P=15:GSB 300
240 ? "DRAWTEXT COMPLETE, 500,400,4,1,#FF0000" 
250 ? "DRAWTEXT RETRY(Y/N),500,550,4,1,#FFFF00"
260 K=INKEY():IF K=89 GOTO 20 ELSE IF K=78 END ELSE GOTO 260
300 ? "R";[P];": DRAWIMAGE 1,";[P]-1;",";P%4*150+202;",";P/4*150+102;",146,146"
320 RTN