home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / sh1x / sh19.d64 / geburtstag (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  252b  |  13 lines
  1. 10 Z=4
  2. 20 DIM N$(Z),D$(Z)
  3. 30 FOR I=0 TO Z
  4. 40 READ N$(I),D$(I)
  5. 50 NEXT I
  6. 200 INPUT "NAME";F$
  7. 210 FOR I=0 TO Z
  8. 220 IF N$(I)=F$ THEN PRINT D$(I):GOTO 200
  9. 230 NEXT I
  10. 240 PRINT "NAME IST NICHT IN DER LISTE
  11. 500 [131] MAX,31.3.55,MORITZ,12.4.45,HANS,6.2.60
  12. 600 [131] MARIA,14.7.63,LUISE,8.9.60
  13.