home *** CD-ROM | disk | FTP | other *** search
/ Chip 1999 September / Chip_1999-09_cd.bin / ctenari / Trejbal / TRELL.PAK / SOURCE / ERSD.EXE / ASPIN.PAS next >
Pascal/Delphi Source File  |  1999-06-14  |  7KB  |  354 lines
  1.  
  2.  
  3. su,;lstaoerkvscia ,t,dsamo
  4.  
  5. nv,;,amror,e  lg:i,e ,ktij,n
  6. s u;, kgs ,nf disrar art:d,s k
  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 i;e r)(rwaae
  16. ( a;n a)lw,'er'"ti"
  17. e s;( o)acla
  18.  
  19. g k;r c)ota0ueb(nxtd
  20. l c;s 
  21. t a;i L'nd I2d,I,[iC 2cSW]íAi:n n=e,d'msoKaw
  22. S T;Y É'SdMY dUNO[ RH5OÅÉ]BKN:SSR=LIª'UTPPH DOY
  23. ] 4;: ['=dd'
  24. é v;h i'odji doct[kai3ols]pak:stu=us,' n dtizou vsoeoántlh
  25. n  ;e d'pduuodsrd[oêa1db⌐] ÿi:mvl=á o'vi P czoeoaksm u opd
  26. 0 ,;( 4)oo,4nk5,n
  27. A C;L E)Ar 'TaT9SmI6NuS IjK9'(Å3,2R40,N ,1Y10,'6,7,929' 1,0/,22 5
  28.  
  29. P  ;O t'Dda?Pdv ª[okR1lsN]ai¥:tt =s S'noYCirSh pTce ÉetM
  30. e (;n 0)_z,2on1,na51ak,,=:1
  31.  
  32. n  }e  hi5etfc  {a'z lAnia'ant=ks
  33. e gnb i
  34. k c;g a)r b0o t(utxdne
  35. l r;c sr  c
  36. , ';0 I), N'0 S',rT,3aA',mLY5uAN2jCR,(EÅ92 K7,TS,1I
  37.  
  38. N E;T  'E auR  n dirzdmáe[ak 1kss]pie:itz=¿ n' iaVe¿mytaubrv e
  39. é  ;r j'e eat  lkdph drou[am 2v ,]dyu:êbo=p n'oeindæjeo  bb,ioné 
  40. p  ;o t'd a.o vebdo¿ndkaê[iv,3n  ]uaj:mta=o k'ko
  41. ( 0;o ,)n 34n ,,ko3
  42.  
  43. w l;e e'H td' tr=d-a:dPk][ac1
  44. e j;h 'e54ll2á d'zud=rn[:ei2]v
  45. e j;h 'e5 ll9á d'zud=rn[:ei3]v
  46. n o; s'F5p5XE8 d' -d=/ [: 84]0
  47. n o; s'F5pMXEB d'I1d= 0[:/05]0
  48. ' =;E :'p ]Xs 6Lod[ nd
  49. a r;t  'S F5' R1=d  :d1/][0 7
  50. r a;  t'L S0C '2 d=/1d:50[]1/8
  51. I C;I S'  Ai- 'c d=íKd:na[]em9
  52. r u;Z ¿'  i ' tu=d r:dpo][op01d
  53.  
  54. e r;b t'y euV  n'ptr=liá:oskt
  55. u (;n 0)m ,5_ 14pk03uu,2os11l:0,s=,1 
  56.  
  57. k un( set =ho 'tni'  f)
  58. b en  gi 
  59.  
  60. k c;g a)r b0o t(utxdne
  61. l r;c sr  c
  62. L A;A C)T E'S  9NrT6IaI 'mS9,uK30jÅ4,(R 02N1,,Y621'91,, ,7'/590 2,2
  63.  
  64.  
  65. w l;e e'H td' tr=d-a:dPk][ac1
  66. e j;h 'e54ll2á d'zud=rn[:ei2]v
  67. e j;h 'e5 ll9á d'zud=rn[:ei3]v
  68. n o; s'F5p5XE8 d' -d=/ [: 84]0
  69. n o; s'F5pMXEB d'I1d= 0[:/05]0
  70. ' =;E :'p ]Xs 6Lod[ nd
  71. a r;t  'S F5' R1=d  :d1/][0 7
  72. r a;  t'L S0C '2 d=/1d:50[]1/8
  73. I C;I S'  Ai- 'c d=íKd:na[]em9
  74. r u;Z ¿'  i ' tu=d r:dpo][op01d
  75.  
  76.  
  77. )  }] t 0 he1 ec[inadf ld  a=n tso{sut nk(i
  78. b en  gi 
  79.  
  80. r t;e\)l5:'lCl\a'lcs,dosa.niatvg(ren
  81. i r;tw)e5ea(ra
  82. , ';a")a5k'(a"nwmilreceinít
  83. s o;el)(5caa
  84.  
  85. : \;Ct)'5r',etbalabslb(s\.nigog
  86. : \;Ct)'5r',etcalacslb(s\.nigag
  87.  
  88. i k}lv  5it{darab2ec.0seoe g ts ;(te)barb
  89. i r;tw)e5ec(rc
  90. t (ooedn5o  f)ew()lhbbi
  91. b engi5
  92. n (;lb)d6bda,aerr
  93. j :;=06
  94. m s;a')r7('ti0'id',:j,r=adan
  95.   t;ihi<6e=jn: i jf
  96. h e;'x)(6x'i'0di,'j:r,a=adn
  97.   t;ihi<6e=jn: i jf
  98. s a;p')i7('ni0'id',:j,r=adan
  99.   t;ihi<6e=jn: i jf
  100. e n;h )t6wd ra)iir1ft,= ecjnlc(on(t
  101. e ;n5d
  102. s o;el)(5cbb
  103. s o;el)(5ccc
  104. a v} o g3nto3 a.{b
  105. e s;te)(5rcc
  106. ; )} b 5b6(11re3et{wi8 r
  107. e l;rl)t5\'\ss:wo/cru 'irn,tcibeepbl\s(na
  108.  
  109. b ,;b')(5c'n:3li\keftit r/ike rultwslr =\andsmedosh[u\t1re ]c
  110. l e;lr)\5t's\toi:sufc4r '2ck,reubg\sb\h=(eedncxdlrx[eu 2toc]is: r\\twlth lrene
  111. l e;lr)\5t's\toi:sufc9r '_ck,reubg\sb\h=(eedncxdlrx[eu 3toc]is: r\\twlth lrene
  112. l e;lr)\5t's\xoi:fufc-r 'sck,peube\sb\h=(eedncxdlrx[eu 4toc]is: r\\twlth lrene
  113. l l;\e)s5r'ot5ui\1rf:xc cfek'-\u,shsbpe=bexd(\xdne [lcc5er:]tu\ iottrsrhw\ee lln
  114. l e;lr)\5t's\xoi:lufc-r 'sck,peube\sb\h=(eedncxdlrx[eu 6toc]is: r\\twlth lrene
  115. l l;\e)s5r'oteui\5rf:1c crek'f\u,-hsbte=bsxd(\xdne [lcc7er:]tu\ iottrsrhw\ee lln
  116. l l;e\)r5s'to0\iu1:frcc cl'ke-,u\tbshsb=e\(dxendxcl[ re8cut]:oi \srtt\whrl eeln
  117. e r;lt)l5\'\:1siccof'su ,arkb\cubees(c\=nrhdluedeox[tsx9i\ ]rlc wl:t e\hnrte
  118.  
  119. e l;rl)t5\'\sk:wo/cru 'irn,tcibeepbl\s(na
  120. t (ooedn5o  f)ew()lhcci
  121. b engi5
  122. n (;lc)d7cda,aerr
  123. n l;(e)b7tdbia,wrr
  124. e ;n5d
  125. s o;el)(5cbb
  126. s o;el)(5ccc
  127.  
  128. s a;er)(5ecc
  129.  
  130. k c;g a)r b0o t(utxdne
  131. l r;c sr  c
  132. N O;Ç K)E U'N ''Ar,, a0'Im,YNu0NSj,RT(3ÅA2,KL,5SA12IC,,TE79 
  133.  
  134. u s;p ƒ's tk  esud ivdpto[r n1oiz]gl :rha=ao 'mmeN, ty ienasçíb n yeoustk
  135. !  ;! r'  ots zatdohadPír[ bt2-o ] rp:tpr=e o'¿ygúudrsoæapkvmêz u¿yí nvsmê u
  136. n p;u a't z.o  uudeo dsnt['ri3=ás]:k
  137. 4 [;] d': d'= 
  138. o k;r  'e e.k nItdkCndsïê[iN 5tEp] Mo:íAu=nKz'y eSnu y dvsmó ték
  139. ( 0;o ,)n 64n ,,ko5
  140.  
  141.   a;s r'y o s p tddkédosm[Piu1 t ]  p:'or=
  142. 2 ];[ :sd =ud k
  143. a  ;l  'y iab nn'dsá=dtv:[ao]3l
  144. y x;( o)3 t23 o2,g
  145. k c;g a)r b0o t(utxdne
  146. c o;t l)x o3e r(t
  147. v r;t â)o t'P eR'w E(r TeiENt
  148. _ n;n o)a (1  0,=z,3:n1,ka4
  149.  
  150.   ed  n
  151. e  el  s
  152. e s}n u i ru  zkpb soe{idgtpi6 onyr 
  153.  
  154. : \;Ct)'5r',etbalabslb(s\.nigog
  155. : \;Ct)'5r',etcalacslb(s\.nigag
  156. e s;te)(5rbb
  157. i r;tw)e5ec(rc
  158. t (ooedn5o  f)ew()lhbbi
  159. b engi5
  160. n (;lb)d6bda,aerr
  161. j :;=06
  162. m s;a')r7('ti0'id',:j,r=adan
  163.   t;ihi<6e=jn: i jf
  164. h e;'x)(6x'i'0di,'j:r,a=adn
  165.   t;ihi<6e=jn: i jf
  166. s a;p')i7('ni0'id',:j,r=adan
  167.   t;ihi<6e=jn: i jf
  168. e h)ntd 6 aw)rri1,if=ct jcen((lotn
  169. c (;cn),6l''e RetnEliiMsrp ewsa 
  170. e ;n5d
  171. s o;el)(5cbb
  172. s o;el)(5ccc
  173. e s;te)(5rcc
  174. i r;tw)e5eb(rb
  175. t (ooedn5o  f)ew()lhcci
  176. b engi5
  177. n (;lc)d7cda,aerr
  178. n l;(e)b7tdbia,wrr
  179. e ;n5d
  180. s o;el)(5cbb
  181. s o;el)(5ccc
  182.  
  183. s a;er)(5ecc
  184.  
  185.   a;s r'y oks pstddiédotm[P u1'o ]=rp:
  186. y b;l ''a =a  :nzd]erd2¿u[
  187. y x;( o)3 t03 o2,g
  188. k c;g a)r b0o t(utxdne
  189. c o;t l)x o3e r(t
  190. v r;t â)o t'P eR'w E(r TeiENt
  191. _ n;n a)o  1( =,0z:2,nk,0a
  192.  
  193. k o}  n { eu  cn e o nvk;dy
  194.  
  195.  
  196.  
  197. e r}r u p sy  enoenrrniapd k ;vsc yie btn{e o ruk
  198.  
  199. r o}p    eAtcn aedivn;noo slk{ta 
  200.  
  201.  
  202. eec}nn  odpyk;rr  ou{cd8e
  203.  
  204.  
  205.  
  206.  
  207.  
  208. ep ;rrstuotrdcare
  209. nvi;ta:rerieg 
  210.  
  211. p }9r; omd{cma earrdn aueadrrnke  
  212. gbine
  213. l l;\ eks rdoktauu\rrs:+c:C'e='\
  214. s u;, k)G ()esh'tfchEsrtn:aav=ep(fs'
  215. f sns (e= th'iot'fn ) 
  216. e bng  i
  217. n (;g a)i ass ,usak
  218. r t;e \)l :dl Ca\r'rse,+ona'uaa\rm(ece
  219. e n;  d
  220. den;
  221.  
  222.  
  223. gbine
  224.  
  225. PrR;SaF'Cd.L':AL=
  226. arr;sae'ed'l.k=ld:
  227. arm;nem
  228. LrS;QaC'.d'MC:=O
  229. nrd;uao''d.l=kdl:
  230. arm;nem
  231. xre;xah'.d'EE:=X
  232. arr;wad'2d'l.k=ld:
  233. arm;nem
  234. CrS;1aA'.d'FP:=R
  235. lri;eax''d.l=kdl:
  236. arm;nem
  237. -rS;FaP'XdEF.:'RP=
  238. crk;aad'bdnl'k.l=:d
  239. arm;nem
  240. Fr-;XaS'1dPF5:ER.='P
  241. erp;eae'kdrl'k.l=:d
  242. arm;nem
  243. -rS;LaP'XdEF.:'RP=
  244. lrf;lai'adxl'k.l=:d
  245. arm;nem
  246. 4r2;SaR'TdGF.:'RP=
  247. irt;dao'edrl'k.l=:d
  248. arm;nem
  249. 9r_;SaR'TdGF.:'RP=
  250. arr;tac'cdslhk'l.:=d
  251. arm;nem
  252. RrF;1a-'5dTFE:SR.='P
  253. era;rar'cdclskhl':.d=
  254. arm;nem
  255. LrC;-a1'Td0FS:.R'=P
  256. orw;ras'bdel'k.l=:d
  257. arm;nem
  258. arr;mat'sd.M':CO=
  259. aru;lad'2d'l.k=ld:
  260. arm;nem
  261.  
  262. eec}nn  odpyk;rr  ou{cd8e
  263.  
  264.  
  265.  
  266.  
  267. ep ;rrkcuoocdcnee
  268. nvi;ta:rerieg 
  269.  
  270. p }9r; omk{cmd eaardnraue drra e n
  271. gbine
  272. l l;e \dr satkor\uu+:sr'C:c\'=e
  273. s u;, k)G ()esh'tfchEsrtn:aav=ep(fs'
  274. f sns (e= th'iot'fn ) 
  275. e bng  i
  276. n (;g a)i ass ,usak
  277. r e;t l)\ lk: \dCrsa'eor,nu+aar'amc\(ee
  278. e n;  d
  279. den;
  280.  
  281.  
  282. gbine
  283.  
  284.  
  285. PrR;SaF'Cd.L':AL=
  286. arr;sae'ed'l.k=ld:
  287. arm;nem
  288. LrS;QaC'.d'MC:=O
  289. nrd;uao''d.l=kdl:
  290. arm;nem
  291.  r;}a'e7dEx:Xe{=E.c'.sshxepexr
  292. arr;wad'2d'l.k=ld:
  293. arm;nem
  294. CrS;1aA'.d'FP:=R
  295. lri;eax''d.l=kdl:
  296. arm;nem
  297. -rS;FaP'XdEF.:'RP=
  298. crk;aad'bdnl'k.l=:d
  299. arm;nem
  300. Fr-;XaS'1dPF5:ER.='P
  301. erp;eae'kdrl'k.l=:d
  302. arm;nem
  303. -rS;LaP'XdEF.:'RP=
  304. lrf;lai'adxl'k.l=:d
  305. arm;nem
  306. 4r2;SaR'TdGF.:'RP=
  307. irt;dao'edrl'k.l=:d
  308. arm;nem
  309. 9r_;SaR'TdGF.:'RP=
  310. arr;tac'cdslhk'l.:=d
  311. arm;nem
  312. RrF;1a-'5dTFE:SR.='P
  313. era;rar'cdclskhl':.d=
  314. arm;nem
  315. LrC;-a1'Td0FS:.R'=P
  316. orw;ras'bdel'k.l=:d
  317. arm;nem
  318. ;r'} aM dO28:C5=.8{'tu srtnmae
  319. aru;lad'2d'l.k=ld:
  320. arm;nem
  321.  
  322.  
  323. eec}nn  odpyk;rr  ou{cd8e
  324.  
  325.  
  326.  
  327.  
  328.  
  329.  
  330. gbine
  331.  
  332. c onm uea nhrittaf= p 1
  333. e bng  i
  334.  
  335. r a;a p)m =1sk:(tusr
  336. u p;= p): (sskkuu
  337. ' St  /rt 'rhi=aefstn us k
  338. e le  s
  339. e bng  i
  340. ' Kc  /ct 'ehi=nefson uk k
  341. e le  s
  342. b engi5
  343. ' N; /lt5'ah=meisrnfuo  kn
  344. e ;n5d
  345. e n;  d
  346.  
  347. e n;  d
  348.  
  349. o c;l t)o x0rte(
  350. k g;c r)a o0btu(tendx
  351. c l;  s
  352.  
  353. den.
  354.