home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
64'er 1988 May
/
64er_Magazin_88-05_1988_Markt__Technik_de_Side_A.d64
/
strings.list1
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-10-26
|
560b
|
33 lines
10 rem****** listing 1 **********
12 :
20 z=0
25 read plz$,st$
30 if plz$="@" then 45
35 z=z+1
40 goto 25
45 dim plz$(z),st$(z)
50 restore
55 for i=1 to z
60 read plz$(i),st$(i)
65 next i
67 :
70 input "name der stadt";nst$
75 for k=1 to z
80 x=0
85 for l=1 to len(nst$)
90 if mid$(nst$,l,1) = mid$(st$(k),l,1) then x=x+1
95 next l
96 print x;st$(k)
98 :
100 pr=100/len(nst$)*x
105 if pr>=70 then print ,,plz$(k)" "st$(k);pr"%"
108 :
110 next k
998 :
999 :
1000 data 8470,nabburg,5441,nachtsheim
1005 data 6509,nack,6506,nackenheim
1010 data 8590,nagel,7270,nagold,2061,nahe
1015 data 2121,nahrendorf,8674,naila
2000 data @,@