Commodore 128 Handbuch Seite 141

Befehle bleiben dem Fortgeschrittenen Vorbehalten.
Kommen wir zu unserem Problem zurück. Wir wollten
abfragen, ob der Anwender eine Zahl eingegeben hat, die
nicht in dem
entsprechende IF-Anweisung codiert werden? Schauen Sie
sich die Lösung an:
IF F=0 OR F>7 THEN ...
Ja, was dann? Geben wir einfach eine Fehlermeldung in der
letzten Bildschirmzeile aus und gehen zurück zur Zeile
1000. Zur Ausgabe der Fehlermeldung benötigen wir ein
weiteres Unterprogramm, daß die Art des Fehlers einem
String entnimmt und diesen reverse in Zeile 24 ausgibt.
Sehen wir uns dieses Programm zunächst einmal an:
200 REH =================
210 REM FEHLERMELDUNG
220 REM =================
230 PRINT CHR$(19);
240 FOR X=1 TO 24:PRINT CHR$(17);:NEXT X
250 PRINT CHR$(18);FE$;CHR$(146);
260 SLEEP 1
270 RETURN
Zunächst wird
Positionieren des Cursors in die obere linke Ecke des
Bildschirms (HOME) ausgegeben. Dann wird der Cursor 24
mal nach unten gesetzt. Die Zeile 250 gibt den String
FE$, der vom aufrufenden Programm gesetzt wurde, reverse
aus. Danach
Unterprogramm abgeschlossen wird.
Wir können nun unsere IF-Abfrage hinter dem INPUT
vervollständigen:
1120 IF F<1 OR F>7 THEN FE$="UNGUELTIGER WERT";GOSUB 200:
GOTO 1000
Versuchen Sie es selbst. Starten Sie das Programm und
geben Sie einen falschen Wert ein. Das Programm stellt
Bereich von
in Zeile 230
wird eine Sekunde
129
-
1-7 liegt. Wie muß
das Steuerzeichen
gewartet,
die
zum
bis das