Revision as of 01:50, 22 October 2012 (view source) Loren (talk \| contribs) (Add XPL0) ← Older edit		Revision as of 01:05, 19 November 2012 (view source) rosettacode>Rwiditz No edit summary Newer edit →
Line 170: 250 SP = SP - 1 : REM RESTORE STACK POINTER FOR CALLER 260 RETURN</lang> =={{header\|BASIC256}}== <lang BASIC256>call move(4,1,2,3) print "Mission complete!" end subroutine move (n, fromPeg, toPeg, viaPeg) if n>0 then call move(n-1, fromPeg, viaPeg, toPeg) print "Move disk from ";:print fromPeg;:print " to ";:print toPeg call move(n-1, viaPeg, toPeg, fromPeg) end if end subroutine</lang> Output: Move disk from 1 to 3 Move disk from 1 to 2 Move disk from 3 to 2 Move disk from 1 to 3 Move disk from 2 to 1 Move disk from 2 to 3 Move disk from 1 to 3 Move disk from 1 to 2 Move disk from 3 to 2 Move disk from 3 to 1 Move disk from 2 to 1 Move disk from 3 to 2 Move disk from 1 to 3 Move disk from 1 to 2 Move disk from 3 to 2 Towers of Hanoi puzzle completed! =={{header\|BBC BASIC}}==

Towers of Hanoi: Difference between revisions

Towers of Hanoi (view source)