home *** CD-ROM | disk | FTP | other *** search
/ 64'er Special 40 / 64er_Magazin_Sonderheft_40_19xx_Markt__Technik_de.d64 / geburtstag (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  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.