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 @,@