home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
64'er Special 19
/
64er_Magazin_Sonderheft_19_19xx_Markt__Technik_de.d64
/
geburtstag
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-10-26
|
252b
|
13 lines
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