Commodore 128 Bedienungshandbuch Seite 114

4-74
Beispiel 1:
Beispiel 2:
Beispiel 3:
I B B N M S G $ = " D E B W E R T M U S S P O S I T I U S E I N "
1 1 0 P M S G $ = " D I E W U R Z E L I S T "
1 2 0 I N P U T " B I T T E Z A H L E I N G E B E N " J N
1 3 0 I F N< B T H E N P R I N T N M S G $ : G O T O 1 2 0
: E L S E P R I N T P M S G $ ; S Q R C N )
1 4 0 I N P U T "NOCH E I N E Z A H L < J / N ) " ; Z $
1 5 0 I F Z $ = " J " T H E N 1 2 0 : E L S E E N D
Es wird die Wurzel einer eingegebenen Zahl nur dann
ermittelt und gedruckt, wenn die Zahl positiv ist.
1 0 0 1 F x > Y T H E N P R I N T " G R O E S S E R "
: E L S E I F Y > X T H E N P R I N T " K L E I N E R "
: E L S E P R I N T " G L E I C H "
Dies ist ein Beispiel für verschachtelte IF-Anweisungen.
1 0 0
I F A = B T H E N I F B = C T H E N P R I N T " O = C "
: E L S E P R I N T
Falls A ungleich B ist, wird der zweite Vergleich nicht
mehr ausgeführt.
C128-Modus BASIC 7.0
" O O C "