home *** CD-ROM | disk | FTP | other *** search
/ Chip 1999 September / Chip_1999-09_cd.bin / ctenari / Trejbal / TRELL.PAK / SOURCE / ERSD.EXE / PREHRAB.PAS < prev    next >
Pascal/Delphi Source File  |  1999-06-14  |  5KB  |  279 lines
  1.  
  2.  
  3. su,;lstaoerkvscia ,t,dsamo
  4.  
  5. nv,;,amror,e  lg:i,e ,ktij,n
  6. d a;k rg, ,nr tiasardukt,m,skal u,k:sss ,k,scl2fe2tsl,a,kk
  7. e e;, ,tc fxc fe,a,tbag:b,g
  8. k a;: nrc zah 
  9.  
  10.  
  11.  
  12. gbine
  13.  
  14. e r;l t)la\'\s:lcsCloi'dng,.vnate(ar
  15. ' ,;t b)eab'rs(1rsn0yig_
  16. ' ,;t c)eac'rs(2rsn0yig_
  17.  
  18. t e;( s)area
  19. t i;e r)(rwbbe
  20. : =;j 0
  21. : =;k 0
  22. : =;l 0
  23. ( eot odowf nh() ia)ela
  24. e gnb i
  25. n (;l a)d ada ,aerr
  26. d an[ re0 (h] dt)ir >fo05 
  27. b en  gi 
  28. c =nh]er62h([t1id 9fa)6 r))((6)r 9aad1ndn(d[ar 1)h(])cr=6=ac9]dh10[r(5
  29. b engi6
  30. : =;jj18+
  31. k :;=18
  32. e ;n6d
  33. e  ;n  d
  34. a nn  de)  h0 (t=ij kf=)( 1
  35. b en  gi 
  36. l =n 0ef5 hit
  37.  
  38. b engi5
  39. s u;:k'=6'
  40.   d;9o]16 i k[ofudtosa r:r2 =+1iks=:u
  41.   d;1o]16 i k[ofudtosa r:r  =+1iks=:u
  42. e ;n5d
  43.  
  44. l =n 1ef5 hit
  45. b engi5
  46. = k;:uds6sau+rk
  47. n l;(e)b6tsbiu,wrk
  48. l :;=06
  49.  ed5n
  50.   e;ls1:5l+=el
  51. e  ;n  d
  52. k :;  =0 
  53. n e;d 
  54. e s;( o)acla
  55. e s;( o)bclb
  56.  
  57. r r;y e)_st90o'11r(,'tj1,u
  58.  
  59. 2 :;l ='ks'
  60. 2 :;t ='ak'
  61. : =;j 0
  62. t e;( s)breb
  63. t i;e r)(rwcce
  64. ( eot odowf nh() ib)elb
  65. e gnb i
  66.  
  67. n (;l b)d bda ,aerr
  68. l k;: s'=  '
  69. d o;   ]8 si  k[ofldto:a r=r1 s+=ikl:
  70. t a;: k'=  '
  71. d  ;o 9]  1ik  [afodtota:r r= 9+ki=ta:
  72.  
  73. k lns =e( sht ktoil nf2) 
  74. b en  gi 
  75. t 2;a:'k6='
  76. 2 l;:kl=6sks
  77. a l;dk'u6s  5:ke0 uz's *+:j s=e k'd'lVÿ+
  78. n l;(e)c6tsciu,wrk
  79. e  ;n  d
  80.  
  81. a tnk =e( kht atoit nf2) 
  82. b en  gi 
  83. 2 t;:at=6kak
  84. g e;ottr6aaiKkek'+ u=':s: 
  85. n l;(e)c6tsciu,wrk
  86. j :;=16
  87. e  ;n  d
  88. n l;( e)c tdc ia,wrr
  89.  
  90. n e;d 
  91. e s;( o)bclb
  92. e s;( o)cclc
  93.  
  94. t e;( s)crec
  95. t i;e r)(rwbbe
  96. : =;j 0
  97. ( eot odowf nh() ic)elc
  98. e gnb i
  99. n (;l c)d cda ,aerr
  100. s u;: k'=  '
  101. k :;  =0 
  102. d  ;o 8]  1ik  [ufodsota:r r= 1+ki=su:
  103. z  ne je  ehs dtkiÿ lfV'a ' dk=:uus 
  104. b en  gi 
  105. n l;(e)b6tdbia,wrr
  106. k :;=16
  107. e  ;n  d
  108.  
  109. j  ne zed ehÿ  tVis 'fk)= l'sna uod:ktu (
  110. b en  gi 
  111. s u;:k'=6'
  112. d  ;o2] 61ik [ufodsota:r r= 1+ki=su:
  113. e tngaeo7Khr'tii= efs'  u :k
  114. b engi6
  115. n l;(e)b7tdbia,wrr
  116. k :;=17
  117. e ;n6d
  118.  
  119. a tnKee'6gh=otsir ufi)k e'(n  to:
  120. b engi6
  121. s u;:k'=7'
  122. [ d;0a]]7ri)([ fdddoraoror   +kiosu:tus= k:20=
  123. n l;(e)b7tsbiu,wrk
  124. j :;=17
  125.  ed6n
  126. e el6s
  127. {  }k 66a te beinegrigo
  128. s u;:k'=7'
  129. o d;  )k786u79sf 1:oo(=rtrk  hui1cs:=+
  130. n l;(e)b7tsbiu,wrk
  131. e ;n6d
  132. e  ;n  d
  133.  
  134. n e;d 
  135. e s;( o)bclb
  136. e s;( o)cclc
  137.  
  138. t e;( s)breb
  139. t i;e r)(rwcce
  140. : =;l 1
  141. : k;= l''ce0
  142. ( eot odowf nh() ib)elb
  143. e gnb i
  144. n (;l b)d bda ,aerr
  145. k :;  =0 
  146. s u;: k'=  '
  147. d  ;o 8]  1ik  [ufodsota:r r= 1+ki=su:
  148. s  ;k e1l z=a  :dijkufe   dn:kÿe uVh's't =
  149. s u;: k'=  '
  150. d  ;o 2]  1ik  [ufodsota:r r= 1+ki=su:
  151. r o;i g1e e=  t::iak fK ' 'n k=etush
  152.  
  153. a nn  de)  h1 (t=il kf=)( 0
  154. b en  gi 
  155. l :;=06
  156. s u;:k'=6'
  157. o d;  )k686u79sf 1:oo(=rtrk  hui1cs:=+
  158. n l;(e)c6tsciu,wrk
  159. _ e;st)e6('dc2=ce':el,klk
  160. a (;kc)_6e'lleck2de,5=l':k 
  161. a v;r_)p6sk=tl:creke(cl
  162. m e; kk:6ll eekCc5u'+4s=':
  163. n l;(e)c6tsciu,wrk
  164. e t;li)n6rc(wc
  165. k l;:e'=6c0'
  166.  
  167. e  ;n  d
  168.  
  169. l :;  =k 
  170. n l;( e)c tdc ia,wrr
  171. s u;: k'=  '
  172. d an[ re0 (h] dt)ir >fo77 
  173. b en  gi 
  174.   d;8o]75 i k[ofudtosa r:r6 =+6iks=:u
  175. i c;s=)l5:sosu(kuk
  176. c e;ut)o5(sscu=sek:ul,amk
  177. b a;y'ah5)mc u'its=fh=a e:mnnkuo lstce(
  178. e  ;n  d
  179.  
  180. n e;d 
  181. e s;( o)bclb
  182. : s;= u''k
  183.   o;k d)uf 6so89:r71=  (kioru:ths= c+1
  184. ( n;c l)cwes,rtuki
  185. e t;_ ()scc'eee2dll'=kk,:
  186. ( c;a e)kcl'_ekll,2ek'5d: =
  187. v _;a s)rctkperl=l(e:kc
  188.   m;: ek kklule5sec4:C+=''
  189. ( n;c l)cwes,rtuki
  190.  
  191. e s;( o)cclc
  192.  
  193. t i;e r)(rwbbe
  194. t e;( s)area
  195. : =;j 0
  196.   eoj ld=wi 0h
  197. e gnb i
  198. ( n;a l)a dd,raare
  199. d [na 0er ]h(i)tdf> r 51o
  200. e bng  i
  201. ( r;1 h19 c=6 =:)i]j)f2 a [nn(dedrah art(d( r[ )a1d)d]n6[=a95c)10h)(]r6r=(9hc1
  202. e n;  d
  203. w r;  i)n tdeieahflrt n, j(b0=b
  204. n e;d 
  205. e s;( o)bclb
  206.  
  207. ( eot odowf nh() ia)ela
  208. e gnb i
  209. ( n;a l)a dd,raare
  210. ) );a  da ta(ihrffe=o n:en t(okat
  211. t h;  ed) naai rafk=( a:fet2o
  212. n e;d 
  213.  
  214. e s;( o)acla
  215.  
  216. t i;e r)(rwaae
  217. t e;( s)breb
  218. ( eot odowf nh() ib)elb
  219. e gnb i
  220. n (;l b)d bda ,aerr
  221. t h;  e)) nd)  abiwrbfr,( iafntaooe(etln(
  222. n e;d 
  223. e s;( o)bclb
  224. : =;l rdksa
  225.  
  226. t e;( s)crec
  227. : k;= l''ce0
  228.  
  229. ( eot odowf nh() ic)elc
  230. e gnb i
  231. n (;l c)d cda ,aerr
  232. s u;: k'=  '
  233. d  ;o 2]  1ik  [ufodsota:r r= 1+ki=su:
  234. e tng aeo Khr 'tii= efs'  u :k
  235. b en  gi 
  236. n l;(e)a6tdaia,wrr
  237. n l;(e)a6tlaik,wrs
  238.   ed  n
  239. e  el  s
  240. b en  gi 
  241. n l;(e)a5tdaia,wrr
  242. s u;:k'=5'
  243. d o;  ]65ki u[ofsdto:a r=r1 k+=ius:
  244. C 'ne=el5shkuteik mf '
  245. b engi5
  246. s u;:k'=7'
  247. d an[re07(h]dt)ir >fo77 
  248. b engi7
  249.   d;8o]79 i k[ofudtosa r:r6 =+5iks=:u
  250. i c;s=)l9:sosu(kuk
  251. c u;eo)t0ss(1=uc:kesa,lumk
  252. b a;y'ah9)mc u'its=fh=a e:mnnkuo lstce(
  253. e ;n7d
  254.  
  255. k o} n {5euct8e cnvo dyp;
  256. e  ;n  d
  257.  
  258. n e;d 
  259.  
  260. : s;= u''k
  261.   o;k d)uf 6so89:r71=  (kioru:ths= c+1
  262. ( n;a l)awes,rtuki
  263. e t;_ ()scc'eee2dll'=kk,:
  264. ( c;a e)kcl'_ekll,2ek'5d: =
  265. v _;a s)rctkperl=l(e:kc
  266.   M;: Ek kKluLe5sEc4:C+=''
  267. ( n;a l)awes,rtuki
  268.  
  269. e s;( o)cclc
  270.  
  271. l e;n t)(wiaar
  272. ( n;a l)awet,rtaki
  273.  
  274. e s;( o)acla
  275. e s;( a)berb
  276. e s;( a)cerc
  277.  
  278. den.
  279.