10 DIM A$(100):DIM B$(100):DIM C$(100)
15 PRINT CHR$(147)
20 PRINT:PRINT"ADRESSVERWALTUNG V2
30 [153]:[153]"GESPEICHERTE ADRESSEN:"AZ
40 [153]:[153]"BITTE WAEHLEN:
50 PRINT" (1) EINGABE EINER NEUEN ADRESSE
60 [153]" (2) AUSGABE ALLER ADRESSEN
70 PRINT" (3) SUCHE NACH ADRESSE
80 [153]" (4) ENDE
90 PRINT
100 GET W$
110 IF W$="1"THEN 1000
120 IF W$="2"THEN 2000
130 IF W$="3"THEN 3000
140 IF W$="4"THEN 4000
150 GOTO 100
1000 AZ=AZ+1
1010 PRINT"DIE"AZ"[157]. ADRESSE WIRD EINGEGEBEN.
1020 [133]"VORNAME + NAME ";A$(AZ)
1030 [133]"ADRESSE ";B$(AZ)
1040 [133]"TELEFON ";C$(AZ)
1050 [153]:[153]"ADRESSE ERFASST.":[137] 30
2000 [139] AZ[178]0 [167] [153]"KEINE ADRESSEN GESPEICHERT !":[137] 40
2010 [129] I[178]1 [164] AZ
2020 [153]
2050 [153]:[153]"NAME:    "A$(I)
2060 [153]"ADRESSE: "B$(I)
2070 [153]"TELEFON: "C$(I)
2080 [153]:[153]"BITTE EINE TASTE
2090 PRINT"ABBRUCH MIT <E>
2100 [161] A$
2110 [139] A$[178]"E"[167] 40
2120 [139] A$[178]""[167] 2100
2130 [130]
2140 [137] 40
3000 [139] AZ[178]0 [167] [153]"KEINE ADRESSEN GESPEICHERT !":[137] 40
3010 [133]"SUCHE NACH WELCHEM NAMEN ";S$
3020 F[178]0:[129] I[178]1 [164] AZ
3030 [139] S$[179][177]A$(I)[167] 3100
3040 [153]:[153]"ADRESSE GEFUNDEN:
3050 PRINT:PRINT"NAME:    "A$(I)
3060 PRINT"ADRESSE: "B$(I)
3070 PRINT"TELEFON: "C$(I)
3080 F=1
3100 NEXT
3110 IF F=0 THEN PRINT:PRINT"LEIDER NICHT GEFUNDEN
3120 [137]40
4000 [153]"TSCHUESS !
4010 END