@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ C-FOCAL,1969 01.01 C- THE TOWERS OF HANOI 01.10 DO 7 01.20 S M=0; S I=1; S N(I)=N; S U(I)=1; S L(I)=3; S W(I)=2 01.30 S MC=5; T !; DO 3; T !! %6,M," MOVES"!; Q 03.01 C-RECURSIVE ROUTINE TO MOVE N(I) DISCS FROM PILE U(I) 03.02 C TO PILE L(I), USING PILE W(I) AS THE INTERMEDIATE 03.10 S M=M+1; I (N(I)-1)3.2,3.2,3.3 03.20 DO 4; R 03.30 S I=I+1; S N(I)=N(I-1)-1 03.40 S U(I)=U(I-1); S L(I)=W(I-1); S W(I)=L(I-1) 03.42 DO 3; S I=I-1; DO 4; D 3.3 03.50 S U(I)=W(I-1); S L(I)=L(I-1); S W(I)=U(I-1) 03.52 DO 3; S I=I-1 04.01 C-MOVE A SINGLE DISC FROM INPUT TO OUTPUT 04.10 I (MC-5)4.3; T !; S MC=0; G 4.4 04.30 S MC=MC+1; T ", " 04.40 S H=U(I); DO 6; T " TO "; S H=L(I); DO 6 06.10 I (H-3)6.2; T "C"; R 06.20 I (H-2)6.3; T "B"; R 06.30 T "A 07.01 C-READ A POSITIVE INTEGER 07.10 A !"NO. OF DISCS",N 07.20 I (FABS(FITR(N))-N)7.1,7.3,7.1 07.30 I (N)7.1,7.1 10.10 E 10.20 DO 7; DO 11; T ! %6,M," MOVES"! 10.30 T %6.7, ! M/(60*60*24*365)," YEARS AT 1 MOVE PER SECOND"! 10.40 Q 11.10 I (N-1)11.2,11.2,11.3 11.20 S M=1; R 11.30 S N=N-1; DO 11; S M=2*M+1 *@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@