52 lines
568 B
Plaintext
52 lines
568 B
Plaintext
1000 N=4
|
|
1010 F=1
|
|
1020 T=2
|
|
1030 V=3
|
|
1040 S=0
|
|
1050 #=2000
|
|
1060 #=9999
|
|
2000 R=!
|
|
2010 #=N<1*2210
|
|
2020 #=4000
|
|
2030 N=N-1
|
|
2040 A=T
|
|
2050 T=V
|
|
2060 V=A
|
|
2070 #=2000
|
|
2080 #=5000
|
|
2090 ?="Move disk from peg: ";
|
|
2100 ?=F
|
|
2110 ?=" to peg: ";
|
|
2120 ?=T
|
|
2130 ?=""
|
|
2140 #=4000
|
|
2150 N=N-1
|
|
2160 A=F
|
|
2170 F=V
|
|
2180 V=A
|
|
2190 #=2000
|
|
2200 #=5000
|
|
2210 #=R
|
|
4000 S=S+1
|
|
4010 :S)=R
|
|
4020 S=S+1
|
|
4030 :S)=N
|
|
4040 S=S+1
|
|
4050 :S)=F
|
|
4060 S=S+1
|
|
4070 :S)=V
|
|
4080 S=S+1
|
|
4090 :S)=T
|
|
4100 #=!
|
|
5000 T=:S)
|
|
5010 S=S-1
|
|
5020 V=:S)
|
|
5030 S=S-1
|
|
5040 F=:S)
|
|
5050 S=S-1
|
|
5060 N=:S)
|
|
5070 S=S-1
|
|
5080 R=:S)
|
|
5090 S=S-1
|
|
5100 #=!
|