Commodore 128 Bedienungshandbuch Seite 58

4-18
B E G I N - und BEND-Anweisungen
Format:
Zweck:
Bemerkungen:
Beispiel 1 :
Beispiel 2:
IF . . . THEN BEGIN
. Anweisungen
BEND
BEGIN und BEND schließen einen beliebig langen Block
von BASIC-Anweisungen ein, der auch über mehrere
Zeilen gehen darf.
BEGIN wird immer in Verbindung mit der IF-Anweisung
(s. dort) verwendet.
Der Vorteil gegenüber der IF THEN ELSE-Anweisung ist
der, daß die Anweisungen nach THEN nicht auf eine
Programmzeile beschränkt zu sein brauchen.
Alle anderen Regeln für die I F . . T H E N . . .ELSE-Anwei-
sung bleiben jedoch gültig (s. Beispiel).
1 0 0 I F X = I T H E N B E G I N : A = S
1 1 0 B = 6 : C = 7
1 2 0 P R I N T A + B + C : B E N D : P R I N T "OHA ! "
1 3 0 . . .
AHA I wird nur gedruckt, wenn X = 1 logisch wahr ist;
andernfalls würde das Programm mit Zeile 130 fortge-
setzt.
1 0 I N P U T " Z A H L = " ; Z
2 0 I F Z > 0 T H E N B E G I N
3 0 P R I N T " D I E Z A H L I S T > 0 "
4 0 B E N D : E L S E G O T O 6 0
5 0 E N D
6 0 P R I N T " D I E Z A H L I S T < = B "
7 0 G O T O 1 0
Das Programm wird in Zeile 50 beendet, wenn eine
positive Zahl eingegeben wurde, andernfalls mit Zeile 10
wiederholt.
C128-Modus BASIC 7.0