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