Commodore 128 Handbuch Seite 151

Die Funktionstasten F2, F4, F6 und F8 werden mit SHIFT
bedient.
Da wir nur mit den Funktionstasten F l, F3, F5 und F7
arbeiten, müssen
ignoriert werden.
20100 IF ASC(X$)<133 OR ASC(X$)>136 THEN 20090
Alle ASCII-Codes unterhalb von 133 und überhalb von 136
werden nicht akzeptiert. Das Programm verzweigt wieder
zum GET-Befehl.
Wenn das Programm diese Zeile passiert hat, wurde eine
gültige Taste gedrückt. Wir müssen nur noch feststellen,
welche, und
abgeschlossen und zum Menü (Zeile 1000) verzweigt;
20110 IF ASC(X$)=136 THEN 1000
Wird die Taste Fl gedrückt, so soll der nächste Datensatz
ausgegeben werden. Wir erhöhen dazu den Index ZZ um 1,
aber nur wenn ZZ nicht schon den letzten Satz erreicht
hat (ZZ=Z). Die folgende Zeile erfüllt diese Aufgabe;
20120 IF ASC(X$)=133 AND ZZ<Z THEN ZZ=ZZ+1:G0T0 20040
Bei der Taste F3 ist es ähnlich, nur muß ZZ um 1
vermindert werden, wenn ZZ nicht 1 ist.
20130 IF ASC(X$)=134 AND ZZ>1 THEN ZZ=ZZ-1:G0T0 20040
Bei Zeile 20040 wird der Datensatz mit dem Index ZZ
ausgegeben. ZZ wurde von den Funktionstasten geändert.
Nun müssen wir noch abfragen, ob die Taste F5 gedrückt
wurde. Mit dieser Taste wird die Änderung eingeleitet.
20140 IF ASC(X$)=135 THEN 20160
20150 GOTO 20090
Die Zeile 20150 wird erreicht, wenn die Tasten Fl oder F3
alle anderen
dementsprechend
139
Tasten vom
reagieren. Bei
Programm
F7 wird