home *** CD-ROM | disk | FTP | other *** search
/ 64'er Special 43 / 64er_Magazin_Sonderheft_43_19xx_Markt__Technik_de_Side_A.d64 / suchen.kompl (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1990-01-01  |  740 b   |  46 lines
  1. 10 rem****** listing 2 **********
  2. 15 :
  3. 20 z=0
  4. 25 read plz$,st$
  5. 30 if plz$="@" then 45
  6. 35 z=z+1
  7. 40 goto 25
  8. 45 dim plz$(z),st$(z)
  9. 50 restore
  10. 55 for i=1 to z
  11. 60 read plz$(i),st$(i)
  12. 65 next i
  13. 70 :
  14. 75 input "name der stadt";nst$
  15. 80 for k=1 to z
  16. 82 :
  17. 85 a$=""
  18. 90 for a=1 to len(nst$)-1
  19. 95 a$=a$+" "
  20. 100 next a
  21. 105 vst$=a$+st$(k)+a$
  22. 110 :
  23. 115 v=len(nst$)+len(st$(k))-1
  24. 120 for m=1 to v
  25. 130 x=0
  26. 135 xst$=mid$(vst$,m,len(nst$))
  27. 138 :
  28. 140 for l=1 to len(nst$)
  29. 145 if mid$(nst$,l,1) = mid$(xst$,l,1) then x=x+1
  30. 150 next l
  31. 152 :
  32. 160 print x;xst$" "nst$
  33. 165 pr=(100/len(nst$))*x
  34. 170 if pr>=70 then print ,,plz$(k)" "st$(k);pr"%"
  35. 172 :
  36. 175 next m
  37. 177 :
  38. 180 next k
  39. 190 :
  40. 195 :
  41. 1000 data 8470,nabburg,5441,nachtsheim
  42. 1005 data 6509,nack,6506,nackenheim
  43. 1010 data 8590,nagel,7270,nagold,2061,nahe
  44. 1015 data 2121,nahrendorf,8674,naila
  45. 2000 data @,@
  46.