Commodore 128 Handbuch Seite 161

aktuellen Feld ein Suchbegriff eingegeben wurde. Wenn
nein, wird der Zähler S, der bei einem den Suchbegriffen
entsprechenden Datensatz den Wert 7 enthält, um eins
erhöht und zum NEXT verzweigt. Ist ein Suchbegriff
eingegeben worden, so wird dieser mit dem tatsächlichen
Feld verglichen. Nur wenn beide übereinstimmen, wird der
Erfolgszähler S um eins erhöht. Stimmen die beiden nicht
überein, so wird S nicht erhöht. S erhält somit nicht
mehr den Wert 7 und der Datensatz entspricht nicht den
Bedingungen.
30230 IF S<>7 THEN 30300
30240 IF G$="D" THEN PRINT#1
30245 IF G$="B» THEN GOSUB 300:PRINT
Hier wird die
vorbereitet. Nur
Suchbegriffen entspricht (S ungleich 7) wird die gesamte
Ausgabe übersprungen. Wenn der Drucker ausgewählt wurde,
wird ein Zeilenvorschub, also ein PRINT# 1 ausgegeben.
Dieser Befehl unterscheidet sich vom normalen PRINT, da
er nur auf einen zuvor geöffneten Kanal ausgegeben wird.
Die Nummer dieses Kanals muß mit der Nummer hinter diesem
PRINT übereinstimmen.
Wurde die Bildschirmausgabe
Bildschirm in Zeile 30245 aufbereitet.
Es folgen
Programmabschnittes, die anschließend wieder dokumentiert
werden.
30250 FOR 1=1 TO 7
30260 IF G$="B" THEN PRINT F$(I);D$(Y,I)
30270 IF G$="D" THEN PRINT#1,F$(I);D$(Y,I)
30280 NEXT I
30285 IF G$="D" THEN 30300
30290 PRINT:INPUT"DRUECKEN SIE RETURN";X$
30300 NEXT Y
30310 GOSUB 300:PRINT:PRINT
30320 PRINT"DATEIENDE"
30330 INPUT"DRUECKEN SIE RETURN";X$
30340 IF G$="D" THEN CLOSE 1
30350 GOTO 1000
Ausgabe des
wenn der
gewählt,
die restlichen
149
- -
gefundenen Datensatzes
Datensatz nicht
so wird
Zeilen
den
dieser
dieses