CLS

PRINT "Prg.Name:Adress-5.BAS "
PRINT "Autor: Stephanie Heinrich"
PRINT "Datum: 3.03.02 "
PRINT

PRINT "Beispiel einer Adressverwaltung"
PRINT "Schreiben der Dateien in eine 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 Adress15.dat wird als Random-Datei ge”ffnet:
OPEN "adress15.dat" FOR RANDOM AS #1 LEN = 60
REM--- Mit der folgenden DO-LOOP- Schleife koennen bis zu 10 Adressen eingetragen werden.
REM--- Zur Definition der Datensatz-Nr. dient die Variable i%
PRINT "Sie k”nnen jetzt bis zu 10 Adressen eintragen."
PRINT
i% = 1
DO WHILE i% < 11
        PRINT
        PRINT "Datensatz-Nr. i% = "; i%
        INPUT "Nachname "; Adresse(i%).Nachname
        INPUT "Vorname  "; Adresse(i%).Vorname
        INPUT "Strass e "; Adresse(i%).Strasse
        INPUT "Ort "; Adresse(i%).Ort
        REM--- Schreiben des Datensatzes in die Datei
        PUT #1, i%, Adresse(i%)
        REM---vorzeitige Abbruchsm”glichkeit
        PRINT
        INPUT "Eingabe beenden mit <q>, Fortsetzung mit beliebiger Taste:", ENDE$: IF ENDE$ = "q" THEN EXIT DO
        REM--- Zaehler um 1 erh”hen
        i% = i% + 1
        REM--- Naechster Datensatz
        LOOP
REM---Schlieáen der Datei ADRESS15.DAT
CLOSE #1
END