游戏汉诺塔源代码 (第1/2页)

这个游戏是用Focal写成，大家见识一下这种化石编程语言，至于Basic和Fortran至今都在，就不举例子了。
　　
　　01.01CHANOIBYDEC
　　
　　01.02CFROM‘PROGRAMMINGLANGUAGES‘
　　
　　01.03CLASTCHANGE:8/7/71
　　
　　01.04
　　
　　01.05CTHISPROGRAMWORKSWITHTHETOWERSOFHANOIPROBLEM.
　　
　　01.06CYOUAREGIVENTHREETOWERSWITHVARIOUSSIZEDDISCSON
　　
　　01.07CONEOFTHEM.THEOBJECTISTOPLACEALLTHEDISCSON
　　
　　01.08CANOTHERTOWERONATATIME,WITHTHESTIPULATIONTHATA
　　
　　01.09CLARGERDISCMAYNEVERBEONTOPOFASMALLERONE.THIS
　　
　　01.10CPROGRAMISGOODFORANYNUMBEROFDISCSANDCANBERUN
　　
　　01.11CEITHERINMANUAL(YOUTELLITWHERETOMOVE)ORAUTOMATIC
　　
　　01.12CMODE.ITWILLALSOEXPLAINITSMOVESORDRAWTHEFORYOU,
　　
　　01.13CDEPENDINGONHOWYOUANSWERTHE‘MOVESORPLOTS‘QUESTION.
　　
　　01.14C**OUTDISCISTHEDISC(1ONTOP)THATYOUWANTTOMOVE
　　
　　01.15C**INDISCISTHEPOSITION(1ONTOP)WHEREYOUMOVETO
　　
　　01.16C**OUTTOWERISTHETOWER(1ONLEFT)FROMWHICHYOUMOVE
　　
　　01.17C**INTOWERISTHETOWER(3ONRIGHT)YOUMOVETO
　　
　　01.18CTHISPROGRAMASSUMESNOCHEATING,ANDDOESNOTCHECKFORIT.
　　
　　01.19
　　
　　01.29E
　　
　　01.30A“NO.OFDISKS?“N,!
　　
　　01.40FI=1,N;SSS(I)=I
　　
　　01.50SSO=1;SSI=3
　　
　　

（本章未完，请点击下一页继续阅读）