10 SUB movedisk(n,a,b)
20 IF n>1 THEN CALL movedisk(n-1,a,6-a-b)
30 PRINT "　";n;"番目に小さな皿を 地点";a;"から 地点";b;"に移す。"
40 IF n>1 THEN CALL movedisk(n-1,6-a-b,b)
50 END SUB
60 INPUT PROMPT "皿の枚数は？　":n
70 PRINT n;"枚の皿を 地点１ から 地点２ に移す方法は、次の";2^n-1;"手です。"
80 CALL movedisk(n,1,2)
90 END