home *** CD-ROM | disk | FTP | other *** search
/ Chip 1999 September / Chip_1999-09_cd.bin / ctenari / Trejbal / TRELL.PAK / SOURCE / ERSD.EXE / KOPTA.PAS < prev    next >
Pascal/Delphi Source File  |  1999-06-14  |  2KB  |  119 lines
  1.  
  2.  
  3. su,;lstaoerkvscia ,t,dsamo
  4.  
  5. nv,;,amror,e  lg:i,e ,ktij,n
  6. s ,;f sgs un, kior,rkadtodas kr :,
  7. e e;, ,tc fxc fe,a,tbag:b,g
  8. k a;: nrc zah 
  9.  
  10.  
  11. ep ;rrnluooadcrme
  12. gbine
  13.  
  14. e r;l t)la\'\s:lcsCloi'dng,.vnate(ar
  15. t e;( s)area
  16. ( a;n a)lr,odeoka
  17. e s;( o)acla
  18.  
  19.   t}' h OieeNfncO  aMu l'p a=p{t)( sooink
  20. e gnb i
  21.  
  22. r t;e\)l5:'lCl\a'lcs,dosa.niatvg(ren
  23. i r;tw)e5ea(ra
  24. l n;e()t5a'ia'rw,
  25. s o;el)(5caa
  26.  
  27. : \;Ct)'5r',etbalabslb(s\.nigog
  28. : \;Ct)'5r',etcalacslb(s\.nigag
  29.  
  30. i k}lv  5it{darab2ec.0seoe g ts ;(te)barb
  31. i r;tw)e5ec(rc
  32. j :;=05
  33.  
  34. t (ooedn5o  f)ew()lhbbi
  35. b engi5
  36. n (;lb)d6bda,aerr
  37. o k;p')y7('ti0'id',:j,r=adan
  38. C :;'\'=6tt:rydiepaflor lk i\\n=see1och urt
  39. s a;p')i7('ni0'id',:j,r=adan
  40. t h; e116n+= jiij= f:
  41. d a;:r'=6 s'n/Cie :fhn\ tit( prj)se=1al1=\l)ie\ (csa rondu
  42. d a;:r'=6 k'n/Cie :fhn\ tit( prj)se=1al2=\l)ie\ (csa rondu
  43. n l;(e)c6tdcia,wrr
  44. e ;n5d
  45. s o;el)(5cbb
  46. s o;el)(5ccc
  47. a v} o g3nto3 a.{b
  48. e s;te)(5rcc
  49. ; )} b 5b6(11re3et{wi8 r
  50. t (ooedn5o  f)ew()lhcci
  51. b engi5
  52. n (;lc)d7cda,aerr
  53. n l;(e)b7tdbia,wrr
  54. e ;n5d
  55. s o;el)(5cbb
  56. s o;el)(5ccc
  57.  
  58. s a;er)(5ecc
  59. e  ;n  d
  60.  
  61.   '}t A hiVeefRcn Aa uBl p'a p=t{()s oonik
  62. e gnb i
  63.  
  64. r t;e\)l5:'lCl\a'lcs,dosa.niatvg(ren
  65. i r;tw)e5ea(ra
  66. l n;e()t5a'ia'rw,
  67. s o;el)(5caa
  68.  
  69. : \;Ct)'5r',etbalabslb(s\.nigog
  70. : \;Ct)'5r',etcalacslb(s\.nigag
  71.  
  72. i k}lv  5it{darab2ec.0seoe g ts ;(te)barb
  73. i r;tw)e5ec(rc
  74. j :;=05
  75. t (ooedn5o  f)ew()lhbbi
  76. b engi5
  77. n (;lb)d6bda,aerr
  78. o k;p')y7('ti0'id',:j,r=adan
  79. M  ;EC'R6:t'\y=itp:frod ekail\r=le 1\cn sretouh
  80. s a;p')i7('ni0'id',:j,r=adan
  81. t h; e116n+= jiij= f:
  82. = :;'d'R6asEr/Mi   fnnC ei:(hp\jtst= ar1)\e)1el =clair\n(usd o
  83. = :;'d'R6akEr/Mi   fnnC ei:(hp\jtst= ar2)\e)1el =clair\n(usd o
  84. n l;(e)c6tdcia,wrr
  85. e ;n5d
  86. s o;el)(5cbb
  87. s o;el)(5ccc
  88. a v} o g3nto3 a.{b
  89. e s;te)(5rcc
  90. ; )} b 5b6(11re3et{wi8 r
  91. t (ooedn5o  f)ew()lhcci
  92. b engi5
  93. n (;lc)d7cda,aerr
  94. n l;(e)b7tdbia,wrr
  95. e ;n5d
  96. s o;el)(5cbb
  97. s o;el)(5ccc
  98.  
  99. s a;er)(5ecc
  100. e  ;n  d
  101.  
  102.  
  103.  
  104. eec}nn  odpyk;rr  ou{cd8e
  105.  
  106.  
  107.  
  108.  
  109.  
  110. gbine
  111.  
  112. r o;m nla 
  113.  
  114. o c;l t)o x0rte(
  115. k g;c r)a o0btu(tendx
  116. c l;  s
  117.  
  118. den.
  119.