// FileName Hanoi.ams
w:=wopen(0,0,3,3,37,14,2)
window(w)
a:=" 右   "
b:=" 中央 "
c:=" 左   "
print ""
loop
	print "ディスクは何枚ですか。？ ",
	disc:=ledit(26,0,"N3",0)
	print 
	if disc<1 or disc>10 then
		exitloop
	 else
		Hanoi2(disc,a,b,c)
	endif
	PushAnykey()
endloop
wclose(w)




------------------------------------------------------------
// FileName Hanoi2.ams
param	N,From,To,Other

if N=1 then
	print N,"を ",From,"から",To,"へ移動"
else
	Hanoi2(N-1,From,Other,To)
	print N,"を ",From,"から",To,"へ移動"
	Hanoi2(N-1,Other,To,From)
endif