Towers of Hanoi

Gallery

Source Code

  65 CLS 
  70 FOR I=0 TO 7
  75 PRINT AT I,7;"\@@";TAB 17;"\@@";TAB 27;"\@@"
  80 PRINT AT 8,3+I;"\@@";AT 8,31-I;"\@@";AT 8,11+I;"\@@";AT 8,23-I;"\@@"
  81 PRINT AT 9,3+I;"\@@";AT 9,31-I;"\@@";AT 9,11+I;"\@@";AT 9,23-I;"\@@"
  85 NEXT I
  86 PRINT AT 10,3;"\~~\~~\~~\~~\~~\~~\~~\~~\~~\~~\~~\~~\~~\~~\~~\~~\~~\~~\~~\~~\~~\~~\~~\~~\~~\~~\~~\~~\~~"
  90 PRINT AT 8,7;1;TAB 17;2;TAB 27;3
  95 PRINT AT 9,6;" ** TOWERS OF HANOI ** "
 105 PRINT AT 11,0;"NUMBER OF DISCS =          "
 110 PRINT AT 11,18;"?"
 111 PRINT AT 11,18;"%?"
 115 LET C=CODE INKEY$
 116 IF C<29 OR C>36 THEN GOTO 110
 117 LET N=VAL (CHR$ C)
 118 PRINT AT 11,18;N
 119 LET NN=0
 120 PRINT AT 13,0;"NUMBER OF MOVES = ";NN
 121 PRINT AT 14,1;"MINIMUM NUMBER = ";2**N-1
 140 DIM N(3)
 145 DIM D(N,3)
 150 LET Y=1
 155 FOR I=1 TO N
 160 LET N(Y)=I
 165 LET D(N(Y),Y)=N+1-I
 170 GOSUB 400
 180 NEXT I
 185 GOSUB 600
 195 IF CC=62 THEN GOTO 700
 205 PRINT AT 11,0;"MOVE FROM STACK   TO STACK     "
 210 PRINT AT 11,16;"?"
 211 PRINT AT 11,16;"%?"
 214 LET C=CODE INKEY$
 215 IF C<29 OR C>31 THEN GOTO 210
 216 LET X=VAL (CHR$ C)
 220 IF N(X)>0 THEN GOTO 230
 225 PRINT AT 12,0;"STACK ";X;" IS EMPTY            "
 226 GOTO 210
 230 PRINT AT 11,16;X
 231 PRINT AT 12,0;"                                "
 235 PRINT AT 11,27;"?"
 236 PRINT AT 11,27;"%?"
 240 LET C=CODE INKEY$
 242 IF C<29 OR C>31 THEN GOTO 235
 245 LET Y=VAL (CHR$ C)
 250 IF Y=X THEN GOTO 235
 255 PRINT AT 11,27;Y
 257 IF N(Y)=0 THEN GOTO 271
 260 IF D(N(X),X)<D(N(Y),Y) THEN GOTO 271
 265 PRINT AT 12,0;"ILLEGAL MOVE - TRY AGAIN PLEASE"
 270 GOTO 200
 271 GOSUB 300
 275 IF N(3)<N THEN GOTO 200
 280 GOSUB 383
 285 GOTO 2
 305 GOSUB 500
 310 LET N(Y)=N(Y)+1
 315 LET D(N(Y),Y)=D(N(X),X)
 320 GOSUB 400
 325 LET D(N(X),X)=0
 330 LET N(X)=N(X)-1
 380 LET NN=NN+1
 381 PRINT AT 13,18;NN
 382 RETURN 
 385 PRINT AT 15,0;"TO START NEW GAME PRESS  ","""NEW-LINE"" KEY "
 390 LET C=CODE INKEY$
 395 IF C=118 THEN GOTO 397
 396 GOTO 390
 397 GOTO 2
 405 LET D=D(N(Y),Y)
 410 LET H=20*Y-6
 412 LET V=27+2*N(Y)
 420 FOR J=1 TO D
 425 PLOT H+1+J,V
 426 PLOT H-J,V
 440 NEXT J
 460 RETURN 
 505 LET D=D(N(X),X)
 510 LET H=20*X-6
 512 LET V=27+2*N(X)
 520 FOR J=D TO 1 STEP -1
 525 UNPLOT H+1+J,V
 526 UNPLOT H-J,V
 540 NEXT J
 580 RETURN 
 605 PRINT AT 15,0;"DO YOU WISH COMPUTER TO MAKE","THE MOVES?      "
 610 PRINT AT 16,11;"YES OR %NO"
 611 PRINT AT 16,11;"%YES OR NO"
 615 LET CC=CODE INKEY$
 620 IF CC=62 OR CC=51 THEN GOTO 630
 625 GOTO 610
 630 FOR V=15 TO 16
 635 FOR C=0 TO 31
 640 PRINT AT V,C;" "
 645 NEXT C
 650 NEXT V
 655 LET C=0
 695 RETURN 
 703 LET NN=0
 705 IF N=1 OR N=3 OR N=5 OR N=7 THEN GOTO 800
 715 LET P=1
 720 LET Q=2
 725 GOSUB 900
 730 LET P=1
 735 LET Q=3
 740 GOSUB 900
 745 LET P=2
 750 LET Q=3
 755 GOSUB 900
 760 IF N(3)=N THEN GOTO 385
 780 GOTO 715
 805 LET P=1
 810 LET Q=3
 815 GOSUB 900
 820 IF N(3)=N THEN GOTO 385
 825 LET P=1
 830 LET Q=2
 835 GOSUB 900
 840 LET P=3
 845 LET Q=2
 850 GOSUB 900
 855 GOTO 805
 905 LET X=P
 910 LET Y=Q
 915 IF N(P)=0 THEN LET X=Q
 916 IF N(P)=0 OR N(Q)=0 THEN GOTO 925
 920 IF D(N(P),P)>D(N(Q),Q) THEN LET X=Q
 925 IF X=Q THEN LET Y=P
 930 GOSUB 300
 935 RETURN 
 940 CLEAR 
 950 SAVE "1026%1"
 960 RUN