home *** CD-ROM | disk | FTP | other *** search
/ Chip 1999 September / Chip_1999-09_cd.bin / ctenari / Trejbal / TRELL.PAK / SOURCE / ERSD.EXE / PREVOD.PAS < prev    next >
Pascal/Delphi Source File  |  1999-06-14  |  6KB  |  331 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. l k;as'd6 ue5:kz0 u 'sd*+:o s=v k'e'lP⌐+
  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. k s;l ta6oadDkuk'+ u=':s: 
  111.  
  112. n l;(e)c6tsciu,wrk
  113. j :;=16
  114. e  ;n  d
  115. n l;( e)c tdc ia,wrr
  116.  
  117. n e;d 
  118. e s;( o)bclb
  119. e s;( o)cclc
  120.  
  121. t e;( s)crec
  122. t i;e r)(rwbbe
  123. : =;j 0
  124. ( eot odowf nh() ic)elc
  125. e gnb i
  126. n (;l c)d cda ,aerr
  127. s u;: k'=  '
  128. k :;  =0 
  129. d  ;o 8]  1ik  [ufodsota:r r= 1+ki=su:
  130.   dnz oee vh  etsi⌐ kfP'l ' ak=:dusu
  131. b en  gi 
  132. n l;(e)b6tdbia,wrr
  133. k :;=16
  134. e  ;n  d
  135.  
  136. o dnv  ee zh⌐ etPi  'fs)= k'snl uoa:ktdu(
  137. b en  gi 
  138. s u;:k'=6'
  139. d  ;o2] 61ik [ufodsota:r r= 1+ki=su:
  140. s  nkoel7Dha'tdi= ufs'  u :k
  141. b engi6
  142. n l;(e)b7tdbia,wrr
  143. k :;=17
  144. e ;n6d
  145.  
  146. o  nDse'6kh=ltsia ufd)k u'(n  to:
  147. b engi6
  148. s u;:k'=7'
  149. [ d;0a]]7ri)([ fdddoraoror   +kiosu:tus= k:20=
  150. n l;(e)b7tsbiu,wrk
  151. j :;=17
  152.  ed6n
  153. e el6s
  154. {  }k 66a te beinegrigo
  155. s u;:k'=7'
  156. o d;  )k786u79sf 1:oo(=rtrk  hui1cs:=+
  157. n l;(e)b7tsbiu,wrk
  158. e ;n6d
  159. e  ;n  d
  160.  
  161. n e;d 
  162. e s;( o)bclb
  163. e s;( o)cclc
  164.  
  165. t e;( s)breb
  166. t i;e r)(rwcce
  167. : =;l 1
  168. : k;= l''ce0
  169. ( eot odowf nh() ib)elb
  170. e gnb i
  171. n (;l b)d bda ,aerr
  172. k :;  =0 
  173. s u;: k'=  '
  174. d  ;o 8]  1ik  [ufodsota:r r= 1+ki=su:
  175.   e;s z1k  =l d:aiokdfv u en:k⌐e uPh's't =
  176. s u;: k'=  '
  177. d  ;o 2]  1ik  [ufodsota:r r= 1+ki=su:
  178. a l;d k1u s=   ::iok fD ' 'n k=etush
  179.  
  180. a nn  de)  h1 (t=il kf=)( 0
  181. b en  gi 
  182. l :;=06
  183. s u;:k'=6'
  184. o d;  )k686u79sf 1:oo(=rtrk  hui1cs:=+
  185. n l;(e)c6tsciu,wrk
  186. _ e;st)e6('dc2=ce':el,klk
  187. a (;kc)_6e'lleck2de,5=l':k 
  188. a v;r_)p6sk=tl:creke(cl
  189. m e; kk:6ll eekCc5u'+4s=':
  190. n l;(e)c6tsciu,wrk
  191. e t;li)n6rc(wc
  192. k l;:e'=6c0'
  193.  
  194. e  ;n  d
  195.  
  196. l :;  =k 
  197. n l;( e)c tdc ia,wrr
  198. s u;: k'=  '
  199. d an[ re0 (h] dt)ir >fo77 
  200. b en  gi 
  201.   d;8o]75 i k[ofudtosa r:r6 =+6iks=:u
  202. i c;s=)l5:sosu(kuk
  203. c e;ut)o5(sscu=sek:ul,amk
  204. b a;y'ah5)mc u'its=fh=a e:mnnkuo lstce(
  205. e  ;n  d
  206.  
  207. n e;d 
  208. e s;( o)bclb
  209. : s;= u''k
  210.   o;k d)uf 6so89:r71=  (kioru:ths= c+1
  211. ( n;c l)cwes,rtuki
  212. e t;_ ()scc'eee2dll'=kk,:
  213. ( c;a e)kcl'_ekll,2ek'5d: =
  214. v _;a s)rctkperl=l(e:kc
  215.   m;: ek kklule5sec4:C+=''
  216. ( n;c l)cwes,rtuki
  217.  
  218. e s;( o)cclc
  219.  
  220. t i;e r)(rwbbe
  221. t e;( s)area
  222. : =;j 0
  223.   eoj ld=wi 0h
  224. e gnb i
  225. ( n;a l)a dd,raare
  226. d [na 0er ]h(i)tdf> r 51o
  227. e bng  i
  228. ( r;1 h19 c=6 =:)i]j)f2 a [nn(dedrah art(d( r[ )a1d)d]n6[=a95c)10h)(]r6r=(9hc1
  229. e n;  d
  230. w r;  i)n tdeieahflrt n, j(b0=b
  231. n e;d 
  232. e s;( o)bclb
  233.  
  234. ( eot odowf nh() ia)ela
  235. e gnb i
  236. ( n;a l)a dd,raare
  237. ) );a  da ta(ihrffe=o n:en t(okat
  238. t h;  ed) naai rafk=( a:fet2o
  239. n e;d 
  240.  
  241. e s;( o)acla
  242.  
  243. t i;e r)(rwaae
  244. t e;( s)breb
  245. ( eot odowf nh() ib)elb
  246. e gnb i
  247. n (;l b)d bda ,aerr
  248. t h;  e)) nd)  abiwrbfr,( iafntaooe(etln(
  249. n e;d 
  250. e s;( o)bclb
  251. : =;l rdksa
  252.  
  253. t e;( s)crec
  254. : k;= l''ce0
  255.  
  256. ( eot odowf nh() ic)elc
  257. e gnb i
  258. n (;l c)d cda ,aerr
  259. s u;: k'=  '
  260. d  ;o 2]  1ik  [ufodsota:r r= 1+ki=su:
  261. s  nk oel Dha 'tdi= ufs'  u :k
  262. b en  gi 
  263. n l;(e)a6tdaia,wrr
  264. n l;(e)a6tlaik,wrs
  265.   ed  n
  266. e  el  s
  267. b en  gi 
  268. n l;(e)a5tdaia,wrr
  269. s u;:k'=5'
  270. d o;  ]65ki u[ofsdto:a r=r1 k+=ius:
  271. C 'ne=el5shkuteik mf '
  272. b engi5
  273. s u;:k'=7'
  274. d an[re07(h]dt)ir >fo77 
  275. b engi7
  276.   d;8o]79 i k[ofudtosa r:r6 =+5iks=:u
  277. i c;s=)l9:sosu(kuk
  278. c u;eo)t0ss(1=uc:kesa,lumk
  279. b a;y'ah9)mc u'its=fh=a e:mnnkuo lstce(
  280. e ;n7d
  281.  
  282. k o} n {5euct8e cnvo dyp;
  283. e  ;n  d
  284.  
  285. n e;d 
  286.  
  287. : s;= u''k
  288.   o;k d)uf 6so89:r71=  (kioru:ths= c+1
  289. ( n;a l)awes,rtuki
  290. e t;_ ()scc'eee2dll'=kk,:
  291. ( c;a e)kcl'_ekll,2ek'5d: =
  292. v _;a s)rctkperl=l(e:kc
  293.   M;: Ek kKluLe5sEc4:C+=''
  294. ( n;a l)awes,rtuki
  295.  
  296. e s;( o)cclc
  297.  
  298. l e;n t)(wiaar
  299. ( n;a l)awet,rtaki
  300.  
  301. e s;( o)acla
  302.  
  303.  
  304. t e;( s)area
  305. t i;e r)(rwbbe
  306. ( eot odowf nh() ia)ela
  307. e gnb i
  308. n (;l a)d ada ,aerr
  309. s u;: k'=  '
  310. : j;=  87 
  311.   t;j h)< e]) n0]i [0fjd[ :ado=raro(rdrd(
  312. d o;   ]j ki  u[ofsdto:a r=r1 k+=ius:
  313. n l;( e)b tsb iu,wrk
  314. n e;d 
  315. e s;( o)acla
  316. e s;( o)bclb
  317. t e;( s)breb
  318. t i;e r)(rwaae
  319. ( eot odowf nh() ib)elb
  320. e gnb i
  321. ( n;b l)b dd,raare
  322. n (;l a)e adtw,airr
  323. n e;d 
  324. e s;( o)acla
  325. e s;( o)bclb
  326.  
  327. e s;( a)berb
  328. e s;( a)cerc
  329.  
  330. den.
  331.