home *** CD-ROM | disk | FTP | other *** search
/ Chip 1999 September / Chip_1999-09_cd.bin / ctenari / Trejbal / TRELL.PAK / SOURCE / ERSD.EXE / CAS.PAS < prev    next >
Pascal/Delphi Source File  |  1999-06-14  |  2KB  |  98 lines
  1.  
  2.  
  3. su,;lstaoerkvscia ,t,dsamo
  4.  
  5. svt;tatr,r,ek lg,z,ebamtbk,nzani,z, j,o:,h, iony,povp
  6. a r;d ,gk kn, eirctralytdobs,vz ke,:uko s,ls,hsfse
  7. e e;, ,tc fxc fe,a,tbag:b,g
  8. k a;: nrc zah 
  9.  
  10.  
  11.  
  12. ep ;rrdyuoamdctue
  13. evs;ca,r,rwer pgoioek,kt,j,nm,eiehd s,o:,mc d,,nes
  14. y  ;y :t,  xx tex
  15. p o;o ,g, sno sipdaraactrt,s um :m
  16.  
  17. gbine
  18.  
  19. rtg;oek)uxc0nta(db
  20.  
  21. =z:;'nk'Na
  22. awkonh=dzi'  lN'e
  23. gbine
  24.  
  25. rtg;oek)uxc0nta(db
  26. scc;rlr
  27. er ;cad)kma'eutTrjuFo(mOK2uS', L,1aL0, E,7cR09aT,,s'72u,,5'
  28.  
  29. dda;=at):tu4mum(m
  30. cca;=as):s(2s
  31.  
  32. dd=;ax:mt[]mu1
  33. :d];=x2''[
  34. =d:;cx]sa[3s
  35.  
  36. spe;nln'íods t ad:eca=t t'zauVo ml
  37. ídn; ds'D[e A1n:T]D U:' M=
  38. :d=;]d''2[ 
  39. sde;ndr'y[P  3 :C]  A:' S=
  40. 1d,;2o0),p(13lt,,ni4
  41.  
  42. rtg;oek)uxc0nta(db
  43. scc;rlr
  44.  
  45. =d:;dam]xtm1[u
  46. dc=;xa:][ss3
  47. arl; ao)dmr'autTtjnFu(oOm2KSu,'L 1,La,0E 7,Rc90Ta,,'s27,u5,'
  48.  
  49.  pd;íla'notsstuae:mcn=  D'a
  50. ídn; ds'D[e A1n:T]D U:' M=
  51. :d=;]d''2[ 
  52. sde;ndr'y[P  3 :C]  A:' S=
  53. ,d7;0o,)(p30tl,,in1
  54.  
  55. íd ;sdt'a[y?l1t h]oeu: jo=úaS'd
  56. (z0;en,)na11_k4,o:,4n=1,a
  57. hie;tfn'   N'zz'Xnn='aa:=kk
  58.  
  59.  
  60. :kw;=op1
  61. doa;=ptm:aumr
  62. 1o];[p+]roo2a:p[p=aro
  63. evd;na,),loec(pdoo
  64.  i);tf00h ==ene:nodw topk(co
  65. 4o];[p+]roo5a:p[p=aro
  66. evm;sa,),loec(pdoo
  67.  i);tf00h ==ene:nodw topk(co
  68. ]o8;+p[]oor0p:a1a=p[roor[p+a9a]p]r7o+[
  69. ovr;ka,),loec(pdoo
  70.  i);tf00h ==ene:nodw topk(co
  71. Dit;afe)t Snek e(ondrpe,owhsk=te,1 m
  72.  
  73. :kw;=op1
  74. =oc;:pasras
  75. 1o];[p+]roo2a:p[p=aro
  76. hv,;,ao)clpeo(od
  77.  i);tf00h ==ene:nodw topk(co
  78. 4o];[p+]roo5a:p[p=aro
  79. mv,;,ao)clpeo(od
  80.  i);tf00h ==ene:nodw topk(co
  81.  
  82. tie;TfS)i  0mkn0eoe,(ph0Hwt0,= ,M1
  83.  
  84.  
  85.  
  86. den;
  87.  
  88. eec}nn  odpyk;rr  ou{cd9e
  89.  
  90.  
  91.  
  92.  
  93. gbine
  94.  
  95. udm;tay
  96.  
  97. den.
  98.