home *** CD-ROM | disk | FTP | other *** search
/ Chip 1999 September / Chip_1999-09_cd.bin / ctenari / Trejbal / TRELL.PAK / SOURCE / ERSD.EXE / STRUCNE.PAS < prev    next >
Pascal/Delphi Source File  |  1999-06-14  |  2KB  |  121 lines
  1.  
  2.  
  3. su,;lstaoerkvscia ,t,dsamo
  4.  
  5. nv,;,amror,e  lg:i,e ,ktij,n
  6. , k;d uga snr ,i,scr2uetdmlsaak r,,:,rs 1afsd
  7. e e;, ,tc fxc fe,a,tbag:b,g
  8. k a;: nrc zah 
  9.  
  10.  
  11.  
  12. gbine
  13.  
  14. e r;l t)la\'\s:lcsCloi'dng,.vnate(ar
  15. ' ,;t b)eab'rs(1rsn0yig_
  16. ' ,;t c)eac'rs(2rsn0yig_
  17.  
  18. t e;( s)area
  19. t i;e r)(rwbbe
  20.  
  21. : =;j 0
  22. : =;l 0
  23. 1 :;d ='ar'
  24. 2 :;d ='ar'
  25. : d;= a''r
  26. a :;m ='us'
  27.   eoj ld<wi 2h
  28. e gnb i
  29.  
  30. : 2;= d1r adar
  31. 1 :;d =da rar
  32. ( n;a l)a dd,raare
  33.  
  34. = 0nj  e   hfit
  35. e bng  i
  36. : =;ll15+
  37. [ 2nd]ea5+hrrt+ia ]fd)1 ['[n3ddo]óat)Kr(='(
  38. b engi5
  39. w r; i)n6t2eedhilatfnr  (,2lbb>
  40.  ed5n
  41. e s; l1j5e=:
  42. e n;  d
  43.  
  44. = jn1  e  fhti
  45. e bng  i
  46. a dnr[e(50hd]tri) of>3 
  47. b engi5
  48. ] 2n+[er5dhaatdir [f+'3 ]d](1ó)r[K=ad'
  49. b engi5
  50.  
  51. ─ ;'3),75)b1bw'9(r+1nic(lthre
  52.  
  53. s u;:k'=7'
  54. a rnd(e27th=ot'in 'f )
  55. b engi7
  56. [ 0;2]]d8)ia [rfd2(ooddr ar kroiu+ :sso=:ut1=k 
  57. a k;(_)k8l'ueskd2,u 8's= :
  58. v e;_l)s8=st:urksk(u
  59. d :;a=sr8ku
  60. s u;:k'=8'
  61. a m;:ud=8sar
  62.  ed7n
  63. r a; dae7:ms=ules
  64.  
  65. [ 0;1]]d7)ia [rfd1(ooddr ar kroiu+ :sso=:ut1=k 
  66. a k;(_)k7l'ueskd2,u 4's= :
  67. v e;_l)s7=st:urksk(u
  68. = r;:asd7dua+kr
  69. n l;(e)b7tdbia,wrr
  70. e ;n5d
  71. e ;n5d
  72.  
  73. s u;:k'=5'
  74. a dnr[e(50hd]tri) of>8 
  75. b engi5
  76. d o;  ]85ki u[ofsdto:a r=r1 k+=ius:
  77. e Cnl'ek5=hestmiu  fk': 
  78. b engi5
  79. n (;lb)e6b1t,diwrar
  80. n l;(e)b6tdbia,wrr
  81. e ;n5d
  82. e ;n5d
  83.  
  84. s u;:k'=5'
  85. a dnr[e(50hd]tri) of>8 
  86. b engi5
  87. d o;  ]85ki u[ofsdto:a r=r1 k+=ius:
  88. E CnL'eK5=hEstMiu  fk': 
  89. b engi5
  90. n (;lb)e6b1t,diwrar
  91. n l;(e)b6tdbia,wrr
  92. j :;=26
  93. e ;n5d
  94. e ;n5d
  95.  
  96. e n;  d
  97. n e;d 
  98.  
  99. ( eot odowf nh() ia)ela
  100. e gnb i
  101. ( n;a l)a dd,raare
  102. n (;l b)e bdtw,airr
  103. n e;d 
  104.  
  105. e s;( o)acla
  106. e s;( o)bclb
  107.  
  108. t i;e r)(rwaae
  109. t e;( s)breb
  110. ( eot odowf nh() ib)elb
  111. e gnb i
  112. n (;l b)d bda ,aerr
  113. n l;( e)a tda ia,wrr
  114. n e;d 
  115. e s;( o)acla
  116. e s;( o)bclb
  117.  
  118. e s;( a)berb
  119.  
  120. den.
  121.