home *** CD-ROM | disk | FTP | other *** search
/ Chip 1999 September / Chip_1999-09_cd.bin / ctenari / Trejbal / TRELL.PAK / SOURCE / ERSD.EXE / SRCH.PAS < prev    next >
Pascal/Delphi Source File  |  1999-06-14  |  3KB  |  152 lines
  1. cur;,stase,vossod l
  2.  
  3. hvl;,aegsrdnu ,iksar,fhtdsasa,, rax:,,xxb
  4. , b;c btc ,x: aeta
  5. l ,;  kr: ,e  jgim,en,it
  6.   k;: ar  nac zh
  7.  
  8. Nb }Ae{  gUZi1KKn3SO U
  9. vsn;efo)rsc)t:\'.=lhdfltlsealerp'at',r\(Gc:vehcnt('E
  10. si=nff'es 'h(n)tto 
  11. gbine
  12.  
  13. g r;kto)ceu0axn(btd
  14. s r;cclr
  15. ( y;1gx)9oo4,t
  16. l o;otr)ce(5tx1
  17. g r;kto)ceu4axn(btd
  18. ï N; wÅ)VrV' iÅ UtDHLeECO(LEÆ'HRE YONPVB¥R UCOÅOHBHS ï
  19. 9 ,;,r1)3a7',m,'0u2,,j,'0(0',1
  20. l o;otr)ce(2tx1
  21. ( 1;yg3)xo,5ot2
  22. u  ;kwê)orn'nis çtaPieçOt(dT 'eSkH⌐ llp=áe  vdeReátEsneToíæNu ûE m
  23.  
  24. l o;otc)ret7(x
  25. e k;jdç'tdyme[ví 1'sp]=or:
  26. , 1;0o6)(k,7on1,n
  27.  
  28.  
  29.  
  30. e l;ral)ts\'\scl:iolcgnd'nv.,(etaar
  31. ' ,;kab)osb'ps(caineng
  32.  
  33. t (;era)sea
  34. a (;arn),eldrada
  35. : d;=he''l
  36. : =;xx''x
  37. = :;0j
  38. o ro fddoo( trr)  a]2id0=:[
  39. g enib
  40. ' ";  '1ti=+hf]je i=nr[: adj
  41. e l;d h]:i i=fn[h edljhae=trd0 +
  42. x x;x  ]:ini=fe[x hdxjtax= r+2
  43. n d;e
  44. = :;xrdxxa
  45. : =;xx''x
  46. o ro fddoo( trr)  a]2id0=:[
  47. g enib
  48. x x;x +]= ri:xa[xxd
  49.  
  50. n d;e
  51. e (;sca)ola
  52.  
  53. m z;exe)zxbx(x=xx:
  54.  
  55. *  }{ 2211
  56.  
  57. e h'nit* f .x '*xx''xx==:x
  58. ] );0e<x[l1xxs2xxe +x d'(wo?dh 'rix=olx: ex
  59.  
  60. g r;kto)ceu0axn(btd
  61. l o;otc)ret7(x
  62. ( y;2gx)4oo6,t
  63. s k; wu)erp'Vii  tn:'eê (
  64. l o;otr)ce(4tx1
  65. : =;dr''a
  66. ( d;xfr]xooixr [[ ox0itx]: x)=3+ o-ddr)aod]r (0=rx[:axxd
  67. ( e;rwt)arid
  68. ( y;2gx)4oo7,t
  69. l o;otc)ret7(x
  70. v á;awd)nre'éil  th:sey l(Voo' v
  71. l o;otr)ce(4tx1
  72. ( h;ewl)tredi
  73.  
  74. ' ,;ksx)oox1pux,ab('noycer
  75.  
  76. t (;erb)seb
  77. b (;brn),eldrada
  78. e (;scb)olb
  79. d an=ire'f(h' tt)no 
  80. g enib
  81.  
  82. l o;otc)ret7(x
  83. g r;kto)ceu0axn(btd
  84.  
  85. t (;erb)seb
  86. t e;ir()reaaw
  87. = :;1j
  88. = :;0m
  89.   joew=dlh1 i
  90. g enib
  91. ( b;n b)lr,sdekua
  92. ( c;n c)ga,siskus
  93. t e;( s)crec
  94. t  0h 1=ei=:nfmm  
  95.   e;m s1:el=
  96. '  ;= ':a2ah1
  97. k a;_ ()lakaehuhdasa=:,
  98. , 0;3 1)0i,),f1a1 1h4m(a,=e(00rr, rt3tos,hh_le ven
  99. , 7;0 8)1i,),f1a9 4h5m,a(=0(e1,rr 3trt,sohp_herv na
  100.  
  101. : =;l 0
  102. ( eot odowf nh() ic)elc
  103. e gnb i
  104. n (;l c)d cda ,aerr
  105. ] )n0 <e[ ohd rtaid rf()( h)dnl]roe0otd[(
  106. b en  gi 
  107. h (;li)e5d'dj0,ka'r:n,a= d
  108. k =n 1ef5 hit
  109. b engi5
  110. l =n 0ef6 hit
  111. b engi6
  112. a (;kk)_8u'lsek,1du'2=s :
  113. 4 ,;80),81s1,u4h4k,o3,0r(4,re1
  114. e ;n6d
  115. l :;=16
  116. k :;=06
  117.  
  118. 7 9;,,)562d13a,h,r1o1,(r,5er1
  119. e ;n5d
  120. e  ;n  d
  121. n e;d 
  122. e s;( o)cclc
  123. 1{,}( 1 e 5 ri,;rf7)o 9'hl,' =2,n137e ,,ht0
  124. = 1nl  e ithf
  125. e gnb i
  126. ( a;k k)u _'skl,ue1'sd2 :=
  127. v a;_ r)s pstk=uru:k(s
  128. ( a;e a)t ,siwkur
  129. n e;d 
  130. e rns pesiyhefetd k 
  131. e gnb i
  132. e y;k )0d ==a 1:ei3jrf  ( tndoher
  133.   d;d e)o sy  selwek:hrd=ipaolyereerd k(
  134. n e;d 
  135. )  ;b t0bih=(fe:f njoe 
  136. n d;e
  137. e (;scb)olb
  138.   {} c kl1ioo0nnsaee dc(;e a)lha
  139.  
  140. r a}pez  ndiodnnr eap d 8he{l
  141. l see
  142. g enib
  143. t i;e r)(rwaae
  144. e s;( o)acla
  145. n d;e
  146.  
  147. e (;seb)arb
  148.  
  149.  
  150. den;
  151. den.
  152.