ELF44 (@.@.0QtdU8fEfUUEEEUȰuEʈEEÍ&vU|X|莓ƅfjf jfjfjf jfjfjfjOfP؈f=jN|||^ƅf=jX|?|%0|!Í&&U]ff7eff7蓒Éڹ`pˏ蔒迏]Í&vU]ffz7 <Éڹt=h  ÉڹB 6 MؑÉڹP赒ّ 覑Éڹ胒ގ觑ҎtÉڹQ謎u蠎BÉڹ8zCnÉڹH<SސÉڹ軑ߐ !謐Éڹ(艑譐؍zÉڹxW貍{覍HÉڹ%耍ItÉڹNBff5 L׏ÉڹP贐؏ !襏ÉڹT肐݌規ь sÉڹXP諌t蟌 AÉڹ`yBm ÉڹhG;RݎÉڹx躏ގ  諎Éڹ舏謎׋3yÉڹV豋z襋GÉڹ$HsÉڹMAXÉڹ9&豍Éڹ莎貍݊Éڹ\跊耍諊1MÉڹ*腊NyffL2]Í&U E {{{{{EE0 rr EE{EtEE< , ,.,,,t,t ,t?,t+jHfjjHfjrj@fjbj@fjR{IB{9{{){ E 迉fjf=| fjfjf= fjfjf=| fjfjf= fjEÍ&t&U(fEfUfM0h EPEPPMfUfE_2{/vUԸ{3ݝ݅]fEfEfEfu/{U9}jM丰{苃{fEft{t늋E؉EE܉EE&U]fEfUEU݄j}fEfjj@fjfjf=t+E U  jtJEUݜjE U E Ub2~`EMjUEݜjE U  j E Ub}UBEEҰ&E UbڸNB]Í&UfEfUMU}E9|Mf]ffjf;j|2f jfjh}f;jU9"U)PMUBEEҰ}Íڸ?3&U].蹇Éڹ薈躇]U] R,jP fEfMfEEAÉڱ͸|Epf}O|fEfMfEEnÉڱ͸蹉4(f}O|fEfMfEU&豆Éڱq赆UO聆ÉڱA較腆调f}|JÉڱո 腃NyOÉڱۈVJaÉڱԸ謈'O2轅Éڱ}莅ÉڱøNɂ蒅轂fEfMvfEWÉڱĸ蒂[膂f}N|βO Éڱ[$O*aÉڹHɅ$]ÍvU]"ff)fjf jfjjByÉڹV豁z襁f=j|fjf jfjfjf jfjjBjk jHdjijڸ賄׃jkjPPj jbfjfjjkjPjUҰ@jB.jijڸMAf=jf=jfjf jvfjfjf jfjjBjk jHwjijڸ;ڱ j jbڸW Kf=jDf=jfjfjfjfjff &jkjPPj jbfjfjOE={ufjf=|EPjkjfPjBjfEҰjjݜjfjf=tUjj݄j <$j jbPhzSjj݄j <$j jbPhEz={u fjf=fjfjff -%jkjPPj jbfjfjff $jkjPPj jbfjfjfjfjfjfj={u]Í&U]ÉڹQ|E|ff$0j4j{]Í&&U(fEfUfEftfEE@EE-8}؛E؋U܃fEHxktfE8ktfEfEfjf jfjjjw jUE f=j |0E4EEUfEfjf jfjjkhEh$s-jkhUUp+B`$Md$E f=j|EUPqff/"fjf jvfjjfEf,jC)‰в!|ÍP j  uڸg}y|yf=jkÍ&vUfEfjf jfjjkhEh$s/jkhUUp+`$Md$E f=j|E&&U]{Éڹtv|x{xg{ÉڹD|xh{x5{Éڹ|mx6{axx{Éڹd{;x{/xFzÉڹ{ xzwzÉڹ|{wzwmzÉڹTJ{wnzw ;zÉڹ{swt4oq(ojEְB-1qSE <$snڱ YtnڸbrnqnjEְB6EqÉڹ"r}nSE <$?sZnڱ sGnڸq0np$njEְBB-pÉڹqmpmE={uo={u ={uE&t&UE}EUutut&ut/ut8HEE6EE$EEEEE&U$]fEfUEHfEEHE <$g}fEfEfEf=tfEEEsfEEErEEsfEEErfEfEf=tfEf=tfEfEf=tfEf=tfEEiUBk0Mk]ٍ)ʉEDEE]UEHE}fEfjfjf=~6jEE-8 <$vf-8}fEfjfjf=Dfjf=P~6jEE- <$$f-}fEfjfjf=PFj=~6jEE-( <$e-(}fEfjj=6jEE-8 <$e-8}fEfjfjfEfEUfjf jfjjEs jUE f=j |EU,]"jM{fjf jfjfjf jfjj jƄbjjݜjf=j|f=j|fjf jfjfjf jfjj j j jb%`jjݜjf=j|f=jmj0k}fU k}fEjj$jD$0k}fEVH jj$jD$0k}fE(jpk}fMk}fUxk}fEf j0k}EU`$0jd$4jj$jD$0k}fE8jk}EŰ$@jŴ$Djj$jD$Hjj$jD$Pjhk$lkD$j$jD$`k$dkD$Hk}fU@k}fE]Pk$TkD$ Exj@k}EP`k}fMj}fUhk}؛fEVPj@k}fUk}fEjH(kkH kjff 8kthÉڹX\iehefjf jvfjj+hÉڹice,hWef=j|cgSHj <$ieڹxhdgdgSHk <$idڹx=hdagd.gSj <$;iVdڹg@d g4dKfSH j <$hcڹxgcfc!vf jڸhcufc!BfS(j <$OhjcڹfTcfHc8_eS0j <$gcڹfbeb9eS@j <$gbeb9PeSj <$]gxbڹfbb+eVb!mdSxj <$g bdbD+dSHj <$fadaj$jD$`jj$jD$hjhj`j-hj`jpj9 dSpj <$f2aڹdaca!'cSj <$e`ڹid`c`f jfj jEExjjjHj$xjjkj@jjHj$7Hj$H j$H$LD$u={uxjjjjHj$0jpjjHj$qHj$Hj$H$LD$u={uSj-jjHj$Hj$(j$,jD$H$LD$Gu={upjjjj$jD$Qj-jjHj$hj-hjhjjjj$jD$jjjjjj$jD$j0jjj$jD$ OHj$LjD$j$jD$H$LD$ u={u1j-jPjPj-XjXj$\jD$ Xjjjj$jD$mj$jD$j$jD$H$LD$u={uOH8ktjxjjHj$pjHjkk$kD$ktjjk8jj8j$NfU8IEfMv}uFEPEUNfUYIEU숔EfEUE9E}uEE}uE UE<tEHEH&U4fEfUfMU HEU)ЉfEEU)ЉfEfEf;EEU)ffEf;]|[fMfEEUPEUUЈEUU)Uu脯fIf;]f]EU)fEf;]|rfMfEEUU)UPEUUЈEUU)ЈEuu)f迵芯f;]EU)ffEf;]|^fMfEEUUPEUU)ЈEMȈEu~fCf;]f]EU)fEf;]|pfMfEEUUPEUU)UЈEUU)ЈEuu)f軴膮f;]EPMUEͭhjP軭f]fEfEf;]|>fMfEEkffUfE1f;]EkffUfEf]E@fEf;]|>fMfEEkffUfEf;]EkffUfE|f]EHfEf;]>fEfMEkffUfE1f;]|EkffUfEf]EHfEf;]>fEfMEkffUfEf;]|EkffUfE|ujjEU])‰fUEHPMIE@E@) &U< fEfUMUCUCUCE$UЈE$U$t fDž fDžBƅEBƅUЈcBƅEˆfff|RffZG:tffff|RffF:tffff|RffF:tf$tff9ff9ffEЈUЈjEfEfAfUfuQjaAfUfuQjAfUfLfDžvE 蘥jEf@EfX@ffU蔧E\u٤j@?ffUE lU@9t fDžE U@9t fDžE U@9t fDžE E< tjEf@Ef>ffUEttEEffUo@f@tHfff= fDžE;=Éڹ0>:=:=Éڹ<s>:=:]Í&U]EjPgffj0=ÉڹH >h:Q=\:=Éڹl=?:(=3:<É= :<Éڹ=:<9<Éڹ=9<9y<ÉڹV=9<9P<Éڹ-=9q<|9'<Éڹ=_9H<S9;É5<@9;Éڹ<#9 <9;Éڹ`<8;8;É;8;Éڹc<8;8];É;8J;Éڹ'<8k;v8!;Éڹ;Y8B;M8:É/;:8:Éڹ8;8;8E:Éڹ\;7:7:Éڹpg;7:7a:Éڹ>;7:78:Éڹ;p7Y:d7:Éڹ$:G70:;79Éڹt:7:79Éڹ:6969Éڹq:696k9ÉڹdH:696B9Éڹ:z6c9n69Éڹ9Q6:9E68ÉڹT9(6968Éڹ95858Éڹ{9585u8ÉڹHR9585L8Éڹ)95m8x5#8Éڹ9[5D8O57Éڹ88258&57Éڹ8 5747Éڹ84747Éڹ \8474V7Éڹp384w74-7Éڹ 8e4N7Y47Éڹ7<4%7046Éڹ`7464E< u EEE mEUE}0/I,.Éڹl/,,/ ,.Éڹ/,.+.Éڹ/+.+t.Éڹ0Q/+.+K.Éڹ<(/+l.w+".ÉڹP.Z+C.N+-Éڹ\.1+.%+V-Éڹh.+-*-Éڹp.*-*y-ÉڹV.*-*P-Éڹ-.*q-|*G"-Éڹ0-Z*C-N*,Éڹ<-1*-%*,ÉڹP-*,),Éڹ\-),)y,ÉڹV-),)P,Éڹd--)q,|)',Éڹ-_)H,S)+Éڹ,6),*)+Éڹ,)+(-+Éڹ ,(+(y+Éڹ\V,(+(P+Éڹ-,(q+|('+Éڹ,_(H+S(*Éڹ +6(+*(*ÉڹH + (*(*Éڹt +'*'*Éڹ `+'*'Z*Éڹ 7+'{*'1*Éh*s'*Éڹ *V'?*J')Éڹ *-'*!')ÉڹL *&)&)Éڹd {*&)&u)Éڹ R*&)&G)Éڹ $*&h)s&)Éڹ )V&?)J&(Éڹ< )-&)!&(Éڹ` )&(%(Éڹx )%(%z(Éڹ W)%(%Q(Éڹ .)%r(}%((Éڹ )`%I(T%'Éڹ (7% (+%'Éڹ (%'%'Éڹ ($'$'ÉڹL \($'$V'Éڹ 3($w'$-'Éڹ<  (e$N'Y$'ÉڹP '<$%'0$&Éڹt '$&$&Éڹ '#&#&ÉڹL f'#&#`&Éڹ ='#&#ff_j h jfPff<ff8jh jfPf f<ffjh jfPff<ffjh jfPff<`jP賁ffs%Éڹ P&"%"J%Éڹ@ '&"k%v"!%Éڹ %Y"B%M"$Éڹ %0"%$"$Éڹ %"$!$Éڹ%!$!}$Éڹ8Z%!$!T$Éڹp1%!u$!+$Éڹ%c!L$W!$Éڹ$:!#$.!#ÉڹD$!#!#É# #Éڹhz$ # o#ÉڹL L$ # F#Éڹ#$~ g#r #Éڹ#U >#I ffff-hhjjff(fEf蝅jP~ff}EErrk"Éڹ H#"B"Éڹl#zc"n"Éڹ"Q:"E!Éڹ"("!Éڹ"!!Éڹv"! k!Éڹ H"!B!Éڹl"zc!n!Éڹ!Q:!E Éڹ!(! Éڹ!  ÉڹL v! p ÉڹM! G Éڹ$$!h s Éڹ V? J{ Éڹ0 ( Éڹ\ Éڹx{ uÉڹR LÉڹ) mx#Éڹ [DOÉڹ02&Éڹd) Éڹ{uÉڹdRLÉڹ)mx#Éڹ[DOÉڹ2&Éڹ< Éڹlja F hÉڹE?Éڹw`kÉڹ N7BÉڹ`%Éڹp! ÉڹsmÉڹJDÉڹ!|epÉڹTS<GÉڹ|*É ÉڹÉڹjdÉQÉڹ.r}H#ÉڹL [DOÉڹ 2&Éڹd ÉڹÉڹP\VÉڹ3wffUj h jfPff<jfFff fEjPvff EvjjfEfffEEE jPuff达t{ÉڹXRÉڹ/s~)Éڹ@aJUÉڹX8!,Éڹ|ÉڹÉڹb\ÉIÉڹ0&ju ÉڹXXALÉ.9ÉڹÉڹL Éڹ jdÉڹdA;Éڹs\gÉڹPJ3>Éڹ! ffj h jfPff<^jfFff ;fEjPrff蝻8E sjtagbMb3tm}+E9~ Eĉ}:|9}~9}+Eč bщ EEEPuummvEPuu*}|E;~ EċẼuCmt7-@`m}Mȃ|Mm-0bmrMȋ}̋EąaEࡴaEfafE}ЋEĻ9|KC-@`m}9mm}tmmm}mmr mm}EPuuu*EP$EPuu}uĻ9KCmvEPuu-@`}-@`m}Eٽٽfm٭߽٭0ÜE̊<9v1E ÜEHP=95}̉@<0ujщEȊtƅ-|Uȉ}#tj.j Uȉ1)Ѝщ{9~_PP)@b‰ Eȅ}8Ppbщq [6Pbщ9 #jbhujщEȅËUJ9~NPËM)@b‰-@`m}Ehmw@ƃ~ExJEPȉE@ąٽ8ٽEP UJ̈ E@HPEEk >P:6-@`ɋExu,t9t,utE@ą,u}RE@k Eh۬6 <$-bwE@PEE $( U ]uEЊMv0ъ9v 0Ʌuϋ]upAApCpCC C$pAAċpCȋpC̋CЋCԋ B؋0B܋Pt ptPt `d$$3Pt āf``С`u9Pt ІԆá`މb a b`oމ` aщ؋`aڹaPaK$$\$t$|$ É։ $ at $؋= afa`4$5`aPt `dtڸ>faf=v a\$t$|$ UDEUM؍UPEHEEE{ E~vEEEEEtjE aэUEWEt7E`;E}}u"E=EEEEE;EyXt pxh |$x<$xx14$|$NjPt ptЋJP )щH4$|$$ËPt pt‹HB )JB C BCBCCCCCC C$$$t$Åu w؃%"s ؃ÉƉ$t$\$t$|$ É؃ƅu $>Pt ptNjuڃ N$ $$\$t$|$ $ujÉ؋$ƒu ƒЃ Ѓ$d`҉Åt؋x`҉‰ر؋$ $t$|$ljӅuh`uu؋d`҉aډuTx`҉sЍE9v؉9sËd`҉ƅt h`҉7$t$|$ $f`Pt p҉tر0a$ $t$|$Pt p҉tf`f~@53~u &uǃf`f~aƅt$F =tpf `f`fø@Dt @$t$|$ hltPt $t$ËC=|&-t Htt-&Pt āffiSL pQC(C$C=u QC :QC Pt āu(tQC$$t$$t$É֋C=|-t2H| !Pt āff>sCC؋SҋPt ātC$t$\$t$ |$D$ $ӾD$HD$P)щIvD$PL$A3)<$D$xD$L$Q ҋD$PD$H)ʉ9<$D$HD$P3$D$X\$t$ |$ $t$|$lj֋GW)Љ*GWڱ )_W ҋGW)Љ9ԋGWڱ ` _$t$|$ U É։ϋPt āu&h 0P pPt ptPt `dPt Pt ІԆPt 04}0P p01b~1/u0Ã\$t$ ưCÄuÄt $9s$\$t$ U]t.Z u#ZZt TZTZQjщ¸]UQщ¸U>щ¸Lщ¸TU%t+SU[E%t=@tE EEEUtSU[E%EEE$7&"9988d8988^8988X8 988R8988L888}8F888w8@888q8:888k848H܉J܋HJHJHJHJHJHJHJHJËH݉J݋HJHJHJHJHJHJHJHJHfJHJËHމJދHJHJHJHJHJHJHJHfJËH߉JߋHJHJHJHJHJHJHJHJ$@9&::|:>:::v:3:9:p:-:9:j:':9:d:!:9:^::9:X::9:R::9:L: :9H J HJHJHJHJH J HJHJ ËHJHJHJHJHJH J HJHJ HfJ ËHJHJHJHJHJH J HJHJf ËHJHJHJHJH J H J HJHJ VWƉ_^VWt| NOIu_^S(у)ʃl| l| ~;ك[fSl )˃,l| < }|[}_HoSoу)ʃ oLoTo\odL T \ d ~w[ك Stу))ك)VWƉ׉ȃ?ooLoTo\od ol(ot0o|8LT\d l(t0|8uwك_^[HSoD )˃ o oTo\odd \ T  }Dw [Y}\DHJʃ Sу)ʃ LT)L )T ~ك [LStу)),ك)RPQYXZʉ[ D  T T SD )˃  T) )T  }D [I;@\$4t$8|$Pt ptV{tC`$t$|$ ' @<t@СPt `d@=uPt `d Pt @=uPt  Pt ІԆ@=uPt ІԆs Pt 04@=uPt 044 UӍDPعc<rzj bbx`h` t`h`$t$É։~t FV P F ~ t F VPF|)3$t$ $t$|$Ӌtډk~ u v $t$|$ \$ t$|$$$D$Pt ptNjD$4t/ )‰T$D$PuRD$D$; t $}e $T$ƅuJD$ÉHD$ tA¤$B B ;BvB BD$@؋\$ t$|$\$t$|$ $v=9Pt pt%y9rty;zsʋy9t I HtwӉׅuىDžt^ $ t G WPt WG B WG ډˉK¤B B ;BvB B$\$t$|$ à $t$|$Ӌ )щ΋V 9uFN CKtY)F#F}  $t$|$ \$t$|$ $׋GƋG;$t O`‰ыAA8y 8t8Olj-P u$)؋\$t$|$ Ã$t$Fuދ$t$$t$Ƌu@@؋$t$$t$F uދ$t$$Ët@4@3$\$ t$|$D$ȃt.ˁ Ѓ9D$s D$˃ T$;\$r؃;D$s D$Pt pt$ ƋF;$uq߉tF9\$v $)B B ;Bv>B B6;\$v T$Ë$)B B ;BvB BD$D$\$ t$|$ĒpdȒd̒dВdԒdؒdܒdddeePePePepePeee eeef f @f$`f(f,f0f4f8g<@g@ gDgHgLgTgP\$t$|$ $ӉΉ%uL$B=|-t8H|$;$"Pt āff$|=tHtHt$1$@ $@$@%=u @%=u NJu`$B=-tH~Ht!$$$$@ع$$u tً$}?u5t.ljعz$$u ftً$}Pt āf\$t$|$ $$p$$$H$P$$B$@Ã$$@tE$H$P$:$;BtPt āfe$@$ËPt āuYC=tHC=uPt āfi&Pt āfg؋S ҋ$ $t$|$É։ωغaspQS(|2tNt %QS %QS tQC$ f $t$|$ $\$t$ É։@i$D$\$t$ $Pt 04USRQ=@auỲ YpaZ[=r USRQ=@au YÙ YUpaZ[=r HUSVQ=@au YU ùYU upa^[=r UQс¸HXẁ̀UQщ¸6$fËPt ҉āff$SX5 PX% 9[VƉȃ=uX((L(T (\0))L)T )\0(d@(lP(t`(|p)d@)lP)t`)|px.LT \0))L)T )\0d@lPt`|p)d@)lP)t`)|pxuh@((L(T (\0++L+T +\0(d@(lP(t`(|p+d@+lP+t`+|pxf@LT \0++L+T +\0d@lPt`|p+d@+lP+t`+|pxt) u^Ut}ǹ1)ȋ}@\$4t$8|$ ? |<5r=,5t,tt!t&,Eu)G @ A B |5~|<0s,0t)t.,t3t8t=tB,tGtL,EuOR( FC =D 4 + "VWXY|~|<1r?,1ttt#t(,Ju+S"Z[\]|~||<~r ,~u?t f _t u!|.% |SxxptUj%P"$fГu=~64ËPt `d/K$Гu)Pt `d/KN$Pt `dPt `d蹛DPt `dPt ptPt ptl1Pt ptPt `d*ГPt pt*udГudPt `d*Pt pt$*$,t C`fpffHfJfpf=ГtCuff$;Гu=tff⡠8@~ @@2@$fft؋$ \$t$$;4$| $v$$%) ;4$=ftV\$t$ ;0ub )ȉ0; ~0 )Љ #  =|  u00 00| 0UÉuu=Гt")‰Ѓu:g~.PP 9N$f9t,ГufPff$$`uJu@ pf9u&9u" f9u9u$$$ $։ˉljF)C$T$$LD$ $ PfD$ HfHAf $$>'$$ $ | ;tP ;t(P|$ðqj$g~ %@gU|~0E\UjjUÈ؋|$Éغfl0C$Dt$<|$@t2T‰g p$p pe#t$<|$@DUX\`dhdhlpg蒈lm{EUjhUg )5ƻC؃9}<t@<[u݉؃9}l#ll͇؃m!lRDDž:l;-ÍlPIlalh'hhP@)‰щ@l(hh&dX\` \$=tff⡠趐ffГu?Pt `dT|D$f$ffu fPfu fff⸠ff⡠\$ U(Ӊϋu E9[O9~;fubjgE썕EgEhEgEM싅Duf 9~Rjg)gÆjg+gqB99~Njg)@gjg)؍gŅu@9ug諃ojggWg*U(É9uE؃Ѓ׃ut~|~}fE0~}1V؃Ë9t549tU3 @%hfPM썅E9tY4@%hfPM썅趂E裁EhuEjgEM썅qE hEM=UEӋE@~1hgEH썅EfPEH썅賁E蝀@}@@@@=|pBN$$@=u$P $B$ $@0$B P$B$`$B(fuP Ku PuP0u@0t Ht$@|$D$4$|$=td$d$=td$D$ %0D$ t$@|$DHU(]؉j MܺfM܉غ~]$$$ $ÿJ$p~$@8T$D$D$$)p$@7f$$$ \$t$ |$D$T$"ID$@C$t,t,th,"$=Гu2=u)Ɖ0hSGKD$P =Гu3=u*ʈƉ 膋ʈCG=Гu0=u'苈Ɗ $JŅ莈蹅D$P$C$ t t D$;XD$XfD$PD$Ht$T$BD$P9|/IvAD$pH< u< tt$FN0 9ՋD$PD$P=Гu=u D$X D$@ff؋\$t$ |$f$$@fU$Ef:PftPfEfPfErEEgvEU<t =ЙzЙ]ƅ:vU%t0 r t t+tCE9| tPU)ЉUE~P{@@@! Software by TRSEK & RiSoft L F= *ld= Rp02= L Fp= = As= L d= k2= Ku= L Fd= Md= pd= L *Fo=*ldk2= Fomax Fd L Fomax=ku[Fp+(1-)F+*Fo]= L Fs=Fomax+F= Fs Fk L Fk=As.Rp02= L Mu=0.18Fomaxd= Mu Md L =Fomax/As= L Mz=0.12Fomaxd= L k=Mz/(0.2(d3)^3)= L red=+3k= Kkd Kk Kkd= L Kk=Rp02/red= L Ap=(da-D)= p pd L p=Fs/Ap= L Dyn. namahane: *Fs=F= L a=*Fs/2As= Kcd Kc Kcd=1.44 L A= L Kc=A/a= $@0@< Vyhovuje > Nevyhovuje ?ffffff?333333??@@@@@@@  kN mm Nm MPaMPa(\? mm mm/NkNQQ?Nm(\??HzG?@mmffffff?$ Navrhujem : Skrutka M  *  CSN  P  ͻķ͸Ŀ><< Software by TRSEK. All right reserved, copyright TRSEK (c) .Priklad:--------!Vysvetlenie funkcii v tomto UNITE!---------------------------------*Autorom unitu je Zdeno Sekerak alias TRSEKAdresa: Zdeno Sekerak Trnkov 18 p.Kapusany 082 12 okr.Presov?Autor si vyhradzuje prava na predaj, alebo inu obchodnu cinnost(s tymto unitom. Je chapany ako FREEWARE.V Presove 24.10.1995FNabuduce: unit OBRAZ pre zobrazovanie a pracu s obrazkami TIF,BMP,PCX.J unit ASCII pre narodnu znakovu podporu a definovanie klavesnice.!Stlac klaves pre akukolvek pracu. Zoznam prikazov:------------------N A- procedure KurzorZap (ZapVyp:boolean); N B- procedure Farba (x,y:integer); N C- procedure Insert_Kurzor (ins:boolean); N D- function Ctrl_Akt:boolean; N E- function Alt_Akt:boolean; N F- function Nothing (i:integer): string; N G- function Zarovnaj (text:string;i:integer): string; N H- procedure Save_Win; N I- procedure Old_Win; N J- procedure WriteXY (x,y:integer;s:string); O K- function Tread (x,y:integer; d:byte; text:string; sedy,pret:char): string;N L- procedure Open_Win (xl,yl,xp,yp:integer;text:string;ramt:byte); N M- function Otazka (x,y:integer;s1,s2,s3:string;col:byte;typ:byte): integer;N N- procedure Koniec (naz_prog,rok:string); N O- procedure Clear_Keyb; J P- function Get_Znak (x,y:byte;farba:byte): byte; N R- procedure Put_Znak (x,y,farba,znak:byte); J S- procedure Zarad_Okno (win_pointer:win_poin;x1,y1,x2,y2:byte); N T- function Get_Window (x1,y1,x2,y2:integer): integer; N U- function Put_Window (por:integer;xn1,yn1,xn2,yn2:integer): integer; N V- function Vyrad_Okno (por:integer): integer; N X- procedure Rem_All_Win; -Stlac pismeno pre podrobny help (ESC-Koniec):Jprocedure KurzorZap (ZapVyp:boolean); %--------------------------------------Zapina/vypina zobrazenie kurzora na obrazovkeKurzorZap(False);KurzorZap(True);Jprocedure Farba (x,y:integer); ------------------------------@Nastavi farbu podkladu (prve cislo) a farbu pisma (druhe cislo).3Pricom ak zadate farbu o hodnote -1 necha aktualnu.,Simuluje prikazy TextBackGround + TextColor.MFarby takto nastavene pouzivaju ostatne prikazy UNITu pracujuce s obrazovkou.6Nastavuje vnutorne premenne CTRSEK_B farbou podkladu a2 CTRSEK_F farbou pisma.Farba(BLUE,YELLOW);Jprocedure Insert_Kurzor (ins:boolean); &--------------------------------------2Zobrazi kurzor ako podciarnik, alebo plne okienko.CPouzitie pre naznacenie uzivatelovi, ze vkladane udaje budu INSERT.Insert_Kurzor(True);Jfunction Ctrl_Akt:boolean; ---------------------------BTestuje aktivitu klavesi CTRL vo chvili ked bola funkcia zavolana.!Pozor nie predosle, ale aktualne.1If Crtl_Akt then WriteLn('Klaves CRTL aktivny.');Jfunction Alt_Akt:boolean; --------------------------ATestuje aktivitu klavesi ALT vo chvili ked bola funkcia zavolana./If Alt_Akt then WriteLn('Klaves ALT aktivny.');Jfunction Nothing (i:integer): string; ,Funkcia vrati prazdny retazec o I medzerach.*Obcas chcete aby to bol zdrojak prehladny.Niet nad taketo rutiny.s:=Nothing(12);Jfunction Zarovnaj (text:string;i:integer): string; 3---------------------------------------------------DFunkcia k retazcu prida tolko medzier, aby jeho dlzka bola i znakov.*Write( Zarovnaj('Text o 40 znakoch',40) );Jprocedure Save_Win; -------------------KUlozi si suradnice aktivneho okna do vnutornych premennych MinWin a WinMax.BSpatne ich pouzije pri obnoveny suradnic okna v procedure Old_Win.-Pozor nepameta si jeho obsah nato je Get_Win. Save_Win;Window(1,1,80,25);ClrScr;Old_WinJprocedure Old_Win; /Obnovi suradnice okna, ktore nastavil Save_win.,Pozor nenakresli jeho obsah nato je Put_Win.Jprocedure WriteXY (x,y:integer;s:string); )-----------------------------------------*Vypise text S na X,Y poziciu na obrazovke."Kumulovane prikazy GotoXY a Write.(WriteXY (2,3,'Text na 2stlpci 3riadku');Kfunction Tread (x,y:integer; d:byte; text:string; sedy,pret:char): string;K---------------------------------------------------------------------------IRead v okienku s editaciou a funkcnymi sipkami, INS, DEL, BACKSPACE, ECS.x,y - suradnice, kde citat/d - dlzka textu aky sa ma nacitat (pohybovat)'text- aky text ma poskytnut na editaciu+sedy- ak je #0 znamena PRET je seda klavesa2 pred vlastnou editaciu vykona pohyb klavesy.( Inac sedy znamena obycajny klaves.Vrati naeditovany text.(Uznava farby nastavene procedurou Farba.Farba(Blue,Yellow);WriteXY(10,12,'Zadaj meno:');&meno:=Tread(21,12,30,'BezMena',#0,#0);Jprocedure Open_Win (xl,yl,xp,yp:integer;text:string;ramt:byte); ?---------------------------------------------------------------!Efektne otvorenie okna s poziciu.xl,yl - lavy horny rohxp,yp - pravy dolny rohtext - nadpis oknaramt - typ ramceka 1..4:Vnutornou premennou TDEL sa da nastavit rychlost otvaraniaokien. tdel:=30; open_win(60,7,80,11,'Okno 1',1);Farba(Green,Red);!open_win(60,12,80,15,'Okno 2',2);Farba(Red,LightGray);!open_win(60,16,80,19,'Okno 3',3);!open_win(60,20,80,23,'Okno 4',4);Okno 1Okno 2Okno 3Okno 4Jfunction Otazka (x,y:integer;s1,s2,s3:string;col:byte;typ:byte): integer;J--------------------------------------------------------------------------Polozenie otazky uzivatelovi.'x,y - pozicia otazok na obrazovke.@s1,s2,s3 - Tri moznosti, pricom ak sa jedna vynecha budu 2, atd.Farba aktualnej odpovede.3typ - typ bity 1,2 urcuju aka ma mat uvodzovkyL 3 ci ma byt byt zhusteny tvar, alebo rovnaky rozostup.C uvodzovky typ 2, nezhusteny tvar typ 1 potom typ:=2+1*4;:Prve velke pismeno urcuje moznost stlacit CRTL+to pismeno. Uznava farby nastavene vo Farba.0Odpoved je 0=ESC, alebo poradove cislo odpovede. WriteXY(45,15,'Pokracovat ???');3odpoved:=Otazka(40,17,'Ano','Nie','osTan',Green,5);Pokracovat ???NieosTanAnoJprocedure Koniec (naz_prog,rok:string); '---------------------------------------8Vypise efektne ako NC Software by atd. s nazvom NAZ_PROGa rokom vyrobi ROK.Pre pouzitie autora.Koniec('Super UNIT','95');Jprocedure Clear_Keyb; ---------------------/Zmaze buffer klavesnice, ak je naplneny znakmi.3Moze sa stat, ze chcete, aby pred neakou otazkou na0uziavtela bol buffer prazdny pouzite Clear_Keyb; Clear_KeybFfunction Get_Znak (x,y:byte;farba:byte): byte; $Vrati znak, ktory je na pozicii x,y.Jeho farbu v premennej farba..Farba- dolne 4 bity su podklad, horne 4 pismo.=farba_pisma:=(Color div 16)/16; farba_podkladu:=Color mod 16;0Pozor farba nemoze byt cislo, musi byt premenna.znak:=Get_Znak(10,10,Color);Jprocedure Put_Znak (x,y,farba,znak:byte); Inverzna procedure k Get_Znak.x,y je pozicia8farba je farba znaku+podklad farba:=Blue*16+Yellow,znak je Ord(znaku), ktory ma byt vypisovany.(Put_znak(70,10,Blue*16+Yellow,Ord('a'));Fprocedure Zarad_Okno (win_pointer:win_poin;x1,y1,x2,y2:byte); =-------------------------------------------------------------Autor odporuca vyhadzovat v opacnomn poradi ako boli zaradene,7pretoze pamet sa uvolni az po VYRADeni posledneho okna.GAk vrati hodnotu 0-znamena, ze uz bolo vyradene, alebo sa neda vyhodit.- <>0-uspesne vyradene toto oknoerr:=Vyrad_Okno(1);Jprocedure Rem_All_Win; ----------------------2Procedura vyhodi vsetky okna s pamate a uvolni ju.*Koniec ESC. Spat stlac akukolvek klavesu.HTento program pouziva UNIT od TRSEKa Prikaz help(' '); pre pomocHadresa WORD:\Europe\Slovakia\Presov\Trnkov_18\Zdeno_Sekerak.programator win_poin win_poin ``````` ` ` ` `` byte_poin ` byte_poin@\(\ @T㥛 @@@Q@~jt@ @@ffffff@d;O@$@ @n@w/@,@$@Zd;O "@RQ @1@(@`"۹%@~j#@3@,@xf)@d;O'@6@0@xf-@d;O'@8@4@K7A`2@+0@>@8@V 6@lQ4@B@>@'1;@~j9@G@@@@ @$@(@0@>@>@@ffffff?333333??ffffff??333333?333333?333333???{Gz?@@@@@@@@??@ @@@@@@@@?333333@$@ @@@@@333333@@?$@(@$@ @ @@@$@333333@@0@0@(@$@ @ @ @0@$@333333 @9@4@0@(@$@$@ @9@0@@D@8@4@,@,@(@$@D@9@ @O@;@8@2@0@,@(@O@D@)@Y@@@>@6@4@0@0@Y@O@4@d@>@>@;@8@4@4@d@Y@?@@o@>@>@>@>@;@8@@o@d@I@y@>@>@>@>@>@>@?@@@@@@ @"@u@@@@@@@@@@@@@@@@j@r@y@~@P@@@ @ @@@ffffff?@@??333333@333333@@333333@???333333@ffffff@@@@@@ffffff@fffff!@ffffff%@@ffffff@ffffff@@!@$@@@@ffffff@"@333333)@333333.@ffffff @@333333@$@,@1@ @@@$@0@3333337@fffff;@ffffff @(@0@9@A@D@$@333333!@(@ffffff0@333333:@33333sB@fffff&F@0@7@?@E@@Q@T@(@333333)@2@fffff7@fffff&C@K@ P@<@D@K@U@^@ b@,@3333331@8@ffffff@@@J@R@ V@F@O@U@`@g@l@0@8@A@F@@R@Y@^@@Q@X@``@@j@pr@0v@2@=@D@K@V@_@b@W@a@f@ r@Py@P~@4@B@J@Q@\@d@h@`@h@p@y@ @@6@G@P@V@a@h@m@f@ p@u@0@`@@8@K@@S@Y@d@l@@q@ m@t@{@0@@@@;@Q@@Y@`@j@r@v@u@~@x@h@p@ @>@@U@^@d@`p@w@{@}@@@H@@@@@@@D@A@;@@@F@C@>@@@K@F@A@ @@N@I@D@$@ @Q@N@I@(@ @Q@N@I@f@^@p@@@@@t@ @@?)\(??Gz?RQ?{Gz??)\(??Gz?RQ?{Gz??)\(??Gz?RQ?{Gz??)\(??Gz?RQ?{Gz??)\(??Gz?RQ?{Gz??)\(??Gz?RQ?{Gz??)\(??Gz?RQ?{Gz??)\(??Gz?RQ?{Gz??)\(??Gz?RQ?{Gz??)\(??Gz?RQ?{Gz??)\(??Gz?RQ?{Gz??)\(??Gz?RQ?{Gz?Gz?= ףp=?zG?HzG?zG??ףp= ??Gz?Q?RQ?\(\?zG??333333?zG?{Gz??HzG?HzG??(\?HzG???Gz??333333??ffffff??{Gz?)\(?p= ף?)\(?ףp= ?zG?(\?(\?h|?5?RQ?Q?RQ?p= ף?ffffff?zG?ffffff?p= ף? ףp= ?Q?MbX9? ףp= ?ףp= ?Q?Q?)\(?(\?(\µ?Q?)\(??)\(??Gz?RQ?{Gz?ףp= ?\(\?ffffff?q= ףp?ffffff?\(\?(\?(\?HzG?(\?Q?(\?Q?ffffff?Q?Q?Q?ffffff?zG?(\?RQ?Q?RQ?Q?Gz??{Gz??{Gz??(\?q= ףp?Q?{Gz?Q?q= ףp?(\?RQ?Q?Q?Q?RQ?p= ף?(\?)\(?Q?)\(?{Gz?q= ףp?333333? ףp= ?)\(? ףp= ?Q?)\(?Q?{Gz?Mb?{Gz?p= ף??@@@@@@ @"@$@&@(@(@(@@@??N@N@(@(@@@????????@??@?333333??333333??ffffff????ffffff??333333??ffffff?????333333??333333???333333??????333333????????333333??????????ffffff???333333????ffffff??333333??PAi@D@ w@dA@o@F@w@xAr@I@`x@XA@@^@@z@A@z@`@w@A@`@`}@A@`@@@A@@ b@@@A@`c@@xAP@d@@A@@e@Ё@Ap@e@p@xA@ g@`@v@@@a@~@@@@ b@@@@@`c@@@@@e@Ё@@0@b@@@P@d@@@@e@p@@p@ g@`@@@ g@`@@ @i@@@@@j@@@ @i@@A@Y@@A@[@`@@@Y@@@@[@`@@P@[@`@@@@_@@@@@a@P@u@ |@ g@@z@@@`h@@@@p@Ж@@ @pr@p@@ @pr@p@ @@s@@@@p@@@@p@@@@p@p@z@y@d@@@@ g@p@@@@j@ @@ A1@@@@@@@333333?333333?333333?333333?333333?333333?333333??&@$@0@2@0@7@:@$@! ,0,25 p= ף?ffffff? ףp= ?Q?ffffff? ףp= ?{Gz?333333??)\(?333333??)\(?D@(@J@1@P@4@@W@;@@^@K@e@@X@p@d@v@p@z@r@@@@8@(@@x@ @@A@@G@$@L@(@R@2@@X@?@a@M@h@Y@p@c@Pw@n@@v@@{@h@؁@@@@@@D@@I@@N@@@T@.@@[@?@b@L@h@V@;@b@@v@j@z@p@`@u@@{@<@@A@@E@@I@@O@B@W@?@`@L@`f@V@@o@`b@t@j@ y@p@~@u@؂@{@8@?@?C@?G@?L@@Q@@T@@Z@1@`@B@e@M@@j@@S@n@@Y@pr@`@P@5@V@A@^@L@d@V@@l@ a@s@j@@`r@@Pw@X@}@@@[@E@ c@@V@k@b@@s@`k@{@@u@~@}@؆@@h@؇@$@H@8@@@@D@@I@@N@@@R@"@@V@*@[@3@``@<@c@C@`f@G@`i@L@l@@Q@<@ @A@&@E@*@I@.@O@;@@U@A@@]@L@c@@V@@j@b@q@@k@v@pp@{@t@H@z@K@4@Q@=@W@F@_@@Q@`e@Z@ l@b@q@g@t@m@y@r@8@@?@@C@ @G@$@L@,@M@2@T@7@Z@B@`@N@e@j@@j@pp@n@t@pr@z@8@@?@@C@ @G@$@L@,@Q@2@T@7@Z@B@`@N@e@j@@j@pp@n@t@pr@z@0@7@@<@@A@@D@@I@"@N@&@@R@0@V@9@Z@A@_@E@b@I@d@O@4@(@;@&@@@,@C@1@H@6@M@;@S@D@@Y@L@`@T@ e@[@@i@@a@n@e@@r@j@0@@7@$@<@*@A@.@D@3@E@$@O@>@S@C@@W@I@@\@P@@`@R@b@@V@e@@Z@@@@ @"@&@*@.@2@4@7@9@;@@ @"@&@*@0@3@6@9@=@@@B@D@$@(@.@2@5@9@>@A@D@G@J@L@O@,@2@6@;@@@C@G@K@O@R@@T@@V@@X@9@>@B@E@J@O@R@U@Y@\@@`@a@`c@ 2Px;H8/z8 H8/x8 H8/u8 H8/u7 H8/s7 H8/v7 H8/y7 H8/r7 H7/u7 H7/t6 H7/s7 H7/r6 H6/s6 H6/r5 ??@@ @@@@@@Y@I@C@>@8@3@.@&@ @@@@$@.@4@9@>@A@D@F@I@K@N@@P@Q@R@T@@U@V@W@Y@@Z@[@\@Y@@U@Q@M@H@D@A@=@8@4@1@,@(@#@ @333333@@@333333@ @ffffff@@ffffff?333333?e@b@@_@Y@@U@R@N@I@D@A@=@9@4@1@,@*@$@333333 @@333333@333333@@ @ffffff@r@@o@@j@e@b@@_@Y@@U@Q@N@I@D@A@=@9@4@1@,@(@ffffff#@333333 @@@@@?@Q?A@@@I@9@ș@v@@@@`@ @@С@8@@@@`@ȩ@M@N@ffffff????@@ @@@"@&@?(\?HzG?ffffff?Q?Q?p= ף?q= ףp?Gz?= ףp=?tV?𿚙?{Gz?Q?333333??Q??Gz?Q?\(\??$@4@(@@@P`PpPІP0PЁ0`ppЎP2@-`--@...,0, BytePointerF:0;?ZS?[HM ?ΡY?-Inf+InfNan 0?(0000000000000000000000000000000000000000-+E@Runtime error  at $/proc/self/exe0123456789ABCDEF $6This binary has no unicodestrings support compiled in.SRecompile the application with a unicodestrings-manager in the program uses clause.FFFkMk5k5kMkMkMk#kMk5k)kAk)kMkMkAkMkMkMkGk/kkkMkMkMk5kMkAkMk5kMkMkMk;kMkMkAk.This binary has no thread support compiled in.jRecompile the application with a thread-driver in the program uses clause before other units using thread.ttttttttttttttttQt]titutttttttttttttttttttttttGtOP &qwertyuiopasdfghjklzxcvbnm1234567890-=& !"#$%&,-./012xyz{|}~[;HCDBA 042615370m   localtimeTZDIR/usr/share/zoneinfo/ /etc/timezone/etc/localtime/usr/lib/zoneinfo/localtime/proc/self/fd/=FPC 2.6.2-8 [2014/01/22] for i386 - Linux.shstrtab.text.data.bss -0j2