Übersicht > Türme von Hanoi > GW-BASIC

Die Türme von Hanoi in GW-BASIC

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

1000 A$="a":B$="b":C$="c":N=5
1010 GOSUB 2000
1020 END

2000 ' Bewegt n Scheiben von Turm a nach Turm c und 
2010 ' benutzt als Zwischenspeicher Turm b.
2020 IF N=1 THEN 2060
2030 T$=B$:B$=C$:C$=T$:N=N-1
2040 GOSUB 2000
2050 T$=B$:B$=C$:C$=T$:N=N+1
2060 PRINT "Lege die oberste Scheibe von Turm ";
2070 A$;" auf Turm ";C$;"."
2080 IF N=1 THEN 2120
2090 T$=A$:A$=B$:B$=T$:N=N-1
2100 GOSUB 2000
2110 T$=A$:A$=B$:B$=T$:N=N+1
2120 RETURN