Path: utzoo!mnetor!uunet!ccicpg!felix!dhw68k!macintosh
From: SHULMAN@sdr.slb.com (Jeffrey Shulman)
Newsgroups: comp.binaries.mac
Subject: Towers of Hanoi
Message-ID: <7667@dhw68k.cts.com>
Date: 4 May 88 16:34:51 GMT
Sender: macintosh@dhw68k.cts.com
Lines: 164
Approved: info-mac@sumex-aim.stanford.edu

[Towers of Hanoi - Uploaded from Delphi by Jeff Shulman]

Name: TOWERS OF HANOI
Date: 3-APR-1988 17:09 by SOCCERKING

This is the same old towers of hanoi problem but with a few new twists.
If you are interested you can check out the source code.  This program
is simply for your enjoyment and curiosity.  I hope you enjoy it.  Does
not run under MultiFinder.

[Moderator's Note: A PackIt archive of the source and Lightspeed Pascal
 project follow in comp.binaries.mac.  The source is also being posted
 to comp.sources.mac.]

---
(This file must be converted with BinHex 4.0)

:%P4[Gf9bFb"[CL")B@j[D5Jb+3""8&"-2j!%)!#3"aX[I&-!N!3"!*!$'XN!!"R
*!*!$CZcrm%cI"`&1G5dI,3XQH!0i+'X!",R,C`TK!!#H8fX!%P4[Gf9bFb"[CL"
)B@j[D5Jb+@i#!*!$39"36$q3"!!!39"36$q3"#%!N!6!!*!$K3#3$TjlfSF!N!B
E,e4K!2m'+%TJf%RVrrKK!2jm##`!"`!8C`43q!0h60iB!#KX!!5jbfDZ60i($f!
!rh!QALmH6R8[#5*3+)NM6!!%))`T5!!%)Pp1G8MR!-!JE!!%)P3JL50)!!4-h`-
!6R9)ji$i-#N!#0&S!!JQ8EI*CcJQ55C6YmPR%#G)!#"&k`#3!aNk!!J!!3C!q%#
Tb5"251FB!#B1+!KK"NcI!"K1G5m,*#hrXQB%*Pp1G5C#Ym0L",I%BJBN+`!!B1T
1ZJ&)5LX!"QF33IS"F$#V!"*"qJ&J6VS""#3V!!"1ZJ!F5S*Ja#m!)![!Z!-D*fh
rXJ!!+d$rXL!I6R8[!5),`VJ$'N2Yrl)J%@F3X)&R"#*!B23J3#+3!#)I6R8`223
fUFPK#QF#6R8`223hUFP)jd#!)#hrXQF3)J[#Z!-DX)&R$L"!)""QpNcI!3*`!%j
e60m"!R!"6R8[#%r[rmj#V`!-,dJ!%N*[!"C#E`!D3HX!&Lp)!"`J6k!!0fm!'!!
%6qm!-L"I5N"R'Ja!rp9Q"(!"6R8-32rTCJ$qmNSV!"&R!2lUF!"1G5m)6qrrcN+
[!!`[5!!53Qm!&N*[!"SJ6k!)6qm!-L"I5N"R$!a!rp"Q!2kkF!&1GA!!6R8[#%r
[rmj#V`!-,dJ!%N*[!"C#E`!D)%qJ#8r[!$)JAdT!C`K+,IqUC`$qKNje5LX!%@B
L6qrrcN+[!!`rD`!%!"JJ6k!"6qm!-NT!C`K+,IqUC`$qA%je#8a68&4PEA!!!!3
a,M*"!'&32c`!%URV6R9K4Mmm!"LTl%jeB6`r2!!DUHa1G@%b2c`!(URX6R9K+$m
m!!#Tl%jeB4ir2!!)UHa1G@%82c`!$kRV6R9K#LmA2c`!"+RV6R8J(b)I)&mL9bm
",`N[!#,B)YJbN!"1G33a,M*"!&0Yrq!lI!!#rpj#EIrB3UhrXN*YrkSlI$!`rkK
1ZJ"!6VS!@%kk!+"1ZJ%16VS"%La0*Pp+(fFNGJ!f,3!Ji8Y)EIiLU'kSrUN5U6#
Tc%+RUAXJ6j($S#e1ZJ%L6Y0K4QF+Da!lI2rjrka1G6YmrrIrV%je3QhrV%jeB5T
R%'XF1hcrprqZ1hcrq2q`6R8lI2rjrkilI2rkrl"1G8*Yrkj#EIq`6R831!)(CKB
31!+4DJ4`!%je!J!!$e-!C[4`rdjeF!&1G8IYllj#+`!(#1X!!3!(&h`!!J!481X
!$P(V!!C3k`!-8HX!$8+V!!JhI!!#!"3AI!!0!""1Z[di4qhYR%)V!!F)k`#3!`F
AI!!"!"&3k`!18HX!"P(V!!a4k`!03UX!#$Gm!!)!&"Gm!!d!%%kkr3"1G6(m!!d
+5Nje3UhrT%je81hrUL!Yrl*Q#N+Yrl*4lIqUUI3Q3%kkrIT++`!'Ca""q[iL-+X
!%N(krK*1Z[ff)#X!!'$55MJ#MQSU)(J"-%2i!43J#*!!NA3-X)*P&L*4)FJ"&#+
!3K%LH!+U)SJJJY'T!!a1GD"M6R8%-5ib33"b!'!#F[p19[rd5'lrp$mm!"HTkcm
mB!")9cmm!!'Tke423HlrpL*Z!!JJf5$C-*&45%2Z!!aK3$mm!!4)9cmm!"ZTkm)
ICaab!!L3!!!(C`352!#!5(S!,NK32c`3!+RVJa"K&%KZrr3r2!!CUHY1AL"Ih[`
!"%l35&")86mm+"#Tkdje2`#3!`3a,M*"!#"[!!Jr2!!"UHiJE`!%))"1qJ!3)'m
!"#![!!Jr2!!!UHiJAe"26Y#J,%lk!C`LAb"IS&G1qJ'3!#*I)%qJ'Glm!!j1qJ'
#)PmJAk!Y6[S"H+!f6[S"G+%D,dJ!"%lk!@SLAb"IS"Y1qJ&H,hJ#TJ!%6[S"A#p
i!US!"%lk!9)LAb!IS5)ZL%lk!6iLAb"IS#01qJ%d)PmJAk!P,S"U"N+A6[S"*%l
k!4iLAb!I)&qJ*%lk!43LAb"IS5BZL%lk!3JLAb"IS5JZL%lk!2SLAb!I)&qJ*dl
k!2!LAb!IS4iZL%lk!13LAb"IS"p1qJ$D)PmJAk!K,S"U"N+A6[S!bNlk!-3LAb!
I)&qJ)%lk!,SLAb"IS8JZL%lk!+kJ(#p!!!41qJ#X)PqK(5)))&mJJ5k!6[S!NL*
I)"qJ6#k!6[S!KL*I)"qJ3%lk!(iLAb!IS%e1qJ"d)PmJAk!V6[S!DL*I)&qJ+8l
k!'!LAb"IS#T1qJ"@)PmJAk"*6[S!6#*I)&qJ5Nlk!%)LAb"IS%Y1qJ!i,hJ$+!!
%6R8L(b!I)PmJAk!Z)N&1qJ!J,hJ"#!!%6[S!(Mpi!L!!"%je,hJ"-!!%6[S!$(!
!,`Na`!)J6R9`!'$f)&mLAc+i!3)LAc+i!341d%j@!!"C6bmm8%&8)cmZ!!UTS#*
Z!!`J(fFF)%!J8$!B-Li!#'m3XN"Z$&0"C`435'$iF!LJ,NjH)&p3Mdl3)&mLH!+
Z8%N`%5*I3P%-!!$rC`MJ@&)!%d!!!H"))PmbJ%l3)(J#VY$m!!T1d%j@rr"1F8j
aF!!3,J!)`I`!$!C!mY"#03!!6PiJAe426Y"19[rS51F!#(!!%#i!#-(m!!`'32,
)5I8!!"!X!!K)J&*!'8!!#"!X!!K)J"QZ!!S!!"!Z!!T)J-(m!A`'32,U5I8!!%K
ZrqJ`,!&3N!"X!8`r!$!X!8jC3$m!-#`"80"X!8`r!$!X!8jB3$m!U+F[,Ie8U(-
JEIe85'J!!NKX!@a)E[rS5'`"FN*R3UHSl"!X!8T)J1G!,c3!!%KX!@+SeLmYr9#
SFdcI%!"1AL"I@%p1d%j@rqK)j`!)F!!3,J!)`I`!$!C!mXK*p3!!)'i!#K!X!!K
)J"#d!!!3,!!)5)"63"P!!!JJEJ!+%"")J-(m!A`'32,U5I8!!%KZrqJ`,!&3N!"
X!8`r!$!X!8jC3$m!-#`"80"X!8`r!$!X!8jB3$m!U+G)E!&X)'hp9%KS!!*)E!&
b5'lrk%*R3UHSl%cI%!"1AL"IA%p1d%j@rr"1F8ja'h`!!I,%'h`!!I,&6Pj1G8j
@rr"1F8ja%#i!#%L!$%!!C'B!!!`GI!!"!!TJ!!!1%#i!#%L!8N!G3!!+6PiJAe4
26Y"19[r`6R&1F4!YmX9)J10!"N$aqKZZ!!S!!"!YmX9)J10!"N$aqaZZ!!J!!&9
2(bhba8kkrjJEAr,&6PiJAeK26Y"19[r`6R&1F5"Z!!J3,I,%5)$M3!C!mIS`Y3!
!98mI,I,%6VVrCKYImX41AL"I@%p1d%j@rr"1F8ja)'i!#"!YmX4)J10!"N$aqM#
e!!"1AL"I@%p1d%j@rr"1F8ja%#hba8L!%Lhba%L"XN"A`%3!(8!!#%jH6R919[r
N51F!##"Z!""$l[rS)YJLf#"ZrqJJ8%R3,blrk$!Zrqk3!'`!"$m!-#lrl*!!E!!
#2`#Si#mZrqJr,J!12bi!$+MJ60m3!%jH)&p2l`!-6Y"19[r`51F!#"!Z!!K)J-(
m!A`'32,U5I8!!"!X!8K)J&*!'8!"5"!X!8K)J1G!5(3!!$mX!9!r,!&1,`j1Z[p
`%#`"58L!jd![0!!!%#`"5%L!jd![0!!!,bhai+MQ%#`"5%L!jd![0!!!5'`"BUM
@)'hp9%KS!!)JEIe35'J!!NKX!9T)E!&D3QF[,I(JU1`CE!&)!8P)E!&D-#`"8*!
!E!&-2`!`,!&1N!"X!8`r!$!X!9$3E!&-2`!`,!&1d'`"6$m!U+F3,!&)5)!-3!!
SCJ!!"N)X!8K-ha!!6PiJAe426Y"19[rZ51F!#(!!%#i!#F(m!!`'32,'3M8!!%K
ZrqmI,J!)6VVp#K!Zrqp)J-(m!A`'32,U5I8!!%)X!@T)E!&@3QFr22rmU)")E!&
5F!!3,J!*id!'32(b2c8!!(!!%#i!#F(m!!`'32,3%$8!!%L!8N$M3!C!mH3r03!
!U)!CEJ!*!AT#,[rZ%#lrlNL!8N!G32rZ%#lrlNL!"N$aq"!e!!")J%T!CJ!!'"!
Zrqj)J!C!mIJEV[r[!!!GI!!#rqi3,[rZ5)"93'Dq60m3!%jH)&p86dl36PErm%M
R!!K#,J!1%#i!$%L!`I`"I!C!mZT*p3!!$'crr!&@CJ!!,!aX!%-"6Qi!!#*#E!&
@-#`"8,"X!94[!!!-1Acrr!&BB!!!#$Pm!!3"@%TX!9CQ!!"#$'`!"!&BCJ!!'$!
X!9#`E!&8E3!!$%*X!9JjI!!%!9B-E2rm!9KQ!!!B-#`"8,"X!94Z!!!-3Q`"@$P
m!!3"9JaX!!3"9QB!!"3`,!&1X'`"8Qd!!!JCI!!"!@T+,!&UC`!!2"!X!8K)J!a
!!!TA`%3!%L`"5%L"$%%!(PI"4!'!!8S!C`!!&"!X!8K)J&*!'8!"5Kem!!%!$Q!
!!!`[,!&@5'`"6UKq(bi!$%kkr8"-ha!!6PiJAea26Y"19[rZ51F"!(i"(A`!!Ir
[%#lrldL!"N$aq"!e!!")J%T!E`!!KP92%#lrldL!"N$aq"me!!![$NkkrV"+(fF
!!'S3,[r[5)!'32(i(c8!!"!Zrqp)J!C!mIJ303!!5)$"r!&m"N$dC"me!!"1Z[S
L%#lrldL!"N$aq"!e!!")J-(m!Aab!!C!p'3503!!`r`!$!C"mXBE[!!"%!!3,[r
[5)!'32(i3M8!!&)Zrqp4crpJ60m!J%jH6R919[rX51F"!&92UA4+(fF!!!5Tp"e
m!!(rlRi"(A`!!Ir[%#lrldL!"N$aq"!e!!")J%T!9X"%!-!ZrqiG32rZ8Llrle(
2rpa96dkkqlJ3(`S!!!%5,[rZ#J%!!F!"5J"R!!"%5'lrl%kkqhC`!"!Zrqh"r!!
-FJ!5,[rX`r`!$!C!mXB303!!"N(baX!e%!"+!'F!!"*)E[rX6VVl%MmZrqa1Z[b
f(A`!!IrZIJ%GI!!"rqm3,[r[5)!'32(i%$8!!%L!5N"A`%3!`#lrlKe!rqj5,[r
[8Frrh&926VVl*K!I`#lrlKe!!!K1Z[jD60m!J%jH6R919[r`6R&1F9926VVqrNS
IC`!!!K!Z!!j)J&0!CJ!!%KmZ!!`I,J!+6VVk6'!!!%)3,J!15)"63"m!(bi!$"m
Z!!JI,J!+6VVrZ"mZ!!`I,J!+6VVk)K!Z!!j)J&0!(`!I,J!)(bi!#KmZ!!a1Z[q
56PiJAe"26Y"19[lB6R&1F9P22c`!J8+RF2m[!+Pm,9rrl%+R5'lrkUQ4,blrl$m
m!!*)E[rS5'lrj%KZrpbTM5mZrq4)E[lFUC!!5'lqh%KZrYK1Z[@X'flqfre2%#h
p6dL!A8"I`%3!%Lhp6dL"9d&F`83"`!&+!'HS,blrl+Q$6PiJAeK26Y"19[rJ6R&
1F5mYr9#SFdKZrqJr2!!)2c`!kcmm!*Jr2!$cU+G)E[rS5'hq%ULP5'lrk$mm!,J
r2!$V2c`"5$mm!21STdKZrqK)EIi5U+9)E[rS2c`"D$mm!1Xr2!(i2c`!mkLR5'l
rk%KYrK+ST8KZrqJr2!"-2c`!Bcmm!&3r2!$VU+G)E[rS5'hq%ULP5'lrk$mm!2`
r2!"M2c`""$mm!1ZSTdKZrqK)EIi5U+9)E[rS2c`"V$mm!'-r2!'d2c`!kkLR5'l
rk%KYrK+ST8jH)&pB6dl36PEr`%ja6R&)E[r15'i!&N(k!NK$l[r%)YJLf$,B5'l
ra$mm%!5Tkcem!,6r`NKZrm*)E[r%2c`J"URV5'lra%kkmF*B6dKZ!"4)E[r12c`
J"+RV5'lrcNKZrq!r2"!3UHY)E[r15'i!&N(k!H4$l[r%)YJLf$,B5'lra$mm%!5
Tkcem!,6r`NKZrm*)E[r%2c`J"URV5'lra%kkm9jB6dKZ!"4)E[r12c`J"+RV5'l
rcNKZrq3r2"!3UHY)E[rJ5'lrj%KZrmir2"!1UHY)E[r12c`3"URV5'lrcMmm!!f
TkdKZrmj)E[rB2c`3%+RV5'lrf%KZrmir2"!1UHY)E[rB5'lrcMmm%!5Tkcem!!(
rc%KZrma)E[r12c`J!+RV5'lrcMem!!6rbNKZrmT)E[r!2c`J$URV5'lr`$mm!!D
TkdKZrm")E[rX2c`3%+RV5'lrf%KZrmir2"!1UHY)E[rX5'lrcMmm%!5TkdKZrmj
)E[rS2c`3%+RV)'i!%#m)@8p)E[rS5'lri%KZrmir2"!1UHY)E[r12c`3!URV5'l
rcNkkmR3J(b"I-8!!!L"Z!"![#&P25'lrl%KZrq4)E[r12c`3$URV5'lrcMmm%!+
TkdKZrmj1Z[*!)"mJAc#!)'i!$#m)@8p)E[rS5'lrcMmm%!kTkdKZrq")E[r12c`
3!+RV5'lrcNkkmJiJ(b"I-8!!!L"Z!!`[#&P25'lrl%KZrmir2"!1UHY)E[rN5'l
rcMmm%!#TkdKZrmj1Z[(D)"mJAc#!6PiJAdr[!"*1d%!!b3rDSL&S`M9!!-N2fU)
KD-)e6PErm%MR!!JJEJ!)%#J!&%L!`I`"I!C!mZT*p3!!-#i!&1G!,`"C6kMB)Km
J(bQ"!!#SfMmZ!")r,J!3U*-r,J!12bi!$+L4-#i!%N4!2`!`,J!34%!r!+L4-#i
!$N4!2`!`,J!-4%!r!+L42bi!%MmZ!"#SN6!Z!"6R3#md!!#Sfc!Z!"6R3$)Z!"6
R35"d%!!J8#QS!!)!"$!Z!"6R3#md!!!r,!&32b`"6UMJ60m3!%jH)&p2l`!16Y"
19[r`6R&1F6mZ!"B`,J!34%!r!$mZ!")`,J!-4%!r!$mZ!!i[$Nkkra`-EJ!'!"C
R!!!UF!U3!'i!&P4!2`!r,J!5-#i!%%4!2`!r,J!1-#i!$%4!2`![$NkkrZS`,J!
@"N!!#Mm!-#i!%N4!2`!`,J!34%!r!$!Z!!j%3$m!-#i!$%4!2`![$NkkrVS-EJ!
'!"CR!!!fF!V"r!!#N!"Z!"C83$m!-#i!%%4!2`!`,J!54%!r!$!Z!!a%3$m!-#i
!$N4!2`![$NkkrRa`#X(m!!,3EJ!@2`!r,J!3-#i!%N4!2`!r,J!--#i!$N4!2`!
[$NkkrP)-EJ!'!"CR!!!ZF!V"r!!$N!"Z!"C83$m!-#i!%N4!2`!r,J!3-#i!$N4
!2`!r,J!-,`j1Z[iFF!V"r!!$d'i!&Mm!2bi!%MmZ!"!r,J!12bi!$#m16VVpqJa
Z!!%!&QF!!#C`#X(m!!53!'i!&P4!2`!r,J!32bi!%MmZ!!`r,J!1,`j1Z[h-6Pi
JAdr[!""1d%j@rp4)j`-)IJ!H,Ie2F!'q!'d!!BJG32r[RJ!3,[r[5)$"r!&m"N$
bkNRe!!!3,[r[5)"63-(m!!J'3!!318!"6"Pm!!S"5"Pm!!S"54Pm!!X"5N)X!@T
)E!&b3QG#Cc!X!8c"r!!#2`!r2!!)U+F`,!&iN!"X!A463%M!JI`!%&*!`I`!!MP
!!A"C6c!X!AD3!'`"FX(X!A")`#m!6VV`1#PI!@a)E!&@3QFr2!!%U)")E!&12c`
!8$mm!%1SJ%KX!9)r2!"3%#hp6dL!FJD53-2m!!J'33#h%#lrldL!`I`!#0*!2`'
SJ%)X!AT)E!&D-#`"8*!!E!&-2`!`,!&1N!"X!8`r!$!X!9$3E!&-2`!`,!&1d'`
"6$m!U+G)E!&L3QF3,[r[5)"53$m!6VV`Y(`&2A`!!IrX-#lrl&0!`I`!#6e!rq*
)E[rL5'lrf$mm)!kTkdKZrpK)E[r82c`3%+RV,blre$mX!8a)E[rS5'lrj#m16VV
jk$mZrq`I,[r[,blrk#mZrq3[$Nkkr2*5E[rX8FlrT&)Zrqp4crk#60m3`%jH)&p
B6dl36PErm%ja6R&"lIiL,`LSENkklT41ZZk3!%kklSa1ZZk)6VVZK%kklS"1ZZj
m6VVZH%kkl9bSrUN5U&#S8NjH)&pB6dl36PErm%MR!!KC6h"X,`"1ZZlD+erp9&P
2U0JVAr(J,bhp9+K[)'hp9%R3)'hp8%(S!!K$l!!))YJLf%(X!!K$l!!3)YJLf$!
X!!k3!'`!#P0!5-#"r!!38N$"r!!#18!!"PP2-#`!$*!!E!!)`H`!"NM!,`"1ZZj
f+9m!!NKX!"#SHbmX!"K)E!!3U0p-ha!!6PiJAeK26Y"19[rX51F"!%kkm5aq!N)
ZrqdI,[rY6VV[XR!!%#lrlF(m!!`'32,''l`!!3!!8Llrl9(2rpjq!4em!!(rlK!
Zrqj)J!C!mIK#03!!8LlrlP(2rq`lI!"3mI)lI!%!mI3lI!'`mIC`!Ai!(Lhp6li
!E3!!+Ke(rqqH!"YZrqraq9926VVeNK!I#J!!!8S!C`!!"'$X8blrle(2rq"q!"i
Yr8p`!Ei!E3!!1Ke!rqqH!"!Zrqp)J10!%LlrldL"&#hp6dL#P%&53XAm!A`'3[3
m"N$aj$Ze)!#3!e)Zrqp4crr360m!J%jH)&pB6dl36PErm%ja6R%[$NkkrLa)EIe
3U(3[$NkkrQ3[$Nkkp[JJEIe35'J!!L"Yr94)D!!#)'hp8%KS!"!JEIe85'J!%%*
R3UHSl#m16VVf6#m16VVm3#m16VVq[%jH6R919[rQ51F"!"mYr8p#*amm!!%I2!!
#6VVeUP926VVdVK!I#J!!!8S!C`!!"'$X,bhp8+KcIJmpI!!"rqiJEIe35'J!%+L
N8QlrlP(2rr!I,Ie2(c`!!4mm!!*#*dkkp@496dkkp'J3(`S!!!&+!'F!!!4Jl#m
Yr9#SFhi22A`!!IrZ)'hp8%KS!"#ST&*Zrqj4crr`(bhp6amm!!*#*amm!!&1Z[8
H98p1Z[3L%"m+!!!"5J"R!!!%B1`[,Ie3U(0q$cem!!(rlL"Yr9")D!!3U+45E[r
Z8Frrm'!!rba-h`#!6Pj1G9$R6VVT"%j@rr"1Z[kb6VVr#NjH6VVU1!#3!b!!N!-
`!!!5C!#3!a!!N!-J!)"1l3!U6R%C(Mmm!!'Tm!#3!a8!,!"m!&i"J!!"!3#3#)%
!N!4+!!)!N!8J!&J!-!#3!!3#6fX!N!8)!0J!'!%!N!!!N!B)!!d!'!$9L"a&ER4
PFL"ZG@eLCA)JEfBJBQ&bFbJcXRLb0LNk!!!"!*!$'XN!!"R*!*!$CJ!$(KJ%DJ#
3!a`!CJ!#3dp%43!"!"T%6%p(!*!$-N4*9%`!N!-q!!(rrc3!N!3$8%S!!2rr)!!
C2J#3"B(rr`!!'@)!!e"'!)(rr`!!'AX!!e"#"1-:
---