Fifteen Puzzle

Gallery

Source Code

   3 DIM B(8)
   5 DIM A(16)
  10 GOSUB 300
  15 LET M=0
  20 FOR I=1 TO 16
  30 LET A(I)=0
  40 NEXT I
  50 FOR I=1 TO 16
  60 LET R=INT (RND*16)+1
  70 IF NOT A(R)=0 THEN GOTO 60
  80 LET A(R)=I
  90 NEXT I
 100 GOSUB 500
 110 IF F=1 THEN GOTO 20
 120 GOSUB 600
 130 PRINT 
 140 PRINT "YOUR MOVE"
 150 INPUT X
 152 LET C=X
 155 IF X=0 THEN STOP 
 160 GOSUB 400
 170 GOSUB 700
 180 IF NOT F=0 THEN GOTO 210
 185 PRINT 
 190 PRINT C;" IS AN ILLEGAL MOVE,RE-ENTER"
 200 GOTO 150
 210 LET A(X+F)=A(X)
 220 LET A(X)=16
 230 GOTO 800
 240 LET M=M+1
 250 GOTO 120
 300 LET B(1)=2
 310 LET B(2)=4
 320 LET B(3)=5
 330 LET B(4)=7
 340 LET B(5)=10
 350 LET B(6)=12
 360 LET B(7)=13
 370 LET B(8)=15
 380 RETURN 
 390 REM CONVERT NO.TO LOCATION IN ARRAY
 400 FOR I=1 TO 16
 410 IF A(I)=X THEN GOTO 430
 420 NEXT I
 430 LET X=I
 440 RETURN 
 450 REM VERIFY SOLUTION POSSIBLE
 500 LET F=1
 510 LET S=0
 520 FOR I=1 TO 15
 530 FOR J=I+1 TO 16
 540 IF A(I)>A(J) THEN LET S=S+1
 550 NEXT J
 560 NEXT I
 565 FOR I=1 TO 8
 570 IF A(B(I))=16 THEN LET S=S+1
 575 NEXT I
 585 IF (S/2)*2=S THEN LET F=0
 590 RETURN 
 595 REM DISPLAY GAME BOARD
 600 CLS 
 610 PRINT ,"FIFTEEN PUZZLE"
 615 PRINT 
 620 LET I=1
 625 PRINT ,
 630 FOR Y=1 TO 4
 632 IF A(I)<10 THEN PRINT " ";
 635 IF A(I)=16 THEN PRINT "  ";
 640 IF NOT A(I)=16 THEN PRINT A(I);
 645 PRINT " ";
 650 LET I=I+1
 655 NEXT Y
 660 PRINT 
 662 PRINT 
 665 IF I=17 THEN RETURN 
 670 GOTO 625
 680 REM CHECK FOR LEGAL MOVE
 700 LET F=0
 710 IF X+1>16 THEN GOTO 725
 720 IF A(X+1)=16 THEN LET F=1
 725 IF X-1<0 OR X-1=0 THEN GOTO 735
 730 IF A(X-1)=16 THEN LET F=-1
 735 IF X+4>16 THEN GOTO 745
 740 IF A(X+4)=16 THEN LET F=4
 745 IF X-4<0 OR X-4=0 THEN GOTO 760
 750 IF A(X-4)=16 THEN LET F=-4
 760 RETURN 
 770 REM CHECK FOR WIN
 800 FOR I=1 TO 16
 810 IF NOT A(I)=I THEN GOTO 240
 820 NEXT I
 830 GOSUB 600
 840 PRINT 
 850 PRINT 
 860 PRINT "YOU WON IN ONLY";M;"MOVES"
 870 STOP 
 880 CLEAR 
 890 SAVE "1026%5"
 900 RUN