Die Türme von Hanoi in Q-BASIC

'***************************************************************'
'*  Die Türme von Hanoi                           Lizenz: GPL  *'
'*                                                             *'
'*  (c) 2002  Roland Illig <1illig@informatik.uni-hamburg.de>  *'
'***************************************************************'

DECLARE SUB bewege (a AS STRING, b AS STRING, c AS STRING, n AS INTEGER)

bewege "a", "b", "c", 5

SUB bewege (a AS STRING, b AS STRING, c AS STRING, n AS INTEGER)
' Bewegt n Scheiben von Turm a nach Turm c und benutzt als Zwi-
' schenspeicher Turm b.
    IF n = 1 THEN
        PRINT "Lege die oberste Scheibe von Turm ";
        PRINT a; " auf Turm "; c; "."
    ELSE
        bewege a, c, b, n - 1
        bewege a, b, c, 1
        bewege b, a, c, n - 1
    END IF
END SUB