这个游戏是用Focal写成，大家见识一下这种化石编程语言，至于Basic和Fortran至今都在，就不举例子了。

01.01CHANOIBYDEC

01.02CFROM‘PROGRAMMINGLANGUAGES‘

01.03CLASTCHANGE:8771

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.30ANO.OFDISKSN，!

01.40FI=1，N;SSS（I）=I

01.50SSO=1;SSI=3

01.60SNO=N;SNI=N;SI=0

01.70AMOVESORPLOTS，MOVE，!

请关闭浏览器阅读模式后查看本章节，否则将出现无法翻页或章节内容丢失等现象。