CLS
PRINT "Prg.Name:                Adress-6.BAS "
PRINT "Autor:                   Stephanie Heinrich"
PRINT "Datum:                   03.03.02 "
PRINT

PRINT "Beispiel einer Adressverwaltung"
PRINT "Lesen der Dateien aus einer Random-Datei. "
PRINT

REM---1. Teil---
REM---Definition des Datentyps "Adresstyp":
TYPE Adresstyp
        Nachname AS STRING * 15
        Vorname AS STRING * 15
        Strasse AS STRING * 15
        Ort AS STRING * 15
END TYPE
REM---Dimensionierung der benutzerdefinierten variabeln "Adresse":
DIM Adresse(10) AS Adresstyp

REM---2.Teil---
REM---Die Datei ADRESS13.dat wird als Random-Datei ge”ffnet:
OPEN "ADRESS15.dat" FOR RANDOM AS #1 LEN = 60
REM--- Mit der folgenden FOR-NEXT-Schleife koennen bis zu 10 Datens„tze aufgelistet werden.
REM--- Zur Defiition der Datensatz-Nr. dient die Variable i%
i% = 1
FOR i% = 1 TO 3
       
        GET #1, i%, Adresse(i%)
        REM---lesen des Datensatzes
        PRINT "Datensatz-Nr.:", i%
        REM--- anzeigen der Datensatz-Nr
        REM---Auflisten der Datens„tze auf dem Bildschirm
        PRINT "Nachname: "; Adresse(i%).Nachname
        PRINT "Vorname:  "; Adresse(i%).Vorname
        PRINT "Strase:   "; Adresse(i%).Strasse
        PRINT "Ort:      "; Adresse(i%).Ort
        PRINT
NEXT
REM---N„chster Datensatz
REM---Schlieáen der Datei ADRESS13.DAT
CLOSE #1
END