游戏汉诺塔源代码 (第2/2页)
　　
　　01.60 S NO=N;S NI=N;S I=0
　　
　　01.70 A “MOVES OR PLOTS? “,MOVE,!
　　
　　01.80 I (FABS(MO-0MOVES)) ,1.85;D 23
　　
　　01.85 A “AUTO OR MANUAL? “,A,!
　　
　　01.90 I (FABS(A-0MANUAL)),5.1;D 2;T !!“DONE !“,!!;Q
　　
　　02.20 I [SS]ER,2.95
　　
　　02.30 S I=I+1;S NO(I)=NO;S SO(I)=SO;S SI(I)=SI
　　
　　02.50 S SI=6-SO-SI;S NO=NO-1;D 3;S TE(I)=NI;D 2
　　
　　02.60 S SI=SI(I);S NO=NO+1;D 3;D 6
　　
　　02.70 S SO=6-SO-SI;S NO=TE(I);D 3;D 2
　　
　　02.80 S SI=SI(I);S SO=SO(I);S NO=NO(I);S I=I-1
　　
　　02.90 R
　　
　　02.95 D 3;D 6;R
　　
　　03.10 S NI=N
　　
　　03.20 I [SS((SI-1)*N+NI)]ER,3.3;S NI=NI-1;G 3.2
　　
　　03.30 R
　　
　　05.10 A “OUT-DISC: “,NO,“TOWER: “,SO
　　
　　05.20 A !“IN-DISC: “,NI,“TOWER: “,SI,!;D 6
　　
　　05.30 S A=0
　　
　　05.40 F I=1,N*2;S A=A+SS(I)
　　
　　05.50 I (-A) 5.1;T !“WELL DONE!“!;Q
　　
　　06.10 S DO=(SO-1)*N+NO
　　
　　06.20 S DI=(SI-1)*N+NI
　　
　　06.30 S SS(DI)=SS(DO)
　　
　　06.40 S SS(DO)=0
　　
　　06.50 I (MOVE)ER,6.7;D 23;R
　　
　　06.70 T !%2,?SO,　 NO,!SI,　 NI,?!
　　
　　23.10 F J=1,N;T !;F K=0,70;D 23.3
　　
　　23.20 T !!!!;R
　　
　　23.30 I [K-15+SS(J)*2]23.6;I (-K+15+SS(J)*2)23.6;T “#
　　
　　23.60 I (K-35+SS(J+N)*2) 23.7;I (-K+35+SS(J+N)*2) 23.7;T “#
　　
　　23.70 I (K-55+SS(J+N+N)*2) 23.8;I (-K+55+SS(J+N+N)*2)23.77;T “#
　　
　　23.77 S K=100;R
　　
　　23.80 T “ “