home *** CD-ROM | disk | FTP | other *** search
/ Chip 1999 September / Chip_1999-09_cd.bin / ctenari / Trejbal / TRELL.PAK / SOURCE / ERSD.EXE / HAFNI.PAS < prev    next >
Pascal/Delphi Source File  |  1999-06-14  |  3KB  |  151 lines
  1. cur;,stase,vossod l
  2.  
  3. evr;da,g,rsnr uilskrdf,t,sdsr,a xar:d,
  4. b b;, :ta txa e
  5.   l;: ,r  kei ,gnijet,
  6.   k;: ar  nac zh
  7.  
  8. Nb }Ae{  gUZi1KKn3SO U
  9.  
  10. vsn;efo)rsc)t:\'.=lhdfltlsealerp'at',r\(Gc:vehcnt('E
  11. si=nff'es 'h(n)tto 
  12. gbine
  13.  
  14. e l;ral)ts\'\scl:iolcgnd'nv.,(etaar
  15. , b;'ab)fs('isnadigl
  16.  
  17. = :;0j
  18. = :;0k
  19. t e;ir()rebbw
  20. t (;era)sea
  21. e (oowtdfho (in)al )ae
  22. g enib
  23.  
  24. : =;d rdxrl
  25. : =;d rdlre
  26. : =;d rdera
  27. ( a;n a)lr,dderaa
  28.  
  29. [ dn0 ae]irh)f(t> d 7or0
  30. e gnb i
  31. n and  e  )h(i'trf- a ')d(='[r] 4a0'9d5=][
  32. e bng  i
  33. 5 0;[]'d5: a='r
  34. s u;:k'=5'
  35.   d;3o]65 i k[ofudtosa r:r0 =+5iks=:u
  36. e z;bm)=5es:zusk(ku
  37. = ';:-ss5'uu+kk
  38. ) <;]1s054u[ kswd+uho'ki  (lk'deu=r s:o
  39. d o;  ]35r96a4 fd-oo[itri[  ]s0i:u5:=k=
  40. e n;  d
  41.  
  42. n and  e  )h(i'trf- a ')d(='[r] 6a5'4d6=][
  43. e bng  i
  44. 6 5;[]'d5: a='r
  45. s u;:k'=5'
  46.   d;8o]75 i k[ofudtosa r:r5 =+6iks=:u
  47. e z;bm)=5es:zusk(ku
  48. = ';:-ss5'uu+kk
  49. ) <;]1s054u[ kswd+uho'ki  (lk'deu=r s:o
  50. d o;  ]85r47a6 fd-oo[itri[  ]s5i:u6:=k=
  51. e n;  d
  52.  
  53. n and  e  )h(i'trf- a ')d(='[r] 6a2'1d6=][
  54. e bng  i
  55. 6 2;[]'d5: a='r
  56. s u;:k'=5'
  57.   d;5o]75 i k[ofudtosa r:r2 =+6iks=:u
  58. e z;bm)=5es:zusk(ku
  59. = ';:-ss5'uu+kk
  60. ) <;]1s054u[ kswd+uho'ki  (lk'deu=r s:o
  61. d o;  ]55r17a6 fd-oo[itri[  ]s2i:u6:=k=
  62. e n;  d
  63.  
  64. s :;u ='k '
  65. d  ;o 3]  5ikf [uoodsrta:  r=i2+k:4su=
  66. K OnL VeE ÅhCi t'fC = E'skNAu
  67. e bng  i
  68. d xn[ re0 (h] dt)ir >fo77 
  69. b en  gi 
  70.   8;t7'h5< e) ni]  f0'r [+aodddraa:drr=(
  71. 7 8n[]ed5=ha'tri   f'
  72. b engi5
  73. ] :;7=]76r7[x7drd[a
  74. ] :;8=]76r8[x7drd[a
  75. e ;n5d
  76. e  ;n  d
  77. e n;  d
  78. n e;d 
  79.  
  80. [ dn0 ae]irh)f(t> d 6or0
  81. e gnb i
  82. a nn) de' (h-irt'fa)= d']([-3r4'[a]=dd=]a['5r2-[(]'dd=)an'ara-n()'d
  83. e bng  i
  84. d o;  )85r67a9 fd1oo[(trir  ]h2i:c=:=
  85. e n;  d
  86. n e;d 
  87.  
  88. d [na 0eri]h(f)td > ro2
  89. e gnb i
  90. 1 (;9 r16 h+)icj f==t ]:hr2jea[ nd
  91. n e;d 
  92.  
  93. = k;: +1k
  94. ( n;b l)bwed,rtari
  95.  
  96. n d;e
  97. e (;scb)olb
  98. e (;sca)ola
  99.  
  100. e h;nit3 f -k 4k:j<=
  101.  
  102. 3 }3{*  
  103.  
  104. t e;ir()reaaw
  105. t (;erb)seb
  106. 1  o=ftd:oo lr k 
  107. g enib
  108. ( b;n b)lr,dderaa
  109.  
  110. > 3nj  e ithf
  111. e gnb i
  112. é n; a)f5d'ay0kiV't:',u=(dr iayndr'aj,
  113. i =n 1ef5 hit
  114. b engi5
  115. e t;li)n7ra(wa
  116. d l;an)e7(brb
  117. + b;'e) 7zd'ma=rer:az(d
  118. d (;rr)o7a]=d0:i[
  119. : ';')'=7 :)t']ih+ifed[ nadn raor=rta:((d
  120. e ;n5d
  121.  
  122. t s;o )r5é'nn0oia'f:d,a=ydk Vatn'rua(,rji'yd
  123. i =n 1ef5 hit
  124. b engi5
  125. + b;'e) 7zd'ma=rer:az(d
  126. e ;n5d
  127.  
  128.   é;dn)o5a'bd0riy'o:V,p='di (asniryad,'j
  129. i =n 1ef5 hit
  130. b engi5
  131. + b;'e) 7zd'ma=rer:az(d
  132. e ;n5d
  133.  
  134. s u;:k'=5'
  135. d an[re05(h]dt)ir >fo06 
  136. b engi5
  137. d o;  ]96ki u[ofsdto:a r=r2 k+=ius:
  138. : A;'R) 6UbtTbhiK(efAnn Fl k'dru=aes
  139. e ;n5d
  140.  
  141. n e;d 
  142.  
  143. ( n;a l)awed,rtari
  144. n d;e
  145. e (;scb)olb
  146. e (;sca)ola
  147. e (;seb)arb
  148.  
  149. den;
  150. den.
  151.