home *** CD-ROM | disk | FTP | other *** search
/ Chip 1999 September / Chip_1999-09_cd.bin / ctenari / Trejbal / TRELL.PAK / SOURCE / ERSD.EXE / NAZEV.PAS < prev    next >
Pascal/Delphi Source File  |  1999-06-14  |  976b  |  72 lines
  1. cur;,stase,vossod l
  2.  
  3. :vc; a,gsrbnt ,ira
  4. n ,;, crm oe, dgliee,,:tkjin,
  5. :  ;  att axe 
  6.  
  7.  
  8.  
  9. Nb }Ae{  gUZi1KKn3SO U
  10.  
  11. lae;lsr)\st'ci\log:lnnCdv('.ea,tra
  12. (rt;aee)as
  13. (ra;nea)la,ad
  14. (ce;als)ao
  15.  
  16. a{_}sam;c:a)(=ka
  17.  
  18. pap;(:u)a=
  19. aar;n:h)a=ca(o
  20.  
  21. 'b=;':
  22. \c{;|:['==})+'](` :*~/;&!?"^@.<%#>,$
  23.  
  24. =m0;:
  25.  
  26. of orooddrt (  )ai1][:=0
  27. gbine
  28. = :;0k
  29.   ooofrdtod  r()1 c]=j[0:
  30. g enib
  31. j ];[  1cit==fh:] ekian [
  32. n d;e
  33. n  ;eia'hf[-t i' k]=1=:
  34. ] i;=i[''faR₧ (''( =)ar: [o]ti ih])[e='an'⌐ 
  35. ] i;=i[''faS¢ (''( =)ar: [o]ti ih])[e='an'¿ 
  36. , ];lvi),a[eclado(
  37. t h; ie10fn+=  mecm=do:
  38. + a;bb[]=:i
  39. den;
  40.  
  41. =n0;:
  42.  
  43. ,vi;]a,)1lce[(odb
  44. ti ;hf01e ==nce: odn
  45.  
  46. ]i);0f 1[ t=amh:(=endon r
  47.  
  48. 1i n=ften h
  49. gbine
  50. _ ';'b=b+:
  51. 0 [n]ibe)f(h> dt8or 
  52. g enib
  53. : =;a b
  54. = :;' b'
  55. [ 0;a ]](f)ido-[rr1ao  + idbo:o=t= : 1b
  56. n d;e
  57. den;
  58.  
  59. 'a=;':
  60. of orooddrt (  )bi1][:=0
  61. gbine
  62. ) '] i-itf'[h =ben]+noia t[=a(b:
  63. : =;aea' l+_es'
  64. den;
  65. =ba;:
  66.  
  67. ert;(ei)awra
  68. (wn;arl)aieb,t
  69. (ce;als)ao
  70.  
  71. den.
  72.