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