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