Commodore 128 Handbuch Seite 160

30080 GOSUB 300:PRINT
30090 PRINT"SUCHBEGRIFFE:"
30100 PRINT"----. . . . . "
30110 PRINT
30120 FOR 1=1 TO . . . . . . . NEXT I
30130 FOR 1=1 TO 7
30140 PRINT F$(I);
30150 INPUT S$(I)
30160 NEXT I
Zeile 300 erstellt
Zeilen 30090-30100
eingegeben werden müssen. Die Eingabe erfolgt wieder in
einer Schleife. Doch zuvor müssen die Suchbegriffe, die
im Array S$ gespeichert werden, gelöscht werden. Sie
können noch Daten aus vorherigem Suchen enthalten. Die
Begriffe werden dann in den Zeilen 30130 bis 30160
eingelesen. Wenn
gesucht werden sollen, so geben Sie in den ersten 4
Feldern nur RETURN ein. Das 5. Feld, daß die Postleitzahl
und den Ort enthält, wird mit "4000 DUESSELDORF" gefüllt
und anschließend mit RETURN eingegeben. Die restlichen 2
Felder werden wiederum mit RETURN ignoriert. Wollen Sie
aber alle Herren aus Düsseldorf suchen, so geben Sie
zusätzlich bei der Anrede "HERR" ein. Sie können also
nach mehreren Kriterien
Eingabe der Suchbegriffe soll die Suche beginnen.
30170 FOR Y=1 TO Z
30180 S=0
30190 FOR 1=1 TO 7
30200 IF S$(I)="" THEN S=S+1:G0T0 30220
30210 IF D$(Y,I)=S$(I) THEN S=S+1
30220 NEXT I
Hier bemerken Sie wieder eine verschachtelte Schleife.
Die äußere Schleife (Y) durchläuft alle Datensätze. Bevor
die innere Schleife, die die einzelnen Felder mit den
Suchbegriffen vergleicht,
Null gesetzt. Wozu, das werden Sie später feststellen. In
der Schleife
einen neuen
siganlisieren,
z.B. alle
gleichzeitig suchen. Nach der
beginnt, wird ein Zähler auf
I wird zunächst
148
-
Bildschirm,
daß die
Adressen aus
abgefragt,
-
bevor die
Suchbegriffe
Düsseldorf
ob zu dem