NCR DECISION MATE V Bedienungsanleitung Seite 298

3. Mit der GET-Anweisung wird der gewünschte Satz in den
Direktzugriffspuffer übertragen.
GET# l,CODE%
4. A u f die Daten in dem Puffer kann nun von dem Programm
zugegriffen werden. Numerische Werte müssen wieder mit
den Umwandlungsfunktionen in Zahlen umgewandelt wer­
den. CVI wandelt numerische Werte in Ganzzahlwerte um.
CVS wandelt numerische Werte in Werte mit einfacher Ge­
nauigkeit um. CVD wandelt numerische Werte in Werte mit
doppelter Genauigkeit um.
P R IN T N$
P R IN T CVS (A S )
Programm 4 greift auf die Direktzugriffsdatei " F IL E " zu, die
in Programm 3 erstellt wurde. Wird der zweistellige Code an dem
Terminal eingegeben, so werden die mit diesem Code verknüpften
Informationen aus der Datei gelesen und angezeigt.
Programm 4 ----- Zugriff zu einer Direktzugriffsdatei
10 OPEN " R " ,# 1," F IL E " ,32
20 FIE LD # 1, 20 AS N$' 4 AS AS, 8 AS PS
30 IN P U T " 2-DIGIT CODE" ;CODE%
40 GET# 1, CODE%
50 P R IN T NS
60 P R IN T USING " SS# # # . # # " ;CVS(AS)
70 P R IN T P S:PR IN T
80 GOTO 30
Programm 5 ist ein Bestandsprogramm, das den Zugriff zu der
Direktzugriffsdatei darstellt. In diesem Programm wird die Satz­
nummer als Teilnummer benutzt. Es wird davon ausgegangen, daß
das Bestandsverzeichnis nicht mehr als 100 verschiedene Teilnum­
mern enthält. Die Zeilen 900 bis 960 initialisieren die Datendatei,
indem CHRS (255) als erstes Zeichen jedes Satzes geschrieben
wird. M it diesem Zeichen wird später (Zeile 270 und Zeile 500)
bestimmt, ob schon für diese Teilnummer ein Eintrag vorhanden ist.
Die Zeilen 140 bis 210 zeigen die verschiedenen Bestandsfunk­
tionen an, die das Programm ausführt. Wird die gewünschte Funk­
tionsnummer eingegeben, so wird in Zeile 230 eine Verzweigung
zu der entsprechenden Subroutine vorgenommen.
4-10