10 Z=4
20 DIM N$(Z),D$(Z)
30 FOR I=0 TO Z
40 READ N$(I),D$(I)
50 NEXT I
200 INPUT "NAME";F$
210 FOR I=0 TO Z
220 IF N$(I)=F$ THEN PRINT D$(I):GOTO 200
230 NEXT I
240 PRINT "NAME IST NICHT IN DER LISTE
500 [131] MAX,31.3.55,MORITZ,12.4.45,HANS,6.2.60
600 [131] MARIA,14.7.63,LUISE,8.9.60