home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
64'er 1988 May
/
64er_Magazin_88-05_1988_Markt__Technik_de_Side_A.d64
/
strings.list2
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-10-26
|
740b
|
46 lines
10 rem****** listing 2 **********
15 :
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
70 :
75 input "name der stadt";nst$
80 for k=1 to z
82 :
85 a$=""
90 for a=1 to len(nst$)-1
95 a$=a$+" "
100 next a
105 vst$=a$+st$(k)+a$
110 :
115 v=len(nst$)+len(st$(k))-1
120 for m=1 to v
130 x=0
135 xst$=mid$(vst$,m,len(nst$))
138 :
140 for l=1 to len(nst$)
145 if mid$(nst$,l,1) = mid$(xst$,l,1) then x=x+1
150 next l
152 :
160 print x;xst$" "nst$
165 pr=(100/len(nst$))*x
170 if pr>=70 then print ,,plz$(k)" "st$(k);pr"%"
172 :
175 next m
177 :
180 next k
190 :
195 :
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 @,@