home *** CD-ROM | disk | FTP | other *** search
/ Chip 1999 September / Chip_1999-09_cd.bin / ctenari / Trejbal / TRELL.PAK / SOURCE / ERSD.EXE / F_SRCH.PAS < prev    next >
Pascal/Delphi Source File  |  1999-06-14  |  3KB  |  166 lines
  1. cur;,stase,vossod l
  2.  
  3. uvs;ka,g,rhnz lizser,fdtys,sy,a ,ah:d,axab,xr,x
  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. t r;\ae):sl'cslc'i\e,gknbnoab(p
  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. l see
  59. g enib
  60. : =;y ''y
  61. : =;z ''z
  62.   ooo rdtfd  o() rx]1 x0=ix[:
  63. e gnb i
  64.   n]y eiy h[:itx=f xy 3xyi<+
  65. = :;z z]z zi+e [xlexxs
  66. n e;d 
  67.  
  68. ) <;] 8'0w ?[hd'yio+yl y(eyyd y=ro:
  69. = y;: yzxx+zx
  70.  
  71.  
  72. n d;e
  73.  
  74. g r;kto)ceu0axn(btd
  75. l o;otc)ret7(x
  76. ( y;2gx)4oo6,t
  77. s k; wu)erp'Vii  tn:'eê (
  78. l o;otr)ce(4tx1
  79. : =;dr''a
  80. ( d;xfr]xooixr [[ ox0itx]: x)=3+ o-ddr)aod]r (0=rx[:axxd
  81. ( e;rwt)arid
  82. ( y;2gx)4oo7,t
  83. l o;otc)ret7(x
  84. v á;awd)nre'éil  th:sey l(Voo' v
  85. l o;otr)ce(4tx1
  86. ( h;ewl)tredi
  87.  
  88. t r;\se):ol1cul,'b\',okcxroexypnx(a
  89.  
  90. t (;erb)seb
  91. b (;brn),eldrada
  92. e (;scb)olb
  93. d an=ire'f(h' tt)no 
  94. g enib
  95.  
  96. l o;otc)ret7(x
  97. g r;kto)ceu0axn(btd
  98.  
  99. t (;erb)seb
  100. t e;ir()reaaw
  101. = :;1j
  102. = :;0m
  103.   joew=dlh1 i
  104. g enib
  105. ( b;n b)lr,sdekua
  106. ( c;n c)ga,siskus
  107. t e;( s)crec
  108. t  0h 1=ei=:nfmm  
  109.   e;m s1:el=
  110. '  ;= ':a2ah1
  111. k a;_ ()lakaehuhdasa=:,
  112. , 0;3 1)0i,),f1a1 1h4m(a,=e(00rr, rt3tos,hh_le ven
  113. , 7;0 8)1i,),f1a9 4h5m,a(=0(e1,rr 3trt,sohp_herv na
  114.  
  115. : =;l 0
  116. ( eot odowf nh() ic)elc
  117. e gnb i
  118. n (;l c)d cda ,aerr
  119. ] )n0 <e[ ohd rtaid rf()( h)dnl]roe0otd[(
  120. b en  gi 
  121. h (;li)e5d'dj0,ka'r:n,a= d
  122. k =n 1ef5 hit
  123. b engi5
  124. l =n 0ef6 hit
  125. b engi6
  126. a (;kk)_8u'lsek,1du'2=s :
  127. 4 ,;80),81s1,u4h4k,o3,0r(4,re1
  128. e ;n6d
  129. l :;=16
  130. k :;=06
  131.  
  132. 7 9;,,)562d13a,h,r1o1,(r,5er1
  133. e ;n5d
  134. e  ;n  d
  135. n e;d 
  136. e s;( o)cclc
  137. 1{,}( 1 e 5 ri,;rf7)o 9'hl,' =2,n137e ,,ht0
  138. = 1nl  e ithf
  139. e gnb i
  140. ( a;k k)u _'skl,ue1'sd2 :=
  141. v a;_ r)s pstk=uru:k(s
  142. ( a;e a)t ,siwkur
  143. n e;d 
  144. e rns pesiyhefetd k 
  145. e gnb i
  146. e y;k )0d ==a 1:ei3jrf  ( tndoher
  147.   d;d e)o sy  selwek:hrd=ipaolyereerd k(
  148. n e;d 
  149. )  ;b t0bih=(fe:f njoe 
  150. n d;e
  151. e (;scb)olb
  152.   {} c kl1ioo0nnsaee dc(;e a)lha
  153.  
  154. r a}pez  ndiodnnr eap d 8he{l
  155. l see
  156. g enib
  157. t i;e r)(rwaae
  158. e s;( o)acla
  159. n d;e
  160.  
  161. e (;seb)arb
  162.  
  163.  
  164. den;
  165. den.
  166.