readme upd
This commit is contained in:
@@ -0,0 +1,51 @@
|
||||
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 #=!
|
||||
Reference in New Issue
Block a user