home *** CD-ROM | disk | FTP | other *** search
/ Chip 1999 September / Chip_1999-09_cd.bin / ctenari / Trejbal / TRELL.PAK / SOURCE / ERSD.EXE / CARBON.PAS < prev    next >
Pascal/Delphi Source File  |  1999-06-14  |  2KB  |  145 lines

  1.  
  2.  
  3. cur;,stase,vossod l
  4.  
  5. nv,;,aormr,e, cglioe,,ktkjon,, irp: a
  6. , s;p fga snr ,iarsr,autpdksak, r,d:bra 
  7. e e;, ,tc fxc fe,a,tbag:b,g
  8. k a;: nrc zah 
  9.  
  10.  
  11.  
  12. ep ;rrkjuoojdcdue
  13. gbine
  14.  
  15. e l;ral)ts\'\scl:iolcgnd'nv.,(etaar
  16. e r;lat)ls\'\s:teicxpg'tpn,.o(bspb
  17.  
  18. o :;kc=0o
  19. > rn1iae fpht 
  20. g enib
  21. : =;s pbu ark
  22. u p;= p): (sskkuu
  23. s [nu 0ek ]h(i)tdf< r 83o
  24. e bng  i
  25. n (;ga)i5ass,usak
  26. ' ,;eb)p5b'p(toanxpsgtssi.
  27. k o;oc1:5=
  28. e n;  d
  29. n d;e
  30.  
  31. C ';:i='\f:lt slrcudeok.lk tlonr\=eec0hvo tn
  32.  
  33. s ,;u G)kse)(ft'hsEhc:ntr=vaaf(pes'
  34. f sns =e(i'htf'to ) n
  35. e gnb i
  36.  
  37. e t;s ()e aar
  38. i t;r e)w (berb
  39. ( toe odo n fw )(he)aila
  40. e bng  i
  41. n (;l a)d ada ,aerr
  42. t  ;h 1)e >dn )a i]rrf0(a [jdodu:rad=drok(
  43. n l;( e)b tdb ia,wrr
  44. e n;  d
  45. s e;o ()l aac
  46. s e;o ()l bbc
  47.  
  48. e t;s ()e bbr
  49. i t;r e)w (aera
  50. ( toe odo n fw )(he)bilb
  51. e bng  i
  52. n (;l b)d bda ,aerr
  53. n l;( e)a tda ia,wrr
  54. e n;  d
  55. s e;o ()l aac
  56. s e;o ()l bbc
  57. s e;a ()r bbe
  58.  
  59. n e;d 
  60.  
  61.  ec}pne rdnyo;orc kue{ d
  62.  
  63.  
  64.  
  65.  
  66.  pd;erejrokjucouded
  67. gbine
  68.  
  69. e l;ral)ts\'\scl:iolcgnd'nv.,(etaar
  70. e r;lat)ls\'\s:teicxpg'tpn,.o(bspb
  71.  
  72. o :;kc=0o
  73. > rn1iae fpht 
  74. g enib
  75. : =;s pbu ark
  76. u p;= p): (sskkuu
  77. s [nu 0ek ]h(i)tdf< r 83o
  78. e bng  i
  79. n (;ga)i5ass,usak
  80. ' ,;eb)p5b'p(toanxpsgtssi.
  81. k o;oc1:5=
  82. e n;  d
  83. n d;e
  84.  
  85. C ';:i='\f:lt slrcudeok.lk tlonr\=eec0hvo tn
  86.  
  87. s ,;u G)kse)(ft'hsEhc:ntr=vaaf(pes'
  88. f sns =e(i'htf'to ) n
  89. e gnb i
  90.  
  91. e t;s ()e aar
  92. i t;r e)w (berb
  93. ( toe odo n fw )(he)aila
  94. e bng  i
  95. n (;l a)d ada ,aerr
  96. h t;e  )n 1d  >ari)raf](d 0j:o[u=rddddaoe(rk
  97. n l;( e)b tdb ia,wrr
  98. e n;  d
  99. s e;o ()l aac
  100. s e;o ()l bbc
  101.  
  102. e t;s ()e bbr
  103. i t;r e)w (aera
  104. ( toe odo n fw )(he)bilb
  105. e bng  i
  106. n (;l b)d bda ,aerr
  107. n l;( e)a tda ia,wrr
  108. e n;  d
  109. s e;o ()l aac
  110. s e;o ()l bbc
  111. s e;a ()r bbe
  112.  
  113. n e;d 
  114.  
  115.  ec}pne rdnyo;orc kue{ d
  116.  
  117.  
  118.  
  119.  
  120. gbine
  121.  
  122.  
  123. a r;p at= mn:pcurao
  124. ={:}2 r ; a   p 
  125. a r;p a)= m1:ps(aatrr
  126. a r;p a)= m2:ps(batrr
  127.  
  128. :{=;a ''r 02a 78p
  129. l a}k d s . 'pt =ax;:rt'b
  130.  
  131. r an> pe0  h ift
  132. e bng  i
  133.  
  134. : =;s pau ark
  135. u p;= p): (sskkuu
  136. 0 8j' 7j  0uti'dhf=oe sknku 
  137. e le  s
  138. e bng  i
  139. '  ;2 tj8 hj7ieu0fnd'  o=kdksue
  140. e n;  d
  141.  
  142. e n;  d
  143.  
  144. den.
  145.