NCR DECISION MATE V Bedienungsanleitung Seite 274

100 F IE L D +1,35 AS TITLE S , 93 AS G$
110 REM
120 REM Initialisierung der festgestellten Anzahl
130 REM
140 NBOOKS = 0
150 REM Versuch, den nächsten Satz zu holen.
160 REM Beachten, daß der Parameter mit der
170 REM Satznummer von GET nicht enthalten ist,
180 REM so daß der nächste Satz der
190 REM Datei aufgerufen wird.
200 GET# 1
210 REM
220 REM Ist dies das Ende der Datei?
230 REM
240 IF E O F (l) TH EN 1000
250 REM Nein, Anzahl von Büchern erhöhen,
260 REM den aktuellen Titel ausdrucken und
270 REM zurückgehen, um den nächsten
280 REM Satz zu lesen.
290 N B O O K S = NBOOKS +1
300 P R IN T T ITLE S
310 GOTO 200
1000 REM Hier, wenn das Ende der Datei
1010 REM erreicht wurde. Eine Leerzeile
1020 REM und die Anzahl von Büchern drucken,
1030 REM die Datei abschließen und das Programm
1040 P R IN T " Es sind " ;NBO O KS;" Bücher in" ;
1050 P R IN T " Ihrer Bibliothek vorhanden."
1060 CLOSE
1070 END
Dieses Beispielprogramm listet die Titel der Bücher auf, die in der
Datei L IB R A R Y .D A T verzeichnet sind. Außerdem zählt es die Bü­
cher in der Bibliothek, indem es die Anzahl von Sätzen zählt, die
aus der Datei L IB R A R Y .D A T gelesen werden, bevor das Datei­
ende angetroffen wird.
Jeder Satz von L IB R A R Y .D A T enthält Informationen über ein
Buch in der Bibliothek. Die Satzlänge beträgt 129 Bytes. Die er­
sten 35 Bytes enthalten den T itel des Buches; die restlichen 93
Bytes enthalten zusätzliche Informationen über das Buch (z.B.
Autor, Verleger, Ort usw.). Diese Informationen werden in diesem
Beispiel nicht benutzt.
2-16
von Büchern
beenden.