home *** CD-ROM | disk | FTP | other *** search
/ Chip 1999 September / Chip_1999-09_cd.bin / ctenari / Trejbal / TRELL.PAK / SOURCE / ERSD.EXE / HUGO.PAS < prev    next >
Pascal/Delphi Source File  |  1999-06-14  |  2KB  |  154 lines
  1.  
  2.  
  3. cur;,stase,vossod l
  4.  
  5. mv,;,alrnr,e, egoide,,otcjcno,,ikpk oa,: r
  6. a ,;x xg, bns ,ifrxrsact,d,sskx u,d:kr, ,axed
  7. : a;t ate  x
  8. [  ;0 yr. aa. rh7zrc]na  a:fok
  9. :  ;  ktl ino dinkog
  10.  
  11.  
  12.  
  13.  
  14.  
  15.  
  16.  
  17.  
  18.  
  19. gbine
  20.  
  21. lae;lsr)\st'ci\log:lnncdv('.ea,tra
  22. (rt;aee)as
  23. ara;(e,)nardlda
  24. (ce;als)ao
  25.  
  26.  
  27. mre;zaz)ed(db:ra=
  28.  
  29. =x';:a'
  30. =x';:b'
  31. =x';:c'
  32.  
  33. =k0;:
  34. ria;(:d)d=[]ro0
  35. iw o>hed0il 
  36. gbine
  37.  
  38. ]v,;iaj)[l,ed(cdaro
  39. niandf e  )h((0tkc= =oe)0d
  40. gbine
  41. a no  dd)w  0h()>ic0ilo=(ede 
  42. e gnb i
  43. a d;r [b= ix:x]+b
  44. = :;i i1- 
  45. i [;] d), aejvrd,a(ocl
  46. n e;d 
  47.  
  48. =k2;:
  49.  ec}oni rdshp;lc  aic ce9panpno{ozk  
  50.  
  51.  
  52. aix;:f a= nxrke+a=h]d0ti[ 
  53.  
  54. ti ;hf)ce 0xn(>+ ki]x=(ic2 [:)dd= nara
  55.  
  56. ii-;=:1
  57.  
  58. neo}enk cd y ;{ks cm8y
  59.  
  60.  
  61. eih}nft    to0e2r>c1d)o(]p{x0y b[v
  62. gbine
  63.  
  64. dvi;oak)kl,e,(cdbxo
  65. kko;=od1:di+kik
  66. isd;kto),rkdx(
  67. xw(;bhdd[irx0lo+]e<') )0 o]'dr0=od[: (ddxx
  68.  
  69. oirn>fde) (h]oxt0rb [d[)d(0]x
  70. gbine
  71. e n;hi )tfxc  ex)n:('o=z'tbe=(emcxz
  72. 0 ])[i)ccf xx t((ohzdreerdnmo( z<xxe)ecb][:=0
  73. l see
  74. g enib
  75. e h;n t) i axf)xe '(:n'z=o=ebtame(xz
  76. 0 [)] aa)ixx f((t dzhoreeromnd<z ()exx]bae0=:[
  77. l ees 
  78. e gnb i
  79. a +;x xc=xdx:e+
  80. e [nx 0e( ]hd )tri> of12 
  81. b en  gi 
  82. d :;x='6'
  83. d r;(odx6<xb)+[w]'0h00]i[')ld= ex:d (doodx r
  84. e  ;n  d
  85. n e;d 
  86. n d;e
  87. cet}onu pd bp;pxe p,rrap4ox 1  czie{knn reokack
  88.  
  89. =xx;:bd
  90.  
  91. ned
  92. sele
  93. gbine
  94.  
  95. =m1;:
  96. pxp;(au)x:=a
  97.  
  98. xi(;a:d)[=r]0o
  99. iw o>hed0il 
  100. gbine
  101.  
  102. 1i n=ftem h
  103. gbine
  104.  
  105.   0;ti9'hf>Ze )'no]= ri:xd[]a(ai[x
  106.   5;ti6'hf<Ae )'no]= ri:xd[]a(ai[x
  107. ( x;dja)r:[]o=i
  108. c h;=xr):a(1][j+i
  109. = :;0m
  110. i [n]iae)fxh> (t9od 0r
  111. g enib
  112. ] i;: ['= aA'x
  113. : m;=  1
  114. n d;e
  115. neo}enk cd 1 ;{=p mr2 o0
  116.  
  117. ii-;=:1
  118.  
  119. den;
  120.  
  121. ]i);0f<a[ 1xa(2+xm)'(= Ad1t'r)h=o e:(ana n xd
  122.  
  123.  eo}vnr ydpap; xo c ceue9nktoa {knz 
  124.  
  125.  
  126.  
  127. {
  128. ewt;lrin
  129. (w';erl)ti'
  130. (wr;era)tid
  131. nw(;lr')eil't
  132. (w';erl)ti'
  133. (we;xrt)ai
  134. nw(;lr')eil't
  135. (w';erl)ti'
  136. (we;xrt)bi
  137. nw(;lr')eil't
  138. (w';erl)ti'
  139. (we;xrt)ci
  140. nw(;lr')eil't
  141. drl;aen
  142. }
  143.  
  144. +rc;xaxabd=x+:
  145.  
  146. 1w2;<h d)ida]lor0e +[ r'doa ard'rd:=(
  147.  
  148.  
  149. ert;(ei)awra
  150. aw(;arn),ildrtea
  151. (ce;als)ao
  152.  
  153. den.
  154.