home *** CD-ROM | disk | FTP | other *** search
/ Chip 1999 September / Chip_1999-09_cd.bin / ctenari / Trejbal / TRELL.PAK / SOURCE / ERSD.EXE / COMPIL.PAS < prev    next >
Pascal/Delphi Source File  |  1999-06-14  |  2KB  |  181 lines
  1.  
  2.  
  3. cur;,stase,vossod l
  4.  
  5. ov,;,anrcr,eo mgkj,eo,et,pdnkaoiorc n,,:,kl u,
  6. l  ;o :tn  ng ii
  7. d a;, rgk ,nu kisndr,aatszrsf,, sp2:,rz piabapnrr,,aacsp,i
  8. s t;  r]: i1  n[zzg
  9. e e;, ,tc fxc fe,a,tbag:b,g
  10. s t;, rrk saa :hnzc
  11.  
  12.  
  13.  
  14.  
  15. epr; ruisodnecek
  16. zbs}oee rgku ial{nnj ia2 f8
  17.  
  18. a (;a n),agapsiras
  19. ' t;= r':nelzal
  20. = ';: .'pptzirr
  21. = :;' s'0ci0
  22.  
  23. t e;( s)area
  24. : =;j 0
  25.   eoj ld<wi 3h
  26. e gnb i
  27. i :;  =0 
  28. z a;+ npc =ii :rsksp+u
  29. n (;g b)i bss ,usak
  30.  
  31. i r;t w)e eb( rb
  32.  5o0 d2 ) 1  )<wa3ihn<(idj l (e
  33. b en  gi 
  34. : =;ii16+
  35. a (;ad),6akzeanr
  36. f (noaee6ah )tfi 
  37. b engi6
  38. : =;jj17+
  39. s :;r=kt7zasn
  40. e ;n6d
  41. o enf(e(6thaotain )f )
  42. b engi6
  43. d  ;oj) 7 sworrfttio str2,e =b(k:b
  44. j :;=07
  45. e ;n6d
  46.  
  47.   w;nr)e6ikhtatien f(z2 b,<jb
  48.  
  49. e  ;n  d
  50. s o;e l)( cbb 
  51.  
  52. s i;, c)k (e, ldcvao
  53. : =;k k1  +
  54. ( k;r ,)t css i
  55. ) ];< 0s2 [i  scdwi+ohc' i(0cld'ier=s o:
  56. n e;d 
  57.  
  58. e s;( o)acla
  59. ] 5;: ['=ksk'u
  60. ( b;e b)mr,saekun
  61.  
  62. een}cno  dkyp; rr {uodc21e
  63.  
  64.  
  65.  
  66.  
  67.  
  68.  
  69.  
  70.  
  71.  
  72. 2p}1r{ o u csl;epjjdoaoujfpre seni 
  73. gbine
  74.  
  75. b (;b n),agapsiras
  76. ' t;= r':nelzal
  77. ' =;t :'rn2keazl
  78. = ';: .'pptzirr
  79. = :;' s'0ci0
  80.  
  81.  
  82. t i;e r)(rwbbe
  83. n :;o =0k
  84.  
  85. : =;u 0
  86.   eou ld<wi 1h
  87. e gnb i
  88.  
  89. + z;c apiknisu=r+s:p
  90. ( a;n a)ga,siskus
  91.  
  92. 2 +;z cpakiinusr=s+p:
  93. s ,;u G)kse)(ft'hsEhc:ntr=vaaf(pes'
  94. ' );'  1=it=sfh:f ensnno(o kt
  95. n =no 1eki h ft
  96. e gnb i
  97. ( n;a g)a is,asuks
  98. : u;=  1
  99. n e;d 
  100.  
  101. : =;j 0
  102.  
  103.  1}* 2  {
  104.  
  105. t e;( s)area
  106.   eoj ld<wi 3h
  107. e gnb i
  108. : =;i i1  +
  109. a (;a d), akz eanr
  110. f (no aee ah  )tfi 
  111. b en  gi 
  112. : =;jj16+
  113. s :;r=kt6zasn
  114. e  ;n  d
  115. o enf (e( tha otain )f )
  116. b en  gi 
  117. d  ;oj) 6 sworrfttio str2,e =b(k:b
  118. j :;=06
  119. e  ;n  d
  120.  
  121.   w;n r)e ikh tatien f(z2 b,<jb
  122.  
  123. n e;d 
  124. e s;( o)acla
  125.  
  126. , s;k i),vceca(dol
  127. = k;: +1k
  128. k ,;( c)rsist
  129. < );2 ]s w0idh[cois+ li'cec0i ('sod=:r
  130.  
  131.  1}* 2  {
  132.  
  133. n e;d 
  134. e s;( o)bclb
  135.  
  136. een}cno  dkyp; rr {uodc21e
  137.  
  138.  
  139.  
  140.  
  141.  
  142. abc}tea egzuki m n{ap rr3go9
  143.  
  144. a r;p at= mn:pcurao
  145. a r;p a)= m1:ps(aatrr
  146. p (;a p)r p)apu2ma=(sr:rtb
  147.  
  148.    {
  149. r a;: p2= 
  150. = ';: y'a .zrptra
  151. b :;r ='a 'Sp
  152.    }
  153.  
  154. r an> pe0  h ift
  155. e bng  i
  156.  
  157. k c;g a)r b4o t(utxdne
  158. o c;l t)o x1r e1(t
  159. c  ;l  s
  160. y x;( o)3 t23 o1,g
  161. ç k;y e)V j'' tm(weínr slipoetr
  162. y x;( o)4 t40 o2,g
  163.  
  164. R ';'  i= tnb hkrieeafnsp  
  165. S ';' =j  bot rphiasefp n 
  166.  
  167. k c;g a)r b4o t(utxdne
  168. c o;t l)x o4e r(t
  169. c  ;l  s
  170.  
  171. e  dn 
  172. e le  s
  173. e bng  i
  174. i r;t wne  l
  175. i r;t wne  l
  176. r  ;" r)  o'r biowujzroosispet skel ali",nps (m "'orcScooy"bmn upt:oia slxe 
  177. i r;t wne  l
  178. e n;  d
  179.  
  180. den.
  181.