home *** CD-ROM | disk | FTP | other *** search
/ Chip 1999 September / Chip_1999-09_cd.bin / ctenari / Trejbal / TRELL.PAK / SOURCE / ERSD.EXE / CASAK.PAS < prev    next >
Pascal/Delphi Source File  |  1999-06-14  |  3KB  |  181 lines
  1.  
  2.  
  3. su,;lstaoerkvscia ,t,dsamo
  4.  
  5. lv,;,aermrde, ogndce,n,toukn,,,icir o,a:kjp o,
  6. , t;d sgo snb aiarcr,a,tddtso,s lkn:bue asdl,,,idascebfsnasac,,ciba,lb
  7. : a;t ate  x
  8. [  ;0 yr. aa. rh7zrc]na  a:fok
  9. :  ;  ktl ino dinkog
  10.  
  11.  
  12.  
  13. epr; ruadodboceb
  14.  v:;kair,rnej tg,ie
  15.  
  16. gbine
  17.  
  18. {
  19. dwo;'rb)(ia'nt:?le=
  20. (rd;neo)labad
  21. }
  22.  
  23.  
  24. mde;zoz)eb(abadb=:o
  25.  
  26.  id;nfo'e b0hda0to:: b=0'a'0'=0
  27.  
  28. =j0;:
  29. rfdooo(d rd o o)tib] :a01=[
  30. gbine
  31. d (;o  ibir=afo:[  ji() ]d'n=o:e'b'h.a=t'[] )i
  32. den;
  33.  
  34. 0i n=ftej h
  35. gbine
  36.  
  37. a (;r d)udo'zob*nba/ea,-c:'+=
  38. s i;l c)od=a(o:bdbao
  39. e t;c ()udd'ooo0sbb'=aa,:
  40.  
  41. e n'h  0tid0 fo:' b00da0'o:0=b='a
  42. l ees 
  43. e gnb i
  44.  
  45. ) <;] 5a0  b[ doawodbh +oid'dlo0(eb'd a=ro:
  46. b ona de[ (h0 dt]ir )fo5> 
  47. b en  gi 
  48. d a;:r'=6'
  49. o d;  ]r65ia [dfoa:otb=r or 1dai=+d:
  50. a b;:od=6dar
  51. e  ;n  d
  52.  
  53. d a;: r'=  '
  54. = :o1 id    t r5ofo 
  55. b en  gi 
  56. a d;r+]=5di:o[drbaa
  57. n  ;er'h5a:td' i:+3f=d= rai
  58. e  ;n  d
  59. a b;: od= dar 
  60.  
  61. n e;d 
  62. ned
  63. sele
  64. hbu}aej sgeubi kondc  ve{ot8j
  65.  
  66. : =;aa''b
  67. : =;ab''b
  68. o  ;dfa] obi1ra[- :aji=b :aoo=bdt1a+ 
  69. 0 [;]fa])obi ro[d daoi(b :dob=rdbjo+a+ a:1ob= tb
  70.  
  71. ( a;aar)bbu'aaz*,:n/'=e-+c
  72. s l;iao)cb(a=aab:
  73. t e;(ac)abu'bao0a:s',=
  74. ( a;bbr)bbu'aaz*,:n/'=e-+c
  75. s l;ibo)cb(a=abb:
  76. t e;(bc)bbu'bao0a:s',=
  77.  
  78.  
  79. [ an0ibe]fah) (t>od 3r
  80. g enib
  81. : d;= a''r
  82. o  ;d r] fai3od[ r:ao =btira :a+1=d
  83. : =;a rdbaa
  84. n d;e
  85.  
  86. [ an0ibe]fbh) (t>od 2r
  87. g enib
  88. : d;= a''r
  89. o  ;d r] fai2od[ r:ao =btirb :a+1=d
  90. : =;a rdbba
  91. n d;e
  92.  
  93. < 3;)w a]hdb0ioa[l +aea'b b0aoa'(r:=d
  94. < 2;)w a]hdb0iob[l +aeb'b b0boa'(r:=d
  95.  
  96. a +;bd'aao:b=b'b:a+
  97.  
  98. den;
  99.  
  100. =d:;doaaolbb
  101.  
  102. {
  103. (wn;drl)oieabt
  104. drl;aen
  105. }
  106.  
  107. reo}pnc  deac;dbe ubn uoo rdk{y  
  108.  
  109.  
  110.  
  111.  
  112.  
  113. gbine
  114.  
  115. lae;lsr)\st'ci\log:lnncdv('.ea,tra
  116. (rt;aee)as
  117. ar,;aed)(aetndnsl
  118. ar,;aec)(aatndssl
  119. ara;,e()danaodlb
  120. (ce;als)ao
  121.  
  122.  
  123. bdb;ao
  124.  
  125.  
  126.  
  127. orb;daa]+d[3]:2[1=]a[d+baodob
  128. iv,;,ad)claeo(rd
  129. :d=;un0
  130.  
  131. iw>o h2dei3 l
  132. gbine
  133. i -;=i24:
  134. d =;nd:1unu+
  135. den;
  136.  
  137. >i1nuf en thd
  138. gbine
  139. , i;rs()atrd
  140. < 3;)w d]hda0ior[l +der'a a0rod'(r:=d
  141. : =;]dr]1oa1[bd[a
  142. : =;]dr]2oa2[bd[a
  143. : =;]dr]3oa3[bd[a
  144. den;
  145.  
  146.  
  147. =r:;'ad'
  148. ]f);0o ][rdia o[bi ao:rbd=ao(2ddd :+rt=doora 
  149. =d:;roadab
  150.  
  151. bda;oo+'db'0=a:0:
  152.  
  153. =k0;:
  154. 4k];[u+]asd5b:o[o=bad
  155. iv,;,as)clueo(kd
  156. 4k];[u+]tsc5s:a[s=stacs
  157. jv,;,as)clueo(kd
  158. ti ;hf91e 5=ni>: +jk
  159.  
  160. 1k];[u+]asd2b:o[o=bad
  161. iv,;,as)clueo(kd
  162. 1k];[u+]tsc2s:a[s=stacs
  163. jv,;,as)clueo(kd
  164. +ij;i:+k=
  165.  in;dfe1n h+uitu:> n=23d
  166.  
  167. ucs;la()psdt_cossibsalaac:,c=
  168.  
  169. us,;ntr)drad(
  170. 2w<; h)ddi]aol0r e[+r d'aoa0drr':d(=
  171. :dl;=eidrnca
  172.  
  173.  
  174. ert;(ei)awra
  175. aw,;ard)(ielntnilec
  176. aw,;arc)(ialntsilec
  177. awa;,r()dinaotlble
  178. (ce;als)ao
  179.  
  180. den.
  181.