: HANOI.600 adapted by .^Dave^. Thomas from HANOI.100 by michael m. rubenstein AZ: P(,),S(,)    : : ' R :: ,: !) "Towers of Hanoi": , : "How many disks (ENTER TO EXIT)? ";C$$(): C$( ) : C$"1" C$"9"  : N(C$)0: :  :TZN:T$: , : : "Start:";: : " "T$  (d,T)(d,Z),: (,T)(,Z),: (|,T)(|,Z),:(,[)(,b),,BF:P(,)d:P(,):P(,)| D:Cd: I N:R[I:SNI: (:P(,I)S:P(,I):P(,I): I MV  S(,)N:S(,):S(,):S(,):IS  IS E  S(,IS) *:ISIS:  S(,IS)S(,IS):S(,IS)S(,IS):S(,IS)S(,IS):S(,IS)S(,IS) "S(,IS):S(,IS)S(,IS):S(,IS)S(,IS) $S(,IS)S(,IS):S(,IS)S(,IS):S(,IS)S(,IS) &ISIS: Q (LS:(CL,R)(C,R),D,BF:(C,R)(CL,R),D,BF:k *P1S(,IS):P2S(,IS)~ , IN   . P(P1,I) 2 0 I 2SP(P1,I):C1P(P1,):C2P(P2,):CC1:P(P1,I) 4 JXI T :RJ:D: (:RJ:D: (: J 6RT:LS:D: 8 C1C2 K : Kl : CC1K C2 K:(C,R)(C,R),,BF <ICCK(!L): IC IC > IC IC @(IC,R)(CK(L),R),,BF: (: C B I N D P(P2,I) H F IC HP(P2,I)S:CC2: JT [I :RJ:D: (:RJ:D: (: J JMVMV: ,$: : "Move:";: : "####";MV;: ,;: : "Time:";: : " ";: