`8Loaderp  A SAGROTAN 4.14 `0: @`8fA0<BAXQJAf Aa`NuAaV`ay**************** Bootprogramm zum Schutz vor Virenbefall. ****************/?< NA\Nu **************** Von Henrik Alt, Kirgelweg 25, 7160 Gaildorf. Kto. 6428662 KSK Schwb. Hall BLZ 62250030 **************** p Der Bootsektor wurde verndert q p Kein Virus im Bootsektor q ****************Update besorgen nicht vergessen!****************Nq`X@`  @`! #@%`')+-/1 3@5`79;=?A C@E`GIKMOQ S@U`WY[]_aOe`ikmoq s@u`wy{} @` @ ` / O ` @ ` @ ` ɠ @ ` ׀ ٠  @``!Aa   !Aa!!#%a')+-/1!5a79;?A!CAEaGIKMOQ!SAUaWY[]_a!cAeagikmoq!sAuawy{}!A!Aa!Aa!Aa!Aaǁɡ!Aaׁ١!Aa!Aa " b  !"!B!b!!!!!"!""#B"%b"'")"+"-"/#1"#3B#5b#7#9#;#=#?$A"$CB$Eb$G$I$K$M$O%Q"%SB%Ub%W%Y%[%]%_&a"&cB&eb&g&i&k&m&o'q"'sub'w'y'{'}'("(B(b((((B)*+/+O+o++++,",O,b,@`  @`! #@%`')+-/1 3@5`79;=?A C@E`GIKMOQ S@U`WY[]_aOe`ikmoq s@u`wy{} @` @ ` / O ` @ ` @ ` ɠ @ ` ׀ ٠  @``!Aa   !Aa!!#%a')+-/1!5a79;?A!CAEaGIKMOQ!SAUaWY[]_a!cAeagikmoq!sAuawy{}!A!Aa!Aa!Aa!Aaǁɡ!Aaׁ١!Aa!Aa " b  !"!B!b!!!!!"!""#B"%b"'")"+"-"/#1"#3B#5b#7#9#;#=#?$A"$CB$Eb$G$I$K$M$O%Q"%SB%Ub%W%Y%[%]%_&a"&cB&eb&g&i&k&m&o'q"'sub'w'y'{'}'("(B(b((((B)*+/+O+o++++,",O,b,X B_NACH_CPRG SdDESKTOP INF t bREAD_ME TXT >> TURBO-C <<<< for ATARI-ST Version 1.1 (C)88/89 Borland International G#kNJ$VH3kR k #kX Ј<.@#kT<"@(I$k,"Jf"JfB// ?<?<JNAO N/A6<HCBB`6 !jBJ)gHiRC` "fSI "WJAkHiRCBSQJ)gHiRCHy`$O0 J"LN@? 96g @N 9ktg @N 96g @NN(h?<LNAH>ON EÎG8'RN&I(KfT`NF8 SBBk`A "RNDJ@g& R ( g ( g(fRNg`R RNCJ@f R @f RNJ`|A "RNDJ@g( SR"R RR SR<"f SR"R`@A "RNDJ@gN`& RHN*8J@f R :fN`N0LNuH BCxEÎ`SD R 0 @g 0 @g 0 @g0@fRBD`6 R 0"@f`RD R 0"@fRDAF:"R1@NDJ@gv` RD R 0 @fJCf NJ`|BD`RDAF="R1@NDJ@g R 0=@fN 0$@g6 0)@f>B@SD R 0)@fR@` R 0(@fS@SDJ@f R 0$@f3kNqn`N0LNu yÎ ^fN0Nu yÎ =fNNu yÎRÎ"ym Rm Nu/ / EÎ&R KR"ym Rm  RHN*JJ@g N` R *f"AF@ND3kN0Byk`` R (!fAFIND`. R ()f>&HU RNT$ (!f&AFIND$NF ym Rm )`$&_$_Nu/ / EByS@By,By0p`2AAlBpR@|cmB@`2AA@BpR@|mNuHOBCKÚ;C;C3;|E#"$N2AN;@N10-N1NIGd LNMFHyG?<CA N4\OrPpN' *rPpN' +HA N NN(pN5/A NXO NN(A%NA`NANANANANAN0-g A+N` AUN0-g AN` ANAN NN(HyúANXOANN5&0|0| b@0;N(~8BVBA0-N2B@NUlACNN:0-g+mBfNp. mN$r/HB(CI mN$*NL`ACNN:`t0-gl+mBfN`VACNN:`0-g< Up.N$r/HB(CI UN$* UN` g&@A N` R  fp N6 RRN6 R"c$Np`NT`0-gBA`r;A`0-gBA`r;A`OL|NuH8BCGFEGdA N KN(pN5/A NXO KN(AKNAgNANANANAN KN(HyúANXON5&0|0|bZ@0;N  *4N`:N`0N`&NR`ANN6<jg<JfANr <$N' (HBD`>?O*H&IMBA0.N2BCE`RC 3.0fC0 JN$IBAGmNfDCL LN$N5B@ NN5"N LN$*CL LN$*"J LN$*`"K NN$*"H LN$Hyø"K LN38XOfBn0.g:BC0RC4fSC 4\0fB40"L NN$"L MN$"K MN$*`PBC`B30RC30fBC`B50RC50fBC`B60RC60fBC`B40RC40fBC`B20RC20f0.N1AGmN0.O~L|NuAjlNNurpN@ALNrpN@AFN(rpAN@ALNN6Nu/ p ?BBrpNTOBgBBrpNTOt rpN?<4<{rpNTOBBrpNp_?4<2<0<NTOEGdAX4<pr0<N?<4<;2<p?A?B?o A09êN1rPONuH68:BykvEÎGM R  fpC0N%fJ@gRIM09SFf` 3SDN"b RHN*JJ@fN J@f` RHN*8J@g0N!J@f`xN J@f N J@g3SDN"b`R R 0m 9o, R &fA4"R)NDJ@f R "f ("f 0N BC` R ,f R R  f`` R "f ("glN 8J@f R 0m 9o R &fhA4"R)NDJ@gT`RA8"RNDJ@fpC0 RN%fJ@f R  gR`N"b RHN*JJ@f|NR`t0,g*A;NDUk ykBPNCA>ND`9|ACND*R$fAND` R (<fAND`A"R)NDJ@g A"R)NDJ@f AfND`RA"R)NDJ@gDAND`2A"R)NDJ@g$A"R)NDJ@fAUNDT` RR"ym Rm `|0N((A"RNDJ@gP ym Rm ,`RA "RNDJ@f` R (fNF`NaA$"RNDJ@g ym Rm )L NuH0BCEÎGM` R  fR` RHN*JJ@gvBC`RCr03H"s RN%fJ@g|o޶|n4BC k>"RNDJ@fpN0 R  fbR"ym Rm `P k>"RNDJ@f>`" k>"RNDJ@f* R !f ( gN0 k>"RNDJ@g2L Nu?/ |f ym Rm !AN8NDEM`N yÎHN*JJ@g4BC`RCr02H"r yÎN%fJ@g|oڶ|nBC`NaAO"yÎNDJ@g$_6NuH8BC8:EÎGMIM` R0PHN*JJ@gFBD`RDr03H"s RN%fJ@g|oܸ|nBD`bRE R0PHN*JJ@f R 0$Pg 0"Pfv` R 0(Pf 0N`t:` R 0 PgREA-"R1PNDJ@g\JCgt R 0=Pfp`rpC RN%fJ@fp`XpC RN%fJ@fv`2pC RN%fJ@fv` R 0Pfv|lv7C0L8NuH>EÎIXKÒMĊ R ?g`R R  g !f NF8`G&6Ry0 T! RN RN6| fv0 T1 UR 0HAd& pNBD UR*|f UR*-RP`R R (fR0*nRS@2 T12 T!ZNF=@TH2 T$ZCN NN"N0 TA N$pnT2 T12 T$ZBD`0N`t8 R 0,f"UR*RDAO"R1@NDJ@g$P` RR"UR RNDVJ@f0HAdF pNAO#N UR;`R R (f` R (fNT$RAO"RNDJ@gR R ,fR R  fL|NuH8EÎG'R 'ym BC67CIO2 L"RNDJ@fV R !f ( g ( f`R R  f`. R "f NaZ`A"RNDJ@g0 RH|'g[@g|g`v `v `v `BC` RHN**J@g`R RHN**J@f R .fxR RHN**J@f R EfL (+g (-f< R(HN**J@g*T`R RHN**J@fA "RNDJ@f`b R  f4S`. R EfZ (+g (-fJ R(HN**J@g8T`R RHN**J@fA "RNDJ@f R  fSp`A"RNDJ@g:` R (fNT$RA"RNDJ@f RHN**J@f`pC RRHN%fJ@gpC RRHN%fJ@f\pC RRHN%fJ@fx`BZ` R (fNT$R RNDVJ@fA"RNDJ@fJfp` R  fS` RNDVJ@gx`SD R 0 @g 0 @g0@fx`R RNDVJ@f|f R :fp` RHrCYWf00)N!$%&|$ v`v`v` v`v`v|f R (gJCo|l|g R ((f7|`0Bk`* RHN*JJ@g R(HN*JJ@gN7n60`pC! RN%fJ@f(`R R (fNGA$"RNDJ@g`pC* RN%fJ@fp`pC. RN%fJ@g R *f((NDVJ@fAO("R)NDJ@gXp `Z R &fPR RHrAXWf00( NHOXhox$$6` 6`6R'R p`B@LNuHSyk`* R ( g ( f6RNg`N;<` N0`AK"R)NDJ@gN>&`Byk RR"SR SR v`RC R 0 0g 0 0gpCON%fJ@gdpCT RN%fJ@gPpCZ RN%fJ@g`RNJ`B@ANpCANZ`A"R)NDJ@gAND` R(HN*JJ@fN` RHN**J@gBCK*` RR UR SRRC RHN**J@f UB* R .f RR"SR RHN**J@fBC R EfL (+g (-f< R(HN**J@g* RR"SR RR"SR RHN**J@fBC` RNCJ@g09lgAND`09.f |n|o UN o SRL`v RNDVJ@g(09kg R(NDVJ@fNKXN;`@ RHN*JJ@g R(HN*8J@gANlN6pNUl` R Lf (:fTAGND` R Cf (:f N` R Wf (:fTANND`pCT RN%fJ@fHXpCY RN%fJ@fA\NDT`pAmNDNCAfNDNF`LpC RN%fJ@fANDV`*N09kgT R ( fA"RNDJ@gR R  g ( f&A"RNDJ@gR R  g !fN$A"R)NDJ@g RR"SR`A"R)NDJ@gA"RNDJ@fnA"RNDJ@g`09kf29kgP R(NDVJ@f, R(NDVJ@f R(HN*8J@f R ()f S (,gR,R` RR"SRL<NuH8EÎ&RBC8:IH` RRPRE RHN*JJ@fB4P$ LN6|@bj@0;N^:J:^^^^^^^J^^^^jj^^^^^J^^^^^^^^:^^^::^^^^^^J:jjjj^^^^^J^j^^^^^j^^^:JJ^^::^J:^^^:J^:^^^^^^^J^J^^j^^Jj^^:^^^^^::j^^^^^^^:^^^j^jJ^^j^^^^^^^^^^^^::^^jjjjjjjjjjj^^^^^jj^^jJJJNRVZZj^^^^jJJ:^^jJ^::^J^^^^::^j^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^JJJJJjjJjp`p` R (?g`p`&R`R R (fRN:]@fz`|fz$`RD R 0(@fRD 0#@g 0?@f&`xRDAP"R1@NDJ@g R 0?@fTp`X|`"0N`t< R 0$g 0"fp`4RF R 0)`fp`$p` p`p`p`|o |.lp`BE0LxNu/ AÎ"P ) g ) fb3O&Em S"R  g  gRR#09kg RR; RR Ng RB$"RAN$ RB$_NuH0OBCE :GÎJEg@` S00RC S00NDVJ@fAO("S10NDJ@f S 0(0gB70N84JEgxS@mr|njBC`4C0HA`N$J@f ym (&g@Rm *`4RCy m`( yR<.g`pP ym Rm  yeθ|n*0N<09g SNDVJ@fAPNDNO L 8Nu?6HAdF pND|gRÎ6Nu yÎ (fB@N=,#ÎNuNNuRHR@ (fR@` )fS@RHJ@gNuH0BCEÎGO2 R(HrCYWf<0)NHOXx*ANDv`AND` ANDT`R RHN*JJ@g0` RRHN*\ ym Rm  RHN*JJ@f` RR"ym Rm  RNCJ@gJCg ALNDL Nu/ / Em R ( fSGÎ09kf 29kg09kf29kfx S ("fRN> S ( fAP"SNDJ@fB S  g" ( g  fR S  g !fN| S  g"R ),gR,R` SR"RR&_$_Nu/ / AÎCm 09kf29kg&09kfR$P "fR`*$P \f$QR\$PR&QR$P "fR&QR&_$_NuH8Ek6GÎIm 09g S(NDVJ@ft S(NDVJ@gp S(N@fJ@f``RBRRykR TR[APND S )f"TR0APNSyk TR) TR]4 S )fR`Ryk SR"TR4LNu`fNu?pNDVJ@f"AO(pNDJ@gpNDVJ@gp`B@6NuAPNDJ@gpNuB@NuAPNDJ@gpNuB@Nu// $H2lD@BB6HÇ HC<0 RB6HÇ 0nJAl- RBB2 JN@$_&NuH $HxN%(&S`2HHH8H8RSnLNuAPNp yÎANjAQNp ym ANjAjlNNuH>EÎ R  fGm K09kgU@f&"SR}09O&gByO& MNDNC`209O&gByO& MND SR NCxNC SR{ SR NC09S>gM,29S@A46gIO2ANDr A<49S@B06 N"NDA"NDv` 0NZ6RC R 0 0g 0 0gpCON%fJ@gdpCT RN%fJ@gPpCZ RN%fJ@gSyS@Byk`F09O&gByO& MND ykf SR; S(g ykg R NC3kp`B@L|Nu3k ykTk0Nu3kUk ykBPNu/ Ak"P kx`$ym Rm  $PT0f $_Nu< g< fpNuB@Nu?AQFNDJ@f< g< g< g Jg< fp`B@6NuAO(NDJ@g yÎ(HN*8J@gpNuB@Nu?HN*8J@f HN**J@fAQRNDJ@gp`B@6Nu`fpNufB@Nu?/ $HBC`40RC|mAQUNlN6pNUl` ym Rm f$_6Nu?/ $HBCN`40RC|mAQUNlN6pNUl` ym Rm f$_6Nu yÎ ( g ( fpNuB@Nu`NlAO9"yÎN&J@gNu// BC3.APyNEÎ`$0N`t6 R 0+fAQsNv`0RC R 0,0f`"|f R +fR"ym Rm N R ,fֶ|f"ym Rm )By.$_&Nu`N yÎ  fNu`Na yÎ  fNu`RÎ yÎ  fNu/ / &HEÎ` R (fNT$R Rf&_$_NuH 8BCEÎ R 0"fN`8 R 0)@f8RCSD R 0"@f 0N`8 R 0)@fRC R 0(@fSCSDJCfRD0LNu/ EÎ R (f` R (fN`N R )fN$_Nu/ $H"yÎ {f$` yÎ {f JN`N yÎ }fN$_Nu/ EÎ R (f` R (fN`Na R )fNa$_Nu/ EÎ R (f` R (fN`R R )fR$_NuH06EO2GÎ`HNAI"SNJ@gAL"S)NJ@gAYN S  gR"ym Rm SC S  f` SCAONxJCnL NuH06EÎGO2`` R (fN`NjAV"RN*J@gAL"R)NJ@gAYNAS"RNJ@f RR"ym Rm SCAS"RNJ@g` SCAONJCn R )fNL NuH86EÎGO2I` R (fNR`NaAV"RNzJ@gAL"R)NhJ@g(AZNnr L0N"N^ ym Rm ]AS"RN0J@f RR"ym Rm SCAS"RN J@g`*A^Nr L0N"N ym Rm ]SCJCn R )fNLNu` NKXN yÎ  fNu/ / EÎ R (fG60g29,gJ@g APyNNKXN09,g2f APyNfBS`> R (fN`009,g R ,fNKXN\APyN0` NKXNF R )fNKXN4&_$_Nu` NKXN"AOI"yÎNJ@gNu/ AkBPCÎ$Q (fRP$Q )fSPR0fS$_Nu` yÎRÎ"ym Rm AOI"yÎNxJ@g yÎRÎ"ym Rm Nu`NAQ"yÎN@J@gNuAk"yÎ "f20D@0 PfNSJ@f ym Rm &Nu/ $H`4 yÎ _f"ym Rm `HN*\ ym Rm HN*JJ@f _gNK$_NuH8BC8zEO2GÎIm Af"SN~J@g$ S |f "TRc` S &f"TRiR S  g (g4BE"TR(`(0N`t6 S 0!f 0 g 0 fxRCAS"S10NJ@gJDgJJEfJ`R S  g  g !fSN S !fAN`NA"SNJ@g`JEgN` N$ TR)L8NuH>YOIm(Em$$GÎ.Byk3kBCKkMO2``R S  g "f09kf NQ`NOn6J@gQ@m|fH0fD` S (fN>`R|gAj"SNJ@gڶ|fAo"SNJ@g` SHN*JJ@gb`R SHN*JJ@fAu"SNJ@g S(HN*JJ@f S (fN S  f"RR\ RRn`x0g&29g S (f`RAS"SNFJ@gR S *f0(NJ@f$AO("S)NJ@fR SNJ@fS S  gR S  f S  f.A"S)NJ@f09kf2f RR\ RRn RB$` R %f (%fR` 3k`R Rf$Im TR"` RR"TR RfANx09kg2g49kg TR,&0g S ( f"TR,BykXOL|NuH(H,IEm &R*H` NN%("N yÎN%fJ@gNz NN%("N yÎN%fJ@f NN%(ѹÎ RB$` RR Rf$B(M LL|NuH<$H&HIm *TN TB(` TR Tf(B$K JL<Nu/ / OACÎ$Q`&QR&Q  fBA"OP&_$_Nu?BC`RC yÎ00NDJ@f yÎ 0$0fp`B@6Nu/ / $HSJGO.RS` )f JN$H` (fSS`SJ (f0fSJBS J&_$_Nu/ / $HRJGO0RS` )f JN$H` (fSS`RJ (f0fRJBS J&_$_NuRHp (fR@` )fS@RHJ@fSHNuSHp (fS@` )fR@SHJ@fRHNuAQNRÎNuH<$H*I(o&H LN%(& MN%((` "M JN%fJ@f$Kp`"RJ "L JN%fJ@g yÎ  f$KB@L<Nu?/ 6BA09êN209êN1EO2JCgX 9ÎgPrpN@HyFANXOrpN@p?HyQAN\Op2 yÎNjN6N3J@fANlN6B@N yÖN( yÚN(JCg pNP`B@NP$_6NuH0O:BC8EÎ R0HN*JJ@g R0PHN*JJ@gG8` RPRE R0PHN*JJ@fBG: KNrAXWfT0("N%,6NSTW[`w~HHHHHHHHHHHHHHHHHHv`BC|f.`0N`t:RE R 0)Pg:AR("R1PNDJ@g R 0+Pf 0$Pg|g 0"Pfp`B@OL 8NuH8BC8:ER(ANDNETGÎIm SR"TRNET SR"TR`0N`t8 S 0,fz` RD S 0 @fJEf A ND`NET SR"TRN,,6&J@oW@n AND`*|f AND`|fAND`Na S  fJCo|l A$ND`|f TR) TR)L8NuH8BC8EÎRz`0N`t: R 0,fRCRE R 0)Pf&HRN,,8$IR(J@oW@n A.ND`"|f A4ND`|f A:ND$` R (fNF`N0 R )f|f A@ND`JCf ADNDN0L8Nu?BCARsND`4Na yÎ ,f"B9lRC|fRÎ"ym Rm  yÎ  f"ym Rm )6NuAR{ND`NaAR"yÎNDJ@g yÎ ,g ARNDNF ym Rm )NuARND`NaAR"yÎNDJ@gNF ym Rm )NuARND`Na yÎ  f"ym Rm )NuARND`Na yÎ Af"ym Rm ,TÎ09kAlB0`Na yÎ  f"ym Rm )NuARND`Na yÎ  f"ym Rm )NuARND`$Na yÎ ,f09kf ClB1 yÎ  f"ym Rm )NuH0BC8EÎRGR(ANDN009kAlB0`NaAi"RNDJ@g`0N`t8 R 0,fRC` RD R 0)@fܶ|l AND` AN R  gN0L NuH0BCEÎRGR(ANDN009kAlB0`NaAi"RNDJ@gBD`0N`t8 R 0,fRC` RD R 0)@fܶ|l AND` AN R  gN0L NuH`$ANDByk3kRyS@NF&_$_NuASNDNCASNDBykNF3kNu/ / E,5|ASNDVÎN$ ym Rm  0*f2*gZNCATNDGS@0@22fRk0@5r A4B02 N"ND3kNF`AT ND3kBj&_$_Nu`RÎ yÎNCJ@fAT"yÎNDJ@f*ATNDNF ym Rm )By NuBy 3kB@3k3kNFNuH>RyS@BCIBykNF83kNu3"3$ASNDN$3kBykNFBy$NuBykNF3kNuRyS@ASNDBykNF3kNuHBykNF3kNuH0(NAIORU ,&r`0w`*a`$r`a+`A|NlNF8`RAz"SNDJ@g|"B`vANl`R S ,fR S ,fRNFIJCf& ym Rm ,` ym Rm f` ANDANDANDJCg ANDA"NDAPNDA]NDAjNDBykPOL8NuRÎAT@NDNFNuRÎATCNDNFNu yÎ (fATANyNuRÎNETAVNDRÎNFNu yÎ (fATDNyNuRÎNETAVNDRÎNFNu yÎ (fAVNyNuRÎNETAVNDRÎNFNu/ / &HEÎN0 R ,fR KND`N0AU"RNDJ@g R  gN0&_$_Nu/ / &HN0AVNDEÎ`N0 R ,fR KNDAVND`N0AU"RNDJ@g R  gN0&_$_NuAVNDNFNuAVNDNFAVND ym Rm )NuAVNDAVNDNFAVNDNu/ AVNDEÎ`RAU"RNDJ@g R  gR$_Nu3kAWNDNFBykNu yÎ (f AWNNuAWNDNu yÎ (f AWNNuAWNDNu yÎ (fAW"NDNFNuAW&NDNu yÎ (f AW+N2NuAW+NDNuRÎAW/NDNu??BC8`RÎ yÎ  gN.6AW2ND0 yX20ICdf qNDBD` ym Rm *RD0 yXpm"ym Rm )NCW90 yX pN$NF8 ym Rm )86NuAW=NDNuAWFNDNuN|NuAWONDNF ym Rm )NuH8BC8:ESNANDGÎ`R SNCJ@fIm pC SN%fJ@fTANDNF`\BD`H0N`t8 S 0,fRE`. S 0$@g 0"@fYANDNF8Byk`RDpC SN%fJ@g S 0 @f S 0T@f 0 @g S 0 @f4|f.ADND`N0AI"SNDJ@gNF8` TR(`6 S Tf(Tv TR,`N0AI"SNDJ@g`N0AL"SNDJ@fJCg S TfB`8A^NDAOND S Tf V`N0AI"SNDJ@g S  f TR)L8NuAÎ"P  f )If3k3\NNuAWNDNF ym Rm )NuAWNlNu/ / 3k3kB@3k3kESN29kfANDNC3kANDNLGm `pC R RN%fJ@f^A ZNDNF` R #fVBFR`N0 R  fpC RN%fJ@f^|A \NDJFm A mND`NFA!ND`AND`ZpC RN%fJ@gpC RN%fJ@f0 R Tfz`x ym Rm ,R RHN*JJ@fN0 R  fJDf ANDJEg A sND`JCg A jND` A vND ym Rm )L xNuA\NDNF ym Rm )NuA\NDpNG ym Rm )NuA\NDpNG ym Rm )NuA\NDpNG ym Rm )NuA\NDpNG ym Rm )Nu/]O`pN6&f`N4JfB/A\O&NupN6HNu?8t@?rD?A\NXO8Nu/&"Ҁtp|N3H&&NuH8NVEÎ`R R  g&H`R R (fRISN R 1fX ()fP$ ym Rm *ANA NDNC$A NDANA ND`A ND`N0 R )fA ND$NCA ND`R R  gN0 R =fA ND$ANDNC ym Rm *`R R  gN0 R =fANDRNF8LNuH030BC3J3kESNA{NDGÎpC SN%fJ@f ym Rm (Tv`N0 SNDVJ@fpCl SN%fJ@fTA ND`N0A "SNDJ@gJCg ym Rm )`N0BykBy0L NuN*Nu/ / E2BR5|5|BjByM`0HA BRR0HA "0f4GÎ`R S  gAZND%S SN SN]@f5| ym Rm *BykNF ym Rm )3k&_$_Nu/ EÎ R )f NT0$`S$_Nu/ Em R )f NT0$`S$_NuA]PNDNu3lNNu3kNFNuTÎ ym Rm (B@ yÎNRASTNFN ym Rm )RÎNuH>,H*I$ym GÎ(S` S (fNF`N0 M"SNDJ@f S  f ym B"J NN$#m &L|NuH`GkBSIL`KkB@9@9@8:`R R  g !fN`)R RNR9@$N,,:9@J@fA]YNlNF8``$A]NDNAXND R (gRRp2, yXp8: Ug UfRT9T:20Np: lN6Bl Ug Uf Tf0, yX$Z`, Ug Uf> Tf80,H2, yX$Z2,Rl0, lN:BS`*0,Rl?42,0 lNTO:BSST0f R  g:0g"ym Rm ; ym Rm  NCR R  fB6L<NuH06:80NESNA :NDGm ` SR*0SDJ@f SR)A =NDA NNRÎA QND0N SR 8` SR*0SDJ@fA dNDNVL 8NuH>QO/H6<>?@BEEÎ&RIm 49kg"TR;KSNANDNCM8CRD$`0/4EH2. yX$ZRE0SDJ@f8CRD`A gNDr N0N"NDA oNDr N0N"NDA wNDA NNA rNDr N0RWN"NDA {ND ykTk0NCR0SDJ@flANDNCA ND$NBEpF@n|m |g|gpF@nF|m@BE8CRD$8C`(A NDr N0REN"NDA ND0SDJ@fA NDr N0N"NDA ND0N TR ` TR*0/SoJ@f TR)A =ND$A NNRA QND0N TR JCgpC?@` TR*0/SoJ@fA dNDNV oNANDNCAjND`Uk ykBP0SWJ@fPOL|NuH>,H8>BCEÎ&R49kg"ym Rm ;ISNANDNCK<|mBE<6$`0FH2- yX$ZRF0SCJ@f6`A gNDr M0N"NDA oNDr M0N"NDA wNDA NNA rNDr M0REN"NDA {ND ykTk0NCR0SCJ@fl$ANDNCA ND$NBF|o86vD`(A NDr M0RFN"NDA ND0SCJ@fA NDr M0N"NDA NDA ND`RA"RNDJ@gRNV NNANDNCAjND`Uk ykBP0SEJ@fL|Nu/ ESN2|bTA2;NJ44(4@A ND`.A ND`"A ND`A ND` A ND$_Nu/ ESNA NDNCA NDNCA NDNCA ND$_Nu/ $yÎ#ÎN#Î$_Nu?N,,6 y`<.g`rP"ym Rm Îeܶ|n0NEÎR&R KN6*yXK ISNA &ND MNDA 1ND`R R (fR RN$*H`N0 R )fA =NDAZND$N`N0ĻdMm S V [gfA TND$N`N0ĻdS V [gfA _NDNC$0 yX pf"A gND`N0 R =f"VR,NFL|NuH>EÎR&R KNؤ6,yXM ISNA *ND`R R (fR RN$*H`N0 R )fANDA oND NNDA |ND$AZNDN`N0ĻdMm S V [gfA ND$N`N0ĻdS V [gfA ND$NCNP`N0ĻdS V [gf0 yX pg A ND` A NDNF8L|Nu"H` ,f"HRH )f INuH>EÎ&R`R R  gN@6BDISNKm MX`A gNDp0 URA oNDp0 URA wNDA NNA rNDp0 URJDf A ND` A {NDAZNDB@` UR R@@nRD0H2 V"pZ$ )f`` UR SDn0 V$Nx`"A ND0</ URRDA ND0H2 V$0Zf$`R R ,fR UR=0 V pfA NDNF UR)`NFL|NuH8(H6EÎ RN ym Rm (2 yX$`R R (fRGSN`* R ,fJCg A ND` A NDRN0AO"RNDJ@g$A 9NDLNuH<8v`SC yÎ00HN*JJ@f yÎ 0_0gEm GSNIH 0~0fNS RNDVJ@fpCk R]HN%fJ@f]A ND LN%RNDN00NH`j RB$8K<"R MN$A *ND LN%RNDN00NHANDNC RB"M RN$A NDL<NuH0BCEÎRGSNA ND`N0pC RN%fJ@f ym Rm ,V`" R ,fRC` R (fNF`N0AO"RNDJ@g̶|l ANDNF ym Rm )L NupNHNupN@Nup N8NupN0NupN(NupN NupNNupNNupNNupNNupNNupNNupNNupNNupNNupNNupNNupNNup NNupNNup NNupNNupNNupNNupNNupNNupNxNup NpNupNhNupN`NupNXNupNPNupNHNupN@NupN8NupN0NupN(NupN NupNNupNNupNNupNNupNNupNNupNNupNNupNNup NNupNNuB@NNupNNupNNupNNupNNupNNupNNupNNupNNupNxNuNNuNNuNNuNNuNNuNNuNNuNNu/ AHN%RNDEÎAaH"RNDJ@g4 R |f"ym Rm c` R &f"ym Rm iRNF$_Nu/ EÎ R  g,RAaLND` RR"ym Rm  R  f` AaUND$_NuH>SykESN09SLf3SLAND` A1NDBCNCGÎ`SC S 0 0fSCI@K\ 0:0fBp"U3SJ`SC S 0 0fRC S 0 0g 0:0gp"U#RT`R SNCJ@fNCN09kfA5ND,SBC`hA;NDp U&` SR"ym Rm  S :fANDr At"U01 N"NDANDNCRCTm&L|Nu/ / RySJEÎGm ` R "f@ ("f"SR"T R  g`R` RR"SR R "f ( f,`T R  fRySJ` R ,fRySJAaNDR`0 R ( fR"SR R ("g SR"` RR"SR R  fR&_$_NuH0EÎ`R RNCJ@fGSN` RN RN6| f v`N0A"RNDJ@gAND|n AFND`"|f AMND`|f ATNDAZND|n ym Rm ) R ,fRANDNC`NF R  fBL NuH8EÎ&R`R R  gf R  fR R  g  fRISNpCj RN%fJ@g R 'f`R R  fR R  g  fRp Cn RN%fJ@g2pCx RN%fJ@g Rg<>gAND3k`#8m ym BByk$LNu#mÎ#8m NuH8(HEFGSN09ìg(rpN״p?HyFAN\OrpNז`&rpN׌p?HyFAN\OrpNn/ ANXOpdN|rpNRAN LNDByk ym Rm  NCLNuH8GB@7@7@3@333Eb 5|@p` 2IBR@|op`2I'R@|oBCIÎ(m 3k7CBykB@3k7@`BN THN*JJ@f T @fNR` THN*8J@g pNN`R Tfv`609ìg2I/2tԳ/AbqNPO0H2I'RC|o%|v`0H2I%RC|o0+H%@(2+H%A,49kH%B069kH%C40yk%H8NAbNLNu3bL#m Îp`2IA!R@|oNxN#Ò`809H y`"0g$Sy09H"p yÒN#Ò09kSykJ@nAbN3bLNuH0:BC8EÎ RN8J@g< RN6| gJCg R 0(@gtGֺ|fV0H"3c0NA0H"3"P"q#"3"P"q3"3R"P"qBq`0HR0Hђ`ƶ| fv`RD R 0(@f 0N`t8RD R 0)@fRD 0 @fAb"R)NDJ@f R(fn|g|f N`R R ( f`JR RNrJ@fAb"RNDJ@f`$R RNrJ@fAb"RNDJ@fRL 8NuH>EGb Rf +fB@NId0f4rpйN' #Î g2I)RR&`pN k@fKmN6*xv`2I$2. ЂЀ؀RC|opjH؀BC`$pjr2 rjt4"N.x؀RCpj@o4*H"鉒؁09kH"<N.x؀29kH؁BC`ؼRCykm мp"c4MÒ rN' , g2I)RR'|  V%HV`pN +g#M"9pN' , g 2I)RR`pNBC`B0H"3g6xp4Jв "N' 0H"V#"g 4J) RR`pNRC|o +(g,r<0*HN' # g 2I)RR`pN +0g2"<09kHN' #X g 2I)RR`pN +4gpr09kHN' #` g 2I)RR`pNBC`6r <N' 0H"y`#"g 4J) RR`pNRCykm +8g.r09kHN' #\ g 2I)RR`pNL|NuH BC|fvBD`8pEdR@2I"2f:`"0H rN(0HAb BBSEpD@l3JCgBECb JN$Cc JN$*N609êN1N3pNPL8NuH>BCEÎIdfMbP09kgRNF8Byk`JR R  gHN*8J@g09 gN6|g|g RN8J@gGbN RN6]@g2I tND Sg Sfr*RAND`N0 RNrJ@f[m ANDNC$0H tND`N0 RNrJ@fA'ND$`N0 RNrJ@f0N` R  gN0A"RNDJ@gA$NDNC R  gR R  fL|NuH.O|BCEÎIO(` R00RC R00NDVJ@f L"R10NDJ@fB70BCK`M `0HA"gvCN$J@fhCc{ NN$C NN$*Cc NN$* NNl`R RNDVJ@f L"RNDJ@f R  gRp`Bykp`RCy mtB@OLtNu?/ 6EbPJ@oY@l ApND`:|f AuND`(|f A{ND`|f[m AND$_6Nu??8BC`RCRÎ yÎNDVJ@fAO("yÎNDJ@fθCl8086NuH0BCEÎ R @fR RHN*JJ@f`R R  g`R RNDVJ@fGbP`NpC RN%fJ@gHpC RN%fJ@g6pC RN%fJ@g$pC RN%fJ@gpC RN%fJ@flRCpC RN%fJ@gpC RN%fJ@fZT09N3 R (f NT$` R ,fRC`A"RNDJ@fRA"RNDJ@fRA"RNDJ@gyc3JCoRyL NuH0$HN6|l DGc|bL@0;N (2<FPZdnx$.8BR\fpz@$.8BLV`jt~@",6@JT^hr|@$.8BLV`jt~ (2<FPZdnx ",6Xblv    " , 6 @ J T ^ h r r |    & 0 : D N X b l v   N{(` BNgz` 8N_d` .N(` $NY` N ` NZ` N` N` Nu`` N` N` Nb` Nx@` N` Nl` N` N` Nz` Nt` Ng` zN|r` pN|` fNj` \N{b` RNi` HN` > KND` 2N[0` (N|N` N` NjL` Nsh` RÎNJ` Nq$` NJ` N` N` Nl` Nx&` Nt` N^` NX` N\&` N_` N~:` xNd` nN~` dNH` ZNu$` PN` FN:` N` 4N` *N` Nz` N` N` NX`Nx`N`N|F`N`N`NWv`A ND`Nu,`NmL`N``N`AND`xNn`nNn`dNh`ZNi`PN*`FNo`N`4N `*N0` N`N` #8m ym BBykNF8`N`NT`Nx`N`N`N`Nd`N`N`N8`N`| JN `pN`fNb`\N"`RN#`HNy`>N`4N`*N` N`N` N`N`N`Nc `Nc`Nc2`NcF`NcZ`Nct`Nc`Nc`N`N$`N:`N`vN`lN`bN`XN`NNB`DN"`:N`0N$`&N@`NN`NP`Nx`N`N`N`NB`N\`N`Nz`NZ`N`Nj`N`N`N`|N`rN`hN,`^N`TN`JN`@N`6N`,N`"N`0||Eb@0;N",6@JT^hr|&0:DNXblvN`jN``N`VN`LN`BN`8N`.N`$N`N&`N.`N6`N>`NF`NN`NV`N^`Nf`Nn`Nv`N~`N`N`N`N`zN`pN`fN`\N`RN`HN`>N`4N`*N` N`N` N`N`N`N`N`N&`N.`N6`N>`NF`NN`NV`N^`Nf`Nn`vNv`lN~`bN`ZN`RN`JN`BN`:N`2N`*NsT`" JNK`N`N` JN >L NuH0EBC45C5C5C5C5C5C3lGÎ`BN SHN*JJ@f S @fNR` SHN*8J@g pNN`R SfAgNvG`.0Hrd Cp4Jг j p rNRC|oAh NL Nu/ / BylEbLGÎN| b @0;N DTllz  Rf NF8`RAh'"SNDJ@g` RgN`3l RfRy` RgN` Rf N`xN*`n3`b Rf Ryk`RAh'"SNDJ@g`< Rf6 ykm,Nd`$ RfRyk` Rf ykmN&_$_Nu3 ym Rm  N09lgNV` Ah*NDRÎN3 yÎ (gAh2ND`29pN ym BN #8m Nu/ EÎRRyk`2N R ,fRyk` R (f NT$` R  gR R  f$_NuH8E8Gm & JR `RÎ yÎ  gN SB(J"L09RyH y` pN&LNu/ / `RÎ yÎ  gNnEm RBG8$"K yÒN#Ò$&_$_NuH>GÒIM09lf0-SBC`2I 4SA!RC|oBCEe`Fx`2*Sp2IдdH$ V"p01(f21( 01(NH"4J V"p "q p pN%fJ@g SeN SR 09lg SR `0HAd&"p SN&|f09lf SR*BE`@ 2I V"p q 0.Pf "SRP` 2I V"p q"SRPRE 2I V"pqm|f49lfAa"p SN&ANANBE`@ 2I V"p q 0.Pf "SRP` 2I V"p q"SRPRE 2I V"pqm0HAdF"p SN&09lgRJCm|nCN&`:|fC SN&`$|fC SN&`C SN& SR; SB09ìg/ ANXOR0HeRC|o09lf-S SL|8NuBA 0(f RAR@ 0(fRA 0)fSAR@JAfS@Nu`"yÒRÒfNu/ / &H$I2*0+NH"R SN%f&_$_NuH0$H&I6rpN@/ AhfNXO0 KNjL NuH0&H8BCEj` J30HNRRCCn Jp NRL NuHrCYWfN0)N!"#$%&(:|$<N40,8R(pNupNupNupNupNup NuRH "f` (:gpNuB@NuH $HBC8p`S@ 2 g 2 g2fv *@fv`RJRDNrJ@f :g |f  fB@`0LNu?HN*8J@f HN**J@fAhmNDJ@gp`B@6Nu`fNu@o4`40Nu@l4`40NuH0BCAhpNxEGÒ`Npйd:$ R"h21( 01(NH" R"h"q h pN%fJ@g  R"h61AO("q10NDJ@g  R"h q 0(0gBE`8  R"h q 0.Pf "SRP`  R"h q"SRPRE  R"hqm ydZN,AhsN"BE`8  R"h q 0.Pf "SRP`  R"h q"SRPRE  R"hqm S"ybN&AhxNRe SL 8NuH0BCEÎGH` RR0RC RHN*JJ@f R _f|mB30 R !fR KN3lL NuH0$HBC8Gd`$ JN%(2RCI"s JN%fJ@fSC8` 0H sf0L Nu?BCN6|=nJ@fB@`p6Nu?/ BCEH` yÎRÎ0RC yÎHN*JJ@fAh"yÎNDJ@g|mB20Cd JN$_6NuH0&H$IBC8`0RCH"r KN$J@fSC8` 0H rf0L Nu`fBNuH8EeANDGÎIm ` S .f "TRPR` SR"TR S (g =f S (f\` S ,f* SR"TRN,,HAdf pND&` S (fNF`N0 S )fR"TR` ANDRANDBykNFANDLNuNuH4OBD?D"<?F >:K6-EeGÎ`RGA"S1pNDJ@f`RG S0pNDVJ@f S 0 pg~BG`RGA"S1pNDJ@f` SpPRGRE S0pNDVJ@fB7PBG`Cp< UN$J@f6RGGnmg?|"BG`RG S 0(pfpCN%fJ@f4x0@r< U1`0N`t>C SpN%fJ@g o fpC SN%fJ@fXG?| `*pC SN%fJ@gpC SN%fJ@f\Gx0@r< U1`pC SN%fJ@fTG`RG S0pNDVJ@fAO("S1pNDJ@f S 0(pf 0N`t>RG S 0,pf&RFpCN%fJ@fx0@r< U1A"S1pNDJ@fRGA"S1pNDJ@gJDgBE8>`RG S0pHN*JJ@f S 0 pg 0@pg0/"fl`2 S 0.pfp<"UPPRERG` Sp<"UpPRGREA"S1pNDJ@gp< UB0PRm2-yopNO$L,NuH>QO>6BD>:<?FEBRGeIÎKm M`C TpN%fJ@g" TR"URRyk` ybLm0|g(0@r< j pfC TpN%fJ@gpC TN%fJ@f\`\pC TN%fJ@f>X`BpC TN%fJ@fT`,pC TN%fJ@gpC TN%fJ@fN0R|f0g~BE`. R mANlN6pNUl T0HEPRE T0PNDVJ@fAO("T1PNDJ@f T 0(Pf0HEPRE0HEB6RR T (fN0 TN?@J@g/TN,,8(JGg029gHAd& pND`0HAdf pND|gR0@r< j pfnBXr [0`|A`0A2"La@`\ [2"La@`JJEj `p0?4 LaZTO@`*JEj `0H?4 LaTO@` JEj `p0?4 La(TO@`JEj `p0?4 LaHTO@`A 2"La@`A 2"LaV@`A 2"La|@`|@HN0\OLxNup` Warning: use TCFLTLIB to get float support for printf. H Ov Jj|-?|D`g|+?|`g| ?|`~?|`vH Ov ?|`dH Ovf?|`L|0f|x?|`2|X?|`$H Ovf?|` |0?|$H>C8jxA a,HA pJWF@?@gA 2SAktaSb (Q2/@4/(jt@jtBgf 0Ao@@Alx?B?D`hH0$H&IB(v`H0$H&IvJWFCJBj4Cb6xJAkCc8Cf K0a0 JN` 0 JN0 Kap0DL Nu6x0/g f@ JaP0/g@AN0/g@ Ja,0/g@A N0/g g@ Ja0OLNuH0E6`H0E4&H6g8Kg SC JpNQ J0|gNL Nu00000000 H0O$H&I>68jx`p@c8?|0|g J0R@CDHoBaXO0?| JoBg|-?| `&g|+?| `g | ?| ?| ?D62XAXAt0gJf$B RoDJDf f0SA`,C"SDQ`X JDf fSA` C"SDQto An ?B?B`ff ?C?B`?C?BC8?|@gE`e0/DS@jD@-`+/ r AJa&"_AFpJWF@rg SAkt0QS@k AFQ`H0O$H&I?|@>>68jx0|g JpCDHoBaXO?| JoBg|-?| `&g|+?| `g | ?| :/DlDE|0 ?| |JDffSFDged?DD?|6`6JEfp?@?@6`$ JpCDHoBaXO 5d?EE?|6`SE?EE|1"p?@6@`E|b J0CDHoBaXO0@E:/DDEE?D6DC"SDQ?EE`?|0D|b JCDHoBa^XO0D0:/D<RFDJDffSF?D6t0JfB ?| RoDC"SDk6Q`.C ?E SEj0?| RF`QC"SDkQto Fn ?B?B`ff ?C?B`~?B?C`t|? ?| x?D ?D?D6|`H0O$H&I?|@>>68jx0|g JpCDHoBaVXO0/DS@Dn|m `6x0/gf@ Ka0/ g@AN0/g@ Kaf0/ g@A NJof Jo6fgp@A .N0/g@ Ka*0/6g@A"N0/@g@A8N0/gg@ Ka0ONL Nu0<HS@rJrfRG4`kI'4`bֆSDgNRG4`b`NSG2$QLNuP`H8vBG8ghzB$H&II&6NJ@kbRG4`k<0fSDgBNRG<߰<Xf SDg.NRGI&4`bֆSDgNRG4`b`NSG$2QLNuP`H8vBE8gjB$H&II%NJ@kdRE4`k<-Wg<+fNREI&4`< b"ֆSDg NRE4`< b փ"փփց`NSE$JgD2QLNuP`H<8z$H&II%4NJ@knREJ4k| gNSEJj$JDgJNREJ@kB| gJ4jNSE`0SDf`**o JDg NREJ@k| gJ4jNSE`SDfB2QL<8NuP`H06g(8$H&IJCjvJj NJ@kSCf` NJ@kSCfQC2L NuP`H<6g^8BE$H&I(o$Jj$NJ@j P`FNJ@k> F4Pg>SCf`**o NJ@j P`NJ@k F4PgSCfBQC2L<8NuBN`H8O&H(I>?Av8z0| ~E#NJ@kFRG2kNSGESDeN<+g<-f SDeNfSDeN`SDeNb QSDeNc<.f0`<.f&SDeNbQSDelNc<߲<EfHSDePN<+g<-fSDeMHGGCA 0jD@aAC a `aAC a P?b C 0aSGA6"$JDoGn| Fo| o0RG0CC?SFpԂӁ@Q` pԂӁ@*(6ԂӁ@ԂӁ@ԅӄC<0QBJjR! :fg0`1RPOpAL@NuH|~trp  g  g -Wg +f 0m 9oR .gbg If Nf Ffp`p o0 ]H` 0m 9n @la`RF` .f 0m 9n @laSF`G EfJDg"LUR@JDfJEj&zRӅdR@`JfJf BYBBTO`.ar2""//?A0aC o$aO JgPLNuԂӁ@*(6ԂӁ@ԂӁ@ԅӄCvG0ԇӃCNup /rt  g  g -Wg +f 0g6C Xfp`&HCHCԃԁ 9nA0l`AAAmA @m gSH"JgD &Nu o?jD@ @c0<?<@2AA@AC,0 ]HNgCbC NdaJFf<J_kNu?@@@@ @@P@$@@ @4ɿ@iŭ+p@xIϦAGɀCQ~ގFMHvuu Z;]=]u%`R mul0  ]H`L4܇׀HAHBHDHE>܇׀<BCHCHF.HG܇׀.HG܇׀.HG܇׀.HG܇׀.HGև.HGևр?<6HCHFp>܇׀>܇׀:4>ևk܆׃JEjRFSBEJEj R׀fRBJBj BnHyxaXO`p0 `02@@@0 ]HLNudivH0,HF⌰cpRdR:j EnHyaXO`p0 `42BBB0 ]HLNuakifpNuH@NuH@NuJ@j@`@?H@B@NuH$fBA`RjDh 2< <`@2<@H@J@fAH@ @bQA @bYA @?bUAJ@kSAH@JjA0 B]HNu$(02A Ag"(jNufJfNua JNu"(f JfDNu@DNu?>Jf@ "tHAJAf @HB2BBHA AHAb Q@BJkS@ԂӁjGj B@"<t>Nu0"$a6(*Nu2""Nu2""Nu@TXJ? ?ry@ԚxK@ڢ!h5?ڢ!h5?ڢ!h5?@@NaN-INF+INFXmath by d'ART/ / o\H// ? o \H\I//!?!// ? //*?A 9jhg"@NJ@f(0 @f 3!6`$ @g @f3"6` o4C0 O$ _"_NupBB?<JPjWHW//ajPO0 ]HNu#jhNur x@W1J x @W!P!P!P x@W1hJ x @Wf"P#xP#xPNur x@W1HJ x @W!P!P!P x@W1J x @W!P!P!P x@W1hJ x @Wf P!xP!xPNur x@W1HJ x @W!P!P!P x@W1J x @W!P!P!P x@W1hJ x @Wf o P!xP!xPNuyk6Nu/ B@EV`R@Re$_NuH>&H&KREVpe,f)g@)fJ&Q(i ge"// Ia"_ _J@f&Q`B@"(_&_Nu3 6p`#H#H&HJfS#K " I(Ia"LJ@f`H:$H&I(S&gfJg^+g`)ft,k x$ڹd SfRe`.&// KaF$"J@k,f4(SSfRf& L\Nu3 6p`"`&x,A'J'JE8'J & KaJ@kfRf"`H:$H&I(Sx&gZJgV+gX,k$dSfRe`6+g// Ka$"J@f.// Ka$"J@kf(S,k`& L\Nu3 6p`"PdB@ Nu(g*gg/a _J@f/a _J@kf"P`3 6pNu/ &Hrt0+aJk2+gГ` S"+gt SASWfSQ&_Nup`H&H&8|f֓b e&`8+g+g2 KabJ@f:"40+avJk* k&'HpLNu3 6`36p`p/alXONu(g4(f>"P | dNu?/a _2J@f 0Nu3 6pNuC!I!IR!I `H&H(o Ia6kl g La` a(Jf\(H <a <)HgN0@0;\ Ka|gB9@{0`Q l)H()H C#6 LLNup`p`p 36 la `a)b*a)b* YOCBgg Ar`THWf0XONup`rwar+w+a+rbwbabr+b rb+ w+b wb+ a+b ab+ A\p`Ar(WVNu?/ AjaRAjaHG\6<`Gp+g Ka*QJ9k,gA av&_6Nu_TMP_XXX.XXX/ &H+g+g.aJ@f.0+aJ@k"+g ka \B@7@&_Nu3 6p`J@k"Pc  PNupNuH&H(k L0+"+ aJkRgF+f, L"St gSj`"HSISSk ögSjJg&"'LBLNup`p`H&H(k6+"+g0DtaJk+fZ"SA"L Ip gSAj`*| // " 0a"_"JkNgPAp SjH@" 0axLJk*g,`0" La`Jkg&'LB@LNup`p`H6&Hp Cgp@CfFpC?/ ?<=NAPOJk&8jaTpCgF?<?p/?<BNAO Jj.`Br߲fNAXONua36p`ް|c??<>NAXOJkpNua36pNu/?<ANA\OJkpNua36pNuJ@f//anJ@fBg`//??<?NAO JkNu  _`a36pNuH&Hx&SgkJ9k*kpfxa<g < g6<gJ< e七dRa`JgSSKpap apa`Rp ak*p a`\JgXk*`NxB9k*`Dx B9k*`6J9k*k$Ҁk8 $k0HzP <e/`/? ?<@NAO Jk b Nuab36pNu0<`///6?<?B?<BNAO (Bg?/<?<BNAO *Bg?/?<BNAO JWH*(&NuD@| |"b;NupNu   //O4UB|"bBJ@j < fD@-CtH@B@H@&HC;0(RBH@B@H@fQBO _&Nu3!6`0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ//"4UB|"bjJj < f-DC"t&HCJCf&HC;0NRBH@B@H@f`$?&8BCHC06H@0HC;0&RBJf8QB" _&Nu3!6`0123456789abcdefghijklmnopqrstuvwxyz JgJgJgJgJg JgJgJfSHggggg ggf @Nug fC`Jg INuSHNugHf8g@f0g8f(g0f g(fg fgfgg!epNupNuJfpNu g<g8g4g0g,g(g$g ggggg ggf @Nu"HJgJgJgJgJg JgJgJf SNu"C"B@f ANuSeg gb pNuJfpNupNu"SefBJgSf ANuH0$H|g|$bGrtgJ3kSJgtJ@f"p <0f:pgb<߶<Xf(pf"`N|f<0fg><߶<Xfg.Gb3d"3d&HCHCJCfԃԁd` & gSJ"L Nu3"6p` 3!6p& g"`//"4UB|"bZC"t&HCJCf&HC;0NRBH@B@H@f`$?&8BCHC06H@0HC;0&RBJf8QB" _&Nu3!6`0123456789abcdefghijklmnopqrstuvwxyzal/a" g p/aJ _Nu// &gPR<e:/avJg*`4Ck. g*g"@ f`"/?<INA\OJj` pNugp`/ Gk. g/ &S?<INA\O`Gk2 g/ &S?<INA\O`&_NuH0$< CEk2 g" c $@ f`&@ +gb*"Ҩeg ` 'H`p"@")Ө 'H`>"@ gb" ҩeg`N"(ө`" "H" ҩf @"(ө" k eb$/ ?<INA\OJfQL NuP`/$gSe40HB4 gxH_>"&(*,."B$B&B(B*B,BH~H~H~H~H~H~H~H~H~H~H~H~H~H~H~H~H~H~H~H`SfL||0HgS@!Q|gSAQ _Nu<0< SHNu|A:0|Nu|A(0|NuBAA0NuBAA0Nu  !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`ABCDEFGHIJKLMNOPQRSTUVWXYZ{|}~  !"#$%&'()*+,-./0123456789:;<=>?@abcdefghijklmnopqrstuvwxyz[\]^_`abcdefghijklmnopqrstuvwxyz{|}~@@@@@@@@@@@@@@@@@@@@@@@@@@@@::::::8888888888888888888866666644444444444444444444@  !"#  !"#$HBJBf$HBJBfNuHBЂNuHBЂNu$jD"BJjD$HBJBf4$HBJBfH@B@H@$ jDNuB@H@HB0@0H@0H@$ jDNu AH@r2B@tЀӁd҈рӁQF@$ jDNu/ Hzf?<?<NMPO/Hz?<&NN\O?<?<NMPO$_Nu OJx@3k63k81B x@f1J x@fp!PNu.H3 k63k8Nu/ABhBh2<%a:"_22222Nu/ABhBh2<&a"_222222A42222Nu/ /ABh"_Artg0RB`A1BrtaA4"_22222222NuABh1|1Ar`A1ABh1|r`vABh1|1Ar`\ABh1|1A1Brl`>ABh1|1Ar`$A1|Bh1A0Bh2ra094NuABh1|1Ar`ABh1|1Arj`/ /A1|BhBh01A2r aA4"_2"_2"o2"o2NuABh1|1Ar `rCL2222A1|Bh1| r `HABhBhr`4ABhBhre` C3A03B23|CrtRB2fA1Br`ABhBhr{`C3|3| 3A03B23o43o3oCrtRB2fA1Br `3(/ C2dBi3| Cp 2Q"<2psNB _0(A"op,2QA4p 2QNuL4ABh1|1Arz`1@ 0"<k:psNBA0Nup `Rp`LA00p`> > >>>>!>'>->1>8>=>C>H>M>T>Y>]>b>f>k>o>s>w>}>>>>>==>>>>>>>>>>>>>>>>>?? ????'?.?3?8?>?C?G?K?O?S?W?]?b?f?j?r?{??????????????????????????@@ <@@@@)@3@9@?@E@K@:@P@U@\@`@d@h@l@p@t@x@|@@@@@@@@@@@@@@@@@@@@A?AA AAAA"A)A0A5A<ACAIAUA`AkAvAAAAAAAAAAAABBBB%B0B;BGBRB^BmBzBBBBBBBBBBCCCC$C0C9CBCLCXCbClCvCCCCCCCCCCCCCCCB7CCDDD DD>>sDDD+* Speicher fr C Source berschritten ! Bitte, die Basic Source in Module unterteilen und einzeln konvertieren. */???ANDATNRINSTRBINBLOADBOXBSAVECHRCLEARCLOSECLRCLSCOSDECDEFFNDEFLINEDEFFILLDFREEDIMDIVDODRAWENDEOFERASEEXITEXPFALSEFILESELECTFORFORMGOSUBGOTOHARDCOPYHEXHIDEMIFINCINPUTINTLEFTLENLETCALLLPRINTBOUNDARYLOCALLOFLOGMIDMOUSEMOUSEKMOUSEXMOUSEYMULNEXTNOTOPENPAUSEPBOXPIPLOTPOINTPOLYLINEATPROCEDUREQUITRANDOMREMREPEATRESUMERIGHTRNDSINSGETSHOWMSPACESPCSPUTSQRSWAPSYSTEMTABTANTEXTTRUETRUNCUPPERUNTILVALVARPTRVOIDWHILEWENDELSERETURNTHENMODLOOPABSMENUEQVADDSGNENDIFDEFTEXTFLOATASCALERTARRAYFILLOCTELLIPSECIRCLEONFIXRSETLSETINKEYIMPRANDGRAPHMODEGEMDOSBIOSXBIOSBGETBPUTBMOVECHDIRCHDRIVEDATADATEDEFMARKDEFMOUSEDEFNUMEVENEXECEXISTFRACFREINPLOCMAXMINMKDIRNAMEODDOUTPCIRCLEPELLIPSEPOLYMARKPOSPRBOXREADRELSEEKRESERVESETCOLORSETTIMESPRITESTRINGTIMERTYPEWAVEWRITEVARADDRINADDROUTGBGCONTRLGINTINGINTOUTPTSINPTSOUTCASEDEFAULTENDSELECTRANDOMIZEDPOKEDPEEKLPOKELPEEKPOKECLIPARRPTRCVICVLCVSCVFCVDMKIMKLMKSMKFMKDSPOKESDPOKESLPOKEBYTECARDLONGFUNCTIONENDFUNCPOLYFILLRESTOREWORDSINGLEDOUBLECHARINSERTDELETECFLOATCINTQSORTTRIMBITBLTXORRENAMEPREDSUCCGEMSYSVDISYSEDITINPAUXINPMIDSOUNDEVNT_BUTTONEVNT_MOUSEEVNT_MESAGEVNT_MULTIMENU_BARMENU_ICHECKMENU_IENABLEMENU_TNORMALMENU_TEXTMENU_REGISTEROBJC_ADDOBJC_DELETEOBJC_DRAWOBJC_FINDOBJC_OFFSETOBJC_ORDEROBJC_EDITOBJC_CHANGEFORM_DOFORM_DIALFORM_ALERTFORM_ERRORFORM_CENTERFORM_KEYBDFORM_BUTTONGRAF_RUBBERBOXGRAF_DRAGBOXGRAF_MOVEBOXGRAF_GROWBOXGRAF_SHRINKBOXGRAF_WATCHBOXGRAF_SLIDEBOXGRAF_HANDLEGRAF_MOUSEGRAF_MKSTATESCRP_READSCRP_WRITEFSEL_INPUTWIND_CREATEWIND_OPENWIND_CLOSEWIND_DELETEWIND_GETWIND_SETWIND_FINDWIND_UPDATEWIND_CALCRSRC_LOADRSRC_FREERSRC_GADDRRSRC_SADDRRSRC_OBFIXSHEL_READSHEL_WRITESHEL_GETSHEL_PUTSHEL_FINDSHEL_ENVRNBCLRBSETBCHGBTSTSHLSHRROLRC_COPYUSINGASINACOSDEGRADSINQROUNDRC_INTERSECTE p Basic -> 'C' bersetzung ...q Jp 1. Pass:q Variablen zhlen, Prozeduren, Datazeilen und Grafik berwachen. /* Basic -> 'C' bersetzung */ #include /* Globale Variablen */ int CHAR; Jp 2. Pass:q Variablen schreiben, Datazeilen und Funktionen bearbeiten. J p 3. Pass:q Scannen und Parsen. void main() { r_ein(1); r_ein(0); CHAR = C_HAR; fclose(STDPRN); r_aus(0); } void clear(void) { } J Umwandlung beendet ! Bentigte Zeit: %.3G s @>$'"+-*.,/^==:= (char *)-(1 && C:(cdecl) V:V~/* ????? Befehl noch nicht im plementiert:,+,) /2, Y%c%c%d Bitte Drucker anschalten !---------------------------------------------------------------------------------1989: O.Vinzent - Prof.Dr.H.J.Patt, Universitt des Saarlandes, Saarbrckenw %c%sE Freier Speicher: %ld - 1 - GFA-BASIC-Source lesen, bearbeiten und schreiben - 2 - GFA-BASIC-Source lesen - 3 - GFA-BASIC-Source bearbeiten - 4 - GFA-BASIC-Source lesen und bearbeiten - 5 - C-Source schreiben - 6 - Variablen zeigen - 7 - Datei-Operationen - 8 - Umsetzung anzeigen - 8 - Umsetzung nicht anzeigen - 9 - Programm bersetzen - 9 - Modul bersetzen - 0 - Zurck zum DESKTOP %s GFA Systemtechnik GmbH, Heerdter Sandberg 30-32, D-4000 Dsseldorf 11*.LSTC - 1 - Datei anzeigen - 2 - Datei umbenennen - 3 - Datei lschen - 4 - Datei Attribute ndern - 5 - Diskette formatieren - 0 - Zurck E Diskette wirklich formatieren ? Diskette wird formatiert ! Fehler beim Formatieren ! r Kann File: %s nicht ffnenE Lese die GFA BASIC-Source: %s Fehler beim Lesen von %s ! Fehler beim ffnen von %s !E Schreibe die C-Source nach: %s Fehler beim Schreiben von %s !*.*E Fehler beim Lesen von %s !E Fehler beim Lschen von %s !E Bitte den alten Namen des Files eingeben: Bitte den neuen Namen des Files eingeben: E Fehler beim Umbenennen von %s ! Attribut ermitteln/setzen (e/s): Schreibschutz ja/nein/Abbruch (j/n/a): Das Attribut ist : %dA:\* Jp<<< Taste >>>q GFA-BASIC nach C Basic -> C - Konverter -1989: O.Vinzent - Prof.H.J.Patt, Experimentalphysik/Didaktik der Physik Universitt des Saarlandes, D-6600 Saarbrcken, 0681/302-3773 - 06803/2834 K%s%c p <<< Taste >>>qAAJMMMMNNNN NMOANDEQVDIVIMPMODNOTORXOR???round,),-1 TOHXO, } else if(!strcmp( == >= 0 || && <= break; case CASEDEFAULTENDSELECTdefault:else/* RESUME nicht implementiert! */ ! /* a$b$ und a$>=b$ Vergleiche noch nicht implementiert */>=<=<> != =<><>= ) =<> =<>) _f!|&%$= ?/,;'-+*/^+-*/^()DIVMODV: ,;'V~HL~A/* Parserfehler in: */$")NEXTENDIFLOOPWENDRETURNUNTILDUMMY = DUMMY; /* In C ist kein Label vor '}' mglich */DATA (=+-,<>d_iv( +-)<> (void) .0/* Kann die Basic Source nicht bearbeiten! Bitte das Listing mit DEFLIST 0 unter .LST ( SAVE.A ) abspeichern ! */(long)(int)V~H=-1HANDLE=OLDHANDLEOLDHANDLE=HANDLE; L~Hl_h();,'$ ? _fbtol("0x;,'''(int)(,)=+-*^(),./[] +-*^ buffer: ziel:MDUMMY = DUMMY; /* In C ist kein Label vor '}' mglich */ +-/*^()=,;'_./* Fehler: Zeile zu lang ! */((long), ,,-1) ,) HV[,HV[( ?&|,;' +,;' $?\"[^,\n],[^\n]\n ,;'printf("? ");scanf(==K%sKp %s%cqFehler an der Stelle:/* Fehler beim Schlieen des VDI ! */+,=<> text(-1,itoa(ltoa(ftoab(,TEMP,10)itoabltoabftoab,-1,-1,-1a_lert(bload(, ,-1Lbsave(,)chdir(rename(mkdir(fileselect(right,1) leftstrcpystrncpy), ),;' midinstrrinstrstrlenval,()=<>,)= <>mstrcat(+), cvicvlcvscvdmkimklmksmkd(cdecl)menuo_m_BUTTONGOSUBKEYOBOXIBOXMESSAGEKILLOFFbutton(bgosub(key(obox(ibox(message(kill()off()atan((double)/* */ UNTILwhile(!( WHILEdo} elseif( goto M break! return(for(DOWNTOSTEP= TO DOWNTO<=>=++--+=-=; :NEXTENDIFLOOPWENDRETURNDUMMY = DUMMY; /* In C ist kein Label vor '}' mglich */while(while(1)goto USING/* PRINT USING nicht implementiert ! */=INPUT$printf("\n")fprintf(FP[, ],msprintf(/* PRINT USING nicht implementiert! */ASform_inp(, $(fscanf(FP[printf("\33e? ");scanf();printf("\33f");getchar()t_oupper) fclose(FP[]); ])if((FP[#] = fopen("/* Fehler bei OPEN *//* OPEN var$,... noch nicht mglich. Bitte von Hand in r,w,a,r+,w+,a+ wandeln. */,"r+")) == NULL) { /* Format von fopen berprfen !! */ printf("\nFehler beim ffnen der Datei !"); getchar(); r_aus(-1); } += -=* *=(long)sgnsrand(*32767(int)((double)rand()/32767)((double)rand()/32767)spc | ^ eqv == & ~free((???mousex()mousey()fill(drawTO a(-1, /* DRAW string$ noch nicht implementiert */ a(0,T O drawa(-1,line(/* Kommando noch nicht implementiert */STDPRN = fopen("PRN:","w"); fprintf(STDPRN,;,',;'pbox(swapbHVP[1] = = HVP[1]swap(plot(sput(sget(fn_cos((double)sin((double)sqrt((double)fabs((double)logexp((double)tab(dfreehidem()spacepause(mouse(point(long)truncshowm() = 0 = '\0'.0printf("\33E")aschex((long)oct((long)bin((long)hardcopy()print_at ;printf("\t")printf(" ")polyline(polymark(polyfill(OFFSET(int),0,0pellipse(pcircle(g_raphmode(chdrive(asc(defmouse(fdefmouse(exec(void) existmaxminposp_rbox(setcolor(s_ettime(sprite(stringstime(time()timer()typewave(sound(,-1evenoddsdate(date()bget(inpaux()inpmid()bput(fracgemdosbiosxbiosbmove(mousek()(void *)get(switch( case '': p_ break; } MENUon_menu()/* ON ERROR nicht implementiert */rset(lset(lof(FP[loc(FP[relseek(FP[Bconstat(fgetc(FP[inpBcostatfputc(FP[Bconout(feof(chrclear()inkey()) ,;'<>+= sp_test(); /* Vorsicht ! Beim Laden von Bildern kann im Speicherbereich der Wert '\0' stehen. Dies fhrt bei Stringoperationen in C zu Problemen. Bitte BLOAD/BSAVE verwenden. */ TEMPR[ZL] = TEMP; if(fread(TEMP,1L,]) < f_ehler(3); TEMP += *TEMP++ = '\0'; TEMPR[ZL++]clip(-1,-1,-1,-1,-1,-1,-1,0) OFFSET-1,-1,-1,-1,-1,,3-1,-1,2,1boundary(defline(defmark(deffill(deftext(Y%c%c = getch(); *(+1) = '\0'for(HVA=1;HVA <= ;HVA++) *++ = getch()V:[0] ,;') continue/* Fehler in der Basic-Dimensionierung */if(( *calloc((size_t)(,)+1),(size_t)sizeof))for(HV[]=0;HV[]<=]++) if(([HV[]]]] = ]] = (char *)calloc((CHAR+1),(size_t)sizeof(char))(char(int(long(double(void) == 0L) f_ehler(0); else SPEICHER[SP++] = (char *)_f/* berschreitung der hchsten Dimension */poke(peek/* Es wird auf Stellen gerundet *//* DEFNUM nur bei Zahlenbergabe mglich! */cfloatcintqsort(,(size_t)sizeof(*),sortWITH; /* Mitsortierung eines Feldes noch nicht implementiert */trimd_pathdir_to(""-1)+1)+1bitblt_vgemsys(vdisys((long)floori_nt((char)byte(card(l_ong(f_loat(single(d_ouble(c_har(,1),0,0)( ,= <>( ,;'= <>+- % (int) (=+-,<>fmod( ,+-)<>= /= (int) / d_iv(imp (=,imp( =), (=+-/*,pow( +-/*),for(HVA = - 1;HVA >= ;HVA--) /* INSERT */ [HVA+1] = [HVA]; strcpy(while(HVA < ) /* DELETE */ [HVA] = [(HVA++)+1]; [HVA] = 0[HVA] = ""]++) /* ARRAYFILL */ -(1 && +1),(+1)*(DUMMY = HVArc_copy(|&?DAZ = D_DAZ = 0 static char *DATA_SVA[] = { , }; int D_","matoi(matol(atof(DATA_SVA[DAZ++]REMPROCEDUREFUNCTIONr_aus(0)K%s%c p %sq JbPbTbYb]bbbgblbSbitbyteintlongdoubcharvoid %ld %s-Variablen gefunden. 1. Pass beendet. 2. Pass beendet. ()/* Nicht gengend Speicher vorhanden ! Buffer fr Basic oder C Source berschritten ! Bitte, die Basic Source in Module unterteilen und einzeln konvertieren ! */, char char[C_HAR]; = /* Lokale Variable ist namensgleich mit einer bergabevariablen */ = 0 = 0L = 0.0) (*,*VARPTRV:ARRPTRFALSEpiTRUE(void) eeeeeeeeeeeeffeeeffff f&f,f2eeeefff8f8ef?fCfHfPfZfcfifkfofvfyffff?ffffffffffffffffffffgg ggg g%fg&g*g1g6g@gGgLgRgXg]gegngugyggggggggggggggggggggfBit ByteInt Long Double Char Pointer char unsigned char int long double _bit_byte_int_long_doub_char_voidchar *???GOTORESTOREPROCEDUREFUNCTIONGOSUB@DIMRESUMEFNRETURNDEFFNDATABGETBOXDEFLINEDEFFILLDRAWFILESELECTHARDCOPYHIDEMMOUSEMOUSEKMOUSEXMOUSEYPAUSEPBOXPLOTPOINTPOLYLINESHOWMTEXTDEFTEXTALERTELLIPSESGETSPUTCIRCLEBPUTGRAPHMODEGEMDOSBIOSXBIOSBMOVEDATEDEFMARKDEFMOUSEDEFNUMFREPCIRCLEPELLIPSEPOLYMARKPOSPRBOXSETCOLORSPRITEWAVEADDRINADDROUTGBGCONTRLGINTINGINTOUTPTSINPTSOUTCLIPJ Sortiere die Variablen ... Sortiervorgang beendet.= void p_(void);[C_HAR]; char * = 0 = 0L = 0.0 = ""%sJK%s_. = &[0]; @_ double fn_(void) { return (); }@ (*) VAR VARPTRARRPTRV:,*( Kein Speicher mehr !fclose(stdprn); r_aus(0); } void p_LOCAL /* Vorsicht! - LOCAL Anweisung steht nicht am Beginn der Subroutine. */ /* Variable knnten falsche Werte haben. */ ( REM /* Variablenbuffer fr zu klein ( Byte) - Bentige: Byte ! Bitte vergrern ! *//* Procedurebuffer zu klein ! Bitte vergrern ! */ENDFUNCE Error: Cannot open Virtual DevicePress RETURN to continue.jjjj L4f8d       6    $   &$: H  T      (     (  *p <         :    B   , &  (                   4 \    $&"           (4.   *2 >  " >             ,  "   "$, ,@"  ( R*  $ *  <@*<"*4  r"     8  ",$       $($ < Z  <    28    dJ$* R,       $  00  :*$ ,  "26 4@.XB6 , $    (   V d"::R:( (|*  ^** 080 D|      "t D *,$                   ,   , " (  ,  &           "2    $*                                   ,      *J 6  $          $       $   " "($           2         & "V                        .: *                            P                4  4     F                6   ,                                          $"        (          @*,,$   ( $  &" H$      D   0 4  $ &            ,                   2  6&                            0               2L&            ( \F         "     @  ZN  48   :   T     j   R$ ,"" "        (                 $  8       $     :" p b  B  . @  8n X ( H &4 P   & &6$* &$` & 2 $ 6 & &        \ 2  :       Jv .8"N"\Hp T D ^V Z "h& >\ ,< Z ~4R*:*. &$$<  08(#a000000 #b000000 #c7770007000600070055200505552220770557075055507703111103 #d #E 5B 02 #W 00 00 04 02 48 09 08 A:\*.*@ #W 00 00 0D 08 2A 0B 00 @ #W 00 00 0E 09 2A 0B 00 @ #W 00 00 0F 0A 2A 0B 00 @ #M 02 03 00 FF B SOFTWARE@ `@ #M 01 03 00 FF A ARTISAN@ @ #T 03 03 02 FF 1989@ @ #F FF 04 @ *.*@ #D FF 01 @ *.*@ #G 03 FF *.APP@ @ #G 03 FF *.PRG@ @ #F 03 04 *.TOS@ @ #P 03 04 *.TTP@ @  * * * GFA-BASIC-KONVERTER NACH C - READ_ME-Datei * * * * (C)-1989 O.Vinzent und Prof.Dr.H.-J. Patt, Universitt des Saarlandes, * * Gebude 8, D-6600 Saarbrcken, Tel.06803/2834 - 0681/302-3773 * * GFA-Systemtechnik, Heerdter Sandberg 30, D-4000 Dsseldorf 11 * * * Auf der Diskette "GFA-BASIC-KONVERTER NACH C" mssen sich folgende Ordner und Dateien befinden: 1. A:\B_NACH_C.PRG 'GFA-BASIC nach C' - Konvertierungsprogramm 2. A:\READ_ME.TXT 'READ_ME' - Datei ( Informationen ) 3. A:\LIB 'LIBRARY' - Ordner 4. A:\LIB\B_NACH_C.LIB 'B_NACH_C' - Bibliothek fr TURBO-C 5. A:\INCLUDE 'INCLUDE' - Ordner 6. A:\INCLUDE\B_NACH_C.H 'B_NACH_C' - Header - Datei fr TURBO-C 7. A:\GFA_TEST 'GFA_BASIC.LST' - Ordner fr Testbeispiele 8. A:\GFA_TEST\TEST_GFA.GFA 'DEMO' - Programm GFA-BASIC-Quellkode 9. A:\GFA_TEST\TEST_GFA.LST 'DEMO' - Programm ASCII-Format-Quellkode 10. A:\GFA_TEST\TEST_GFA.C 'DEMO' - Programm C - Quellkode 11. A:\GFA_TEST\TEST_GFA.O 'DEMO' - Programm Objekt - Datei 12. A:\GFA_TEST\TEST_GFA.PRG 'DEMO' - Programm mit TURBO-C compiliert 13. A:\GFA_TEST\B_NACH_C.PRJ 'B_NACH_C' - MAKE - Datei 14. A:\GFA_TEST\DIAL_SMP.LST 'TEST-PROGRAMM-1' GFA - BASIC - Quellkode 15. A:\GFA_TEST\DIAL_SMP.C C - Quellkode 16. A:\GFA_TEST\DIAL_SMP.O Objekt - Datei 17. A:\GFA_TEST\DIAL_SMP.PRG Programm - Datei 18. A:\GFA_TEST\DIALOG.RSC Resource - Datei 19. A:\GFA_TEST\GRAF_SMP.LST 'TEST-PROGRAMM-2' GFA - BASIC - Quellkode 20. A:\GFA_TEST\GRAF_SMP.C C - Quellkode 21. A:\GFA_TEST\GRAF_SMP.O Objekt - Datei 22. A:\GFA_TEST\GRAF_SMP.PRG Programm - Datei 23. A:\GFA_TEST\RC_INTER.LST 'TEST-PROGRAMM-3' GFA - BASIC - Quellkode 24. A:\GFA_TEST\RC_INTER.C C - Quellkode 25. A:\GFA_TEST\RC_INTER.O Objekt - Datei 26. A:\GFA_TEST\RC_INTER.PRG Programm - Datei Bitte kopieren Sie die Datei B_NACH_C.LIB in den Bibliotheksordner des von Ihnen gewhlten C-Compilers ( z.B. : D:\TC\LIB beim TURBO-C-Compiler ) und die Headerdatei B_NACH_C.H in den entsprechenden INCLUDE-Ordner ( z.B. : D:\TC\INCLUDE). Zustzlich ist es zweckmig, einen Ordner zu generieren, in den die zu konvertierenden GFA-BASIC-Programme im ASCII-Format abgelegt werden knnen (z.B.: D:\TC\SOURCE). In diesen Ordner sollte auch die MAKE- Datei B_NACH_C.PRJ kopiert werden. * * * GFA-BASIC-KONVERTER NACH C - READ_ME-Datei * * * * (C)-1989 O.Vinzent und Prof.Dr.H.-J. Patt, Universitt des Saarlandes, * * Gebude 8, D-6600 Saarbrcken, Tel.06803/2834 - 0681/302-3773 * * GFA-Systemtechnik, Heerdter Sandberg 30, D-4000 Dsseldorf 11 * * * . g.. B_NACH_CLIB jdhegraph.o-P`f/YOtA p"P01|| b@0;Nxxxxxxxxxxp"P. 4J|0H@@0/v h|@0/H|@6/K|C0/H|@voCp0$ `(p"P 1 `ANNpNpXO&NuH0:/ $o"&o&Pl6`6Ql8`8<R>BGl`<B40S>EGl`0E:022C4D6BlElp`B@L Nu?6209N66NuH0>:?B?o A209N\ONuH O:86$HRBf.C09N6/BgBg? J4209N\O` J4209NOL8Nu/ E45A5B5o Jr09N$_Nu?/NTONuH 68:EJ@f45B5D5E Jr09NJCg45EL8Nu??:8?0924NTO:8Nu??:8?<Bg?0924N\O:8Nu??:8?<Bg?/ ?0924NPO:8Nu??:8?/ ?/ ?/ ?0924NPO:8Nu??:8?/?0924NXO:8Nu??:8?/ ?/ ?/ ?0924NPO:8Nu?4NTONu?O6/>?A?@?C?B?C ?B ?A?@?AA09rNO6NuQO>?A?B?o A09NPONuQO>?A?B?o A09NPONuQO>?A?B?o A09NPONuH8O6&H(I:<pCHЀN$HBD`Np AC""2AN2E0@@5t A C""2AN2F0@@5RDDnBD`0@?2A'NTORDDlN J209N JNO LxNuH8O6&H(I:<pCHЀN$HBD`Np AC""2AN2E0@@5t A C""2AN2F0@@5RDDl J209N JNO LxNu??86t?0924NTO86Nu09g0<NByNu09f0<N3Nu]OB@>?@?@HoCA09NXO0\ONu]OB@>?@?@HoCA09NXO0/\ONu]OB@>?@?@HoCA09NXO0/\ONu?/ O8E/ /?C7 JNO N. J0N o0NOx$_8NuH>O&H,I*oBWEIR L"KN"NAN,L/MNHWC LNXOJ@fADNpNC JNp\ LN/H`޽f\B"J MN*o WffSM\BSM`BANN2&LBOL|Nu/&"Ҁtp|NH&&NuH0v <~N$H fB@N09HA!RyBD:<<><N&HBg??420"JN\O JL NuH0&HvBD:<<><N$Hp???42"J K0N\OL NuH&H$y09N0/Ro(N:0FN60/Ro(N8RD0FNHR@2IRAI8p0N(HPL fB@N09HA!RyGKB.B@?@ ;@ r?A ;A ;C?C;E?EpCH;@?@44(44RBZBZ4489E)KHW"Mr09 yNXOBA09N LO*Lr KpNN@ KpNN@ANXO&_Nu/ &IN: KN&_NuNNuH 6<8/ :/">/$|oANNpNE|gD0D42E5A|f4/D5B0/E5@`.0oD5@2oE5A`|fRjjj~`ANNpN J209NLNuH 68:2/0/EJ@g5C5DBjBj`BjBj5C5DA A A A %H%I r5A$5A5|P5|P&p5@(5@B*5|5|5|pECN4poDN5@ JNL8Nu/ |g y0EL$%y%y%y %y JN$_Nu|g y0AN y0NuH0$H&I6rpN/ ANXO0 KN0L NuH0&H8BCE` J30HNRCCn Jp NL Nu Fehler bei OB_SPEC ! Koordinate: %d[%d][%s][%s] Fehler bei Fileselect00.00.0000%02d.%02d.%4d00:00:00%02d:%02d:%02d CLIP #n, ... noch nicht mglich Fehler bei CLIPJK%sv_contoutextsput Rsget scrwlxrc_interprint_atplotputt0leftHANDLEexitcoreleftvsl_endsmallocclockVDIPBLOCLvsf_intevs_colorsetcolorAESPBLOCS_mfdbSPEICHERrc_copyZD_mfdbvsl_widtv_rfboxPXARRAY`getchclip boxvst_rotavsc_formvsf_stylvswr_modv_ellipssdatestime0pause fdefmousv_gtextput get fillfdeffillFORMdeftextb_itbltbit_bltvst_effev_arcpolymark&GINTOUTfputcabsstrrchrf_ehlerstrcpymousey |drawalatoiv_rboxvs_clipscrhvp_rboxBmousex L_xicnv_StdOutFvellipse$vq_mousevsm_typevsl_typev_ellpiev_circletime s_ettimepolylinefpellipseRline`freedefmousedate vdi_calvqt_extev_get_pivst_heigvsm_heigTREEstrcatPhysbasefilesele fsel_inpform_aledeffillbitbltaes_cala_lert vdisysvqt_attrv_hide_cv_show_cv_ellarcPTSOUTINTOUTGCONTRLgemsysdefmarkscradr|evnt_timsetxyHScrdmpSPsprintfvellpiexv_plinesettimesetdatepcirclegettimegetdatefre ellipsedefline6vsf_udpav_justifrightpunktpoint~midr_ausob_specmousek CONTRLvsf_perivsf_colovst_colovsm_colovsl_colov_barv_pmarketimerputt2msetcolocolorBhardcopy boundaryscrnpzrboxpboxfflushscrwtdraw4printfvro_cpyfshowm PTSINMFINTINhidemg_raphmograf_moucircle TLlTTT,T4TT T4TT<TTlTDT4TTT<TTTTTTDTTTLTT,T,TTDTTTTTtT|tT\|TT,T,T,\dt||Tt||TT$TTT$tdLL|  T$$<4D4string.oR`: /6N|f"¼f$v<<`<&Nu/ $H &f4RJH|HgD_@g| g`:RJ JNN`DRJp JN`4 %fRJp JN` $fRJp JN` JN$_NuNNu/ UO>ENA09H!"PR"PR"PB09RyH pTO$_Nu/ YO.ENA09H!B@` "hRR@|m"hB09RyH pXO$_Nu/ YO. ENA09H!B@` "hRR@|m"hB09RyH pXO$_Nu/ OAC""2ENA09H!B@` "hRR@|m"hB09RyH pO $_NuB@HBA(ANupBA`$ tRA|mNu/ OBB@`".tR@|mEA N oC 0O$_Nu/ QOB@`R@|mE o"J 0PO$_NuJBg @ @NuJBg @0 @0NuJBg @0 @0NuJBg @ @ Nu/O&JAg C  C/A"_ N oC 0O &Nu/&JAg CC 0 C"o""2&Nu/&JAg CC 0 C"o""2&Nu/ $@JAg "H JN J$_Nu/ B@$P24R@$Q2 gS@$P2f $Q2fB@`$Q2H$P2HB0$_Nu/ B@$P24R@$Q2 gS@$P2f $Q2fB@`$P2H$Q2HB0$_Nu/ / O&H$IC""2A"JNlp` KC""2A"JNfB@`pO &_$_Nu/ / O&H$IC""2A"JNop` KC""2A"JNfB@`pO &_$_NulpNufB@NupNuopNufB@NupNulpNufB@NupNuopNufB@NupNu0QlpNu0QfB@NupNu0QopNu0QfB@NupNu lpNu fB@NupNu opNu fB@NupNuH $HvBDN\`<0H4iHցRDf LNuH>YO$H*Iv&HByI ,I` %f -%fTM` -mf"B@TMH|0.` WR2S@JAf`RM sfgAzNNpN0 \Nր09HmJAN?9/AN\OA-NANNpN0`RMf2fI / "N JNXO`$KXOL|NuH8&H(IBCNE09H%0RC3f0RC4fymDA&N?9?AHNXOANNpN0` RRf` RRf RRB09RyH rLNuH8:&JNI09H)BC88"K J09N6pC@l$ TR v`|PmpN TR RCpD@m TRB29RyI tL8NuOAC""2ACNlp`"AC""2ACNfB@`pO NuH O86E6SAg|f&`l`SDnHAN`¶|f$:`0El2`2:SDnA0N`|f"*` l"`"*SDnA N`n|fh JE C ""2`F JE C""2AC NlA C""2` AC""2AC ""2SDnA C""2 o2C 0OL8NuH86E|f&Z`(Z"K LNS@f&LSCn KLNuH O86E6SAg|f&`o`SDnHAN`¶|f$:`0Eo2`2:SDnA0N`|f"*` o"`"*SDnA N`n|fh JE C ""2`F JE C""2AC NoA C""2` AC""2AC ""2SDnA C""2 o2C 0OL8NuH86E|f&Z`(Z"K LNR@f&LSCn KLNu @Nu @0Nu @ Nu?/(pN  NB@N (6Nu?/(6pN 2 NB@N (6Nu//(&pN " NB@N (&Nu?/ $@pN B@N $_6Nu?/ $@pN 6B@N 0$_6Nu// $@pN &B@N $_&NuJ@gN#6Nu y6NNuH0O&H86E""JA 0NA / / ? / ANO2pDNHo"ANXOJ@f A"J""220NA / / ? / ANO o"J 0O L NuHUO&H>:8602N?/ AN\O2pENHWANXOJ@f>20N?/ AN\O0TOL8NuH8><&HBC8:NE09H%0H"K RNI JGg$/ANXO KN:@` RB0@RDDnAN` rtKfJCoANSC`f rtMf RN@lANRC`> rtSf|o8SEANSC8` R"R@@RD R0@fHp0ANXO`fEgJGf AN`REoN|gHREBD`RD R0@fB0@` R"R@@SDJDf R00RC RHpANXON.| fn RB0`AN"R KNLNu?8t@?rD?A+NXO8Nu/ / $H&H` HNf J&_$_NuC2N fB@NupNuH0:$H&IvBDNJ@f KNJ@fp`F JN@n8SE`2P3@f JCgBC<RDRE JN@o KN@opF`B@L xNuH0&H$I IN&SC KNJ@f JNJ@fp`< KNS@`*320fJCoSCJ@o 320gRCJCfR@`S@J@lB@L NuHNu/ / &H$@"H JpNJd A4NAN KN&_$_Nu/ / &H$@"H JpNJd AGNAN KN&_$_NuH0&H6NE09H%"K RN KN@m KN&` RB00pCHђ29RyI rL Nu?/ $H6N@l JNC J$_6NuH0$H86NG"J SN|f SA@`P JN2DSAAn pN`"pDHѓ29I' SB00rCHӓ09RyH sL NuH0(:BCNEG0H%/C^ jNXO`RC jRf|g,S`0HS r00RC@l j0H% jRB0RSH rL 8NuH0(:BCNEG0H%/Cb jNXO`RC jRf|g,S`0HS r00RC@l j0H% jRB0RSH rL 8Nu?6"<NH6NA09H!"hR"hRB09RyH p6NuH8O(:BCNEGI0H'r R N|gT"RAN`RC R00f` RR00RC@n RBC RN RN R0H'CP$`0H sA!$0RTH sO"L8Nu`RHfSH`BSH  gNu`RH  gNuH8$H(I&HBC` 0RC JN? LN2@Am JN2H"LA0N KLNu/ $H`g f` fB J$_Nu?/ 6NE09H%B@` jR R@@nJClAfNAN jRB09RyH r$_6Nu??6NA09H!"PB10`"PRSCJCn"PRB09RyH p86NuH $HBDN&SC`2@H0@0RDSCDnLNu?6NA09H!B@`"hR R@@n"hRB09RyH p6NuBB` RBBlNu?BB` 6C10RBBl6Nu?BB` 6K!0RBBl6NuH $H8BC`p AC""2RCClLNuH :8<BCNE09H%|g??Ct RNXO`?C RNTO|gpFH29IѲ|g0Hђ` RNђ|g RR.` RR00RC@n RRB09RyH rLxNuH *8<BCNE09H%|g/?Cx RN\O`/C} RNXO|gpFH29IѲ|g0Hђ` RNђ|g RR.` RR00RC@n RRB09RyH rLxNuH 8:BCNE09H%|g A/ / ? ?C RNO ` A/ / ? C RNO `RC R00f`SC R 000gB00BC|gpEH29IѲ|g0Hђ` RNђ|g RR.` RR00RC@n RRB09RyH rL8NuOHWNXO oC 0O NuH0$H&HBC8`L .fJDfFx`< +g -fJCg *Ef*|n$RC` EfJCg`HNJ@gRJf J L NuOA&/ / ? A&/ / ? HoNO oC 0O NuH<*H&($@G ChN(H gK/C]NXOJ@f"AjN MN LNB@NBAp LN"L"p JNJf"AjN MN LNpN0 LN`pNL<NuHYO*H.rg&@I C MN,H grpN NN&BAp NNpfBHWC] NNXO&W/ ANXONBAp NN NNpN0"N"p KNJf&ANAN NNpN0 NN`pNXOLxNu/ $H I"J$_Nu"tNu?O6ACrQAN6 "/N"/ NO6NuANANB@NNu?6pCN6NuNNu// $Hvr N JN&rfANANBAp JN $_&NurNNu// $H&Jn rDN` BA  JN$_&Nu/ E BB*`$pN"¼f $r`r` NvJ@f J$_NupNNuHA/0ANXONpN0NuH86G&EJ@g NNAx#####C(S#"(SI##L (SI##L(SI0##L(SI##L(SI#(SI#(SI##L#y#y3BRBjNU@f5|5|`NS@f5|`5|?5|3NJCg(GN63 JrN0N` ANB@NNrpN#PfB@ND`09HA!PRyrpN#TfB@N`09HA!TRyrpN#LfB@N`09HA!LRy <N#fB@N`09HA!Ry# yA#HByBLNu?/ 6E29gJt ?pBA4NTO09NN09NN`09H rNSy09H 2f0N$_6NuB@ yPm3A"Ho `"PRBR@|o Nu 5QfKein Speicher mehr !Stringlnge berschritten !Fehler beim ffnen !Fehler beim Lesen ! Stringverkettung zwischen MKI$(),... und Strings in C nicht sinnvoll pStringlnge wird berschritten !q Bentigte Anzahl: (mindestens) %ld Byte. Vorhandene Gre: %d Byte. Die nderung von 'C_HAR' in 'B_NACH_C.H' stellt den erwnschten Speicherplatz fr alle Variablen her. Wenn nur eine Variable angepasst werden soll, muss sie am Anfang des Programms ( var[C_HAR] nach var[gewnschte Gre] ) verndert werden. Stringgre wird berschritten ! Bentigte Gre (mindestens): %ld Byte. Vorhandene Gre: %d Byte. ndern durch Anpassen von 'CHAR'. %-5s%-16lg%lf%-7s%-16lg%-5s%-16d%d%-7s%-16dj%skeDC j%s k j%s kj%skCf Y%c%cr Fehler beim Lesen Fehler beim Schreiben%lx%lo Anzahl < 0 !%*d%*ld%ld%*G%Gw Fehler beim Schreiben !rblade an Adresse %08lx Fehler beim Lesen ! und raus Fehler bei der Bestimmung der Lnge der Datei ! %sEvwaitrset"print_atmatol4lsettlefti_ntHANDLEftellexitbputvbget8malloclpeek jfseekdpeek JcallocBconstatt_ouppersortu_doDsortd_doeingabe2 Ra_filldo"AESPBLOCXS_mfdbTSPEICHERstrncpymatoiGBD_mfdbPDAZCHARswapp_abbructmaxhexgetchform_inp TEMPpowl_ongscanfopen_worspacespoke lpoke fdefmousdpoke Dsetdrvdfree4bsavesp_testoct\OLDHANDLmstrcatisdigitfreaddeftextDfreebload6btolNatol_lmodv_clsvwkseekpeek *mksNGPTSOUTGINTOUTfgetccvs6ADDROUTVPBkxtoupperswapb(ltoab itoabLGPBkftoabf_ehlerchrstrcpyGetrezvs_clipTEMPAinpfmeldungvalfvsprintfsgnmin ^msprintf~binJatof_lxcnv_ixcnv_fxcnvpoke GRAFfreeCrawcinbytevalTREELstrcatmkllinea_inf_loatcardcvlv_clrwkrelseekPTSOUTminc tmaxc ,INTOUTGCONTRLsortd_chsortu_chrrinstra_fillchTEMPA2Hmkiltoainkey2cvi strcmp_xxcmpSPstrlensprintfloffprintf_StdInFreverse\GPTSINGINTINeingabe d_ouble6chdriveBconinADDRINsortu_insortd_insortu_bisortd_bistrtolrightmidBmkdkbhitvexist4cvdza_fillinappl_exiappl_ini_ulmulZLvq_curadspcr_aus0locCONTRLasc2_GemParBtab>super rset2powerHlset2instrLc_harZTEMPRSuperpxyarrayHVAsortu_lo6sortd_lostring a_filllo r_einprintffscanffopenshowmslpoke sdpoke sortu_bysortd_bysinglePTSINMFINTINhidemfwritefclosed$ $$<llLL  $L         ,,,,     D    ,,    <,$,Lt,tDt$t,,,,LDtD,,ttttd$l$tT$D<l<l< <Ttt d|<<Lopenvwk.o`T@/ / OtErpN$f N`09HA!RyGv6p` 2A7R@| m7|HWHoCANPO?@HoC KNXO0/fANpNpNN"R"po"R3@ro R1A R0(H1@ RBh 0/Y@gY@gQ@g` R1| ` R1| ` R1| ` R1| 0/O&_$_Nu/?v 8<|A%42NN8&NuE Error: Cannot open Virtual DevicePress RETURN to continue.wait.exitcallocSPEICHERopen_worv_gtextFORMv_opnvwkf_ehlerCconwsSPgraf_hanCconinBconinLogbaseDTT\<Ll t,dvdi_call.ofB`"\*H"psNBLNuH"0<NBLNu vdi_calaes_cal_ctrl_cn. .. B_NACH_CH cd;/* */ /* B_NACH_C.H GFA-BASIC-KONVERTER NACH C - Headerfile */ /* Copyright (C)-1989 O.Vinzent und Prof.Dr. H.-J.Patt, Universitt */ /* des Saarlandes, Gebude 8, D-6600 Saarbrcken */ /* GFA-Systemtechnik, D-4000 Dsseldorf 11 */ /* */ #include #include #include #include #include #include #include #include #include #include #define C_HAR 256 extern void showm(void); int MF; #define pi M_PI #define FALSE 0 #define TRUE -1 #define t_uopper() strupr() #define trunc(x) (((x) > 0) ? (int)floor(x) : (int)ceil(x)) #define round(x,n) (((int)((x)*pow(10,(n))+0.5))/pow(10,(n))) #define frac(x) ((x) - trunc(x)) #define m_ax(a,b) (((a) > (b)) ? (a): (b)) #define m_in(a,b) (((a) < (b)) ? (a): (b)) #define f_eof(a) feof(a) #define odd(a) ((fmod(((int)(a)),2) == 0) ? 0 : -1) #define even(a) ((fmod(((int)(a)),2) == 0) ? -1 : 0) #define d_iv(a,b) (((a) < (b)) ? ceil((a)/(b)) :floor((a)/(b))) #define bmove(a,b,c) memcpy(b,a,c) #define locate(z,s) print_at(z,s) /* #define mouse(x,y,p) vq_mouse(HANDLE, (int)&p,(int)&x,(int)&y); */ extern int rc_intersect(int x1,int y1,int w1,int h1,int *x2,int *y2,int *w2,int *h2); #define rc_intersect(x1,y1,w1,h1,x2,y2,w2,h2) HVA; A = x2; B = y2; C = w2; D = h2; HVA = rc_intersect(x1,y1,w1,h1,&A,&B,&C,&D); x2 = A;y2 = B; w2 = C; h2 = D extern void a_lert(int icon,char *bt, int db, char *text, int *back); #define a_lert(i,b,d,t,bu) a_lert(i,b,d,t,&A); bu = A; #define mouse(x,y,p) { vq_mouse(HANDLE, &A, &B, &C); x = B; y = C; p = A; } #define evnt_button(clicks,mask,state,mx,my,bu,kb) evnt_button(clicks,mask,state,&A,&B,&C,&D); mx = A;my = B;bu = C;kb = D #define evnt_mouse(flags,ox,oy,owidth,oheight,mx,my,button,state) evnt_mouse(flags,ox,oy,owidth,oheight,&A,&B,&C,&D); mx = A;my = B;button = C;state = D #define evnt_mesag(pbuff) HVA; if(!pbuff) {HP = (int *)(pbuff);} else {HP = M_BUFF;} HVA = evnt_mesag(HP) #define evnt_multi(f,c,m,s,ms,mx,my,mh,mt,fs,m2x,m2y,m2w,m2h,buff,co,hic,mox,moy,mbu,oks,kr,br) HVA; I_NT = (int *)buff;HVA = evnt_multi(f,c,m,s,ms,mx,my,mh,mt,fs,m2x,m2y,m2w,m2h,I_NT,co,hic,&A,&B,&C,&D,&E,&F);mox=A;moy=B;mbu=C;oks=D;kr=E;br=F #define evnt_timer(count) evnt_timer(count & 0xffff, count >> 16) #define menu_bar(tree,show) HVA; HTREE = (OBJECT *)(tree);showm(); HVA = menu_bar(HTREE,(int)show) #define menu_icheck(tree,item,flag) HVA; HTREE = (OBJECT *)(tree); HVA = menu_icheck(HTREE,(int)item,(int)flag) #define menu_ienable(tree,item,flag) HVA; HTREE = (OBJECT *)(tree); HVA = menu_ienable(HTREE,(int)item,(int)flag) #define menu_tnormal(tree,title,flag) HVA; HTREE = (OBJECT *)(tree); HVA = menu_tnormal(HTREE,(int)title,(int)flag) #define menu_text(tree,item,new_text) HVA; HTREE = (OBJECT *)(tree); HVA = menu_text(HTREE,(int)item,new_text) #define objc_add(tree,parent,child) HVA; HTREE = (OBJECT *)(tree); HVA = objc_add(HTREE,(int)parent,(int)child) #define objc_delete(tree,del_obj) HVA; HTREE = (OBJECT *)(tree); HVA = objc_delete(HTREE,(int)parent,(int)del_obj) #define objc_draw(tree,start_obj,depth,cx,cy,cw,ch) HVA; HTREE = (OBJECT *)(tree); HVA = objc_draw(HTREE,(int)start_obj,(int)depth,(int)cx,(int)cy,(int)cw,(int)ch) #define objc_find(tree,start_obj,depth,fx,fy) HVA; HTREE = (OBJECT *)(tree); HVA = objc_find(HTREE,(int)start_obj,(int)depth,(int)fx,(int)fy) #define objc_offset(tree,obj,depth,x_abs,y_abs) HVA; HTREE = (OBJECT *)(tree); HVA = objc_offset(HTREE,(int)obj,&A,&B); x_abs = A; y_abs = B #define objc_order(tree,obj,new_pos) HVA; HTREE = (OBJECT *)(tree); HVA = objc_order(HTREE,(int)obj,(int)new_pos) #define objc_edit(tree,obj,c,old_pos,flag,new_pos) HVA; HTREE = (OBJECT *)(tree); A = old_pos; HVA = objc_edit(HTREE,(int)obj,(int)c,&A,(int)flag); new_pos = A #define objc_change(tree,obj,res,cx,cy,cw,ch,new_status,re_draw) HVA; HTREE = (OBJECT *)(tree); HVA = objc_change(HTREE,(int)obj,(int)res,(int)cx,(int)cy,(int)cw,(int)ch,(int)new_status,(int)re_draw) #define form_do(tree,start_obj) HVA; showm();HTREE = (OBJECT *)(tree); HVA = form_do(HTREE,(int)start_obj); hidem() #define form_center(tree,fx,fy,fw,fh) HVA; HTREE = (OBJECT *)(tree); HVA = form_center(HTREE,&A,&B,&C,&D); fx = A; fy = B; fw = C; fh = D #define form_keybd(tree,obj,next_obj,char,new_obj,next_char) HVA; HTREE = (OBJECT *)(tree); HVA = form_keybd(HTREE,(int)obj,(int)next_obj,(int)char,&A,&B); next_obj = A; next_char = B #define form_button(tree,obj,clicks,new_obj) HVA; HTREE = (OBJECT *)(tree); HVA = form_button(HTREE,(int)obj,(int)clicks,&A); new_obj = A #define graf_rubberbox(rx,ry,min_w,min_h,last_w,last_h) HVA;showm();graf_rubberbox((int)rx,(int)ry,(int)min_w,(int)min_h,&A,&B); last_w = A; last_h = B;hidem() #define graf_dragbox(iw,ih,ix,iy,rx,ry,rw,rh,last_ix,last_iy) HVA;showm();graf_dragbox((int)iw,(int)ih,(int)ix,(int)iy,(int)rx,(int)ry,(int)rw,(int)rh,&A,&B); last_ix = A; last_iy = B;hidem() #define graf_watchbox(tree,obj,in_state,out_state) HVA;showm(); HTREE = (OBJECT *)(tree); HVA = graf_watchbox(HTREE,(int)obj,(int)in_state,(int)out_state);hidem() #define graf_slidebox(tree,parent_obj,slider_obj,flag) HVA;showm(); HTREE = (OBJECT *)(tree); HVA = graf_slidebox(HTREE,(int)parent_obj,(int)slider_obj,(int)flag);hidem() #define graf_handle(char_w,char_h,box_w,box_h) graf_handle(&A,&B,&C,&D); char_w = A; char_h = B; box_w = C; box_h = D #define graf_mouse(m_form,muster_adr) HVA; M_FORM = (MFORM *)muster_adr; HVA = graf_mouse(m_form,M_FORM) #define graf_mkstate(mx,my,m_state,k_state) HVA;showm();graf_mkstate(&A,&B,&C,&D); mx = A; my = B; m_state = C; k_state = D;hidem() #define fsel_input(path,name,button) fsel_input(path,name,&A); button = A #define wind_get(handle,field,w1,w2,w3,w4) wind_get((int)handle,(int)field,&A,&B,&C,&D); w1 = A; w2 = B; w3 = C; w4 = D #define wind_calc(w_type,attr,ix,iy,iw,ih,ox,oy,ow,oh) wind_calc((int)w_type,(int)attr,(int)ix,(int)iy,(int)iw,(int)ih,&A,&B,&C,&D); ox = A; oy = B; ow = C; oh = D #define wind_open(handle,init_x,init_y,init_w,init_h) hidem();wind_open(handle,init_x,init_y,init_w,init_h);showm() #define wind_close(handle) hidem();wind_close(handle) #define rsrc_gaddr(type,index,adr) rsrc_gaddr((int)type,(int)index,&HTREE); adr = (long)HTREE #define rsrc_saddr(type,index,adr) HVA; V_OID = (void *)adr; HVA = rsrc_saddr((int)type,(int)index,V_OID) #define rsrc_obfix(tree,obj) HVA; HTREE = (OBJECT *)(tree); HVA = rsrc_obfix(HTREE,(int)obj) #define shel_envrn(adr,such) HVA; P_P = (char **)adr; HVA = shel_envrn(P_P,such); adr = (char *)P_P #define vqt_extent(text,x1,y1,x2,y2,x3,y3,x4,y4) E_XTENT[0]=x1;E_XTENT[1]=y1;E_XTENT[2]=x2;E_XTENT[3]=y2;E_XTENT[4]=x3;E_XTENT[5]=y3;E_XTENT[6]=x4;E_XTENT[7]=y4; vqt_extent(handle,text,E_XTENT) #define ob_next(tree,obj) (int)(((OBJECT *)(tree))[(obj)].ob_next) #define ob_head(tree,obj) (int)(((OBJECT *)(tree))[(obj)].ob_head) #define ob_tail(tree,obj) (int)(((OBJECT *)(tree))[(obj)].ob_tail) #define ob_type(tree,obj) (int)(((OBJECT *)(tree))[(obj)].ob_type) #define ob_flags(tree,obj) (int)(((OBJECT *)(tree))[(obj)].ob_flags) #define ob_state(tree,obj) (int)(((OBJECT *)(tree))[(obj)].ob_state) #define ob_x(tree,obj) (int)(((OBJECT *)(tree))[(obj)].ob_x) #define ob_y(tree,obj) (int)(((OBJECT *)(tree))[(obj)].ob_y) #define ob_w(tree,obj) (int)(((OBJECT *)(tree))[(obj)].ob_w) #define ob_h(tree,obj) (int)(((OBJECT *)(tree))[(obj)].ob_h) #define ob_adr(tree,obj) (long)(&((OBJECT *)(tree))[(obj)])) #define mkdir(a) (void ) gemdos(57,a); #define rmdir(a) (void) gemdos(58,a); #define kill(a) remove(a); #define name(a,b) rename(a,b); #define vsync() Vsync(); #define X_OR != #define malloc(a) Malloc(a) #define rad(a) ((a)*0.01745329251994) #define deg(a) ((a)*57.29577951308) #define sinq(x) sin(x) /* BIT-Operatoren */ #define eqv(a,b) (~((a) ^ (b))) #define imp(a,b) (~(a) | (b)) #define bclr(x,y) ((x) & ~(1 << y)) #define bchg(x,y) (btst(x,y) ? bclr(x,y) : bset(x,y)) #define bset(x,y) ((x) | (1 << y)) #define btst(x,y) (long)(-(!((x) & (1 << y)))) /* BIT-SHIFT-Operatoren */ #define shl(z,p) ((z) << ((p) & 31)) #define shr(z,p) ((z) >> ((p) & 31)) #define shlc(x,y) (((x) & 0xff) << (y)) #define shli(x,y) (((x) & 0xffff) << (y)) #define shrc(x,y) (((x) & 0xff) >> (y)) #define shri(x,y) (((x) & 0xffff) >> (y)) #define ror(z,p) (((((1 << ((p) & 31))-1) & (z)) << (32-((p) & 31))) | (((~((1 << ((p) & 31))-1) & (z)) >> ((p) & 31)))) #define rorc(z,p) (((((1 << ((p) & 7))-1) & ((z) & 7)) << (8-((p) & 7))) | (((~((1 << ((p) & 7))-1) & ((z) & 7)) >> ((p) & 7)))) #define rori(z,p) (((((1 << ((p) & 15))-1) & ((z) & 15)) << (16-((p) & 15))) | (((~((1 << ((p) & 15))-1) & ((z) & 15)) >> ((p) & 15)))) #define rol(z,p) (((((1 << (32-(p) & 31))-1) & (z)) << (((p) & 31))) | (((~((1 << (32-(p) & 31))-1) & (z)) >> (32-(p) & 31)))) #define rolc(z,p) (((((1 << (32-(p) & 7))-1) & ((z) & 7)) << (((p) & 7))) | (((~((1 << (32-(p) & 7))-1) & ((z) & 7)) >> (32-(p) & 7)))) #define roli(z,p) (((((1 << (32-(p) & 15))-1) & ((z) & 15)) << (((p) & 15))) | (((~((1 << (32-(p) & 15))-1) & ((z) & 15)) >> (32-(p) & 15)))) typedef struct bildsp { char *bild; int xa,ya,xe,ye; } BILD; GEMPARBLK *GPBk; char *DATA_POINT[C_HAR]; extern char *TEMP,*TEMPR[80],*TEMPA; int DUMMY,HANDLE,OLDHANDLE,SP,A,B,C,D,E,F,G; long DAZ; void *HP; OBJECT *HTREE,**OB; MFORM *M_FORM; int E_XTENT[8],*I_NT; char *V_OID; char **P_P; int M_BUFF[8]; FILE *FP[10],*STDPRN; char *SPEICHER[256],*HVP[10]; int HVA,GRAF,HV[256],ZL; int *CONTRL, *INTIN, *INTOUT, *PTSIN, *PTSOUT; int *GCONTRL, *GINTIN, *GINTOUT, *GPTSIN, *GPTSOUT,*GB; void *ADDRIN,*ADDROUT; int pxyarray[4]; void wait(int a); int open_workstation(register MFDB *form); MFDB source; /* Graphik */ extern void vdisys(int a),gemsys(int a),boundary(int mode); extern void vellpie(int x, int y, int xr, int yr, int begang, int endang); extern void draw(int xa, int ya, int xe, int ye),box(int x, int y, int c, int d); extern void circle(int x, int y, int r), g_raphmode(int mode); extern void pcircle(int x, int y, int r),deffill(int x, int y, int d); extern void ellipse(int x, int y, int xr, int yr),drawa(int mode, int xa, int ya); extern void pellipse(int x, int y, int xr, int yr); extern void rbox(int x, int y, int c, int d),color(int a); extern void p_rbox(int x, int y, int c, int d); extern void deftext(int x, int y, int c, int d); extern void defline(int x, int y, int c, int d); extern void defmark(int x, int y, int c); extern void setmouse(char *a),hidem(void),hardcopy(void); extern int mousex(void), mousey(void), mousek(void),point(int x, int y); extern void line(int xa, int ya,int xe,int ye),pbox(int x, int y, int c, int d); extern void polyline(int p,double *a,double *b,int ofx,int ofy); extern void polyfill(int p,double *a,double *b,int ox, int oy); extern void polymark(int p,double *a,double *b,int ox, int oy),plot(int x, int y); extern void fill(int x,int y,int farbe),fdeffill(int a,char *c); extern void fdefmouse(int a); extern void fileselect(char *pfad, char *vor, char *back),defmouse(char *a); extern void b_oundary(int mode),rc_copy(long sadr,int sx,int sy,int w,int h,long dadr,int dx,int dy,int mode); /* Strings */ extern char *left(char * a, int b),*string(int zahl,char zeichen); extern char *mstrcat(char * a, char *b),msprintf(char *z,char *form, ...); extern char *right(char *a, int b); extern char *mid(char *a, int b,int c); extern char *lset(char *a, char *b); extern char *rset(char *a, char *b); extern char *hex(long a,int n), *oct(long a,int n), *bin(long a,int n), *space(int a); extern char *chr(long a); extern char *time(void); extern char *sget(char *c); extern BILD *get(int x1, int y1, int x2, int y2,char *c); extern void put(int x1, int y1,char *c,int mode); extern char *t_oupper(char *a),*tab(long a); extern char *spc(int a), *date(void),*dir(int a),*dirr(char *a); extern char *itoab(int a,int b,int c); extern char *ltoab(long a,int b,int c),*ftoab(double a,int b,int c); extern void form_inp(int mode,int anzahl, char *b); extern int abs(int a),asc(char *a); extern int instr(int a,char *b,char *c); extern int rinstr(char *b,char *c); extern void text(int x,int y,int laenge,char *c); extern void sput(char *a), s_ettime(char *zeit,char *datum); extern double val(char *a); extern int valf(char *a); /* Verschiedene */ extern void *arrptr(char *a),bget(FILE *a,long b,long c),bload(long a, void *b); extern void bput(FILE *a,long b,long c); extern void bsave(char *a,long b,long c),print_at(int a,int b); extern void exec(int a,char *b,char *c,char *d),clear(void); extern long dfree(int a),fre(int a),loc(FILE *a),lof(FILE *a),timer(void); extern int exist(char *a); extern unsigned char *inkey(void),inp(int a); extern void swap(void *a, void *b),pause(long a),relseek(FILE *a,int anz); extern void seek(FILE *a,int anz),chdrive(int drive),super(int a); extern void poke(long sp,char b),dpoke(long sp,int b),lpoke(long sp,long b); extern void spoke(long sp,char b),sdpoke(long sp,int b),slpoke(long sp,long b); extern char peek(long a); extern int dpeek(long a); extern long lpeek(long a); extern char byte(long a,char b,int fl); extern unsigned int card(long a,unsigned int b, int fl); extern int i_nt(long a,int b,int fl); extern long l_ong(long a, long b,int fl); extern float single(long a, float b, int fl); extern double f_loat(long b, double w, int fl),d_ouble(long b, double w, int fl); extern char *c_har(long a, char *b, int fl); #define c_har(a,b,fl) c_har((long)a,(char *)b,fl) extern char *mki(int a),*mkl(long a),*mks(float a),*mkd(double a); extern int cvi(unsigned char *a); extern long cvl(unsigned char *a); extern float cvs(unsigned char *a); extern double cvd(unsigned char *a); extern void f_ehler(int a),clip(int ofon,int x1,int y1,int x2,int y2,int ox,int oy,int mode); extern long swapb(long a); extern void stime(char *a),sdate(char *a),sp_test(void); /* Mathe - Routinen */ extern double atn(double a),cos(double a),sin(double a),exp(double a); extern double log(double a),log10(double a),rnd(int a),sqr(double a); extern int fix(double a),sgn(double a); extern double max(int a, int b, ...),min(int a,int b, ...); extern char *maxc(int a, int b, ...),*minc(int a,int b, ...); extern void defnum(int mode),r_aus(int mode),r_ein(int mode); /* extern double d_iv(double a,double b); */ /* extern long imp(long a,long b),eqv(long a,long b); */ extern int sortu_bit(char *a,char *b),sortu_byte(char *a,char *b),sortu_int(int *a,int *b); extern int sortu_long(long *a,long *b),sortu_doub(double *a,double *b); extern int sortu_char(char **a,char **b),sortu_void(void **a,void **b); extern int sortd_bit(char *a,char *b),sortd_byte(char *a,char *b),sortd_int(int *a,int *b); extern int sortd_long(long *a,long *b),sortd_doub(double *a,double *b); extern int sortd_char(char **a,char **b),sortd_void(void **a,void **b); extern long btol(char *s),matoi(char *a),matol(char *a); /* GEM - Routinen */ extern long ob_spec(long tree,int obj); . ƾ.. DIALOG RSC zdDIAL_SMPC ( DIAL_SMPLST dDIAL_SMPPRG dGRAF_SMPC dS GRAF_SMPLST dGRAF_SMPPRG dRC_INTERC d RC_INTERLST dRC_INTERPRG d:TEST_GFAC -)TEST_GFAGFA d$TEST_GFALST d,B_NACH_CPRJ ok38DIAL_SMPO i4GRAF_SMPO i8TEST DATF EST_GFAO fff$f 123456789012345678901Vorname : _____________________XXXXXXXXXXXXXXXXXXXXX123456789012345678901Nachname : _____________________XXXXXXXXXXXXXXXXXXXXX123456789012345678901Strasse : _____________________XXXXXXXXXXXXXXXXXXXXX123456789012345678901Ort : _____________________XXXXXXXXXXXXXXXXXXXXXAbbruchOkscreenfileprinterAusgabe auf:/x(@(p(@/x(|||||%;\!r!! "C!$  - f    Y a#  d  k  p  x  /* Basic -> 'C' bersetzung */ #include /* Globale Variablen */ int CHAR; long *r_long_f; long abbruch_long; long ausgabe_long; long ex_long; long form1_long; long h_long; long i_long; long ikon1_long; long nac_long; long ok_long; long ort_long; long radio_long; long str_long; long tree_adr_long; long vor_long; long w_long; long x_long; long y_long; long radio_long; char nachnamchar[C_HAR]; char *nachnam_char; char ortchar[C_HAR]; char *ort_char; char strassechar[C_HAR]; char *strasse_char; char vornamechar[C_HAR]; char *vorname_char; char ortchar[C_HAR]; char *ort_char; void main() { r_ein(1); CHAR = C_HAR; nachnam_char = &nachnamchar[0]; ort_char = &ortchar[0]; strasse_char = &strassechar[0]; vorname_char = &vornamechar[0]; ort_char = &ortchar[0]; /* ** Dialogbox-Verwaltung */ /* */ if((r_long_f = (long *)calloc((size_t)(3+1),(size_t)sizeof(long ))) == 0L) f_ehler(0); else SPEICHER[SP++] = (char *)r_long_f; /* */ form1_long=0; /* Dialog */ ikon1_long=1; /* ICON in Baum FORM1 */ vor_long=2; /* FTEXT in Baum FORM1 */ nac_long=3; /* FTEXT in Baum FORM1 */ str_long=4; /* FTEXT in Baum FORM1 */ ort_long=5; /* FTEXT in Baum FORM1 */ abbruch_long=6; /* BUTTON in Baum FORM1 */ ok_long=7; /* BUTTON in Baum FORM1 */ r_long_f[(int)(1)]=8; /* BUTTON in Baum FORM1 */ r_long_f[(int)(2)]=9; /* BUTTON in Baum FORM1 */ r_long_f[(int)(3)]=10; /* BUTTON in Baum FORM1 */ ausgabe_long=11; /* STRING in Baum FORM1 */ /* */ DUMMY = rsrc_free(); DUMMY = rsrc_load("A:\\GFA_TEST\\DIALOG.RSC"); /* Resource laden */ DUMMY = rsrc_gaddr(0,0,tree_adr_long); /* Adresse des Objektbaumes ermitteln */ DUMMY = form_center(tree_adr_long,x_long,y_long,w_long,h_long); /* Objektbaumkoordinaten zentrieren */ /* */ /* Texte in den Edit-Feldern vorbelegen */ (void) c_har(l_ong(ob_spec(tree_adr_long,vor_long),0,0),"Johann Sebastian",1); (void) c_har(l_ong(ob_spec(tree_adr_long,nac_long),0,0),"Bach",1); (void) c_har(l_ong(ob_spec(tree_adr_long,str_long),0,0),"Kantatengasse 77",1); (void) c_har(l_ong(ob_spec(tree_adr_long,ort_long),0,0),"Dresden",1); /* */ DUMMY = objc_draw(tree_adr_long,0,1,x_long,y_long,w_long,h_long); /* Objektbaum zeichnen */ /* */ do { HVA = form_do(tree_adr_long,0); ex_long=HVA; /* Objekt mit Exit-Status angeklickt ? */ /* */ /* Texte aus den Edit-Feldern in entsprechende Strings einlesen */ msprintf(vorname_char,"%s",c_har(l_ong(ob_spec(tree_adr_long,vor_long),0,0),0,0)); msprintf(nachnam_char,"%s",c_har(l_ong(ob_spec(tree_adr_long,nac_long),0,0),0,0)); msprintf(strasse_char,"%s",c_har(l_ong(ob_spec(tree_adr_long,str_long),0,0),0,0)); msprintf(ort_char,"%s",c_har(l_ong(ob_spec(tree_adr_long,ort_long),0,0),0,0)); /* */ for(i_long=1;i_long<=3;i_long++) { if(btst(ob_state(tree_adr_long,r_long_f[(int)(i_long)]),0)) /* welcher radio-button */ { radio_long=r_long_f[(int)(i_long)]; /* wurde angeklickt ? */ } } } while(!(ex_long==ok_long | ex_long==abbruch_long)); /* */ DUMMY = rsrc_free(); /* reservierten Speicherplatz wieder freigeben */ /* */ printf("\33E"); printf("Ende mit : %ld\n",ex_long); printf("Vorname : %s\n",vorname_char); printf("Nachname : %s\n",nachnam_char); printf("Strasse : %s\n",strasse_char); printf("Ort : %s\n",ort_char); printf("Radio : %ld\n",radio_long); r_aus(0); }' ** Dialogbox-Verwaltung ' DIM r%(3) ' form1%=0 ! Dialog ikon1%=1 ! ICON in Baum FORM1 vor%=2 ! FTEXT in Baum FORM1 nac%=3 ! FTEXT in Baum FORM1 str%=4 ! FTEXT in Baum FORM1 ort%=5 ! FTEXT in Baum FORM1 abbruch%=6 ! BUTTON in Baum FORM1 ok%=7 ! BUTTON in Baum FORM1 r%(1)=8 ! BUTTON in Baum FORM1 r%(2)=9 ! BUTTON in Baum FORM1 r%(3)=10 ! BUTTON in Baum FORM1 ausgabe%=11 ! STRING in Baum FORM1 ' ~RSRC_FREE() ~RSRC_LOAD("A:\GFA_TEST\DIALOG.RSC") ! Resource laden ~RSRC_GADDR(0,0,tree_adr%) ! Adresse des Objektbaumes ermitteln ~FORM_CENTER(tree_adr%,x%,y%,w%,h%) ! Objektbaumkoordinaten zentrieren ' ' Texte in den Edit-Feldern vorbelegen CHAR{{OB_SPEC(tree_adr%,vor%)}}="Johann Sebastian" CHAR{{OB_SPEC(tree_adr%,nac%)}}="Bach" CHAR{{OB_SPEC(tree_adr%,str%)}}="Kantatengasse 77" CHAR{{OB_SPEC(tree_adr%,ort%)}}="Dresden" ' ~OBJC_DRAW(tree_adr%,0,1,x%,y%,w%,h%) ! Objektbaum zeichnen ' REPEAT ex%=FORM_DO(tree_adr%,0) ! Objekt mit Exit-Status angeklickt ? ' ' Texte aus den Edit-Feldern in entsprechende Strings einlesen vorname$=CHAR{{OB_SPEC(tree_adr%,vor%)}} nachnam$=CHAR{{OB_SPEC(tree_adr%,nac%)}} strasse$=CHAR{{OB_SPEC(tree_adr%,str%)}} ort$=CHAR{{OB_SPEC(tree_adr%,ort%)}} ' FOR i%=1 TO 3 IF BTST(OB_STATE(tree_adr%,r%(i%)),0) ! welcher radio-button radio%=r%(i%) ! wurde angeklickt ? ENDIF NEXT i% UNTIL ex%=ok% OR ex%=abbruch% ' ~RSRC_FREE() ! reservierten Speicherplatz wieder freigeben ' CLS PRINT "Ende mit : ";ex% PRINT "Vorname : ";vorname$ PRINT "Nachname : ";nachnam$ PRINT "Strasse : ";strasse$ PRINT "Ort : ";ort$ PRINT "Radio : ";radio% ```>>> TURBO-C <<<< for ATARI-ST Version 1.1 (C)88/89 Borland International G#J$VH3 k # Ј<.@#<"@(I$k,"Jf"JfB// ?<?<JNAO Nz4A6<HCBB`6 !jBJ)gHiRC` "fSI "WJAkHiRCBSQJ)gHiRCHy`$O0 J"LN? 9g @N 9&g @N 9g @NNt?<LNAH>pN3Kf;|+|~+|(+| +|$+|(ErpNsX$f B@N3`0-HAL!RmB+|+|+|+|+|+|+| R!| R!|  R!| +| N;@G KN;@I LBAB@N ;@*Mt;V(Hy>Hy?/BB? 2-Nr4N _2Np;V(?-?- ?-4-rB@ TN\O<BGl`<B40S>EGl`0E:022C4D6BlElp`B@L Nu?62092N~66NuH0>:6|g2092N~X8|f:|f<42092N~ LxNuH68:R@g0922N~~6|g2092N~8|g2092N~:L8Nu/ $HN J092N}N$_NuOAN\OJNuH O68:?B?o A2092N\ONuH O:86$HRBf.C092N|h6/BgBg? J42092N\O` J42092NOL8Nu/ E45A5B5o Jr092N$_Nu?/NTONuH 68:EJ@f45B5D5E Jr092NJCg45EL8Nu??:8?09224NLTO:8Nu??:8?<Bg?09224N\O:8Nu??:8?<Bg?/ ?09224NPO:8Nu??:8?/ ?/ ?/ ?09224NPO:8Nu??:8?/?09224NXO:8Nu??:8?/ ?/ ?/ ?09224N>PO:8Nu?4NTONu?O6/>?A?@?C?B?C ?B ?A?@?AA092rNO6NuQO>?A?B?o A092N"PONuQO>?A?B?o A092NPONuQO>?A?B?o A092N&PONuH8O6&H(I:<pCHЀNst$HBD`Np AC""2AN`2E0@@5t A C""2AN`2F0@@5RDDnBD`0@?2AN8vTORDDlNz J2092N JNt\O LxNuH8O6&H(I:<pCHЀNst$HBD`Np AC""2AN`2E0@@5t A C""2AN`2F0@@5RDDl J2092N JNt\O LxNu??86t?09224NTO86Nu09*g0<N\By*Nu09*f0<N\3*Nu]OB@>?@?@HoCA092N|XO0\ONu]OB@>?@?@HoCA092N|XO0/\ONu]OB@>?@?@HoCA092N|XO0/\ONu?/ O8E/ /?C JN8O N. J0N o0NOx$_8NuH>O&H,I*oBWEIR L"KNqb"NANqb,L/MNHWC LNnXOJ@fAN8vpNPC JNqbp\ LNp/H`޽f\B"J MNp*o WffSM\BSM`BANeN2&LBOL|Nu/&"Ҁtp|NH&&NuH0v <~Nst$H fB@N3096HA!Ry6BD:<<><N{&HBg??420"JN\O JL NuH0&HvBD:<<><N{$Hp???42"J K0N\OL NuH&H$y092N0/Ro(Ny:0FNy60/Ro(Ny8RD0FNyHR@2IRAI8p0Nst(HPL fB@N3096HA!Ry6GKB.B@?@ ;@ r?A ;A ;C?C;E?EpCH;@?@44(44RBZBZ4489E)KHW"Mr092 yN} XOBA092NP LO*Lr KpN(XNP@@ KpN'NP@@AN{XO&_Nu/ &IN: KN&_NuNdNuH 6<8/ :/">/$|oA,N8vNzpN6FE|gD0D42E5A|f4/D5B0/E5@`.0oD5@2oE5A`|fRjjj~`AMN8vNzpN6F J2092N~LNuH 68:2/0/EJ@g5C5DBjBj`BjBj5C5DA A A A %H%I r5A$5A5|P5|P&p5@(5@B*5|5|5|pECNy4poDNy5@ JNL8Nu/ |g y0E$%y%y%y %y JN8T$_Nu|g y0AzN8d y0NuH0$H&I6rpN&/ A^N8vXO0 KNL NuH0&H8BCE` J30HNgRCCn Jp NgL Nu/6N{ֶ|f"¼f$v<<`<&Nu/ $H &f4RJH|HgD_@g| g`:RJ JNd`DRJp JNPD`4 %fRJp JNPD` $fRJp JNPD` JNP@$_NuNNu/ UO>EN6A"09H!"PR"PR"PB09RyH pTO$_Nu/ YO.EN6A*09H!B@` "hRR@|m"hB09RyH pXO$_Nu/ YO. EN6A*09H!B@` "hRR@|m"hB09RyH pXO$_Nu/ OAC""2EN6A*09H!B@` "hRR@|m"hB09RyH pO $_NuB@HBA(ANupBA`$ tRA|mNu/ OBB@`".tR@|mEA N` oC 0O$_Nu/ QOB@`R@|mE o"J 0PO$_NuJBg @ @NuJBg @0 @0NuJBg @0 @0NuJBg @ @ Nu/O&JAg C  C/A"_ N` oC 0O &Nu/&JAg CC 0 C"o""2&Nu/&JAg CC 0 C"o""2&Nu/ $@JAg "H JNqb J$_Nu/ B@$P24R@$Q2 gS@$P2f $Q2fB@`$Q2H$P2HB0$_Nu/ B@$P24R@$Q2 gS@$P2f $Q2fB@`$P2H$Q2HB0$_Nu/ / O&H$IC""2A"JNZlp` KC""2A"JNZfB@`pO &_$_Nu/ / O&H$IC""2A"JNZop` KC""2A"JNZfB@`pO &_$_NulpNufB@NupNuopNufB@NupNulpNufB@NupNuopNufB@NupNu0QlpNu0QfB@NupNu0QopNu0QfB@NupNu lpNu fB@NupNu opNu fB@NupNuH $HvBDN,r`<0H4iHցRDf LNuH>YO$H*Iv&HByI ,I` %f -%fTM` -mf"B@TMH|0.` WR2S@JAf`RM sfgAN8vNzpN6F \Nqր090HmJA&N8v?90/AMN8v\OAN8vAN8vNzpN6F`RMf2fI / "N JN9 XO`$KXOL|NuH8&H(IBCN6E"09H%0RC3f0RC4fy0mDAN8v?90?AN8vXOAN8vNzpN6F` RRf` RRf RRB09RyH rLNuH8:&JN6I"09H)BC88"K J092N|6pC@l$ TR v`|PmpN3 TR RCpD@m TRB29RyI tL8NuOAC""2ACNZlp`"AC""2AC NZfB@`pO NuH O86E6SAg|f&`l`SDnHANa`¶|f$:`0El2`2:SDnA0Na`|f"*` l"`"*SDnA Na`n|fh JE C ""2`F JE C""2AC NZlA C""2` AC""2AC ""2SDnA C""2 o2C 0OL8NuH86E|f&Z`(Z"K LNqS@f&LSCn KLNuH O86E6SAg|f&`o`SDnHANa`¶|f$:`0Eo2`2:SDnA0Na`|f"*` o"`"*SDnA Na`n|fh JE C ""2`F JE C""2AC NZoA C""2` AC""2AC ""2SDnA C""2 o2C 0OL8NuH86E|f&Z`(Z"K LNqR@f&LSCn KLNu @Nu @0Nu @ Nu?/(pN" NB@N"(6Nu?/(6pN"2 NB@N"(6Nu//(&pN"" NB@N"(&Nu?/ $@pN"B@N"$_6Nu?/ $@pN"6B@N"0$_6Nu// $@pN"&B@N" $_&NuJ@gN{#XNu yXN{NuH0O&H86E""JA 0N&A / / ? / A*N8vO2pDN&Ho"A5NDXOJ@f A"J""220N&A / / ? / A9N8vO o"J 0O L NuHUO&H>:8602N&?/ ADN8v\O2pEN&HWANNDXOJ@f>20N&?/ AQN8v\O0TOL8NuH8><&HBC8:N6E"09H%0H"K RNqIJGg$/AN8vXO KNq:@` RB0@RDDnAN8v` rtKfJCoAN8vSC`f rtMf RNq@lAN8vRC`> rtSf|o8SEAN8vSC8` R"R@@RD R0@fHp0AN8vXO`fEgJGf AN8v`REoN|gHREBD`RD R0@fB0@` R"R@@SDJDf R00RC RHpAN8vXON{.| fn RB0`AN8v"R KNqbLNu?8t@?rD?AN8vXO8Nu/ / $H&H` HNvf J&_$_NuCNg fB@NupNuH0:$H&IvBDNqJ@f KNqJ@fp`F JNq@n8SE`2P3@f JCgBC<RDRE JNq@o KNq@opF`B@L xNuH0&H$I INq&SC KNqJ@f JNqJ@fp`< KNqS@`*320fJCoSCJ@o 320gRCJCfR@`S@J@lB@L NuHNu/ / &H$@"H JpNfJd AN8vANf KNi&_$_Nu/ / &H$@"H JpNeLJd AN8vANf KNi&_$_NuH0&H6N6E"09H%"K RNqb KNq@m KNq&` RB00pCHђ29RyI rL Nu?/ $H6Nq@l JNqC J$_6NuH0$H86N6G""J SNqb|f SA@`P JNq2DSAAn pN3`"pDHѓ29I' SB00rCHӓ09RyH sL NuH0(:BCN6E*G0H%/C jN8XO`RC jRf|g,S`0HS r00RC@l j0H% jRB0RSH rL 8NuH0(:BCN6E*G0H%/C jN8XO`RC jRf|g,S`0HS r00RC@l j0H% jRB0RSH rL 8Nu?6"<NyH6N6A*09H!"hR"hRB09RyH p6NuH8O(:BCN6E"GI0H'r R Np|gT"RANqb`RC R00f` RR00RC@n RBC RNp RNq R0H'CP$`0H sA!$0RTH sO"L8Nu`RHfSH`BSH  gNu`RH  gNuH8$H(I&HBC` 0RC JNq? LNq2@Am JNq2H"LA0Nq KLNu/ $H`g f` fB J$_Nu?/ 6N6E*09H%B@` jR R@@nJClAN8vANf jRB09RyH r$_6Nu??6N6A"09H!"PB10`"PRSCJCn"PRB09RyH p86NuH $HBDNq&SC`2@H0@0RDSCDnLNu?6N6A*09H!B@`"hR R@@n"hRB09RyH p6NuBB` RBBlNu?BB` 6C10RBBl6Nu?BB` 6K!0RBBl6NuH $H8BC`p AC""2RCClLNuH :8<BCN6E"09H%|g??C RN8XO`?CN RN8TO|gpFH29IѲ|g0Hђ` RNqђ|g RR.` RR00RC@n RRB09RyH rLxNuH *8<BCN6E"09H%|g/?C RN8\O`/C RN8XO|gpFH29IѲ|g0Hђ` RNqђ|g RR.` RR00RC@n RRB09RyH rLxNuH 8:BCN6E"09H%|g A/ / ? ?C RN8O ` A/ / ? C RN8O `RC R00f`SC R 000gB00BC|gpEH29IѲ|g0Hђ` RNqђ|g RR.` RR00RC@n RRB09RyH rL8NuOHWNNXO oC 0O NuH0$H&HBC8`L .fJDfFx`< +g -fJCg *Ef*|n$RC` EfJCg`HNvxJ@gRJf J L NuOA&/ / ? A&/ / ? HoNPO oC 0O NuH<*H&($@GChNg(H gK/C]N8XOJ@f"AjN8v MNf LNiB@NPBAp LNgB"L"p JNeLJf"AjN8v MNf LNipN6F LNi`pN3L<NuHYO*H.rg&@IC MNg,H grpNgB NNf&BAp NNgBpfBHWC] NNDhXO&W/ AN8vXONzBAp NNgB NNipN6F"N"p KNfJf&AN8vANf NNipN6F NNi`pN3XOLxNu/ $H I"J$_Nu"tNu?O6AvCrQAN{6 "/Ny"/ NyO6NuA7N8vANfB@NPNu?6pCN{6NuNfNu// $Hvr NgB JNf&rfAAN8vANfBAp JNgB $_&NurNgBNu// $H&Jn rDNgB` BA  JNgB$_&Nu/ ErBB*`$pN{"¼f $r`r` N3J@f J$_NupN{NuHAf/0AuN8vXONzpN6FNuH86G,&PEJ@g NNA#####@C(S#"(SI##L (SI##L(SI0##L(SI##L(SI# (SI#(SI##L#y #y3BRBjN|U@f5|5|`N|S@f5|`5|?5|3*NJCg(G2N7634 JrN~0N` AyN8vB@N NrpNsX#rfB@ND`096HA!rRy6rpNsX#vfB@N`096HA!vRy6rpNsX#nfB@N`096HA!nRy6 <Nst#"fB@N`096HA!"Ry6#"& y&A#jByBFLNu?/ 6E29gJt ?pBA4N TO092N8.N092NN`096H rNt\Sy6096H 2f0NP$_6NuB@ yPm3A""Ho `"PRBR@|o Nu/ / OtE\rpNsX$f N3`096HA!Ry6Gv6p` 2A7R@| m7|HWHoCANnBXr [0`|A`0A2"La@`\ [2"La@`JJEj `p0?4 LaZTO@`*JEj `0H?4 LaTO@` JEj `p0?4 La(TO@`JEj `p0?4 LaHTO@`A 2"La@`A 2"LaV@`A 2"La|@`|@HN0\OLxNup` Warning: use TCFLTLIB to get float support for printf. H Ov Jj|-?|D`g|+?|`g| ?|`~?|`vH Ov ?|`dH Ovf?|`L|0f|x?|`2|X?|`$H Ovf?|` |0?|$H>C8jxA a5A pJWF@?@gA 2SAktaSb (Q2/@4/(jt@jtBgf 0Ao@@Alx?B?D`hH0$H&IB(v`H0$H&IvJWFCJBj4Cb6xJAkCc8Cf K0a0 JN` 0 JN0 Kap0DL Nu6x0/g f@ JaP0/g@AN0/g@ Ja,0/g@A N0/g g@ Ja0OLNuH0E6`H0E4&H6g8Kg SC JpNQ J0|gNL Nu00000000 H0O$H&I>68jx`p@c8?|0|g J0R@CDHoBaXO0?| JoBg|-?| `&g|+?| `g | ?| ?| ?D62XAXAt0gJf$B RoDJDf f0SA`,C"SDQ`X JDf fSA` C"SDQto An ?B?B`ff ?C?B`?C?BC8?|@gE`e0/DS@jD@-`+/ r AJa/"_AFpJWF@rg SAkt0QS@k AFQ`H0O$H&I?|@>>68jx0|g JpCDHoBaXO?| JoBg|-?| `&g|+?| `g | ?| :/DlDE|0 ?| |JDffSFDged?DD?|6`6JEfp?@?@6`$ JpCDHoBaXO 5d?EE?|6`SE?EE|1"p?@6@`E|b J0CDHoBaXO0@E:/DDEE?D6DC"SDQ?EE`?|0D|b JCDHoBa^XO0D0:/D<RFDJDffSF?D6t0JfB ?| RoDC"SDk6Q`.C ?E SEj0?| RF`QC"SDkQto Fn ?B?B`ff ?C?B`~?B?C`t|? ?| x?D ?D?D6|`H0O$H&I?|@>>68jx0|g JpCDHoBaVXO0/DS@Dn|m `6x0/gf@ Ka0/ g@AN0/g@ Kaf0/ g@A NJof Jo6fgp@A .N0/g@ Ka*0/6g@A"N0/@g@A8N0/gg@ Ka0ONL Nu0<HS@rJrfRG4`kI/L4`bֆSDgNRG4`b`NSG2$QLNuP`H8vBG8ghzB$H&II.NJ@kbRG4`k<0fSDgBNRG<߰<Xf SDg.NRGI.4`bֆSDgNRG4`b`NSG$2QLNuP`H8vBE8gjB$H&II-~NJ@kdRE4`k<-Wg<+fNREI.V4`< b"ֆSDg NRE4`< b փ"փփց`NSE$JgD2QLNuP`H<8z$H&II,NJ@knREJ4k| gNSEJj$JDgJNREJ@kB| gJ4jNSE`0SDf`**o JDg NREJ@k| gJ4jNSE`SDfB2QL<8NuP`H06g(8$H&IJCjvJj NJ@kSCf` NJ@kSCfQC2L NuP`H<6g^8BE$H&I(o$Jj$NJ@j P`FNJ@k> F4Pg>SCf`**o NJ@j P`NJ@k F4PgSCfBQC2L<8NuBN`H8O&H(I>?Av8z0| ~E+NJ@kFRG2kNSGESDeN<+g<-f SDeNfSDeN`SDeNb QSDeNc<.f0`<.f&SDeNbQSDelNc<߲<EfHSDePN<+g<-fSDeMHGGCA 0jD@aAC a `aAC a P?b CaSGA6"$JDoGn| Fo| o0RG0CC?SFpԂӁ@Q` pԂӁ@*(6ԂӁ@ԂӁ@ԅӄC<0QBJjR! :fg0`1RPOpAL@NuH|~trp  g  g -Wg +f 0m 9oR .gbg If Nf Ffp`p o0 ]H` 0m 9n @la`RF` .f 0m 9n @laSF`G EfJDg"LUR@JDfJEj&zRӅdR@`JfJf BYBBTO`.a2""//?A0aC o$a O JgPLNuԂӁ@*(6ԂӁ@ԂӁ@ԅӄCvG0ԇӃCNup /rt  g  g -Wg +f 0g6C Xfp`&HCHCԃԁ 9nA0l`AAAmA @m gSH"JgD &NupowACHVBMa//?Aa//?,o f>,?B^BJ g`<,,A CHnHzpaPO`Jo nhkJ f`JWkB^BB`l 0@@@>D@k@ @?brt @b  /` @  /SdS¯fvįfn/@A CaCAa 2CaRJgVO,_Nu o?jD@ @c0<?<@2AA@AC,0 ]HNgCbC Nda JFf<J_k Nu?@@@@ @@P@$@@ @4ɿ@iŭ+p@xIϦAGɀCQ~ގFMHvuu Z;]=]u%`R  C6O璃cW䔋mϫp ԥT/Xx6.=8?Xlb?\>np?X?mKz?m?ZD?` +?y?ryXF$^?4 xدexpa lzJk fJgnaHM:@v@ @?bg0 `BS@ԂS @?fJjD@iRC@` fJfB@`a C8DDD8 jDC @//?AOCaKrA !%!%1%xaKMaMQCa/|? BoBCA aIRWa C<,,]HaAaZCaO(L`NuA"o4:xEE?k@DLd>@8<HDBD/DBAaDIahaKnA !%!%1%xaKMaMQC aCaOL`NuA"o4"Ca CCadOp&NuA"o4J@fNuA"o4܇ۀ<BEHEHF.HG܇ۀ܇ۀ.HG܇ۀ܇ۀ.HGڇڇр?<:HEHFp>܇ۀ܇ۀ84>ڇk܆ۅJDjRFSBDJDj RۀfRBJBj BnHzIaIXO`p2""`2""]ILNuHa6(*AaJ@j FFF@@JCj FFFCC@L8NuaddC~Jyj 4G<FHC6<FH@0Cf bf c `jDF ABv F cH FAczx`J F!c *xF FcE:BDHDHEF F c QFJg6<SFk SQJGk,ԅӄdSR@ CbfLgFRdBRd>R@`6kgDS@ԂӁCdSdS CbfgSdSgJka6J@j$ @n HzfaXO`"p0 `0 `Jj0 ]HLNumul0  ]H`L4܇׀HAHBHDHE>܇׀<BCHCHF.HG܇׀.HG܇׀.HG܇׀.HG܇׀.HGև.HGևр?<6HCHFp>܇׀>܇׀:4>ևk܆׃JEjRFSBEJEj R׀fRBJBj BnHy\aJXO`p0 `02@@@0 ]HLNudivH0,HF⌰cpRdR:j EnHy^.a XO`p0 `42BBB0 ]HLNuakifpNuH@NuH@NuJ@j@`@?H@B@Nu"H@4B@Hg @f0<`@?B0 B]HNuafpNu@|@k <`D@ @cpNu JPjDNuH$fBA`RjDh 2< <`@2<@H@J@fAH@ @bQA @bYA @?bUAJ@kSAH@JjA0 B]HNu$(02A Ag"(jNufJfNua JNu"(f JfDNu@DNu?>Jf@ "tHAJAf @HB2BBHA AHAb Q@BJkS@ԂӁjGj B@"<t>Nu0"$a6(*Nu2""Nu2""Nu@TXJ? ?ry@ԚxK@ڢ!h5?ڢ!h5?ڢ!h5?@@NaN-INF+INFXmath by d'ART/ / o\H// ? o \H\I//!?!// ? //*?A 9g"@NJ@f(0 @f 3!`$ @g @f3"` o4C0 O$ _"_NupBB?<JPjWHW//ajPO0 ]HNu#Nur x@W1J x @W!P!P!P x@W1hJ x @Wf"P#xP#xPNur x@W1HJ x @W!P!P!P x@W1J x @W!P!P!P x@W1hJ x @Wf P!xP!xPNur x@W1HJ x @W!P!P!P x@W1J x @W!P!P!P x@W1hJ x @Wf o P!xP!xPNuyNu/ Hz?<&NN\O 9$_Nu#NuJ(g/a _(g(g/a _J@f B@Nu3 NuH:$H&I(S&gfJg^+g`)ft,k x$ڹd SfRe`.&// KaF$"J@k,f4(SSfRf& L\Nu3 p`"`&x,A'J'JE8'J & KaJ@kfRf"`H:$H&I(Sx&gZJgV+gX,k$dSfRe`6+g// Ka$"J@f.// Ka$"J@kf(S,k`& L\Nu3 p`"PdB@ Nu(g*gg/a _J@f/a _J@kf"P`3 pNu/ &Hrt0+aJk2+gГ` S"+gt SASWfSQ&_Nup`H&H&8|f֓b e&`8+g+g2 KabJ@f:"40+avJk* k&'HpLNu3 `3p`p/alXONu(g4(f>"P | dNu?/a _2J@f 0Nu3 pNuC!I!IR!I `H&H(o Ia6kl g La` a(Jf\(H <a )HgN0@0;\ Ka|gB9@{0`Q l)H()H C# LLNup`p`p 3 la `a)b*a)b* YOCBgg Ar`THWf0XONup`rwar+w+a+rbwbabr+b rb+ w+b wb+ a+b ab+ Ap`Ar(WVNu?/ AaRAaHG6<`Gp+g Ka*QJ9gA av&_6Nu_TMP_XXX.XXX/ &H+g+g.aJ@f.0+aJ@k"+g ka *B@7@&_Nu3 p`J@k"Pc  PNupNuH&H(k L0+"+ aJkRgF+f, L"St gSj`"HSISSk ögSjJg&"'LBLNup`p`H&H(k6+"+g0DtaJk+fZ"SA"L Ip gSAj`*| // " 0a"_"JkNgPAp SjH@" 0axLJk*g,`0" La`Jkg&'LB@LNup`p`H6&Hp Cgp@CfFpC?/ ?<=NAPOJk&8jaTpCgF?<?p/?<BNAO Jj.`Br߲fNAXONua3p`ް|c??<>NAXOJkpNua3pNu/?<ANA\OJkpNua3pNuJ@f//anJ@fBg`//??<?NAO JkNu  _`a3pNuH&Hx&SgkJ9kpfxa<g < g6<gJ< e七dRa`JgSSKpap apa`Rp ap a`\JgX`NxB9`Dx B9`6J9k$Ҁk8 $k0HzP <e/`/? ?<@NAO Jk b Nuab3pNu0<`///6?<?B?<BNAO (Bg?/<?<BNAO *Bg?/?<BNAO JWH*(&NuD@| |"b;NupNu   //O4UB|"bBJ@j < fD@-CtH@B@H@&HC;0(RBH@B@H@fQBO _&Nu3!`0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ//"4UB|"bjJj < f-DC"t&HCJCf&HC;0NRBH@B@H@f`$?&8BCHC06H@0HC;0&RBJf8QB" _&Nu3!`0123456789abcdefghijklmnopqrstuvwxyz JgJgJgJgJg JgJgJfSHggggg ggf @Nug fC`Jg INuSHNugHf8g@f0g8f(g0f g(fg fgfgg!epNupNuJfpNu g<g8g4g0g,g(g$g ggggg ggf @Nu"HJgJgJgJgJg JgJgJf SNu"SefBJgSf ANuH0$H|g|$bGrtgJ3kSJgtJ@f"p <0f:pgb<߶<Xf(pf"`N|f<0fg><߶<Xfg.G03d"3d&HCHCJCfԃԁd` & gSJ"L Nu3"p` 3!p& g"`//"4UB|"bZC"t&HCJCf&HC;0NRBH@B@H@f`$?&8BCHC06H@0HC;0&RBJf8QB" _&Nu3!`0123456789abcdefghijklmnopqrstuvwxyzaD/a" g p/aJ _Nu// &gPR<e:/avJg*`4C g*g"@ f`"/?<INA\OJj` pNugp`/ G g/ &S?<INA\O`G g/ &S?<INA\O`&_NuH0$< CE g" c $@ f`&@ +gb*"Ҩeg ` 'H`p"@")Ө 'H`>"@ gb" ҩeg`N"(ө`" "H" ҩf @"(ө" k eb$/ ?<INA\OJfQL NuP`/$gSe40HB4 gxH_>"&(*,."B$B&B(B*B,BH~H~H~H~H~H~H~H~H~H~H~H~H~H~H~H~H~H~H~H`SfL||0HgS@!Q|gSAQ _Nu<0< SHNuBAA0Nu  !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`ABCDEFGHIJKLMNOPQRSTUVWXYZ{|}~@@@@@@@@@@@@@@@@@@@@@@@@@@@@::::::8888888888888888888866666644444444444444444444@  !"#  !"#J@kNuD@Nu$HBJBf$HBJBfNuHBЂNuHBЂNu"@$jDJjD$HBJBf.$HBJBfB@H@$ jDNuB@H@HB0B@H@$ jDNu A"B@H@HABAtҁрdЈӁрQ$ jDNu/ Hzf?<?<NMPO/Hz?<&NN\O?<?<NMPO$_Nu OJx@331B x@f1J x@fp!PNu.H3 3Nu?<NATONu"H?<*NATO2<@I0<@I|2Nu"H?<,NATO2<?@B)I<?IANu0||cp`HHBA(<I(<A??<+NAXONu(<HHBA<?I(J<A??<-NAXONu/Ah"_2"_2"o2"o2NuAPBh1|1Ar `APBh1|1Ar `CP3|3|3AC02222AP2<`CPBi3|C2222APr`AP1|1|1| 1A01B2Bh4Bh6Bh8Bh:1o1o1or `JC2222AP1|Bh1| r ` AP1|Bh1| 1A01B2Bh4Bh61o8Bh:r `APBhBhr`APBhBhre`AP1A01B21|1|1org`AP1|1|1| 1A01B21o41o61o1o r `^AP1|Bh1| 1A01B21o41o6r `.AP1|1|1| 1A01B21o41o61o1o r `/ /AP1|Bh1A01B2ria"_2"_2NuCP3A03B23|CrtRB2fAP1Br`APBhBhr{`|CP3|3| 3A03B23o43o3oCrtRB2fAP1Br `03\/ CP2dBi3| Cp 2Q"<psNB _0\A"op,2QAhp 2QNuPhCP3ABi# Ira#NuCP3ABi# Ira|#NuC2222AP1|Bh1| r `FC2222AP1|Bh1| r `APBh1|1Arz`1@ 0"<psNBA0Nup `p`A00p`#hA000000p*`#h3p2`/ #hp6a"_2"o2"o2"o 2Nu#h3p4`|#hpn`ppo`j/A00ppaX"_"hNu/ /pMaD"_2"_2"o2"o2Nu#h3pN`#h#lpZa "o2Nu3P@@A CRB@22220<"<NBA0NuPnhh / ####$_Nu/(?(H,HLE1_!_NuA:\GFA_TEST\DIALOG.RSCJohann SebastianBachKantatengasse 77Dresden%sEEnde mit : %ld Vorname : %s Nachname : %s Strasse : %s Ort : %s Radio : %ld Fehler bei OB_SPEC ! Koordinate: %d[%d][%s][%s] Fehler bei Fileselect00.00.0000%02d.%02d.%4d00:00:00%02d:%02d:%02d CLIP #n, ... noch nicht mglich Fehler bei CLIPJK%sKein Speicher mehr !Stringlnge berschritten !Fehler beim ffnen !Fehler beim Lesen ! Stringverkettung zwischen MKI$(),... und Strings in C nicht sinnvoll pStringlnge wird berschritten !q Bentigte Anzahl: (mindestens) %ld Byte. Vorhandene Gre: %d Byte. Die nderung von 'C_HAR' in 'B_NACH_C.H' stellt den erwnschten Speicherplatz fr alle Variablen her. Wenn nur eine Variable angepasst werden soll, muss sie am Anfang des Programms ( var[C_HAR] nach var[gewnschte Gre] ) verndert werden. Stringgre wird berschritten ! Bentigte Gre (mindestens): %ld Byte. Vorhandene Gre: %d Byte. ndern durch Anpassen von 'CHAR'. %-5s%-16lg%lf%-7s%-16lg%-5s%-16d%d%-7s%-16dj%skeDC j%s k j%s kj%skCf Y%c%cr Fehler beim Lesen Fehler beim Schreiben%lx%lo Anzahl < 0 !%*d%*ld%ld%*G%Gw Fehler beim Schreiben !rblade an Adresse %08lx Fehler beim Lesen ! und raus Fehler bei der Bestimmung der Lnge der Datei ! %sEvE Error: Cannot open Virtual DevicePress RETURN to continue. 444 Phf8d   |  <    "     | ( r" D      " $  $ L"$&& *& "(*"8   "0 $   l "t     "h    V **&*hn04^  $$$J**4rN**4r4   $ 4  " $$&$(R  & " T      n n " ,z 6(&.. . .6.h8(       .   "             0  8 Pt8"r,,**`V0N"Hp 8V Z "h& >\ ,< ( ~4R*:*|.$(6   " L6&>0B($<  $ (   /* Basic -> 'C' bersetzung */ #include /* Globale Variablen */ int CHAR; void p_rubber(void); void p_drag(void); void p_move(void); void p_grow_shrink(void); unsigned char wahl_byte; long b_long; long h_long; long i_long; long j_long; long lx_long; long ly_long; long mk_long; long mx_long; long my_long; long r_long; long x1_long; long y1_long; long r_long; void main() { r_ein(1); CHAR = C_HAR; /* ** Grafik-Bibliothek */ /* */ do { printf("\33E"); printf("%cp", *chr(27)); printf("| rubber | drag | move | grow_shrink | quit |\n"); print_at(1,2); printf("%cqF1 und F2 werden durch Rechtsclick abgebrochen\n",*chr(27)); wahl_byte=inp(2); /* */ switch(wahl_byte) { case 187: /* F1 */ p_rubber(); break; case 188: /* F2 */ p_drag(); break; case 189: /* F3 */ p_move(); break; case 190: /* F4 */ p_grow_shrink(); } /* */ printf("%cq", *chr(27)); /* */ } while(!(wahl_byte==196)); /* quit mit F10 */ /* */ /* */ r_aus(0); } void p_rubber(void) { g_raphmode( 3); deffill( 1,2,4); do { mouse( mx_long,my_long,mk_long); if(mk_long & 1) { x1_long=mx_long; y1_long=my_long; DUMMY = graf_rubberbox(x1_long,y1_long,16,16,lx_long,ly_long); pbox( x1_long,y1_long,x1_long+lx_long,y1_long+ly_long); } } while(!(mk_long & 2)); } /* */ void p_drag(void) { g_raphmode( 1); deffill( 1,2,4); do { mouse( mx_long,my_long,mk_long); box( 40,40,440,340); if(mk_long & 1) { DUMMY = graf_dragbox(150,100,mx_long,my_long,40,40,400,300,lx_long,ly_long); pbox( lx_long,ly_long,lx_long+150,ly_long+100); } } while(!(mk_long & 2)); } /* */ void p_move(void) { g_raphmode( 1); deffill( 1,2,4); b_long=100; h_long=100; for(i_long=0;i_long<=639-b_long ;i_long+= b_long) { for(j_long=0;j_long<=399-h_long ;j_long+= h_long) { DUMMY = graf_movebox(b_long,h_long,i_long,j_long,639-i_long,399-j_long); } } } /* */ void p_grow_shrink(void) { g_raphmode( 1); DUMMY = graf_growbox(319,199,16,16,0,0,639,399); a_lert( 0,"Das war graf_growbox !",1,"Weiter",r_long); DUMMY = graf_shrinkbox(319,199,16,16,0,0,639,399); a_lert( 0,"Das war graf_shrinkbox !",1,"Weiter",r_long); } /* */ /* fr dragbox und rubberbox sollte die Mausposition ber das GEM-AES */ /* abgefragt werden, also evnt_button oder on menu button, dann */ /* gibt es am Anfang nicht diese Flimmereffekte (siehe Handbuch, 11-50) */ ' ** Grafik-Bibliothek ' REPEAT CLS PRINT CHR$(27)+"p"; PRINT "| rubber | drag | move | grow_shrink | quit |" PRINT AT(1,2);CHR$(27);"qF1 und F2 werden durch Rechtsclick abgebrochen" wahl|=INP(2) ' SELECT wahl| CASE 187 ! F1 rubber CASE 188 ! F2 drag CASE 189 ! F3 move CASE 190 ! F4 grow_shrink ENDSELECT ' PRINT CHR$(27)+"q"; ' UNTIL wahl|=196 ! quit mit F10 ' EDIT ' PROCEDURE rubber GRAPHMODE 3 DEFFILL 1,2,4 REPEAT MOUSE mx%,my%,mk% IF mk% AND 1 x1%=mx% y1%=my% ~GRAF_RUBBERBOX(x1%,y1%,16,16,lx%,ly%) PBOX x1%,y1%,x1%+lx%,y1%+ly% ENDIF UNTIL mk% AND 2 RETURN ' PROCEDURE drag GRAPHMODE 1 DEFFILL 1,2,4 REPEAT MOUSE mx%,my%,mk% BOX 40,40,440,340 IF mk% AND 1 ~GRAF_DRAGBOX(150,100,mx%,my%,40,40,400,300,lx%,ly%) PBOX lx%,ly%,lx%+150,ly%+100 ENDIF UNTIL mk% AND 2 RETURN ' PROCEDURE move GRAPHMODE 1 DEFFILL 1,2,4 b%=100 h%=100 FOR i%=0 TO 639-b% STEP b% FOR j%=0 TO 399-h% STEP h% ~GRAF_MOVEBOX(b%,h%,i%,j%,639-i%,399-j%) NEXT j% NEXT i% RETURN ' PROCEDURE grow_shrink GRAPHMODE 1 ~GRAF_GROWBOX(319,199,16,16,0,0,639,399) ALERT 0,"Das war graf_growbox !",1,"Weiter",r% ~GRAF_SHRINKBOX(319,199,16,16,0,0,639,399) ALERT 0,"Das war graf_shrinkbox !",1,"Weiter",r% RETURN ' ' fr dragbox und rubberbox sollte die Mausposition ber das GEM-AES ' abgefragt werden, also evnt_button oder on menu button, dann ' gibt es am Anfang nicht diese Flimmereffekte (siehe Handbuch, 11-50) `2f``>>> TURBO-C <<<< for ATARI-ST Version 1.1 (C)88/89 Borland International G#J$VH3 k # Ј<.@#<"@(I$k,"Jf"JfB// ?<?<JNAO NyA6<HCBB`6 !jBJ)gHiRC` "fSI "WJAkHiRCBSQJ)gHiRCHy`$O0 J"LN? 9g @N 94g @N 9g @NNtl?<LNA/ pN3v3>E JN8,pN)H?AN8,TOAN8,rpN%pN)H?AYN8,TOpN@BA|gSAgSAgSAg`N``N0`N`NpN)H?AN8,TO 9@fBB@N5$_Nu/ pN trpNEHHyJ"JA0*N|XO0H%@2*H%A4*H%Bpgl%j"%A&5jNfp?"JA42*(0*$NTO0*H%@ 2H%ANJ0*(j?4*$j 2*(0*$N `TOpgL$_Nu/ pN trpNEHHyJ"JA0*N|XO0H%@2*H%A4*H%B?<Tp(24<N TOpgp5jNf?<,?<p(???*"JA4*rd0<NO 0*H%@ 2H%ANJpdj?4* |2*0* N `TOpg2$_Nu/ pN trpNEJ%|d%|dB`VB`80<j?2<j??*4*0*2*N\O5@"*Ӫ <"*o$*Ւ <"o$_Nu/ / pN EF?<?<BgBgp?42<0<?NO 5@GHyFCrAB@NXO0H%@,?<?<BgBgr?40<?2<N$O 5@HyFCrAB@NXO0H%@,&_$_Nu/YOtAR p"P01|| b@0;Nxxxxxxxxxxp"P. 4J|0H@@0/v h|@0/H|@6/K|C0/H|@voCp0$ `(p"P 1 `AN8,NzhpN5pXO&NuH0:/ $o"&o&Pl6`6Ql8`8<R>BGl`<B40S>EGl`0E:022C4D6BlElp`B@L Nu?6209@N}66NuH0>:?B?o A209@Nd\ONuH O:86$HRBf.C09@N|6/BgBg? J4209@N\O` J4209@N^OL8Nu/ E45A5B5o Jr09@Nb$_Nu?/NTONuH 68:EJ@f45B5D5E Jr09@NbJCg45EL8Nu??:8?09@24NTO:8Nu??:8?<Bg?09@24N\O:8Nu??:8?<Bg?/ ?09@24NPO:8Nu??:8?/ ?/ ?/ ?09@24NPO:8Nu??:8?/?09@24NXO:8Nu??:8?/ ?/ ?/ ?09@24NPO:8Nu?4NTONu?O6/>?A?@?C?B?C ?B ?A?@?AA09@rNbO6NuQO>?A?B?o A09@NPONuQO>?A?B?o A09@NPONuQO>?A?B?o A09@NPONuH8O6&H(I:<pCHЀNs*$HBD`Np AC""2AN`2E0@@5t A C""2AN`2F0@@5RDDnBD`0@?2AN8,TORDDlNzh J209@Nb JNtO LxNuH8O6&H(I:<pCHЀNs*$HBD`Np AC""2AN`2E0@@5t A C""2AN`2F0@@5RDDl J209@N JNtO LxNu??86t?09@24N`TO86Nu098g0<NJBy8Nu098f0<NJ38Nu]OB@>?@?@HoCA09@N|XO0\ONu]OB@>?@?@HoCA09@N|XO0/\ONu]OB@>?@?@HoCA09@N|XO0/\ONu?/ O8E/ /?C JN8O N. J0NV o0NOx$_8NuH>O&H,I*oBWEIR L"KNq"NANq,L/MNHWC LN\XOJ@fAN8,pNPC JNqp\ LNp/H`޽f\B"J MNp`*o WffSM\BSM`BANdN2&LBOL|Nu/&"Ҁtp|NFH&&NuH0v <~Ns*$H fB@N3L09DHA!RyDBD:<<><N{&HBg??420"JN<\O JL NuH0&HvBD:<<><N{$Hp???42"J K0N<\OL NuH&H$y09@N0/Ro(NyJ:0FNyJ60/Ro(NyJ8RD0FNyJHR@2IRAI8p0Ns*(HPL fB@N3L09DHA!RyDGKB.B@?@ ;@ r?A ;A ;C?C;E?EpCH;@?@44(44RBZBZ4489E)KHW"Mr09@ yN|XOBA09@N LO*Lr KpN(NO@ KpN'NO@ANzXO&_Nu/ &IN: KN&_NuNdNuH 6<8/ :/">/$|oA:N8,NzhpN5E|gD0D42E5A|f4/D5B0/E5@`.0oD5@2oE5A`|fRjjj~`A[N8,NzhpN5 J209@N4LNuH 68:2/0/EvJ@g5C5DBjBj`BjBj5C5DA A A A %H%I r5A$5A5|P5|P&p5@(5@B*5|5|5|pECNyJ4poDNyJ5@ JNL8Nu/ |g y0E$%y%y%y %y JN8 $_Nu|g y0A^N8 y 0NuH0$H&I6rpN%/ AlN8,XO0 KNL NuH0&H8BCE` J30HNgRCCn Jp NgL Nu/6N{|f"¼f$v<<`<&Nu/ $H &f4RJH|HgD_@g| g`:RJ JN`DRJp JNO`4 %fRJp JNO` $fRJp JNO` JNO$_NuNNu/ UO>EN6|A09H!"PR"PR"PB09RyH pTO$_Nu/ YO.EN6|A09H!B@` "hRR@|m"hB09RyH pXO$_Nu/ YO. EN6|A09H!B@` "hRR@|m"hB09RyH pXO$_Nu/ OAC""2EN6|A09H!B@` "hRR@|m"hB09RyH pO $_NuB@HBA(ANupBA`$ tRA|mNu/ OBB@`".tR@|mEA N`b oC 0O$_Nu/ QOB@`R@|mE o"J 0PO$_NuJBg @ @NuJBg @0 @0NuJBg @0 @0NuJBg @ @ Nu/O&JAg C  C/A"_ N`b oC 0O &Nu/&JAg CC 0 C"o""2&Nu/&JAg CC 0 C"o""2&Nu/ $@JAg "H JNq J$_Nu/ B@$P24R@$Q2 gS@$P2f $Q2fB@`$Q2H$P2HB0$_Nu/ B@$P24R@$Q2 gS@$P2f $Q2fB@`$P2H$Q2HB0$_Nu/ / O&H$IC""2A"JNZzlp` KC""2A"JNZzfB@`pO &_$_Nu/ / O&H$IC""2A"JNZzop` KC""2A"JNZzfB@`pO &_$_NulpNufB@NupNuopNufB@NupNulpNufB@NupNuopNufB@NupNu0QlpNu0QfB@NupNu0QopNu0QfB@NupNu lpNu fB@NupNu opNu fB@NupNuH $HvBDN,(`<0H4iHցRDf LNuH>YO$H*Iv&HByI ,I` %f -%fTM` -mf"B@TMH|0.` WR2S@JAf`RM sfgAN8,NzhpN5 \Nq^ր09>HmJA4N8,?9>/A[N8,\OAN8,A N8,NzhpN5`RMf2fI / "N JN8XO`$KXOL|NuH8&H(IBCN6|E09H%0RC3f0RC4fy>mDAN8,?9>?AN8,XOAN8,NzhpN5` RRf` RRf RRB09RyH rLNuH8:&JN6|I09H)BC88"K J09@N|j6pC@l$ TR v`|PmpN3L TR RCpD@m TRB29RyI tL8NuOAC""2AC$NZzlp`"AC""2AC.NZzfB@`pO NuH O86E6SAg|f&`l`SDnHAN``¶|f$:`0El2`2:SDnA0N``|f"*` l"`"*SDnA N``n|fh JE C ""2`F JE C""2AC NZzlA C""2` AC""2AC ""2SDnA C""2 o2C 0OL8NuH86E|f&Z`(Z"K LNpS@f&LSCn KLNuH O86E6SAg|f&`o`SDnHAN``¶|f$:`0Eo2`2:SDnA0N``|f"*` o"`"*SDnA N``n|fh JE C ""2`F JE C""2AC NZzoA C""2` AC""2AC ""2SDnA C""2 o2C 0OL8NuH86E|f&Z`(Z"K LNpR@f&LSCn KLNu @Nu @0Nu @ Nu?/(pN"V NB@N"V(6Nu?/(6pN"V2 NB@N"V(6Nu//(&pN"V" NB@N"V(&Nu?/ $@pN"VB@N"V$_6Nu?/ $@pN"V6B@N"V0$_6Nu// $@pN"V&B@N"V $_&NuJ@gN{r#:8602N%?/ ARN8,\O2pEN%HWA\NCXOJ@f>20N%?/ A_N8,\O0TOL8NuH8><&HBC8:N6|E09H%0H"K RNqIJGg$/AN8,XO KNq^:@` RB0@RDDnAN8,` rtKfJCoAN8,SC`f rtMf RNq^@lAN8,RC`> rtSf|o8SEAN8,SC8` R"R@@RD R0@fHp0AN8,XO`fEgJGf AN8,`REoN|gHREBD`RD R0@fB0@` R"R@@SDJDf R00RC RHpAN8,XON{P.| fn RB0`AN8,"R KNqLNu?8t@?rD?AN8,XO8Nu/ / $H&H` HNv<f J&_$_NuCNg| fB@NupNuH0:$H&IvBDNq^J@f KNq^J@fp`F JNq^@n8SE`2P3@f JCgBC<RDRE JNq^@o KNq^@opF`B@L xNuH0&H$I INq^&SC KNq^J@f JNq^J@fp`< KNq^S@`*320fJCoSCJ@o 320gRCJCfR@`S@J@lB@L NuHNu/ / &H$@"H JpNeJd AN8,A,NfR KNi&_$_Nu/ / &H$@"H JpNeJd AN8,A,NfR KNi&_$_NuH0&H6N6|E09H%"K RNq KNq^@m KNq^&` RB00pCHђ29RyI rL Nu?/ $H6Nq^@l JNq^C J$_6NuH0$H86N6|G"J SNq|f SA@`P JNq^2DSAAn pN3L`"pDHѓ29I' SB00rCHӓ09RyH sL NuH0(:BCN6|EG0H%/C jN8XO`RC jRf|g,S`0HS r00RC@l j0H% jRB0RSH rL 8NuH0(:BCN6|EG0H%/C jN8XO`RC jRf|g,S`0HS r00RC@l j0H% jRB0RSH rL 8Nu?6"<Ny|H6N6|A09H!"hR"hRB09RyH p6NuH8O(:BCN6|EGI0H'r R No|gT"RANq`RC R00f` RR00RC@n RBC RNp` RNq^ R0H'CP$`0H sA!$0RTH sO"L8Nu`RHfSH`BSH  gNu`RH  gNuH8$H(I&HBC` 0RC JNq^? LNq^2@Am JNq^2H"LA0Nq KLNu/ $H`g f` fB J$_Nu?/ 6N6|E09H%B@` jR R@@nJClAN8,A,NfR jRB09RyH r$_6Nu??6N6|A09H!"PB10`"PRSCJCn"PRB09RyH p86NuH $HBDNq^&SC`2@H0@0RDSCDnLNu?6N6|A09H!B@`"hR R@@n"hRB09RyH p6NuBB` RBBlNu?BB` 6C10RBBl6Nu?BB` 6K!0RBBl6NuH $H8BC`p AC""2RCClLNuH :8<BCN6|E09H%|g??C RN8XO`?C\ RN8TO|gpFH29IѲ|g0Hђ` RNq^ђ|g RR.` RR00RC@n RRB09RyH rLxNuH *8<BCN6|E09H%|g/?C RN8\O`/C RN8XO|gpFH29IѲ|g0Hђ` RNq^ђ|g RR.` RR00RC@n RRB09RyH rLxNuH 8:BCN6|E09H%|g A/ / ? ?C RN8O ` A/ / ? C RN8O `RC R00f`SC R 000gB00BC|gpEH29IѲ|g0Hђ` RNq^ђ|g RR.` RR00RC@n RRB09RyH rL8NuOHWNNFXO oC 0O NuH0$H&HBC8`L .fJDfFx`< +g -fJCg *Ef*|n$RC` EfJCg`HNv.J@gRJf J L NuOA&/ / ? A&/ / ? HoNP|O oC 0O NuH<*H&($@GChNg|(H gK,/C]N8fXOJ@f"AjN8, MNfR LNiB@NPBAp LNf"L"p JNeJf"AjN8, MNfR LNipN5 LNi`pN3LL<NuHYO*H.rg&@IC MNg|,H grpNf NNf&BAp NNfpfBHWC] NNDXO&W/ AN8,XONzhBAp NNf NNipN5"N"p KNeJf&AN8,A,NfR NNipN5 NNi`pN3LXOLxNu/ $H I"J$_Nu"tNu?O6ACrQAN{~6 "/NyT"/ NyTO6NuAEN8,A,NfRB@NPNu?6pCN{Z6NuNfNu// $Hvr Nf JNf&rfAON8,A,NfRBAp JNf $_&NurNfNu// $H&Jn rDNf` BA  JNf$_&Nu/ EBB*`$pN{"¼f $r`r` N3BJ@f J$_NupN{NuHAt/0AN8,XONzhpN5NuH86G:&4E"J@g N:NA~#####$C(S#"(SI# #L (SI##L(SI0##L(SI##L(SI#(SI#(SI##L#y#y3BRBjN{U@f5|5|`N{S@f5|`5|?5|38NJJCg(G@N663B JrN40N8` AN8,B@N fNJrpNs#VfB@ND`09DHA!VRyDrpNs#ZfB@N`09DHA!ZRyDrpNs#RfB@N`09DHA!RRyD <Ns*#fB@N`09DHA!RyD# y A#NByBTLNu?/ 6E29gJt ?pBA4N xTO09@N7Nf09@NLN@`09DH rNtSyD09DH 2f0NP$_6NuB@ yPm3A"Ho `"PRBR@|o Nu/ / OtE@rpNs$f N3L`09DHA!RyDGv6p` 2A7R@| m7|HWHoCANhPO?@HoC KNXO0/fAN{fpN{pNPN{"R"po"R3@ro R1A R0(H1@ RBh 0/Y@gY@gQ@g` R1| ` R1| ` R1| ` R1| 0/O&_$_Nu/?v 8<|A42N^N{F8&NuH"psNBLNuH"0<NBLNu/YOM,C HzaXOXO,_NuH@B@H@Cra,J@kNu.Vp`/QOM-O, ICHzaXOPO,_NuH@B@H@"Vra,nJ@kNu.np`/YOM, IC HzaPXO VBXO,_Nu"VS@eQ,Nu/YOM, I"o HzaXO VBXO,_Nu"VS@eQ,NuH8]O$H&I(o&BCx%p JR@g|fJ@g@HNBEgvBA< <b;k`|<*f<`&<0< b ACp a8$Wb<gt<.f6<*f4`$<0< b ACp a7$Wb4g<߲<Lf g`<hggr@d|?@0;N>nBXr [0`|A`0A2"La@`\ [2"La@`JJEj `p0?4 LaZTO@`*JEj `0H?4 LaTO@` JEj `p0?4 La(TO@`JEj `p0?4 LaHTO@`A 2"La@`A 2"LaV@`A 2"La|@`|@HN0\OLxNup` Warning: use TCFLTLIB to get float support for printf. H Ov Jj|-?|D`g|+?|`g| ?|`~?|`vH Ov ?|`dH Ovf?|`L|0f|x?|`2|X?|`$H Ovf?|` |0?|$H>C8jxA a5A pJWF@?@gA 2SAktaSb (Q2/@4/(jt@jtBgf 0Ao@@Alx?B?D`hH0$H&IB(v`H0$H&IvJWFCJBj4Cb6xJAkCc8Cf K0a0 JN` 0 JN0 Kap0DL Nu6x0/g f@ JaP0/g@AN0/g@ Ja,0/g@A N0/g g@ Ja0OLNuH0E6`H0E4&H6g8Kg SC JpNQ J0|gNL Nu00000000 H0O$H&I>68jx`p@c8?|0|g J0R@CDHoBaXO0?| JoBg|-?| `&g|+?| `g | ?| ?| ?D62XAXAt0gJf$B RoDJDf f0SA`,C"SDQ`X JDf fSA` C"SDQto An ?B?B`ff ?C?B`?C?BC8?|@gE`e0/DS@jD@-`+/ r AJa/"_AFpJWF@rg SAkt0QS@k AFQ`H0O$H&I?|@>>68jx0|g JpCDHoBaXO?| JoBg|-?| `&g|+?| `g | ?| :/DlDE|0 ?| |JDffSFDged?DD?|6`6JEfp?@?@6`$ JpCDHoBaXO 5d?EE?|6`SE?EE|1"p?@6@`E|b J0CDHoBaXO0@E:/DDEE?D6DC"SDQ?EE`?|0D|b JCDHoBa^XO0D0:/D<RFDJDffSF?D6t0JfB ?| RoDC"SDk6Q`.C ?E SEj0?| RF`QC"SDkQto Fn ?B?B`ff ?C?B`~?B?C`t|? ?| x?D ?D?D6|`H0O$H&I?|@>>68jx0|g JpCDHoBaVXO0/DS@Dn|m `6x0/gf@ Ka0/ g@AN0/g@ Kaf0/ g@A NJof Jo6fgp@A .N0/g@ Ka*0/6g@A"N0/@g@A8N0/gg@ Ka0ONL Nu0<HS@rJrfRG4`kI/L4`bֆSDgNRG4`b`NSG2$QLNuP`H8vBG8ghzB$H&II.NJ@kbRG4`k<0fSDgBNRG<߰<Xf SDg.NRGI.4`bֆSDgNRG4`b`NSG$2QLNuP`H8vBE8gjB$H&II-~NJ@kdRE4`k<-Wg<+fNREI.V4`< b"ֆSDg NRE4`< b փ"փփց`NSE$JgD2QLNuP`H<8z$H&II,NJ@knREJ4k| gNSEJj$JDgJNREJ@kB| gJ4jNSE`0SDf`**o JDg NREJ@k| gJ4jNSE`SDfB2QL<8NuP`H06g(8$H&IJCjvJj NJ@kSCf` NJ@kSCfQC2L NuP`H<6g^8BE$H&I(o$Jj$NJ@j P`FNJ@k> F4Pg>SCf`**o NJ@j P`NJ@k F4PgSCfBQC2L<8NuBN`H8O&H(I>?Av8z0| ~E+NJ@kFRG2kNSGESDeN<+g<-f SDeNfSDeN`SDeNb QSDeNc<.f0`<.f&SDeNbQSDelNc<߲<EfHSDePN<+g<-fSDeMHGGCA 0jD@aAC a `aAC a P?b CaSGA6"$JDoGn| Fo| o0RG0CC?SFpԂӁ@Q` pԂӁ@*(6ԂӁ@ԂӁ@ԅӄC<0QBJjR! :fg0`1RPOpAL@NuH|~trp  g  g -Wg +f 0m 9oR .gbg If Nf Ffp`p o0 ]H` 0m 9n @la`RF` .f 0m 9n @laSF`G EfJDg"LUR@JDfJEj&zRӅdR@`JfJf BYBBTO`.a2""//?A0aC o$a O JgPLNuԂӁ@*(6ԂӁ@ԂӁ@ԅӄCvG0ԇӃCNup /rt  g  g -Wg +f 0g6C Xfp`&HCHCԃԁ 9nA0l`AAAmA @m gSH"JgD &NupowACHVBMa//?Aa//?,o f>,?B^BJ g`<,,A CHnHzpaPO`Jo nhkJ f`JWkB^BB`l 0@@@>D@k@ @?brt @b  /` @  /SdS¯fvįfn/@A CaCAa 2CaRJgVO,_Nu o?jD@ @c0<?<@2AA@AC,0 ]HNgCbC Nda JFf<J_k Nu?@@@@ @@P@$@@ @4ɿ@iŭ+p@xIϦAGɀCQ~ގFMHvuu Z;]=]u%`R  C6O璃cW䔋mϫp ԥT/Xx6.=8?Xlb?\>np?X?mKz?m?ZD?` +?y?ryXF$^?4 xدexpa lzJk fJgnaHM:@v@ @?bg0 `BS@ԂS @?fJjD@iRC@` fJfB@`a C8DDD8 jDC @//?AOCaKrA !%!%1%xaKMaMQCa/|? BoBCA aIRWa C<,,]HaAaZCaO(L`NuA"o4:xEE?k@DLd>@8<HDBD/DBAaDIahaKnA !%!%1%xaKMaMQC aCaOL`NuA"o4"Ca CCadOp&NuA"o4J@fNuA"o4܇ۀ<BEHEHF.HG܇ۀ܇ۀ.HG܇ۀ܇ۀ.HGڇڇр?<:HEHFp>܇ۀ܇ۀ84>ڇk܆ۅJDjRFSBDJDj RۀfRBJBj BnHzIaIXO`p2""`2""]ILNuHa6(*AaJ@j FFF@@JCj FFFCC@L8NuaddC~Jyj 4G<FHC6<FH@0Cf bf c `jDF ABv F cH FAczx`J F!c *xF FcE:BDHDHEF F c QFJg6<SFk SQJGk,ԅӄdSR@ CbfLgFRdBRd>R@`6kgDS@ԂӁCdSdS CbfgSdSgJka6J@j$ @n HzfaXO`"p0 `0 `Jj0 ]HLNumul0  ]H`L4܇׀HAHBHDHE>܇׀<BCHCHF.HG܇׀.HG܇׀.HG܇׀.HG܇׀.HGև.HGևр?<6HCHFp>܇׀>܇׀:4>ևk܆׃JEjRFSBEJEj R׀fRBJBj BnHy\aJXO`p0 `02@@@0 ]HLNudivH0,HF⌰cpRdR:j EnHy]a XO`p0 `42BBB0 ]HLNuakifpNuH@NuH@NuJ@j@`@?H@B@Nu"H@4B@Hg @f0<`@?B0 B]HNuafpNu@|@k <`D@ @cpNu JPjDNuH$fBA`RjDh 2< <`@2<@H@J@fAH@ @bQA @bYA @?bUAJ@kSAH@JjA0 B]HNu$(02A Ag"(jNufJfNua JNu"(f JfDNu@DNu?>Jf@ "tHAJAf @HB2BBHA AHAb Q@BJkS@ԂӁjGj B@"<t>Nu0"$a6(*Nu2""Nu2""Nu@TXJ? ?ry@ԚxK@ڢ!h5?ڢ!h5?ڢ!h5?@@NaN-INF+INFXmath by d'ART/ / o\H// ? o \H\I//!?!// ? //*?A 9(g"@NJ@f(0 @f 3!`$ @g @f3"` o4C0 O$ _"_NupBB?<JPjWHW//ajPO0 ]HNu#(Nur x@W1J x @W!P!P!P x@W1hJ x @Wf"P#xP#xPNur x@W1HJ x @W!P!P!P x@W1J x @W!P!P!P x@W1hJ x @Wf P!xP!xPNur x@W1HJ x @W!P!P!P x@W1J x @W!P!P!P x@W1hJ x @Wf o P!xP!xPNuyNu/ Hz?<&NN\O 9p$_Nu#pNuJ(g/a _(g(g/a _J@f B@Nu3 NuH:$H&I(S&gfJg^+g`)ft,k x$ڹd SfRe`.&// KaF$"J@k,f4(SSfRf& L\Nu3 p`"`&x,A'J'JE8'J & KaJ@kfRf"`H:$H&I(Sx&gZJgV+gX,k$dSfRe`6+g// Ka$"J@f.// Ka$"J@kf(S,k`& L\Nu3 p`"PdB@ Nu(g*gg/a _J@f/a _J@kf"P`3 pNu/ &Hrt0+aJk2+gГ` S"+gt SASWfSQ&_Nup`H&H&8|f֓b e&`8+g+g2 KabJ@f:"40+avJk* k&'HpLNu3 `3p`p/alXONu(g4(f>"P | dNu?/a _2J@f 0Nu3 pNuC!I!IR!I `H&H(o Ia6kl g La` a(Jf\(H <a )HgN0@0;\ Ka|gB9@{0`Q l)H()H C# LLNup`p`p 3 la `a)b*a)b* YOCBgg Ar`THWf0XONup`rwar+w+a+rbwbabr+b rb+ w+b wb+ a+b ab+ Atp`Ar(WVNu?/ AaRAaHGt6<`Gp+g Ka*QJ9gA av&_6Nu_TMP_XXX.XXX/ &H+g+g.aJ@f.0+aJ@k"+g ka *B@7@&_Nu3 p`J@k"Pc  PNupNuH&H(k L0+"+ aJkRgF+f, L"St gSj`"HSISSk ögSjJg&"'LBLNup`p`H&H(k6+"+g0DtaJk+fZ"SA"L Ip gSAj`*| // " 0a"_"JkNgPAp SjH@" 0axLJk*g,`0" La`Jkg&'LB@LNup`p`H6&Hp Cgp@CfFpC?/ ?<=NAPOJk&8jaTpCgF?<?p/?<BNAO Jj.`Br߲fNAXONua3p`ް|c??<>NAXOJkpNua3pNu/?<ANA\OJkpNua3pNuJ@f//anJ@fBg`//??<?NAO JkNu  _`a3pNuH&Hx&SgkJ9kpfxa<g < g6<gJ< e七dRa`JgSSKpap apa`Rp ap a`\JgX`NxB9`Dx B9`6J9k$Ҁk8 $k0HzP <e/`/? ?<@NAO Jk b Nuab3pNu0<`///6?<?B?<BNAO (Bg?/<?<BNAO *Bg?/?<BNAO JWH*(&NuD@| |"b;NupNu   //O4UB|"bBJ@j < fD@-CtH@B@H@&HC;0(RBH@B@H@fQBO _&Nu3!`0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ//"4UB|"bjJj < f-DC"t&HCJCf&HC;0NRBH@B@H@f`$?&8BCHC06H@0HC;0&RBJf8QB" _&Nu3!`0123456789abcdefghijklmnopqrstuvwxyz JgJgJgJgJg JgJgJfSHggggg ggf @Nug fC`Jg INuSHNugHf8g@f0g8f(g0f g(fg fgfgg!epNupNuJfpNu g<g8g4g0g,g(g$g ggggg ggf @Nu"HJgJgJgJgJg JgJgJf SNu"SefBJgSf ANuH0$H|g|$bGrtgJ3kSJgtJ@f"p <0f:pgb<߶<Xf(pf"`N|f<0fg><߶<Xfg.G03d"3d&HCHCJCfԃԁd` & gSJ"L Nu3"p` 3!p& g"`//"4UB|"bZC"t&HCJCf&HC;0NRBH@B@H@f`$?&8BCHC06H@0HC;0&RBJf8QB" _&Nu3!`0123456789abcdefghijklmnopqrstuvwxyzaD/a" g p/aJ _Nu// &gPR<e:/avJg*`4C g*g"@ f`"/?<INA\OJj` pNugp`/ G g/ &S?<INA\O`G g/ &S?<INA\O`&_NuH0$< CE g" c $@ f`&@ +gb*"Ҩeg ` 'H`p"@")Ө 'H`>"@ gb" ҩeg`N"(ө`" "H" ҩf @"(ө" k eb$/ ?<INA\OJfQL NuP`/$gSe40HB4 gxH_>"&(*,."B$B&B(B*B,BH~H~H~H~H~H~H~H~H~H~H~H~H~H~H~H~H~H~H~H`SfL||0HgS@!Q|gSAQ _Nu<0< SHNuBAA0Nu  !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`ABCDEFGHIJKLMNOPQRSTUVWXYZ{|}~@@@@@@@@@@@@@@@@@@@@@@@@@@@@::::::8888888888888888888866666644444444444444444444@  !"#  !"#J@kNuD@Nu$HBJBf$HBJBfNuHBЂNuHBЂNu"@$jDJjD$HBJBf.$HBJBfB@H@$ jDNuB@H@HB0B@H@$ jDNu A"B@H@HABAtҁрdЈӁрQ$ jDNu/ Hzf?<?<NMPO/Hz?<&NN\O?<?<NMPO$_Nu OJx@331B x@f1J x@fp!PNu.H3 3Nu?<NATONu"H?<*NATO2<@I0<@I|2Nu"H?<,NATO2<?@B)I<?IANu0||cp`HHBA(<I(<A??<+NAXONu(<HHBA<?I(J<A??<-NAXONu/AL"_2"_2"o2"o2NuA4Bh1|1Ar `A4Bh1|1Ar `C43|3|3AC02222A42<`C4Bi3|C2222A4r`A41|1|1| 1A01B2Bh4Bh6Bh8Bh:1o1o1or `JCd2222A41|Bh1| r ` A41|Bh1| 1A01B2Bh4Bh61o8Bh:r `A4BhBhr`A4BhBhre`A41A01B21|1|1org`A41|1|1| 1A01B21o41o61o1o r `^A41|Bh1| 1A01B21o41o6r `.A41|1|1| 1A01B21o41o61o1o r `/ /A41|Bh1A01B2ria"_2"_2NuC43A03B23|CrtRB2fA41Br`A4BhBhr{`|C43|3| 3A03B23o43o3oCrtRB2fA41Br `03@/ C42dBi3| Cp 2Q"<NpsNB _0@A"op,2QALp 2QNu4dLC43ABi# Ira#dNuC43ABi# Ira|#dNuCd2222A41|Bh1| r `FCd2222A41|Bh1| r `A4Bh1|1Arz`1@ 0"<psNBA0Nup `8p`2A00p`"#L3p4`/ /pMa"_2"_2"o2"o2Nu/ /A0000 pFa"_2"_2Nu/ /A0000 0000pGa"_2"_2NuA000000pH`zA0000000 0 pI`TA0000000 0 pJ`.#L3pN`#L#PpZa "o2Nu34@@A C6B@22220<"<NBA0Nu4RLL / #d#h#l#p$_Nu/(?(H,HLE1_!_NuE%cp| rubber | drag | move | grow_shrink | quit | %cqF1 und F2 werden durch Rechtsclick abgebrochen %cqDas war graf_growbox !WeiterDas war graf_shrinkbox ! Fehler bei OB_SPEC ! Koordinate: %d[%d][%s][%s] Fehler bei Fileselect00.00.0000%02d.%02d.%4d00:00:00%02d:%02d:%02d CLIP #n, ... noch nicht mglich Fehler bei CLIPJK%sKein Speicher mehr !Stringlnge berschritten !Fehler beim ffnen !Fehler beim Lesen ! Stringverkettung zwischen MKI$(),... und Strings in C nicht sinnvoll pStringlnge wird berschritten !q Bentigte Anzahl: (mindestens) %ld Byte. Vorhandene Gre: %d Byte. Die nderung von 'C_HAR' in 'B_NACH_C.H' stellt den erwnschten Speicherplatz fr alle Variablen her. Wenn nur eine Variable angepasst werden soll, muss sie am Anfang des Programms ( var[C_HAR] nach var[gewnschte Gre] ) verndert werden. Stringgre wird berschritten ! Bentigte Gre (mindestens): %ld Byte. Vorhandene Gre: %d Byte. ndern durch Anpassen von 'CHAR'. %-5s%-16lg%lf%-7s%-16lg%-5s%-16d%d%-7s%-16dj%skeDC j%s k j%s kj%skCf Y%c%cr Fehler beim Lesen Fehler beim Schreiben%lx%lo Anzahl < 0 !%*d%*ld%ld%*G%Gw Fehler beim Schreiben !rblade an Adresse %08lx Fehler beim Lesen ! und raus Fehler bei der Bestimmung der Lnge der Datei ! %sEvE Error: Cannot open Virtual DevicePress RETURN to continue. BBB 4dLf8d     :  0( DF *( r" D      " $  $ L"$&& *& "(*"8   "0 $   l "t     "h    V **&*hn04^  $$$J**4rN**4r4   $ 4  " $$&$(R  & " T      n n " ,z 6(&.. . .6.h8(       .   "             0  8 Pt8"r,,**`V0N"Hp 8V Z "h& >\ ,< ( ~4R*:*|.$(6   " L6&>0B($<  0$0&&   /* Basic -> 'C' bersetzung */ #include /* Globale Variablen */ int CHAR; double h_doub; double w_doub; double x_doub; double y_doub; double h_doub; void main() { r_ein(1); CHAR = C_HAR; box( 100,100,400,300); x_doub=200; y_doub=200; w_doub=300; h_doub=150; box( x_doub,y_doub,x_doub+w_doub,y_doub+h_doub); /* */ HVA = rc_intersect(100,100,300,200,x_doub,y_doub,w_doub,h_doub); if(HVA) { pbox( x_doub,y_doub,x_doub+w_doub,y_doub+h_doub); } r_aus(0); }BOX 100,100,400,300 x=200 y=200 w=300 h=150 BOX x,y,x+w,y+h ' IF RC_INTERSECT(100,100,300,200,x,y,w,h) PBOX x,y,x+w,y+h ENDIF `b``j>>> TURBO-C <<<< for ATARI-ST Version 1.1 (C)88/89 Borland International G#\J$VH3` k #f Ј<.@#b<"@(I$k,"Jf"JfB// ?<?<JNAO NxA6<HCBB`6 !jBJ)gHiRC` "fSI "WJAkHiRCBSQJ)gHiRCHy`$O0 J"LN? 9g @N 9g @N 9g @NNs?<LNA/ OpN2&E5|?<,4<rdpdN TOA"J""2AC ""2AC""2AC""2A C""2ACNYAN_J0? JC""2ACNYAN_J4A C""2A?N_J2 JC""2A?N_J024N TO5j JC""2AN_J05@A C""2AN_J25AAC""2AN_J05@AC""2AN_J25AHyHy?<CA4<,pd2NO 5@A0*N_~A"J""2A0*N_~AC ""2A0*N_~AC""2A0*N_~AC""20*gA C""2ACNYAN_J0? JC""2ACNYAN_J4A C""2A?N_J2 JC""2A?N_J024N TOB@N4O $_Nu/YOtA p"P01|| b@0;Nxxxxxxxxxxp"P. 4J|0H@@0/v h|@0/H|@6/K|C0/H|@voCp0$ `(p"P 1 `A N6NypN4pXO&NuH0:/ $o"&o&Pl6`6Ql8`8<R>BGl`<B40S>EGl`0E:022C4D6BlElp`B@L Nu?6209N|l66NuH0>:6|g 20N}X8|g 20N}:|g&A0NzHoHoCA20N}rPOOLxNu209N}Nu209N~Nu]O>?B?o A209N~\ONuH O:86$HRBf.C09Nz6/BgBg? J4209NV\O` J4209NOL8Nu/ E@45A5B5o Jr09N$_Nu?/NTONuH 68:E@J@f45B5D5E Jr09NJCg45EL8Nu??:8?0924N~TO:8Nu??:8?<Bg?0924N~<\O:8Nu??:8?<Bg?/ ?0924N6PO:8Nu??:8?/ ?/ ?/ ?0924N6PO:8Nu??:8?/?0924NtXO:8Nu??:8?/ ?/ ?/ ?0924NPO:8Nu?4NTONu?O6/>?A?@?C?B?C ?B ?A?@?AA09rNO6NuQO>?A?B?o A09N~PONuQO>?A?B?o A09NbPONuQO>?A?B?o A09NPONuH8O6&H(I:<pCHЀNq$HBD`Np AC""2AN_J2E0@@5t A C""2AN_J2F0@@5RDDnBD`0@?2A#N6TORDDlNy J209N JNrO LxNuH8O6&H(I:<pCHЀNq$HBD`Np AC""2AN_J2E0@@5t A C""2AN_J2F0@@5RDDl J209N: JNrO LxNu??86t?0924NTO86Nu09g0<N8ByNu09f0<N83Nu]OB@>?@?@HoCA09N{BXO0\ONu]OB@>?@?@HoCA09N{BXO0/\ONu]OB@>?@?@HoCA09N{BXO0/\ONu?/ O8E/ /?C3 JN7TO N. J0N o0NOx$_8NuH>O&H,I*oBWEIR L"KNo"NANo,L/MNHWC LNJXOJ@fA@N6pNPC JNop\ LNoX/H`޽f\B"J MNo*o WffSM\BSM`BANctN2&LBOL|Nu/&"Ҁtp|NH&&NuH0v <~Nq$H fB@N109HA!RyBD:<<><Nz\&HBg??420"JN\O JL NuH0&HvBD:<<><Nz\$Hp???42"J K0N\OL NuH&H$yH09NB0/Ro(Nw:0FNw60/Ro(Nw8RD0FNwHR@2IRAI8p0Nq(HPL fB@N109HA!RyGKB.B@?@ ;@ r?A ;A ;C?C;E?EpCH;@?@44(44RBZBZ4489E)KHW"Mr09 yHN{pXOBA09N LO*Lr KpN&NN@ KpN&0NN@ANyxXO&_Nu/ &IN: KN&_NuNcRNuH 6<8/ :/">/$|oAN6NypN4EH|gD0D42E5A|f4/D5B0/E5@`.0oD5@2oE5A`|fRjjj~`AN6NypN4 J209N}LNuH 68:2/0/EJ@g5C5DBjBj`BjBj5C5DA A A A %H%I r5A$5A5|P5|P&p5@(5@B*5|5|5|pECNw4poDNw5@ JNL8Nu/ |g y<0E $<%y@%yH%yD %yL JN6$_Nu|g yP0AN6 yX0NuH0$H&I6rpN$l/ AN6XO0 KNFL NuH0&H8BCE` J30HNf8RCCn Jp Nf8L Nu/6Nz<|f"¼f$v<<`<&Nu/ $H &f4RJH|HgD_@g| g`:RJ JN`DRJp JNN`4 %fRJp JNN` $fRJp JNN` JNN$_NuNNu/ UO>EN5,AP09:H!"PR"PR"PB09:Ry:H pTO$_Nu/ YO.EN5,AX09:H!B@` "hRR@|m"hB09:Ry:H pXO$_Nu/ YO. EN5,AX09:H!B@` "hRR@|m"hB09:Ry:H pXO$_Nu/ OAC""2EN5,AX09:H!B@` "hRR@|m"hB09:Ry:H pO $_NuB@HBA(ANupBA`$ tRA|mNu/ OBB@`".tR@|mEA N_ oC 0O$_Nu/ QOB@`R@|mE o"J 0PO$_NuJBg @ @NuJBg @0 @0NuJBg @0 @0NuJBg @ @ Nu/O&JAg C  C/A"_ N_ oC 0O &Nu/&JAg CC 0 C"o""2&Nu/&JAg CC 0 C"o""2&Nu/ $@JAg "H JNo J$_Nu/ B@$P24R@$Q2 gS@$P2f $Q2fB@`$Q2H$P2HB0$_Nu/ B@$P24R@$Q2 gS@$P2f $Q2fB@`$P2H$Q2HB0$_Nu/ / O&H$IC""2A"JNY*lp` KC""2A"JNY*fB@`pO &_$_Nu/ / O&H$IC""2A"JNY*op` KC""2A"JNY*fB@`pO &_$_NulpNufB@NupNuopNufB@NupNulpNufB@NupNuopNufB@NupNu0QlpNu0QfB@NupNu0QopNu0QfB@NupNu lpNu fB@NupNu opNu fB@NupNuH $HvBDN*`<0H4iHցRDf LNuH>YO$H*Iv&HBy:I ,I` %f -%fTM` -mf"B@TMH|0.` WR2S@JAf`RM sfgA:8602N$l?/ AN6\O2pEN$lHWANBjXOJ@f>20N$l?/ AN6\O0TOL8NuH8><&HBC8:N5,EP09:H%0H"K RNp8IJGg$/AN6XO KNp:@` RB0@RDDnAN6` rtKfJCoAN6SC`f rtMf RNp@lAN6RC`> rtSf|o8SEAN6SC8` R"R@@RD R0@fHp0AN6XO`fEgJGf AN6`REoN|gHREBD`RD R0@fB0@` R"R@@SDJDf R00RC RHpAN6XONz.| fn RB0`AN6"R KNoLNu?8t@?rD?AN6XO8Nu/ / $H&H` HNtf J&_$_NuCNf, fB@NupNuH0:$H&IvBDNpJ@f KNpJ@fp`F JNp@n8SE`2P3@f JCgBC<RDRE JNp@o KNp@opF`B@L xNuH0&H$I INp&SC KNpJ@f JNpJ@fp`< KNpS@`*320fJCoSCJ@o 320gRCJCfR@`S@J@lB@L NuHNu/ / &H$@"H JpNd|Jd AN6AzNe KNhb&_$_Nu/ / &H$@"H JpNcJd A N6AzNe KNhb&_$_NuH0&H6N5,EP09:H%"K RNo KNp@m KNp&` RB00pCHђ29:Ry:I rL Nu?/ $H6Np@l JNpC J$_6NuH0$H86N5,GP"J SNoȶ|f SA@`P JNp2DSAAn pN1`"pDHѓ29:I' SB00rCHӓ09:Ry:H sL NuH0(:BCN5,EXG:0H%/C jN7TXO`RC jRf|g,S`0HS r00RC@l j0H% jRB0RSH rL 8NuH0(:BCN5,EXG:0H%/C$ jN7TXO`RC jRf|g,S`0HS r00RC@l j0H% jRB0RSH rL 8Nu?6"<Nx,H6N5,AX09:H!"hR"hRB09:Ry:H p6NuH8O(:BCN5,EPGI:0H'r R Nnf|gT"RANo`RC R00f` RR00RC@n RBC RNo RNp R0H'CP$`0H sA!$0RTH sO"L8Nu`RHfSH`BSH  gNu`RH  gNuH8$H(I&HBC` 0RC JNp? LNp2@Am JNp2H"LA0Np8 KLNu/ $H`g f` fB J$_Nu?/ 6N5,EX09:H%B@` jR R@@nJClA(N6AzNe jRB09:Ry:H r$_6Nu??6N5,AP09:H!"PB10`"PRSCJCn"PRB09:Ry:H p86NuH $HBDNp&SC`2@H0@0RDSCDnLNu?6N5,AX09:H!B@`"hR R@@n"hRB09:Ry:H p6NuBB` RBBlNu?BB` 6C10RBBl6Nu?BB` 6K!0RBBl6NuH $H8BC`p AC""2RCClLNuH :8<BCN5,EP09:H%|g??C6 RN7TXO`?C RN7TTO|gpFH29:IѲ|g0Hђ` RNpђ|g RR.` RR00RC@n RRB09:Ry:H rLxNuH *8<BCN5,EP09:H%|g/?C: RN7T\O`/C? RN7TXO|gpFH29:IѲ|g0Hђ` RNpђ|g RR.` RR00RC@n RRB09:Ry:H rLxNuH 8:BCN5,EP09:H%|g A/ / ? ?CC RN7TO ` A/ / ? CG RN7TO `RC R00f`SC R 000gB00BC|gpEH29:IѲ|g0Hђ` RNpђ|g RR.` RR00RC@n RRB09:Ry:H rL8NuOHWNLXO oC 0O NuH0$H&HBC8`L .fJDfFx`< +g -fJCg *Ef*|n$RC` EfJCg`HNtJ@gRJf J L NuOA&/ / ? A&/ / ? HoNO,O oC 0O NuH<*H&($@GChNf,(H gKz/C]N7XOJ@f"AjN6 MNe LNhbB@NPBAp LNe"L"p JNcJf"AjN6 MNe LNhbpN4 LNhb`pN1L<NuHYO*H.rg&@IC MNf,,H grpNe NNeX&BAp NNepfBHWC] NNBXO&W/ AN6XONyBAp NNe NNhbpN4"N"p KNd|Jf&AN6AzNe NNhbpN4 NNhb`pN1XOLxNu/ $H I"J$_Nu"tNu?O6ACrQANz.6 "/Nx"/ NxO6NuAN6AzNeB@NPNu?6pCNz 6NuNeXNu// $Hvr Ne JNeX&rfAN6AzNeBAp JNe $_&NurNeNu// $H&Jn rDNe` BA  JNe$_&Nu/ EBB*`$pNz<"¼f $r`r` N1J@f J$_NupNzLNuHA/0AN6XONypN4NuH86G&~EpJ@g NNA#<#D#@#FH#nLC(S#P"(SI#X#L (SI#T#L(SI0#\#L(SI#`#L(SI#h(SI#l(SI#d#L#yh#yl38BRBjNz|U@f5|5|`Nz|S@f5|`5|?5|3N JCg(GN5f63 JrN}0N~` AN6B@NN rpNq#fB@ND`09HA!RyrpNq#fB@N`09HA!RyrpNq#fB@N`09HA!Ry <Nq#PfB@N`09HA!PRy#PT yTA#By6BLNu?/ 6E298gJt ?pBA4N(TO09N6N 09N~N`09H rNrSy09H 2f0NP$_6NuB@ yP:m3:AP"Ho `"PRBR@|o Nu/ / OtErpNq$f N1`09HA!RyGv6p` 2A7R@| m7|HWHoCANPO?@HoC KNXO0/fANzpNznBXr [0`|A`0A2"La@`\ [2"La@`JJEj `p0?4 LaZTO@`*JEj `0H?4 LaTO@` JEj `p0?4 La(TO@`JEj `p0?4 LaHTO@`A 2"La@`A 2"LaV@`A 2"La|@`|@HN0\OLxNup` Warning: use TCFLTLIB to get float support for printf. H Ov Jj|-?|D`g|+?|`g| ?|`~?|`vH Ov ?|`dH Ovf?|`L|0f|x?|`2|X?|`$H Ovf?|` |0?|$H>C8jxA a5A pJWF@?@gA 2SAktaSb (Q2/@4/(jt@jtBgf 0Ao@@Alx?B?D`hH0$H&IB(v`H0$H&IvJWFCJBj4Cb6xJAkCc8Cf K0a0 JN` 0 JN0 Kap0DL Nu6x0/g f@ JaP0/g@AN0/g@ Ja,0/g@A N0/g g@ Ja0OLNuH0E6`H0E4&H6g8Kg SC JpNQ J0|gNL Nu00000000 H0O$H&I>68jx`p@c8?|0|g J0R@CDHoBaXO0?| JoBg|-?| `&g|+?| `g | ?| ?| ?D62XAXAt0gJf$B RoDJDf f0SA`,C"SDQ`X JDf fSA` C"SDQto An ?B?B`ff ?C?B`?C?BC8?|@gE`e0/DS@jD@-`+/ r AJa/"_AFpJWF@rg SAkt0QS@k AFQ`H0O$H&I?|@>>68jx0|g JpCDHoBaXO?| JoBg|-?| `&g|+?| `g | ?| :/DlDE|0 ?| |JDffSFDged?DD?|6`6JEfp?@?@6`$ JpCDHoBaXO 5d?EE?|6`SE?EE|1"p?@6@`E|b J0CDHoBaXO0@E:/DDEE?D6DC"SDQ?EE`?|0D|b JCDHoBa^XO0D0:/D<RFDJDffSF?D6t0JfB ?| RoDC"SDk6Q`.C ?E SEj0?| RF`QC"SDkQto Fn ?B?B`ff ?C?B`~?B?C`t|? ?| x?D ?D?D6|`H0O$H&I?|@>>68jx0|g JpCDHoBaVXO0/DS@Dn|m `6x0/gf@ Ka0/ g@AN0/g@ Kaf0/ g@A NJof Jo6fgp@A .N0/g@ Ka*0/6g@A"N0/@g@A8N0/gg@ Ka0ONL Nu0<HS@rJrfRG4`kI/L4`bֆSDgNRG4`b`NSG2$QLNuP`H8vBG8ghzB$H&II.NJ@kbRG4`k<0fSDgBNRG<߰<Xf SDg.NRGI.4`bֆSDgNRG4`b`NSG$2QLNuP`H8vBE8gjB$H&II-~NJ@kdRE4`k<-Wg<+fNREI.V4`< b"ֆSDg NRE4`< b փ"փփց`NSE$JgD2QLNuP`H<8z$H&II,NJ@knREJ4k| gNSEJj$JDgJNREJ@kB| gJ4jNSE`0SDf`**o JDg NREJ@k| gJ4jNSE`SDfB2QL<8NuP`H06g(8$H&IJCjvJj NJ@kSCf` NJ@kSCfQC2L NuP`H<6g^8BE$H&I(o$Jj$NJ@j P`FNJ@k> F4Pg>SCf`**o NJ@j P`NJ@k F4PgSCfBQC2L<8NuBN`H8O&H(I>?Av8z0| ~E+NJ@kFRG2kNSGESDeN<+g<-f SDeNfSDeN`SDeNb QSDeNc<.f0`<.f&SDeNbQSDelNc<߲<EfHSDePN<+g<-fSDeMHGGCA 0jD@aAC a `aAC a P?b CaSGA6"$JDoGn| Fo| o0RG0CC?SFpԂӁ@Q` pԂӁ@*(6ԂӁ@ԂӁ@ԅӄC<0QBJjR! :fg0`1RPOpAL@NuH|~trp  g  g -Wg +f 0m 9oR .gbg If Nf Ffp`p o0 ]H` 0m 9n @la`RF` .f 0m 9n @laSF`G EfJDg"LUR@JDfJEj&zRӅdR@`JfJf BYBBTO`.a2""//?A0aC o$a O JgPLNuԂӁ@*(6ԂӁ@ԂӁ@ԅӄCvG0ԇӃCNup /rt  g  g -Wg +f 0g6C Xfp`&HCHCԃԁ 9nA0l`AAAmA @m gSH"JgD &NupowACHVBMa//?Aa//?,o f>,?B^BJ g`<,,A CHnHzpaPO`Jo nhkJ f`JWkB^BB`l 0@@@>D@k@ @?brt @b  /` @  /SdS¯fvįfn/@A CaCAa 2CaRJgVO,_Nu o?jD@ @c0<?<@2AA@AC,0 ]HNgCbC Nda JFf<J_k Nu?@@@@ @@P@$@@ @4ɿ@iŭ+p@xIϦAGɀCQ~ގFMHvuu Z;]=]u%`R  C6O璃cW䔋mϫp ԥT/Xx6.=8?Xlb?\>np?X?mKz?m?ZD?` +?y?ryXF$^?4 xدexpa lzJk fJgnaHM:@v@ @?bg0 `BS@ԂS @?fJjD@iRC@` fJfB@`a C8DDD8 jDC @//?AOCaKrA !%!%1%xaKMaMQCa/|? BoBCA aIRWa C<,,]HaAaZCaO(L`NuA"o4:xEE?k@DLd>@8<HDBD/DBAaDIahaKnA !%!%1%xaKMaMQC aCaOL`NuA"o4"Ca CCadOp&NuA"o4J@fNuA"o4܇ۀ<BEHEHF.HG܇ۀ܇ۀ.HG܇ۀ܇ۀ.HGڇڇр?<:HEHFp>܇ۀ܇ۀ84>ڇk܆ۅJDjRFSBDJDj RۀfRBJBj BnHzIaIXO`p2""`2""]ILNuHa6(*AaJ@j FFF@@JCj FFFCC@L8NuaddC~JyDj 4G<FHC6<FH@0Cf bf c `jDF ABv F cH FAczx`J F!c *xF FcE:BDHDHEF F c QFJg6<SFk SQJGk,ԅӄdSR@ CbfLgFRdBRd>R@`6kgDS@ԂӁCdSdS CbfgSdSgJka6J@j$ @n HzfaXO`"p0 `0 `Jj0 ]HLNumul0  ]H`L4܇׀HAHBHDHE>܇׀<BCHCHF.HG܇׀.HG܇׀.HG܇׀.HG܇׀.HGև.HGևр?<6HCHFp>܇׀>܇׀:4>ևk܆׃JEjRFSBEJEj R׀fRBJBj BnHy[2aJXO`p0 `02@@@0 ]HLNudivH0,HF⌰cpRdR:j EnHy\a XO`p0 `42BBB0 ]HLNuakifpNuH@NuH@NuJ@j@`@?H@B@Nu"H@4B@Hg @f0<`@?B0 B]HNuafpNu@|@k <`D@ @cpNu JPjDNuH$fBA`RjDh 2< <`@2<@H@J@fAH@ @bQA @bYA @?bUAJ@kSAH@JjA0 B]HNu$(02A Ag"(jNufJfNua JNu"(f JfDNu@DNu?>Jf@ "tHAJAf @HB2BBHA AHAb Q@BJkS@ԂӁjGj B@"<t>Nu0"$a6(*Nu2""Nu2""Nu@TXJ? ?ry@ԚxK@ڢ!h5?ڢ!h5?ڢ!h5?@@NaN-INF+INFXmath by d'ART/ / o\H// ? o \H\I//!?!// ? //*?A 9vg"@NJ@f(0 @f 3!`$ @g @f3"` o4C0 O$ _"_NupBB?<JPjWHW//ajPO0 ]HNu#vNur x@W1J x @W!P!P!P x@W1hJ x @Wf"P#xP#xPNur x@W1HJ x @W!P!P!P x@W1J x @W!P!P!P x@W1hJ x @Wf P!xP!xPNur x@W1HJ x @W!P!P!P x@W1J x @W!P!P!P x@W1hJ x @Wf o P!xP!xPNuyDNu/ Hz?<&NN\O 9$_Nu#NuJ(g/a _(g(g/a _J@f B@Nu3 NuH:$H&I(S&gfJg^+g`)ft,k x$ڹd SfRe`.&// KaF$"J@k,f4(SSfRf& L\Nu3 p`"`&x,A'J'JE8'J & KaJ@kfRf"`H:$H&I(Sx&gZJgV+gX,k$dSfRe`6+g// Ka$"J@f.// Ka$"J@kf(S,k`& L\Nu3 p`"PdB@ Nu(g*gg/a _J@f/a _J@kf"P`3 pNu/ &Hrt0+aJk2+gГ` S"+gt SASWfSQ&_Nup`H&H&8|f֓b e&`8+g+g2 KabJ@f:"40+avJk* k&'HpLNu3 `3p`p/alXONu(g4(f>"P | dNu?/a _2J@f 0Nu3 pNuC!I!IR!I `H&H(o Ia6kl g La` a(Jf\(H <a )HgN0@0;\ Ka|gB9@{0`Q l)H()H C# LLNup`p`p 3 la `a)b*a)b* YOCBgg Ar`THWf0XONup`rwar+w+a+rbwbabr+b rb+ w+b wb+ a+b ab+ Ap`Ar(WVNu?/ AaRAaHG6<`Gp+g Ka*QJ9:gA av&_6Nu_TMP_XXX.XXX/ &H+g+g.aJ@f.0+aJ@k"+g ka *B@7@&_Nu3 p`J@k"Pc  PNupNuH&H(k L0+"+ aJkRgF+f, L"St gSj`"HSISSk ögSjJg&"'LBLNup`p`H&H(k6+"+g0DtaJk+fZ"SA"L Ip gSAj`*| // " 0a"_"JkNgPAp SjH@" 0axLJk*g,`0" La`Jkg&'LB@LNup`p`H6&Hp Cgp@CfFpC?/ ?<=NAPOJk&8jaTpCgF?<?p/?<BNAO Jj.`Br߲fNAXONua3p`ް|c??<>NAXOJkpNua3pNu/?<ANA\OJkpNua3pNuJ@f//anJ@fBg`//??<?NAO JkNu  _`a3pNuH&Hx&SgkJ98kpfxa<g < g6<gJ< e七dRa`JgSSKpap apa`Rp a8p a`\JgX8`NxB98`Dx B98`6J98k$Ҁk8 $k0HzP <e/`/? ?<@NAO Jk b Nuab3pNu0<`///6?<?B?<BNAO (Bg?/<?<BNAO *Bg?/?<BNAO JWH*(&NuD@| |"b;NupNu   //O4UB|"bBJ@j < fD@-CtH@B@H@&HC;0(RBH@B@H@fQBO _&Nu3!`0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ//"4UB|"bjJj < f-DC"t&HCJCf&HC;0NRBH@B@H@f`$?&8BCHC06H@0HC;0&RBJf8QB" _&Nu3!`0123456789abcdefghijklmnopqrstuvwxyz JgJgJgJgJg JgJgJfSHggggg ggf @Nug fC`Jg INuSHNugHf8g@f0g8f(g0f g(fg fgfgg!epNupNuJfpNu g<g8g4g0g,g(g$g ggggg ggf @Nu"HJgJgJgJgJg JgJgJf SNu"SefBJgSf ANuH0$H|g|$bGrtgJ3kSJgtJ@f"p <0f:pgb<߶<Xf(pf"`N|f<0fg><߶<Xfg.G03d"3d&HCHCJCfԃԁd` & gSJ"L Nu3"p` 3!p& g"`//"4UB|"bZC"t&HCJCf&HC;0NRBH@B@H@f`$?&8BCHC06H@0HC;0&RBJf8QB" _&Nu3!`0123456789abcdefghijklmnopqrstuvwxyzaD/a" g p/aJ _Nu// &gPR<e:/avJg*`4C< g*g"@ f`"/?<INA\OJj` pNugp`/ G< g/ &S?<INA\O`G@ g/ &S?<INA\O`&_NuH0$< CE@ g" c $@ f`&@ +gb*"Ҩeg ` 'H`p"@")Ө 'H`>"@ gb" ҩeg`N"(ө`" "H" ҩf @"(ө" k eb$/ ?<INA\OJfQL NuP`/$gSe40HB4 gxH_>"&(*,."B$B&B(B*B,BH~H~H~H~H~H~H~H~H~H~H~H~H~H~H~H~H~H~H~H`SfL||0HgS@!Q|gSAQ _Nu<0< SHNuBAA0Nu  !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`ABCDEFGHIJKLMNOPQRSTUVWXYZ{|}~@@@@@@@@@@@@@@@@@@@@@@@@@@@@::::::8888888888888888888866666644444444444444444444@  !"#  !"#J@kNuD@Nu$HBJBf$HBJBfNuHBЂNuHBЂNu"@$jDJjD$HBJBf.$HBJBfB@H@$ jDNuB@H@HB0B@H@$ jDNu A"B@H@HABAtҁрdЈӁрQ$ jDNu/ Hzf?<?<NMPO/Hz?<&NN\O?<?<NMPO$_Nu OJx@3D3F1B x@f1J x@fp!PNu.H3 D3FNu?<NATONu"H?<*NATO2<@I0<@I|2Nu"H?<,NATO2<?@B)I<?IANu0||cp`HHBA(<I(<A??<+NAXONu(<HHBA<?I(J<A??<-NAXONu/A"_2"_2"o2"o2NuA~Bh1|1Ar `A~Bh1|1Ar `C~3|3|3AC02222A~2<`C~Bi3|C2222A~r`A~1|1|1| 1A01B2Bh4Bh6Bh8Bh:1o1o1or `JC2222A~1|Bh1| r ` A~1|Bh1| 1A01B2Bh4Bh61o8Bh:r `A~BhBhr`A~BhBhre`A~1A01B21|1|1org`A~1|1|1| 1A01B21o41o61o1o r `^A~1|Bh1| 1A01B21o41o6r `.A~1|1|1| 1A01B21o41o61o1o r `/ /A~1|Bh1A01B2ria"_2"_2NuC~3A03B23|CrtRB2fA~1Br`A~BhBhr{`|C~3|3| 3A03B23o43o3oCrtRB2fA~1Br `03/ C~2dBi3| Cp 2Q"<psNB _0A<"op,2QAp 2QNu~<<C~3ABi#P Ira#PNuC~3ABi#P Ira|#PNuC2222A~1|Bh1| r `FC2222A~1|Bh1| r `A~Bh1|1Arz`1@ 0"<HpsNBA<0Nup `vp`pA<00p``#3\ ,< ( ~4R*:*|.$(6   " L6&>0B($<  ,    /* Basic -> 'C' bersetzung */ #include /* Globale Variablen */ int CHAR; double *zeit_doub_f; void p_s_top(void); void p_intro(void); void p_schleifen(void); void p_benchmarks(void); void p_f_iles(void); void p_grafik(void); long back_long; long c_long; long d_adr_long; long h_long; long i_long; long j_long; long s_long; long s_adr_long; long z_long; long i_long; double a_doub; double c_doub; char achar[C_HAR]; char *a_char; char bchar[C_HAR]; char *b_char; char bildchar[C_HAR]; char *bild_char; char cchar[C_HAR]; char *c_char; char dchar[C_HAR]; char *d_char; char dateichar[C_HAR]; char *datei_char; char echar[C_HAR]; char *e_char; char fchar[C_HAR]; char *f_char; char zchar[C_HAR]; char *z_char; char bildchar[C_HAR]; char *bild_char; void main() { r_ein(1); CHAR = C_HAR; a_char = &achar[0]; b_char = &bchar[0]; bild_char = &bildchar[0]; c_char = &cchar[0]; d_char = &dchar[0]; datei_char = &dateichar[0]; e_char = &echar[0]; f_char = &fchar[0]; z_char = &zchar[0]; bild_char = &bildchar[0]; /* */ /* DEMO-PROGRAMM : Wandlung von GFA-BASIC-Quelltext nach 'C' */ /* */ /* Aufbau: */ /* 1. Stringbehandlung */ /* 2. Schleifen */ /* 3. Filehandling */ /* 4. Grafik */ /* */ /* -1989: O. VINZENT und PROF. DR. H.-J. PATT, Universitt des Saarlandes, */ /* Fachbereich Physik, Geb.8, D-6600 Saarbrcken, Tel. 0681/302-3773 */ /* GFA-Systemtechnik GmbH, Heerdter Sandberg 30, D-4000 Dsseldorf 11 */ /* */ if((zeit_doub_f = (double *)calloc((size_t)(10+1),(size_t)sizeof(double ))) == 0L) f_ehler(0); else SPEICHER[SP++] = (char *)zeit_doub_f; msprintf(z_char," <<< Taste >>> "); chdrive( 0); p_intro(); p_schleifen(); p_benchmarks(); p_f_iles(); p_grafik(); deftext( 1,17,0,32); text( 288,75,-1,"ENDE"); text( 208,150,-1,"DEMO: B_NACH_C"); pause( 100); printf("\33E"); r_aus(0); } void p_s_top(void) { s_long=2; z_long=0; do { if(even(s_long)) { print_at(s_long-1,72); printf(" %s ",z_char); } else { print_at(s_long,72); printf("%cp%s%cq",*chr(27),z_char,*chr(27)); } pause( 10); if(gemdos(11) != 0) { z_long=gemdos(1); } if(z_long==0) { ++s_long; z_long=d_iv(s_long,65); } else if(z_long==1) { --s_long; if(s_long==2) { z_long=0; } } pause( 10); if(bios(1,2) != 0) { z_long=inp(2); } } while(!(z_long>1)); } void p_intro(void) { print_at(1,2); printf("\n"); printf(" %cp<<< ES IST SOWEIT !!! %c B_NACH_C %c IST DA !!! >>>%cq\n",*chr(27),*chr(42),*chr(42),*chr(27)); print_at(8,5); printf("%cp<<< DAS TRANSFORMATIONSPROGRAMM 'GFA-BASIC-KONVERTER-NACH-C' >>>%cq\n",*chr(27),*chr(27)); print_at(1,8); printf("\n"); printf(" Mit Hilfe dieses Programms knnen folgende Aufgaben optimal gelst werden :\n"); printf("\n"); printf(" 1. Entwicklung eines Programms im kompfortablen GFA-BASIC,\n"); printf(" 2. Austesten des Programms in einem Interpreter (Turn-Around-Zeit !),\n"); printf(" 3. Programmtransformation in die weltweit verbreitete Computersprache 'C',\n"); printf(" 4. Portierung auf unterschiedlichste Rechner und Betriebssysteme,\n"); printf(" 5. Programmierung auf einem ATARI und Anwendung auf einer UNIX-Workstation,\n"); printf(" 6. Mgliche Steigerung der Geschwindigkeiten durch deren C-Compiler.\n"); print_at(3,20); printf("-1989: O. VINZENT und PROF. DR. H.-J. PATT, Universitt des Saarlandes,\n"); print_at(11,21); printf("Fachbereich Physik, Geb.8, D-6600 Saarbrcken, Tel. 0681/302-3773\n"); print_at(11,22); printf("GFA-Systemtechnik GmbH, Heerdter Sandberg 30, D-4000 Dsseldorf 11\n"); p_s_top(); printf("\33E"); msprintf(a_char," DEMO-PROGRAMM FR 'B_NACH_C.PRG' "); msprintf(b_char,"B_NACH_C WANDELT GFA-BASIC IM ASCII-FORMAT IN EINEN C-QUELLTEXT"); msprintf(c_char,"Ein GFA-BASIC-Listing wird nach 'C' gewandelt und ist "); msprintf(d_char,"sofort compilierbar !"); msprintf(e_char,"%s%s",c_char,d_char); msprintf(f_char,"%s",right(a_char,16)); print_at(24,2); printf("%cp%s%cq\n",*chr(27),a_char,*chr(27)); print_at(9,4); printf("%s\n",b_char); print_at(3,6); printf("%s\n",e_char); print_at(33,8); printf("%cp%s%cq\n",*chr(27),f_char,*chr(27)); print_at(26,10); printf("transformiert GFA-BASIC nach C\n"); } void p_schleifen(void) { print_at(2,12); printf("1. DEMO: Schleifen\n"); print_at(1,14); printf(" FOR - NEXT\n"); for(i_long=2;i_long<=79;i_long++) { print_at(i_long,15); printf("%c\n",*chr(41+i_long)); } print_at(1,17); printf(" REPEAT - UNTIL\n"); i_long=2; do { print_at(i_long,18); printf("%c\n",*chr(123-i_long)); ++i_long; } while(!(i_long==80)); print_at(1,20); printf(" WHILE - WEND\n"); i_long=2; while(i_long <= 79) { print_at(i_long,21); printf("%c\n",*chr(64+(fmod((i_long-1) ,26)))); ++i_long; } print_at(1,23); printf(" DO - LOOP\n"); i_long=2; do { print_at(i_long,24); printf("%c",*chr(96+(fmod((i_long-1) ,26)))); ++i_long; if(i_long==80) goto M1; } while(1); M1: p_s_top(); printf("\33E"); } void p_benchmarks(void) { print_at(2,2); printf("2. DEMO: Einige Benchmarks\n"); print_at(2,4); printf("1. Integerberechnung:\n"); print_at(5,6); printf("10000 Schleifen zur Erhhung eines Integerwertes\n"); i_long=0; print_at(5,7); printf("... rechne\n"); c_doub=timer(); while(i_long<10000) { ++i_long; } zeit_doub_f[(int)(1)]=(timer()-c_doub)/200; print_at(5,8); printf("%ld Schleifen gerechnet und ... %G s bentigt\n",i_long,zeit_doub_f[(int)(1)]); print_at(2,10); printf("2. Integer- und Floatberechnung:\n"); print_at(5,12); printf("10000 Schleifen zur Erhhung eines Integerwertes\n"); print_at(5,13); printf("und Berechnung einer Floatvariablen\n"); i_long=0; a_doub=0; print_at(5,14); printf("... rechne\n"); c_doub=timer(); while(i_long<10000) { ++i_long; a_doub=a_doub+1; } zeit_doub_f[(int)(2)]=(timer()-c_doub)/200; print_at(5,16); printf("%ld Schleifen gerechnet und ... %G s bentigt\n",i_long,zeit_doub_f[(int)(2)]); msprintf(datei_char,"A:\\GFA_TEST\\TEST.DAT"); print_at(5,18); printf("Speichere die Ergebnisse in der Datei >>%s<< ab ...\n",datei_char); if((FP[1] = fopen(datei_char,"w")) == NULL) { printf("\nFehler beim ffnen der Datei !"); getchar(); r_aus(-1); } for(i_long=0;i_long<=5;i_long++) { fprintf(FP[1],"%G\n",zeit_doub_f[(int)(i_long)]); } fclose(FP[1]); print_at(5,20); printf("Lade zur Kontrolle die Daten wieder aus der Datei >>%s<<\n",datei_char); if((FP[1] = fopen(datei_char,"r")) == NULL) { printf("\nFehler beim ffnen der Datei !"); getchar(); r_aus(-1); } for(i_long=0;i_long<=5;i_long++) { fscanf(FP[1],"%lg",&zeit_doub_f[(int)(i_long)]); } fclose(FP[1]); print_at(5,22); printf("Benchmark fr die Integerberechnung : %G s\n",zeit_doub_f[(int)(1)]); print_at(5,23); printf("Benchmark fr die Integerberechnung/Floatberechnung : %G s\n",zeit_doub_f[(int)(2)]); p_s_top(); printf("\33E"); } void p_f_iles(void) { print_at(2,2); printf("3. DEMO: Filehandling\n"); print_at(2,4); printf(" Fileselectorbox, Alertbox, Auslesen eines Files, RELSEEK, SEEK, LOF, LOC ..\n"); bild_char = sget(bild_char); chdrive(1); msprintf(a_char,"*.LST"); msprintf(b_char,"A:\\GFA_TEST\\"); chdir( b_char); fileselect(mstrcat( b_char,a_char),a_char,c_char); sput( bild_char); if(strcmp(c_char,"")) { if((FP[1] = fopen(c_char,"r")) == NULL) { printf("\nFehler beim ffnen der Datei !"); getchar(); r_aus(-1); } c_long=lof(FP[1]); msprintf(c_char,"%s",mid(c_char,rinstr(c_char,"\\")+1,-1)); print_at(5,6); printf("Lnge der Datei %c%s%c%s: %ld\n",*chr(34),c_char,*chr(34),space(15-strlen(c_char)),c_long); relseek(FP[1],10); print_at(5,7); printf("Suche Position : %ld\n",loc(FP[1])); relseek(FP[1],10); print_at(5,8); printf("Erhhe den Filepointer um 10 Byte: %ld\n",loc(FP[1])); seek(FP[1],10); print_at(5,9); printf("Stelle den Pointer auf Position : %ld\n",loc(FP[1])); print_at(5,11); printf("Auslesen und Anzeigen der Datei >>%s<< (Stop/Abbruch: Taste)\n",c_char); p_s_top(); printf("\33E"); do { printf("%c", *chr(fgetc(FP[1]))); if(strcmp(inkey(),"")) { a_lert( 2,"Abbruch",2,"JA|NEIN",back_long); if(back_long==1) { goto raus; } } if(feof(FP[1])) goto M2; } while(1); M2: raus: print_at(5,25); printf("Ausgelesen bis Position: %ld%s\n",loc(FP[1]),space(54-strlen(ltoab(loc(FP[1]),-1,-1)))); fclose(FP[1]); } else { print_at(5,6); printf("Sie haben keine Datei ausgewhlt!\n"); } p_s_top(); printf("\33E"); } void p_grafik(void) { deftext( 1,24,0,32); text( 174,200,-1,"4. DEMO: GRAFIK"); p_s_top(); printf("\33E"); deftext( -1,1,0,13); for(h_long=1;h_long<=2;h_long++) { for(j_long=4;j_long<=24 ;j_long+= 4) { for(i_long=0;i_long<=5;i_long++) { deftext( -1,pow(2,i_long),-1,-1); text( 320,50+i_long*(16+j_long*2),-1,"B_NACH_C"); } pause( 10); printf("\33E"); deftext( -1,-1,-1,j_long); } deftext( -1,-1,h_long*1800,-1); } deftext( -1,1,-1,13); for(h_long=1;h_long<=4;h_long++) { for(i_long=2;i_long<=3;i_long++) { for(j_long=0;j_long<=2;j_long++) { defline( h_long,i_long,j_long,j_long); draw(100+50*j_long,50+25*j_long , 539-50*j_long,50+25*j_long); box( 50+50*j_long,150,320-50*j_long,350); circle( 480,250,20+40*j_long); } pause( 10); printf("\33E"); } } defline( 1,2,1,1); deffill( 1,1,1); for(i_long=2;i_long<=3;i_long++) { for(j_long=1;j_long<=20;j_long++) { deffill( 1,i_long,j_long); pbox( 16*j_long-16,10,655-16*j_long,190); pcircle( 160,299,105-5*j_long); pellipse( 480,299,5*j_long,105-5*j_long); } if(j_long>20 & i_long==2) { bild_char = sget(bild_char); } } pause( 50); s_adr_long=(long)(bild_char); d_adr_long=xbios(2); for(i_long=1;i_long<=1000;i_long++) { rc_copy(s_adr_long,(int)((double)rand()*(10)/32767)*64,(int)((double)rand()*(10)/32767)*40,64,40 ,d_adr_long,(int)((double)rand()*(10)/32767)*64,(int)((double)rand()*(10)/32767)*40, -1); } pause( 100); printf("\33E"); sput( bild_char); deffill( 1,1,1); } GFA-BASIC3<<BBBBBBHxxxxxfjrJJCAZABCDEFDATEIBILDSZICBACKHJS_ADRD_ADRZEITRAUSINTRO SCHLEIFEN BENCHMARKSF_ILESGRAFIKS_TOP >DEMO-PROGRAMM : Wandlung von GFA-BASIC-Quelltext nach 'C'  Aufbau: 1. Stringbehandlung 2. Schleifen n3. Filehandling 4. Grafik  P̽-1989: O. VINZENT und PROF. DR. H.-J. PATT, Universitt des Saarlandes, P Fachbereich Physik, Geb.8, D-6600 Saarbrcken, Tel. 0681/302-3773 P GFA-Systemtechnik GmbH, Heerdter Sandberg 30, D-4000 Dsseldorf 11  H F4 <<< Taste >>> F F<FFFFFp!!! FT !K!ENDEF"T!!DEMO: B_NACH_CF `dFFFFF8F8FF e F&LY݀!H " "" "F 8F.LY!H "B pB q"FF$F ` F  W F8W F$F :F F8 ߂F@߀F F |߀F 8F$F$F ` F U! F8J F$F h߀F FFLY! FvL "B "p<<< ES IST SOWEIT !!! B*  B_NACH_C B*  IST DA !!! >>>"B "qFjLY! "B "Ap<<< DAS TRANSFORMATIONSPROGRAMM 'GFA-BASIC-KONVERTER-NACH-C' >>>B qFLY! FTLM Mit Hilfe dieses Programms knnen folgende Aufgaben optimal gelst werden :FLFFDL< 1. Entwicklung eines Programms im kompfortablen GFA-BASIC,FFNLG 2. Austesten des Programms in einem Interpreter (Turn-Around-Zeit !),FTLL 3. Programmtransformation in die weltweit verbreitete Computersprache 'C',FFJLC 4. Portierung auf unterschiedlichste Rechner und Betriebssysteme,FTLM 5. Programmierung auf einem ATARI und Anwendung auf einer UNIX-Workstation,FNLF 6. Mgliche Steigerung der Geschwindigkeiten durch deren C-Compiler.FF`LY! "J-1989: O. VINZENT und PROF. DR. H.-J. PATT, Universitt des Saarlandes,FFXLY ! "BFachbereich Physik, Geb.8, D-6600 Saarbrcken, Tel. 0681/302-3773FFXLY ! "BGFA-Systemtechnik GmbH, Heerdter Sandberg 30, D-4000 Dsseldorf 11FFFFF,4" DEMO-PROGRAMM FR 'B_NACH_C.PRG' FFJ4@B_NACH_C WANDELT GFA-BASIC IM ASCII-FORMAT IN EINEN C-QUELLTEXTFF@46Ein GFA-BASIC-Listing wird nach 'C' gewandelt und ist FF4sofort compilierbar !F 4F4=! F.LY! "B "p""B "qFLY ! "FFLY! "FF.LY!! "B "p""B "qF4LY! "transformiert GFA-BASIC nach CFFFF(LY! "1. DEMO: SchleifenFF$LY! " FOR - NEXTFFXGOF LY! "Bߤ FF RF(LY! " REPEAT - UNTILFF8FF LY! "B FFF ߠF&LY! " WHILE - WENDFF8F ߞF :LY! "B߀##݀  FFF ,F"LY! " DO - LOOPF8FF:LY! "B##݀  "FF&ߠF FFFFFFFF0LY! "2. DEMO: Einige BenchmarksFF*LY! "1. Integerberechnung:FFLY! "010000 Schleifen zur Erhhung eines IntegerwertesFF8F LY! " ... rechneFF 0>FFBߜ@ F F F H9#> FeRLY! "7" Schleifen gerechnet !und ... "7 " s bentigtF6LY! " 2. Integer- und Floatberechnung:FFFLY! "010000 Schleifen zur Erhhung eines IntegerwertesFF8LY! "#und Berechnung einer FloatvariablenF8F 0F LY! " ... rechneFF 0>FF ߜ@ F F0߀F  F H9#> FgRLY! "7" Schleifen gerechnet !und ... "7 " s bentigtF4A:\GFA_TEST\TEST.DATFFLLY! "(Speichere die Ergebnisse in der Datei >> << ab ...F$O!M!FXGFpPM!7 F  F 0MFRLY! "4Lade zur Kontrolle die Daten wieder aus der Datei >><!!\  FVLY! "Lnge der Datei B" B" B : "7FFD! F"BLY! "#Suche Position : "7P FD! F"BLY! "#Erhhe den Filepointer um 10 Byte: "7P F@! F"BLY! "#Stelle den Pointer auf Position : "7P FVLY! ""Auslesen und Anzeigen der Datei >>""<< (Stop/Abbruch: Taste)FFFFFFLBM "F SF (!Abbruch!!JA|NEIN!F ߀FF$F$FN F vFN|FTLY! "Ausgelesen bis Position: "7P "BP FF 0MF 8F6LY! "!Sie haben keine Datei ausgewhlt!F$FFFFFFp!!! F $T!!4. DEMO: GRAFIKF FFFp!!! FEXGF `GHFFXGFp!߀ F>T@!#߀݀ !B_NACH_CF zF ` FFF p!!!F fFp!! F HFp!!! FXGFXGFXGFT!!!Fd!G݆!FB|!!ߠ!^F(!!ߠߠF nF ` FFF ZF FFT!!!Ft!!FXGFXGFt!!FB݀! !ߣ߀!F(!+!ߠF6!+!ߠ!ߠF F$ ߠ݀FDF$F F `2F 8FF8V FXGFht!R !R !@!(G!R !R FF F `dFFFLFt!!FF' ' DEMO-PROGRAMM : Wandlung von GFA-BASIC-Quelltext nach 'C' ' ' Aufbau: ' 1. Stringbehandlung ' 2. Schleifen ' 3. Filehandling ' 4. Grafik ' ' -1989: O. VINZENT und PROF. DR. H.-J. PATT, Universitt des Saarlandes, ' Fachbereich Physik, Geb.8, D-6600 Saarbrcken, Tel. 0681/302-3773 ' GFA-Systemtechnik GmbH, Heerdter Sandberg 30, D-4000 Dsseldorf 11 ' DIM zeit(10) z$=" <<< Taste >>> " CHDRIVE 0 GOSUB intro GOSUB schleifen @benchmarks @f_iles grafik DEFTEXT 1,17,0,32 TEXT 288,75,"ENDE" TEXT 208,150,"DEMO: B_NACH_C" PAUSE 100 CLS END > PROCEDURE s_top s%=2 z%=0 REPEAT IF EVEN(s%) PRINT AT(s%-1,72);" ";z$;" "; ELSE PRINT AT(s%,72);CHR$(27)+"p"+z$+CHR$(27)+"q"; ENDIF PAUSE 10 IF GEMDOS(11)<>0 z%=GEMDOS(1) ENDIF IF z%=0 INC s% z%=s% DIV 65 ELSE IF z%=1 DEC s% IF s%=2 z%=0 ENDIF ENDIF PAUSE 10 IF BIOS(1,2)<>0 z%=INP(2) ENDIF UNTIL z%>1 RETURN > PROCEDURE intro PRINT AT(1,2) PRINT " ";CHR$(27);"p<<< ES IST SOWEIT !!! "+CHR$(42)+" B_NACH_C "+CHR$(42)+" IST DA !!! >>>";CHR$(27);"q" PRINT AT(8,5);CHR$(27);"p<<< DAS TRANSFORMATIONSPROGRAMM 'GFA-BASIC-KONVERTER-NACH-C' >>>"+CHR$(27)+"q" PRINT AT(1,8) PRINT " Mit Hilfe dieses Programms knnen folgende Aufgaben optimal gelst werden :" PRINT PRINT " 1. Entwicklung eines Programms im kompfortablen GFA-BASIC," PRINT " 2. Austesten des Programms in einem Interpreter (Turn-Around-Zeit !)," PRINT " 3. Programmtransformation in die weltweit verbreitete Computersprache 'C'," PRINT " 4. Portierung auf unterschiedlichste Rechner und Betriebssysteme," PRINT " 5. Programmierung auf einem ATARI und Anwendung auf einer UNIX-Workstation," PRINT " 6. Mgliche Steigerung der Geschwindigkeiten durch deren C-Compiler." PRINT AT(3,20);"-1989: O. VINZENT und PROF. DR. H.-J. PATT, Universitt des Saarlandes," PRINT AT(11,21);"Fachbereich Physik, Geb.8, D-6600 Saarbrcken, Tel. 0681/302-3773" PRINT AT(11,22);"GFA-Systemtechnik GmbH, Heerdter Sandberg 30, D-4000 Dsseldorf 11" s_top CLS a$=" DEMO-PROGRAMM FR 'B_NACH_C.PRG' " b$="B_NACH_C WANDELT GFA-BASIC IM ASCII-FORMAT IN EINEN C-QUELLTEXT" c$="Ein GFA-BASIC-Listing wird nach 'C' gewandelt und ist " d$="sofort compilierbar !" e$=c$+d$ f$=RIGHT$(a$,16) PRINT AT(24,2);CHR$(27);"p";a$;CHR$(27);"q" PRINT AT(9,4);b$ PRINT AT(3,6);e$ PRINT AT(33,8);CHR$(27);"p";f$;CHR$(27);"q" PRINT AT(26,10);"transformiert GFA-BASIC nach C" RETURN > PROCEDURE schleifen PRINT AT(2,12);"1. DEMO: Schleifen" PRINT AT(1,14);" FOR - NEXT" FOR i%=2 TO 79 PRINT AT(i%,15);CHR$(41+i%) NEXT i% PRINT AT(1,17);" REPEAT - UNTIL" i%=2 REPEAT PRINT AT(i%,18);CHR$(123-i%) INC i% UNTIL i%=80 PRINT AT(1,20);" WHILE - WEND" i%=2 WHILE i%<=79 PRINT AT(i%,21);CHR$(64+((i%-1) MOD 26)) INC i% WEND PRINT AT(1,23);" DO - LOOP" i%=2 DO PRINT AT(i%,24);CHR$(96+((i%-1) MOD 26)); INC i% EXIT IF i%=80 LOOP s_top CLS RETURN > PROCEDURE benchmarks PRINT AT(2,2);"2. DEMO: Einige Benchmarks" PRINT AT(2,4);"1. Integerberechnung:" PRINT AT(5,6);"10000 Schleifen zur Erhhung eines Integerwertes" i%=0 PRINT AT(5,7);"... rechne" c=TIMER WHILE i%<10000 INC i% WEND zeit(1)=(TIMER-c)/200 PRINT AT(5,8);i%;" Schleifen gerechnet ","und ... ";zeit(1);" s bentigt" PRINT AT(2,10);"2. Integer- und Floatberechnung:" PRINT AT(5,12);"10000 Schleifen zur Erhhung eines Integerwertes" PRINT AT(5,13);"und Berechnung einer Floatvariablen" i%=0 a=0 PRINT AT(5,14);"... rechne" c=TIMER WHILE i%<10000 INC i% a=a+1 WEND zeit(2)=(TIMER-c)/200 PRINT AT(5,16);i%;" Schleifen gerechnet ","und ... ";zeit(2);" s bentigt" datei$="A:\GFA_TEST\TEST.DAT" PRINT AT(5,18);"Speichere die Ergebnisse in der Datei >>"+datei$+"<< ab ..." OPEN "O",#1,datei$ FOR i%=0 TO 5 PRINT #1,zeit(i%) NEXT i% CLOSE #1 PRINT AT(5,20);"Lade zur Kontrolle die Daten wieder aus der Datei >>"+datei$+"<<" OPEN "I",#1,datei$ FOR i%=0 TO 5 INPUT #1,zeit(i%) NEXT i% CLOSE #1 PRINT AT(5,22);"Benchmark fr die Integerberechnung : ";zeit(1);" s" PRINT AT(5,23);"Benchmark fr die Integerberechnung/Floatberechnung : ";zeit(2);" s" s_top CLS RETURN > PROCEDURE f_iles PRINT AT(2,2);"3. DEMO: Filehandling" PRINT AT(2,4);" Fileselectorbox, Alertbox, Auslesen eines Files, RELSEEK, SEEK, LOF, LOC .." SGET bild$ CHDRIVE "A:" a$="*.LST" b$="A:\GFA_TEST\" CHDIR b$ FILESELECT b$+a$,a$,c$ SPUT bild$ IF c$<>"" OPEN "I",#1,c$ c%=LOF(#1) c$=MID$(c$,RINSTR(c$,"\")+1) PRINT AT(5,6);"Lnge der Datei "+CHR$(34)+c$+CHR$(34)+SPACE$(15-LEN(c$))+": ";c% RELSEEK #1,10 PRINT AT(5,7);"Suche Position : ";LOC(#1) RELSEEK #1,10 PRINT AT(5,8);"Erhhe den Filepointer um 10 Byte: ";LOC(#1) SEEK #1,10 PRINT AT(5,9);"Stelle den Pointer auf Position : ";LOC(#1) PRINT AT(5,11);"Auslesen und Anzeigen der Datei >>";c$;"<< (Stop/Abbruch: Taste)" s_top CLS DO PRINT CHR$(INP(#1)); IF INKEY$<>"" ALERT 2,"Abbruch",2,"JA|NEIN",back% IF back%=1 GOTO raus ENDIF ENDIF EXIT IF EOF(#1) LOOP raus: PRINT AT(5,25);"Ausgelesen bis Position: ";LOC(#1);SPACE$(54-LEN(STR$(LOC(#1)))) CLOSE #1 ELSE PRINT AT(5,6);"Sie haben keine Datei ausgewhlt!" ENDIF s_top CLS RETURN > PROCEDURE grafik DEFTEXT 1,24,0,32 TEXT 174,200,"4. DEMO: GRAFIK" s_top CLS DEFTEXT ,1,0,13 FOR h%=1 TO 2 FOR j%=4 TO 24 STEP 4 FOR i%=0 TO 5 DEFTEXT ,2^i% TEXT 320,50+i%*(16+j%*2),"B_NACH_C" NEXT i% PAUSE 10 CLS DEFTEXT ,,,j% NEXT j% DEFTEXT ,,h%*1800 NEXT h% DEFTEXT ,1,,13 FOR h%=1 TO 4 FOR i%=2 TO 3 FOR j%=0 TO 2 DEFLINE h%,i%,j%,j% DRAW 100+50*j%,50+25*j% TO 539-50*j%,50+25*j% BOX 50+50*j%,150,320-50*j%,350 CIRCLE 480,250,20+40*j% NEXT j% PAUSE 10 CLS NEXT i% NEXT h% DEFLINE 1,2,1,1 DEFFILL 1,1,1 FOR i%=2 TO 3 FOR j%=1 TO 20 DEFFILL 1,i%,j% PBOX 16*j%-16,10,655-16*j%,190 PCIRCLE 160,299,105-5*j% PELLIPSE 480,299,5*j%,105-5*j% NEXT j% IF j%>20 AND i%=2 SGET bild$ ENDIF NEXT i% PAUSE 50 s_adr%=V:bild$ d_adr%=XBIOS(2) FOR i%=1 TO 1000 RC_COPY s_adr%,RAND(10)*64,RAND(10)*40,64,40 TO d_adr%,RAND(10)*64,RAND(10)*40 NEXT i% PAUSE 100 CLS SPUT bild$ DEFFILL 1,1,1 RETURN ;>>>>>>>>>> DEFAULT.PRJ for use B_NACH_C with TURBO C <<<<<<<<<<< * ; name of executable program is topmost window = ; list of modules follows... TCSTART.O ; startup code * B_NACH_C.LIB ; b_nach_c library TCFLTLIB.LIB ; floating point library TCSTDLIB.LIB ; standard library TCEXTLIB.LIB ; extended library TCTOSLIB.LIB ; TOS library TCGEMLIB.LIB ; AES and VDI library TCLNALIB.LIB ; LINE-A library ;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>><<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<`.hH>pNK <;|+| T+|d(+| \ +|`$+|d(ErpN$f B@N`0-HAL!RmB+|+|+|+|+|+|+| R!| R!|  R!| +| N;@G KN;@I LBAB@N;@*Mt;V(HyHyHyC TNO <2-H+A 4-H+B0m+H2m+IA/ 2-NrBBN _rNrA(?/BB? 2-Nr4N _2NrA-?/BB? 2-Nr4N _2NrA>?/BB? 2-Nr4N _2N;V(?-?- ?-4-rB@ TN\O</ pN3 E JNpNH?ANTOANrpNpNH?AYNTOpN BA|gSAgSAgSAg`N`N`N`N2pNH?ANTO 9 fBB@N$_Nu/ pNtrpNEHy"JA0*NXO0H%@2*H%A4*H%Bpgl%j"%A&5jNp?"JA42*(0*$NTO0*H%@ 2H%AN0*(j?4*$j 2*(0*$NTOpgL$_Nu/ pNtrpNEHy"JA0*NXO0H%@2*H%A4*H%B?<Tp(24<NTOpgp5jN?<,?<p(???*"JA4*rd0<NO 0*H%@ 2H%ANpdj?4* |2*0* NTOpg2$_Nu/ pNtrpNE %|d%|dB`VB`80<j?2<j??*4*0*2*N\O5@"*Ӫ <"*o$*Ւ <"o$_Nu/ / pNE?<?<BgBgp?42<0<?NO 5@GHyCrAB@NXO0H%@,?<?<BgBgr?40<?2<NO 5@HyCrAB@NXO0H%@,&_$_NuE%cp| rubber | drag | move | grow_shrink | quit | %cqF1 und F2 werden durch Rechtsclick abgebrochen %cqDas war graf_growbox !WeiterDas war graf_shrinkbox !print_atHANDLEp_grow_s2I_NT@p_rubberSPEICHEROB(GB DAZCHAR boxmainGwahl_byt FOLDHANDL HTREE$EV_OIDDGPTSOUT GINTOUT E_XTENT0DADDROUT GPBkchrCBinpgraf_shrgraf_rubAP_PHHVPvq_mouseHVGRAFdeffilla_lertPTSOUT INTOUT GCONTRL DATA_POIDUMMYy1_long 6x1_long 2SP my_long *mx_long &mk_long "ly_long lx_long HP FP\STDPRNGPTSIN GINTIN ADDRIN M_FORM,ZL r_ausCONTRL pxyarray pboxHVAgraf_grograf_movgraf_drar_long :p_dragj_long i_long h_long b_long r_einprintfsource showmp_movePTSIN M_BUFFLMFINTIN hidemg_raphmoT\\\\\,l,Tl, 44. u<.. ACCSTARTO l!=,kGEMLIB O r!XPASLIB O {!STARTUP O !dl`5}` G*K JgG2 gS'[Q`J9GN7|G NNq}OIpd"gI",l `E5" V$A$"RҊ"A"f$ (R!8mgR&!8"RNk %|g(rN"<p (jNFreevecJg&A"#fRN"<p (jNaptovec(A" W&C8H#L#p#pNgetbyteԁB0(Nputbyteԁ(Nget2bytԁB20(Nput2bytԁ1(Ngbytes (ABSfNpbytes (A(SfNlevel ")Nlongjum"A(iN(creatco"p(jtNJg`$ԩ (ABl&*0!!8!8!8 !!%@0"A"p (jhN(ip N`2<p (jNNdeletco Jf&*0$&08n&$0(gȰf!8"p (jxNNcallco &J8f(*0!8%A0"!H "p8 Nresumco(*0g"&J8fjJHmb!H8BH`"Ncowait (*0&0Ho:%C0BH!H "p8 NGEMDOS GHӂGB0@33gHS@4RBB$1 g/`?S@j?NA"%A(GLӂNBIOS GHӂG40@33gHS@4RBB$1 g/`?S@j?NM`XBIOS GHӂG40@33gHS@4RBB$1 g/`?S@j?NN`  dH^_,@ Xp Lxd q <@N#j `G" `G" `G" `G" `G" `G" `G" `vG" `jG" `^G" `RG$" `FG8" `:GH" `.GX" `"Gx" `G" ` G" `G" `G" `G" `G" `"t lVvl&xgzg|g~g`gtg vgx gz g`g l(t gvTgxbg g `tg$ g& g( g* g, g.`:#AG,$ %BJfp I8N%i NrTfG" p (j$N`RG " p (j$N&)$")p (j(Nrdo$)G0" p (j(N l p I8N%i r p (jNNNqCode %N Bus error Address errorIllegal instructionDivide by zeroCHK instructionTRAPV instructionPrivilege violationTrace exceptionLine 1010 emulatorLine 1111 emulatorUnexpected TRAPStack overflowUndefined global %$%N calledInvalid input streamInvalid output streamFailed to initialiseCoroutine failure Heap corruptIllegal FREEVEC Disk Full FATAL ERROR: Stack overflow FATAL ERROR:  @ %X6 <8N$ #B&(08#D#D&*08#EG" p(j$N`")W#A $)G" p(j(N")"0pINr:p(jNr#Atn,ҩ l ")ҩ"0p INrҩ`p(jLN#i")$0#B")0fdG" p(j$NNNq Backtrace of stack %X6  End of backtrace <$NU#A o $ 䊲mrNr‘JgrN")t0vgrNr#Atn:&)ցx08v n()؁z0HxorNrҩ`rNNq <,NpIdNJg"U$G" p(j(N`l GLm, GLn""GL$G" p(j(N`8 o B@lt "p(jN`$G" p(j(NN %T7 glob%I3 #X%X8 <,N"*$" #p(&)n"pIlNNrґ$*!( rҪґt0"N <8N$*&(*#p( #p8#pH #pXJ lp (iN`@")n"*p INBrҪҩrҩ$*!( NNq <0N&x08#D#D r#A n $ԁv0(ҩSrҩ`")ҩt")N <NtanvznxA؁"`"NNq <8N#j`Lrҩ#A $pI NJg&rg$)劲(f%|(rN")#pJfB(rN <4Np(j,N#A")p(j,N$)"N <DN&x08*|0X#D#F l`")#A$v0(#Cr#An<$ԁv0($)ԁx0($"p((j0N#AJgNrҩ`") frN")fr`rNNq <(NBv0#C x%D(`JR o")$<B(`4")ҩ"ҩt0#B J f") ")NNq <(Nr*p(j8N$!(r,p(j8N$!("NNq <hNtԉ#BG4& #CG\( #Dzځ#E`V <0N#Dr#An8t ")Nr0ԁ&֩8t ")N#AStԩ"`N")pD(jXN"t "v-"")xȰ#D *<ʰ#E$,<̰~ #F(x&) $"pDI8Nr#A8tn>&)$S#i<"Nҩ8$)<ԁr0(tԩ8&ւ8rҩ8`"<ҩ(x&t "pDI8N")t")v:")")xȰ#D,*<ʰ#E0,<̰~ #F4x&$")pDI8Nx&)0t")pDI8N"),x&t")pDI8N")t0#B8r#A<8n$$)ԁv0(t ԑԁ(rҩ<`"NNq$JANFEBMARAPRMAYJUNJULAUGSEPOCTNOVDEC <XNtԉ#B$")pp(j8NtfF#B")N <@Ntԁ#B&#p8(&<$)r?p(j8N#A JnrN"! rN <4N$#p( vց$&)p(jNtfF"NNq <,N$rp(j8NtfF"NNq <4Ntԁ#B&x}8")$r p(j8Nr pIN")t0#Bvfx0zfrNrҩ$)ԁr (tԩ&!8rN <,N$rp(j8NtfF"NNq <8N&x08#D#D r#A n2$)ԁv0("p (j,N$)S&ւ8rҩ`")#A t(n&ցx8rҩ `N <$Nr p (jNNNq <0Nvtp(jNN <N"*N <0N&(<Ȱ8#Dt"N#A #ir#An ґ$)ԩ&0(rҩ`rҩ tNS#Atԩ"#An$)ԁv(rҩ`") N <4Nvp(jNNNq <HN#B (BH"t0#Br#An$ԁv0(#Ct/fpx؁*ڄx0X"p,(j,N#A tAf&) x8!8rK f$) v(!(rS f$) v(!(`r,fR $) B(rҩ`NR ")$) #Br#A$)ԩ #B`&p,(jN#Atgv gx;gzfrx%A(rN")S#Ar#A nJҩ#p$J$m.r$m$tĩ$Jf$)ԩ B(``vrҩ `p((jN") N$) "p((j@N#AJmzҩtn*")ҩvm")ҩx!`$)") p((jp$(jN#Ap$(j,NtEfr#A")p$(j,NtNfr #A` r;glt gbv=gXR") lrN"ҩ" p$(jN#Argt g vf.p$(jNJgrNJfr=fp$(jNrNrNrNNq <,NBBBp(jN#At0n v9oT`,p(jNr%A(rN`r#Ap(jN#A`&")t gv gx gz+g|-g`` $r Nҩt0"p(jN#Ar0n t9lJgDp(jNB("N <@N(JHl%|(rN"()&)$0r?p(j8N#A Jm`rNNq <4N&*x8g"<p(jN"*G$ f2&()$"*&p(jN#AJl`")NrN <Nv ։#Cx8؉#D4pl(j4NJf%|(rN$")plIN$)")4plINt")plINJg%|(rN")pl(jlN")$)4(&trVpl(j8NtfF"NNq <0N$*#p(v#CB((0(JlDzg"<p(jNJfrNJg"*p(iN#Arf$*B( $*B(Nrҩ$*!( rҪҩt0"N <HN(*#pH #pX|g~g p%@(rNrf^$&#p( #p8f.#i xfr`")$)"$) #B"B "t!`"p$I N"B ()&) $)rBp$(j8N#AJlr`")NNq <(NJg&$&0(JlDxg"<p(jN%QrN <(NJg&$&0(JlDxg"<p(jN%QrN <4N*|0X#Fr#A nto"`")$(")lrN") ҩ$)ԁr0(f") ҩRNro($) ԩ&)ւt08v֩(؃Hrҩ`fNNq <0N$v0(#C%jBG" p(jN%AG" p(jN%AJgJf"<p(jNrҪ#A#i r#A n$$ԁv0(S$)ԁ(rҩ`")ҩt "*B rҩ&*!8NNqCON:CON: <,Nr p(j8NJfr`.rp(j8NW#AtnvƑ"`rNNq <$N&x08"#AJm $ԁv0(ҩ!rҩ`N <N"*" JntJfF"N"S$*!( rNNq <(Ntgv f r p(jN"p(jNN <@N(JHl%|(rN"()&)$0r@p(j8N#A Jm`rNNq <lND#Av։#CB Jl S#Qt ")ND")ҩ !t ")N#AR Jf#i@tԩ "#AD@nr pT(jNrҩD`Jl r-pL(jN") S#A@Jm ҩt0԰"pP(jNrҩ@`N <xNzډ#E0,~0h#G4r#A84n^$ԁv0(#C (!,#!%"-#7#\8#b#E$J$G&pF&H'I'4D'|:'belib14-0.o`8*A!o0Bh1|1|1|PNA0(0HNuAESPBCALLAESscrp_rea lib14-1.o`8*A!o0Bh1|1|1|QNA0(0HNuscrp_wriAESPBCALLAES  lib6-0.o`\*A!o 1o D1o8Bh.1|21|f,NACD!I 2< "o CZ/ ED2Q$_HNuvq_extndCALLVDIVDIPB lib6-1.o`H*A!o 1oF1o D1o8Bh.1|21|,NACD!I HNuvq_colorCALLVDIVDIPB lib6-2.o`T*A!o 1o8Bh.Bh21|#,NACD!I 2<"oC/ ED2Q$_HNuCALLVDIvql_attrVDIPBlib6-10.o`l*A!o 1o<1o:!o1o81|.Bh21|,NACD!ICD!I "o2>"o2@"o2BHNuCALLVDIvq_cellaVDIPBlib6-3.o`T*A!o 1o8Bh.Bh21|$,NACD!I 2<"oC/ EF2Q$_HNuCALLVDIvqm_attrVDIPBlib6-11.o`<*A1o D1o8Bh.1|21|s,NA"o 2DHNuCALLVDIvqin_modVDIPBlib1-0.o`l*A!o "o1Q8!oBh.1| 21|,NACD!ICD!I "o282< "o CX/ ED2Q$_HNuCALLVDIVDIPBv_opnwk  lib1-1.o`$*A1o8Bh.Bh21|,NHNuCALLVDIVDIPBv_clswk lib1-2.o`l*A!o "o1Q8!oBh.1| 21|d,NACD!ICD!I "o282< "o CX/ ED2Q$_HNuCALLVDIVDIPBv_opnvwk  lib1-3.o`$*A1o8Bh.Bh21|e,NHNuCALLVDIVDIPBv_clsvwk lib1-4.o`$*A1o8Bh.Bh21|,NHNuCALLVDIVDIPBv_clrwk lib1-5.o`$*A1o8Bh.Bh21|,NHNuCALLVDIVDIPBv_updwk lib1-6.o`0*A1o D1o8Bh.1|21|w,N0(DHNuCALLVDIvst_loadVDIPBlib1-7.o`,*A1o D1o8Bh.1|21|x,NHNuCALLVDIVDIPBvst_unlo lib1-8.o`D*A!o 1o D1o81|.1|21|,NACD!IHNuvs_clipCALLVDIVDIPB lib6-4.o`8*A!o 1o8Bh.Bh21|%,NACD!I HNuCALLVDIvqf_attrVDIPBlib6-5.o`T*A!o 1o8Bh.Bh21|&,NACD!I 2<"oC / ED2Q$_HNuCALLVDIvqt_attrVDIPBlib6-6.o`T*A!o !o1o8Bh.r"oRJf1A21|t,NACD!ICD!IHNuCALLVDIVDIPBvqt_exte  lib2-10.o`L*A1oL1oF1o D1o81|.Bh21|6BhHBhJBhN1| ,NHNuv_circleCALLVDIVDIPB lib6-7.o`P*A1o D1o8Bh.1|21|u,NA"o 2D"o2H"o2L0(DHNuCALLVDIVDIPBvqt_widt  lib2-11.o`T*A1oF1oD1oJ1oH1oF1o D1o81|.1|21|61| ,NHNuCALLVDIVDIPBv_ellarc lib6-8.o`P*A1o D1o8Bh.1|21|,NA2<"o C/ EF2Q$_0(DHNuvqt_nameCALLVDIVDIPB lib2-12.o`T*A1oF1oD1oJ1oH1oF1o D1o81|.1|21|61| ,NHNuv_ellpieCALLVDIVDIPB lib6-9.oF`*A1o8Bh.Bh21|,NA"o2D"o 2Fr2<"oC/ EF2JZQ$_"o2Dr2<"oC/ EH2JZQ$_HNuCALLVDIVDIPBvqt_font  lib2-13.o`D*A1oJ1oH1oF1o D1o81|.Bh21|61| ,NHNuCALLVDIVDIPBv_ellips lib2-14.o`@*A!o1o81|.Bh21|61| ,NACD!IHNuv_rboxCALLVDIVDIPB lib2-15.o`@*A!o1o81|.Bh21| 61| ,NACD!IHNuv_rfboxCALLVDIVDIPB lib2-16.o.`t*A1oF1oD1oH1oF1o D1o81|.r"oRJf1A2p"o/ EH4Q$_h21| 61| ,NHNuCALLVDIv_justifVDIPBlib13-0.o`X*A1o61o41o 21o01|1|Bh1|FNA"o22"o240(0HNuAESPBCALLAESgraf_rub lib13-1.o&`p*A1o">1o<1o:1o81o61o41o 21o01|1|Bh1|GNA"o$22"o(240(0HNuAESPBCALLAESgraf_dra lib13-2.o`T*A1o:1o81o61o41o 21o01|1|Bh1|HNA0(0HNuAESPBCALLAESgraf_mov lib13-3.o``*A1o">1o<1o:1o81o61o41o 21o01|1|Bh1|INA0(0HNuAESPBCALLAESgraf_gro lib13-4.o``*A1o">1o<1o:1o81o61o41o 21o01|1|Bh1|JNA0(0HNuAESPBCALLAESgraf_shr lib13-5.o`L*A1o61o41o 2!o01|1|1|1|KNA0(0HNuAESPBCALLAESgraf_wat lib13-6.o`L*A1o41o21o 0!o01|1|1|1|LNA0(0HNuAESPBCALLAESgraf_sli lib13-7.o`P*ABh1|Bh1|MNA"o22"o24"o 26"o280(0HNuAESPBgraf_hanCALLAESlib13-8.o`@*A!o01o01|1|1|1|NNA0(0HNuAESPBCALLAESgraf_mou lib13-9.o`P*ABh1|Bh1|ONA"o22"o24"o 26"o280(0HNuAESPBCALLAESgraf_mks lib5-0.o`4*A1oF1o D1o8Bh.1|21|!,NHNuCALLVDIvsin_modVDIPBlib5-1.o`P*A1oF1o D1o81|.Bh21|,NA"o2D"o2F"o2DHNuvrq_locaCALLVDIVDIPB lib5-2.o`X*A1oF1o D1o81|.Bh21|,NA"o2D"o2F"o2D0(4@h0Hvsm_locaCALLVDIVDIPB lib5-3.o`D*A1o D1o8Bh.1|21|,NA"o 2D"o2FHNuvrq_valuCALLVDIVDIPB lib5-4.o`L*A1o D1o8Bh.1|21|,NA"o 2D"o2F"o24HNuvsm_valuCALLVDIVDIPB lib5-5.o`<*A1o D1o8Bh.1|21|,NA"o 2DHNuCALLVDIVDIPBvrq_choi  lib5-6.o`8*A1o8Bh.Bh21|,NA"o2D0(4HNuCALLVDIVDIPBvsm_choi  lib5-7.o`X*A!o1oF1o D1o81|.1|21|,NACD!I"o(AD0JfHNuvrq_striCALLVDIVDIPB lib5-8.o`X*A!o1oF1o D1o81|.1|21|,NACD!I"o(AD0JfHNuvsm_striCALLVDIVDIPB lib5-9.o`<*A!o1o8Bh.1|%21|o,NACD!IHNuCALLVDIvsc_formVDIPBlib5-10.o`@*A!o:1o8Bh.Bh21|v,NA"o2D"o ">HNuvex_timvCALLVDIVDIPB lib5-11.o`,*A1o D1o8Bh.1|21|z,NHNuv_show_cCALLVDIVDIPB lib5-12.o`$*A1o8Bh.Bh21|{,NHNuv_hide_cCALLVDIVDIPB lib5-13.o`D*A1o8Bh.Bh21||,NA"o2D"o 2D"o2FHNuCALLVDIVDIPBvq_mouse  lib5-14.o`8*A!o:1o8Bh.Bh21|},NA"o ">HNuCALLVDIvex_butvVDIPBlib5-15.o`8*A!o:1o8Bh.Bh21|~,NA"o ">HNuCALLVDIvex_motvVDIPBlib5-16.o`8*A!o:1o8Bh.Bh21|,NA"o ">HNuCALLVDIVDIPBvex_curv  lib5-17.o`4*A1o8Bh.Bh21|,NA"o2DHNuvq_key_sCALLVDIVDIPB lib12-0.o`@*A1o 0!o01|1|1|1|2NA0(0HNuAESPBCALLAESform_do lib12-1.o`h*A1o&@1o">1o<1o:1o81o61o41o 21o01| 1|1|1|3NA0(0HNuAESPBCALLAESform_dia lib12-2.o`@*A!o01o01|1|1|1|4NA0(0HNuAESPBCALLAESform_ale lib12-3.o`8*A1o01|1|Bh1|5NA0(0HNuform_errAESPBCALLAES  lib12-4.o`X*A!o0Bh1|1|1|6NA"o22"o 24"o26"o280(0HNuAESPBCALLAESform_cen lib18-0.o`<*A!o4!o0Bh1|1|1|xNA0(0HNuAESPBCALLAESshel_rea lib18-1.o`P*A!o4!o01o41o 21o01|1|1|1|yNA0(0HNushel_wriAESPBCALLAES  lib18-2.o`8*A!o0Bh1|1|1||NA0(0HNuAESPBCALLAESshel_fin lib18-3.o`<*A!o4!o0Bh1|1|1|}NA0(0HNushel_envAESPBCALLAES  lib11-0.o`D*A1o21o 0!o01|1|1|1|(NA0(0HNuAESPBCALLAESobjc_add lib11-1.o`@*A1o 0!o01|1|1|1|)NA0(0HNuAESPBCALLAESobjc_del lib11-2.o`\*A1o:1o81o61o41o21o 0!o01|1|1|1|*NA0(0HNuAESPBCALLAESobjc_dra lib11-3.o`P*A1o61o41o21o 0!o01|1|1|1|+NA0(0HNuAESPBCALLAESobjc_fin lib11-4.o`P*A1o 0!o01|1|1|1|,NA"o 22"o240(0HNuAESPBCALLAESobjc_off lib11-5.o`D*A1o21o 0!o01|1|1|1|-NA0(0HNuAESPBCALLAESobjc_ord lib11-6.o`X*A1o61o41o21o 0!o01|1|1|1|.NA"o220(0HNuAESPBCALLAESobjc_edi lib11-7.o`h*A1o&>1o"<1o:1o81o61o41o21o 0!o01|1|1|1|/NA0(0HNuAESPBCALLAESobjc_cha lib17-0.o`8*A!o0Bh1|1|1|nNA0(0HNuAESPBCALLAESrsrc_loa lib17-1.o`0*ABh1|Bh1|oNA0(0HNursrc_freAESPBCALLAES  lib17-2.o`P*A1o 21o01|1|Bh1| 1|pNA"o "0Bh 0(0HNuAESPBCALLAESrsrc_gad lib17-3.o`D*A!o 01o 21o01|1|1|1|qNA0(0HNuAESPBCALLAESrsrc_sad lib17-4.o`@*A1o 0!o01|1|1|1|rNA0(0HNuAESPBCALLAESrsrc_obf lib9-0.o`0*ABh1|Bh1|NA0(0HNuAESPBCALLAESevnt_key lib9-1.o`d*A1o41o 21o01|1|Bh1|NA"o22"o24"o26"o280(0HNuevnt_butAESPBCALLAES  lib9-2.o&`p*A1o81o61o41o 21o01|1|Bh1|NA"o22"o24"o 26"o$280(0HNuAESPBCALLAESevnt_mou lib9-3.o`8*A!o0Bh1|1|1|NA0(0HNuAESPBCALLAESevnt_mes lib4-0.o`P*A!o>!o:!o 1o D1o81|.1|21|m,NACD!IHNuCALLVDIVDIPBvro_cpyf  lib9-4.o`<*A1o 21o01|1|Bh1|NA0(0HNuAESPBCALLAESevnt_tim lib4-1.o`h*A2<"oC/ EF4Q$_!o>!o:!o 1o D1o81|.1|21|y,NACD!IHNuCALLVDIVDIPBvrt_cpyf  lib9-5.o`*A1oFN1oBL!o<01o:J1o6H1o2F1o.D1o*B1o&@1o">1o<1o:1o81o61o41o 21o01|1|1|1|NA"oH22"oL24"oP26"oT28"oX2:"o\2<0(0HNuAESPBCALLAESevnt_mul lib10-0.o`@*A1o 0!o01|1|1|1|NA0(0HNuAESPBCALLAESmenu_bar lib4-2.o`0*A!o >!o:1o8Bh.Bh21|n,NHNuCALLVDIVDIPBvr_trnfm lib9-6.o`<*A1o 21o01|1|Bh1|NA0(0HNuAESPBCALLAESevnt_dcl lib10-1.o`D*A1o21o 0!o01|1|1|1|NA0(0HNuAESPBCALLAESmenu_ich lib4-3.o`H*A1oF1o D1o81|.Bh21|i,NA"o2D"o2FHNuCALLVDIVDIPBv_get_pi  lib10-2.o`D*A1o21o 0!o01|1|1|1| NA0(0HNuAESPBCALLAESmenu_ien lib10-3.o`D*A1o21o 0!o01|1|1|1|!NA0(0HNuAESPBCALLAESmenu_tno lib10-4.o`D*A!o 41o 0!o01|1|1|1|"NA0(0HNuAESPBCALLAESmenu_tex lib10-5.o`@*A!o01o01|1|1|1|#NA0(0HNuAESPBCALLAESmenu_reg lib16-0.o`P*A1o81o61o41o 21o01|1|Bh1|dNA0(0HNuAESPBCALLAESwind_cre lib16-1.o`P*A1o81o61o41o 21o01|1|Bh1|eNA0(0HNuAESPBCALLAESwind_ope lib16-2.o`8*A1o01|1|Bh1|fNA0(0HNuAESPBCALLAESwind_clo lib16-3.o`8*A1o01|1|Bh1|gNA0(0HNuAESPBCALLAESwind_del lib16-4.o`\*A1o 21o01|1|Bh1|hNA"o 22"o24"o26"o280(0HNuAESPBCALLAESwind_get lib16-5.o`T*A1o:1o81o61o41o 21o01|1|Bh1|iNA0(0HNuAESPBCALLAESwind_set lib16-6.o`<*A1o 21o01|1|Bh1|jNA0(0HNuwind_finAESPBCALLAES  lib16-7.o`8*A1o01|1|Bh1|kNA0(0HNuAESPBCALLAESwind_upd lib16-8.o.`t*A1o:1o81o61o41o 21o01|1|Bh1|lNA"o22"o 24"o$26"o(280(0HNuwind_calAESPBCALLAES  lib8-0.o`0*ABh1|Bh1| NA0(0HNuAESPBCALLAESappl_ini lib8-1.o`D*A!o 01o 21o01|1|1|1| NA0(0HNuAESPBCALLAESappl_rea lib8-2.o`D*A!o 01o 21o01|1|1|1| NA0(0HNuAESPBCALLAESappl_wri lib8-3.o`4*A1o0Bh1|Bh1| NA0(0HNuAESPBCALLAESappl_fin lib3-0.o`0*A1o D1o8Bh.1|21| ,N0(DHNuCALLVDIvswr_modVDIPBlib8-4.o`D*A1o21o 0!o01|1|1|1|NA0(0HNuAESPBCALLAESappl_tpl lib3-1.o`H*A1o D1o82<"o C/ EF4Q$_Bh.1|21|,NHNuvs_colorCALLVDIVDIPB lib8-5.o`@*A1o 0!o01|1|1|1|NA0(0HNuappl_treAESPBCALLAES  lib3-2.o`0*A1o D1o8Bh.1|21|,N0(DHNuCALLVDIVDIPBvsl_type lib8-6.o`0*ABh1|Bh1|NA0(0HNuAESPBCALLAESappl_exi lib3-3.o`,*A1o D1o8Bh.1|21|q,NHNuCALLVDIVDIPBvsl_udst lib3-4.o`4*A1o D1o8BhF1|.Bh21|,N0(DHNuCALLVDIVDIPBvsl_widt lib3-5.o`0*A1o D1o8Bh.1|21|,N0(DHNuvsl_coloCALLVDIVDIPB lib3-6.o`4*A1oF1o D1o8Bh.1|21|l,NHNuCALLVDIvsl_endsVDIPBlib3-7.o`0*A1o D1o8Bh.1|21|,N0(DHNuCALLVDIVDIPBvsm_type lib3-8.o`0*A1o F1o81|.Bh21|,N0(FHNuvsm_heigCALLVDIVDIPB lib3-9.o`0*A1o D1o8Bh.1|21|,N0(DHNuvsm_coloCALLVDIVDIPB lib7-10.o`8*A1oF1o D1o8Bh.Bh21| 61|,NHNuCALLVDIVDIPBvs_curad lib7-11.o`L*A1o8r"oRJf1A2p"o/ ED4Q$_Bh.1| 61|,NHNuv_curtexCALLVDIVDIPB lib7-12.o`,*A1o8Bh.Bh21| 61|,NHNuv_rvonCALLVDIVDIPB lib7-13.o`,*A1o8Bh.Bh21|61|,NHNuCALLVDIv_rvoffVDIPBlib7-14.o`@*A1o8Bh.Bh21|61|,NA"o2D"o 2FHNuCALLVDIVDIPBvq_curad  lib3-10.o`X*A1o F1o8BhD1|.Bh21| ,NA"o 2D"o2F"o2H"o2JHNuvst_heigCALLVDIVDIPB lib7-15.o`,*A1o8Bh.Bh21|61|,NHNuCALLVDIvq_tabstVDIPBlib3-11.o`X*A1o D1o8Bh.1|21|k,NA"o 2D"o2F"o2H"o2J0(DHNuvst_poinCALLVDIVDIPB lib7-16.o`(*A1o8Bh.Bh21|61|,NCALLVDIv_hardcoVDIPBlib15-0.o`D*A!o4!o0Bh1|1|1|ZNA"o 220(0HNuAESPBCALLAESfsel_inp lib3-12.o`0*A1o D1o8Bh.1|21| ,N0(DHNuvst_rotaCALLVDIVDIPB lib7-17.o`8*A1oF1o D1o81|.Bh21|61|,NHNuCALLVDIVDIPBv_dspcur lib3-13.o`0*A1o D1o8Bh.1|21|,N0(DHNuvst_fontCALLVDIVDIPB lib3-14.o`0*A1o D1o8Bh.1|21|,N0(DHNuvst_coloCALLVDIVDIPB lib3-15.o`0*A1o D1o8Bh.1|21|j,N0(DHNuCALLVDIvst_effeVDIPBlib3-16.o`H*A1oF1o D1o8Bh.1|21|',NA"o2D"o2FHNuvst_aligCALLVDIVDIPB lib3-17.o`0*A1o D1o8Bh.1|21|,N0(DHNuvsf_inteCALLVDIVDIPB lib3-18.o`0*A1o D1o8Bh.1|21|,N0(DHNuvsf_stylCALLVDIVDIPB lib3-19.o`0*A1o D1o8Bh.1|21|,N0(DHNuvsf_coloCALLVDIVDIPB lib3-20.o`0*A1o D1o8Bh.1|21|h,N0(DHNuCALLVDIvsf_periVDIPBlib7-0.o`@*A1o8Bh.Bh21|61|,NA"o2D"o 2FHNuvq_chcelCALLVDIVDIPB lib3-21.o`@*A / 1@2!o1o8Bh.1|p,NACD!IHNuCALLVDIVDIPBvsf_udpa  lib7-1.o`,*A1o8Bh.Bh21|61|,NHNuCALLVDIv_exit_cVDIPBlib7-2.o`,*A1o8Bh.Bh21|61|,NHNuCALLVDIv_enter_VDIPBlib7-3.o`,*A1o8Bh.Bh21|61|,NHNuCALLVDIv_curupVDIPBlib2-0.o`<*A!o 1o .1o8Bh21|,NACD!IHNuv_plineCALLVDIVDIPB lib7-4.o`,*A1o8Bh.Bh21|61|,NHNuCALLVDIVDIPBv_curdow lib2-1.o`<*A!o 1o .1o8Bh21|,NACD!IHNuCALLVDIv_pmarkeVDIPBlib7-5.o`,*A1o8Bh.Bh21|61|,NHNuv_currigCALLVDIVDIPB lib2-2.o`T*A1oF1o D1o8r"oRJf1A2p"o/ ED4Q$_1|.1|,NHNuCALLVDIv_gtextVDIPBlib7-6.o`,*A1o8Bh.Bh21|61|,NHNuCALLVDIv_curlefVDIPBlib2-3.o`<*A!o 1o .1o8Bh21| ,NACD!IHNuCALLVDIv_fillarVDIPBlib7-7.o`,*A1o8Bh.Bh21|61|,NHNuv_curhomCALLVDIVDIPB lib2-4.o`h*A!o1o@ /!@>1o<"/ !A:!o1o81|.!@21| ,NACD!ICD!IHNuCALLVDIv_cellarVDIPBlib7-8.o`,*A1o8Bh.Bh21| 61|,NHNuv_eeosCALLVDIVDIPB lib2-5.o`<*A1oD1oF1o D1o81|.1|21|g,NHNuv_contouCALLVDIVDIPB lib7-9.o`,*A1o8Bh.Bh21| 61|,NHNuv_eeolCALLVDIVDIPB lib2-6.o`<*A!o1o81|.Bh21|r,NACD!IHNuCALLVDIVDIPBvr_recfl  lib2-7.o`@*A!o1o81|.Bh21|61| ,NACD!IHNuCALLVDIVDIPBv_bar  lib2-8.o``*A1oF1oD1oP1oF1o D1o81|.1|21|6BhHBhJBhLBhNBhR1| ,NHNuCALLVDIVDIPBv_arc lib2-9.o``*A1oF1oD1oP1oF1o D1o81|.1|21|6BhHBhJBhLBhNBhR1| ,NHNuCALLVDIVDIPBv_piesli lib7-18.o`,*A1o8Bh.Bh21|61|,NHNuCALLVDIv_rmcurVDIPBlib7-19.o`,*A1o8Bh.Bh21|61|,NHNuCALLVDIv_form_aVDIPBlib7-20.o`@*A!o1o81|.Bh21|61|,NACD!IHNuv_outputCALLVDIVDIPB lib7-21.o`,*A1o8Bh.Bh21|61|,NHNuCALLVDIv_clear_VDIPBlib7-22.oN`*A!o 1oL1oJ1oH1oF1oD1o8r"oRJf1ANp"o/ EN4Q$_Bh.Bh21|61|,NACD!IHNuCALLVDIv_bit_imVDIPBlib7-23.o`4*A1o D1o8Bh.1|21|<61|,NHNuCALLVDIvs_paletVDIPBlib7-24.o`@*A!o 1o8Bh.Bh21|[61|,NACD!I HNuvqp_filmCALLVDIVDIPB lib7-25.o.`t*A1o8Bh.Bh21|\61|,NA"o2D"o 2F"o2H"o2J"o2L2<"oC/ EN2Q$_HNuCALLVDIvqp_statVDIPBlib7-26.o.`t*A1o82<"oC/ EN4Q$_Bh.1|21|]61|,NA"o2D"o 2F"o2H"o2J"o2LHNuCALLVDIvsp_statVDIPBlib7-27.o`,*A1o8Bh.Bh21|^61|,NHNuCALLVDIvsp_saveVDIPBlib7-28.o`,*A1o8Bh.Bh21|_61|,NHNuCALLVDIvsp_messVDIPBlib7-29.o`0*A1o8Bh.Bh21|`61|,N0(DHNuvqp_erroCALLVDIVDIPB lib7-30.o`D*A1oJ1oH1oF1o D1o81|.Bh21|b61|,NHNuCALLVDIv_meta_eVDIPBlib7-31.o`T*A!o0/@1@.!o 1o 21o81|c61|,NACD!ICD!IHNuCALLVDIv_write_VDIPBlib7-32.o`L*A1o8Bh.r"oRJf1A2p"o/ ED4Q$_1|d61|,NHNuvm_filenCALLVDIVDIPB lib0.o`|"0<sNBNu"0<NBNu@XXXX@XXXXXV1.04intoutXglobalXAESPB(CALLVDIcontrl@CALLAES intinX_GLIBVERvVDIPBptsinXptsoutXest.paslib0291`8s <tNzډ#E#AD,Jhg "pT(jNJf$)"pT(jN#A`BHr#AL$) T"p\(jtN#A$!4(%i4Rr ft#BL&) 8`f`RH")ҩHt0r f(`")ҩHt0")ҩLRLRH")ҩHt0r g $) Hn")LS$)(#i")pT(jN$)D!(")DJf&*($)rpT(jNN")D!%iDJf")Dt0v ăx!`,")Dt0v ăx&)t")DpT(j|NNNq#3GLOB0291GLOB0262GLOB0307GLOB0264 st.paslib0292`8s <tN#Azډ#E,Jhg "pT(jNJf$)"pT(jN#A`BHr#AL$) T"p\(jtN#A$!4(%i4Rr ft#BL&) 8`f`RH")ҩHt0r f(`")ҩHt0")ҩLRLRH")ҩHt0r g $) Hn")LS$)(#i")pT(jN$)!(")Jf&*($)r pT(jNN")!%iJf")t0v ăx`,")t0v ăx&)t")pT(j|NNNq$3GLOB0292GLOB0262GLOB0307GLOB0264 st.paslib0324`v <Nzډ#E|D܉#F@.<ފ#Gp#AtBxp#@|Jg~fr#A|" `f`Rx")ҩxt0r f(`")ҩxt0")@ҩ|R|Rx")ҩxt0r g $) xn")|S$)@(")tt԰"$) <(jXN`")p#pp")pJg $)tf")pJg$)t!(")tt0văxf""0 <(jN <(jN`$")t"0 <(jN <(jN")tB")tt0v ă$)@") <(jpNNDDGLOB0324st.paslib0325R`E <dN#A$<Ԋ#Bv։#C (JHgzڰH$"pH(jXN`")#p")Jg $)f")Jgv$)!(")t0văxf"0pH(jNpH(jN`")"0pH(jNpH(jN")B")t0v ă") pH(jlNNEEGLOB0325st.paslib0327\`8 <xN#Az ډ#E,Jhg "pX(jNJf$)"pX(jN#A`BLr#AP$) T"p`(jtN#A$!4(%i4Rr ft#BP&) 8`f`RL")ҩLt0r f(`")ҩLt0")ҩPRPRL")ҩLt0r g $) Ln")PS$)(#i")pX(jN#AJfB")pX(jN#AJf`R")pX(jtN")pX(jN$)!(`")!v$")pX(jN")Jf&*($)r%pX(jNN")!%i")t0v ăx&)t")pX(j|NNNqGGGLOB0327GLOB0262GLOB0307GLOB0264 st.paslib0326`D8 <|NB#Az$ډ#E ,Jhg "p\(jNJf$) "p\(jN#A`BPr#AT$) T"pd(jtN#A$!4(%i4Rr ft#BT&) 8`f`RP")ҩPt0r f(`")ҩPt0")ҩTRTRP")ҩPt0r g $) Pn")TS$)(#i")p\(jN#AJf"")p\(jN$)!(r#A`")!vt")p\(jN")Jf&*($)r$p\(jNN")!%iJf<")t0v ă#BPJgr`rtP&)8`F")t0v ă#BPJgr`rP$)(&)t")p\(j|NNNqFFGLOB0326GLOB0262GLOB0307GLOB0264 st.paslib0254`H* <(N` "p(jN"p(jNJg"p(jNNNq"GLOB0254GLOB0290GLOB0284  st.paslib0284`h <0N#A$v0(Jft"p(jN")t0v ăJgr`rNNq!GLOB0284pGLOB0289 st.paslib0309(`x <0N#A$v0(xƄ#Czg |f")t0v@N")Jf rp(jNNNq55GLOB0309GLOB0264 st.paslib0255`, <0Nvt p(jNNGLOB0255GLOB0256 st.paslib0295`, <0Nvt p(jNN''GLOB0295GLOB0256 st.paslib0261`; <xND#Bx؉#D BJl S#it ")ND") ҩ!t ")N#ARJf#iDtԩ"#AHDnvt "pX(jNrҩH`Jlvt-"pP(jN")S#ADJm"ҩ t0԰v"pT(jNrҩD`NGLOB0261GLOB0256   st.paslib0288n`xb <HN#ABB"p((jN#A t(f D #B") p((jN#At"p((jN")t0 v.f"p((jNt"p((jN")t0 v0nt0 x9orp((jNNS">GLOB0318st.paslib0294@`! <,NJn rp(jNJm$)"N"N$)"ND$D#A#B $)") NJfr`rҩ$)NґN&&GLOB0294GLOB0264 st.paslib0278`4 <$N/ /NX"_"NNqGLOB0278Xkfatn st.paslib0314` <4NBB$0N@/*Nuo"$)N@/*Nu$N@/*Nu$) N@/*Nu$<*N@/*Nu$) N@/*Nu$)N@/*NuN@/*Nu#A vf`") N@/*NuNNq<0N@/*Nuo"$)N@/*Nu$N@/*Nu$) N@/*Nu$<*N@/*Nu$) N@/*Nu$)N@/*NuN@/*Nu#A vf`") N@/*NuNNq<G0" `2G@" `&GX" `Gt" `G" `G" `G" `G" `G" `G" `G" `G" `G4" `GD" `GP" `G`" `~G" `rG" `fG" `ZG" `NG" `BG" `6G(" `*GL" `Gp" `G" `G" `G" `G" `"tmvcn6{Nvj^RF:." znbVJ>2&#A $v0(#CR"p(jN#A#ir#An $) ԁv0(ҩrҩ`")NNq OK (no error)ErrorDrive not readyUnknown command CRC error Bad request Seek error Unknown mediaSector not found Out of paper Write fault Read faultWrite on write-protected mediaMedia change detectedUnknown deviceBad sectors on formatInsert other disk (request)Invalid function numberFile not foundPath not foundHandles pool exhausted Access deniedInvalid handleInsufficient memoryInvalid memory block addressInvalid drive specification No more files Range errorInternal errorInvalid executable file formatMemory block growth failure"Attempt to access an unopened file RESET failureREWRITE failure!Attempt to CLOSE an unopened file Attempt to do I/O on an O/I file Attempt to read past end of file!Attempt to read incomplete numberUndefined file buffer variable!Field width parameter less than 1"Attempt to overfill dynamic stringFile given to POINT not RESETNot an I/O errorggGLOB0359GLOB0267 st.tosfpa8`H09Pascal 13-Sep-83 Pas[DFLOAT &BtJg*]lDvUx QCx飂JgH" N[BDFLOAT&BtJg*]lDvUx QCx飂JgH" N[Dfix &ALJgB]&x3JlD oSQ"JgDNN@"<`[FPADD &jNN[FPMUL &jN N[FPNEG &jN N[FPDIV &jN N[FPSUB &jN N[FPCMP Jmg &jN \HHN&jN ]HHN&jN VHHN 0x+,(-.`/D0|0GLOB0304GLOB0252GLOB0302GLOB0253GLOB0303GLOB0300GLOB0251GLOB0301GLOB0119GLOB0299DDDDDDDDst.paslib0264*`~G <DNB xlF#DB4B8BBB$B8/ N"_%j<PJo"p (jN%Alrp IN%AJg&r#AtnҪBrҩ`D")#AJfv$*p (j8N")#A$#p(r#AnLҩ$*l԰#B"B")B")t ")S&)8 rҩ`G$ ")p (j@N#A Jmtԁԩ&*lְ(#CҪJf"!")t `Z"*ҩ "0p$(jN$)!(")Jf $*ԩ &*(r$0(p$(jNN")t ")!%iG$ ")p (j@N#A Jmtԁԩ&*lְ(#CҪJf"!")t`Z"*ҩ "0p$(jN$)!(")Jf $*ԩ &*(r $0(p$(jNN")t")!%iNinputoutput <0Np(jtN#AJftrp(jN")!4%i4rҩNNq <(Np(jN"p(jNNNq <(N`p""*%p"JgTt0văJfDt0xĄzf"0 (jNp(jN`""0p(jNp(jNJg`"4"*4%p4"p(jxNJ4fp(jNN <xNr҉"tԉ#Br#ALtnґBrҩL`"$)pX(jN#AD$v0( x0t "N$)Dv0( x0҃S#AH#ALr#APLnBt Nt0҂&)D8 t ")PNr0ԁ&)D8 ")Dp`(jlNrҩP`N <0NJntrp(jNrdlftԑ"p(jtN#AJftrp(jN")!4%i4#Qr#A nҩBrҩ `rҩNJ8f@rep(jtN%A8$!4(%j84r#AtdnҪ8Brҩ`"*8ґJfp"p(jtN#A$!4(%i4R"*8ґ!r#Atn&&)֑()!H")#prҩ`")B"*8ґ#p")$*8ԑ!(#Qr#A nҩBrҩ `")NNq <INTERNAL RUN-TIME ERROR %N CODE %N PLEASE TELL PNC 0272 428781* Enter to exit ((  D3 $NGLOB0264 GLOB0307GLOB02680GLOB0267,GLOB0296GLOB0272@GLOB02710/.NPJop///.-@aO /<*//.-@aO /./-@NP".///aO -@9 Gg  .". N^NuNV/.aX/./@NX/aX///NP//<;S/-@aO //.NP/[/NPN^NuNVB/.NPJn p/NX .r~".?/թ/>$dZEK]=tvx4od HA?G~!ZްG@D|ĕ#+z@3Ώ~?Ge+?0+\a >RoX?|po??@?o8 ?qqBQ??{&DV(@0bJ PAՀKg@s&~ w+\a ?0@kU?9m ?ڵ5? 2?1^>@I:}"?"?9"dkfpwr10 kfcoskfexpkfsqrtkfrac zkflogkfcoshkfsinhkftanhBkflnkpi kfatnkfasnkfacnLkftanlkfsin_kfcmp_kf2ir_kruner_kfdiv_kf2i_kfmul_kfsgn_kfsub_kfadd_ki2f_kfnegst.tosdmath+` zCNV n  n "n !i Jf !y N^Nu n Jg p/NX n r"? HyHy/Hn-@aJOp-@ nBHn/.HnNO /A//NO r//HnaRO R`.gHyA//NO ./Hn/.aO N^NuNVB/. HnNPHyHnNPJoA/Hy/NO p-@HyHnNPJoHy HnHnNO HyA//NO HyA//NO A/Hn/NO HyHnHnNO HnHnHnNO R .r mA//HnNO HnHyHnNO A/Hy$/NO HnA//NO A/Hy,/NO HnA//NO A/Hy4/NO HnA//NO HnHy>$dZEK]=tvx4od HA?G~!ZްG@D|ĕ#+z@3Ώ~?Ge+?0+\a >RoX?|po??@?o8 ?qqBQ??{&DV(@0bJ PAՀKg@s&~ w+\a ?0@kU?9m ?ڵ5dlt,4<dkdpwr10kdcos kdexp kdsqrtkdfrackdlogkdcoshJkdsinhkdtanhkdln kdatn,kdasnfkdacnkdtan&kdsin_kdcmp_kd2ir_kruner_kdabs_kddiv_kd2i_kdmul_kdsgn_kdsub_kdadd_kdneg_ki2d|||||||||st.tosfp`NuH?A`H?*,(<̄gʄf `FVV„JgDJgD.g,vnAD* mJm~`N.<D`D~ӇЁgNm~`.<Dr&<(<mڄсmڄ` l`JoJLNup` l <D`H?t&V.V(<Ƅg΄gF„g$<ރ68H@HA:BCHCЁH@r2B@ہ0H@Ѓ"< mRvу mRvށkgJLNup` l <D`H>&(*$<ȂgƂg?F‚xtm؄ЀQ` Ёn؄ЀQ m`tق mJo JL|Nup`6<` l6< <D`$fpNuH ag LNuH aAa$ājAg mp`p`pLNuH aJLNuk fp`p`pNuH0Jg$]lDvUr㣀JgL Nur`rH8$&gDx Cm g Cn4`DC CnvgуJg JlDk LNup`fD`"<H (zDgDl6DDz€f Dm$p`" Dm <`"F€g "$L,vFg*F3lTDFx F l*` z6C Ām F5m,pr`* F5m <`$FĀf&FƁgCa…L|Nu?p`~__kdfix__kdcmp_kruner__kd2urv__kd2ir~__kdtst__kdint__kddiv__kd2iz__kdmulZ__kdsgn"__kdsub__ki2d<__kf2d__kdadd__kdneg__kd2f$st.tosfpsup`X,LNiNuLNhd//<`NuLNiNuLNivNuLNJNu /N /N /Nu /N /N /N /NiNu /NiNu/<N//<NX Nu oH/<NX /Nu /N oH Nu oNiNu oNiNu oNiNu oN oH Nu oN oH Nu /N oH Nu oNiBNuLN` LNi6 oH NuLNi oH NuLNh d oH/<NX /Nu oH Nu o"o!i" Nu o"oNJNu oN"oH Nu oNNu_kffix_kdfixN__kffix__kdfix_kfcmpT_kdcmp$__kfcmp__kdcmp__kfabs_kf2ir_kd2ur_kd2ir*__kf2ir__kd2ur__kd2ir_kruner_kfabsx_kdabs _kfint_kdint8__kfint__kdint_kfdiv_kddiv__kfdiv__kddiv__kf2i__kd2i_kf2i_kd2i_kfmul_kdmul__kfmul__kdmul_kfsgnn_kdsgnL__kfsgn__kdsgn_kfsubD_kdsub__kfsub__kdsub__ki2d__kf2d_kfadd2_kdadd__kfadd__kdadd_ki2f_kd2fz__kfneg__ki2f__kdneg__kd2f_kfnegd_ki2d_kf2dd_kdneg6tD4$d|||Tlt\L| |<,st.tosbios `XH C# O0/@11g"HS@4XBB$0 g/`?S@j?(NM.yLNubiosst.tosxbiosz`XPH C# O0/@BA11g"HS@4XBB$0 g/`?S@j?(NN.yLNu xbiosst.tosgemdos:`XH C# O0/@11g"HS@4XBB$0 g/`?S@j?(NA.yLNugemdosst.toskruner`0Lf "/(j p NHf Nuenvsave_kruner`6$` J*_G JgG0 gS'[Q`J9GN7|GNNqIpd"gI",l `"-ҭV$A$"RҊ"A"f$ (R!8mgR&!8"RNk %|g(rN"<p (jNFreevecJg&A"#fRN"<p (jNaptovec(A" W&C8H#L#p#pNgetbyteԁB0(Nputbyteԁ(Nget2bytԁB20(Nput2bytԁ1(Ngbytes (ABSfNpbytes (A(SfNlevel ")Nlongjum"A(iN(creatco"p(jtNJg`$ԩ (ABl&*0!!8!8!8 !!%@0"A"p (jhN(ip N`2<p (jNNdeletco Jf&*0$&08n&$0(gȰf!8"p (jxNNcallco &J8f(*0!8%A0"!H "p8 Nresumco(*0g"&J8fjJHmb!H8BH`"Ncowait (*0&0Ho:%C0BH!H "p8 NGEMDOS GHӂGB0@33gHS@4RBB$1 g/`?S@j?NA"%A(GLӂNBIOS GHӂG40@33gHS@4RBB$1 g/`?S@j?NM`XBIOS GHӂG40@33gHS@4RBB$1 g/`?S@j?NN`  dH^_,@ Xp Lxd q <@N#j `G" `G" `G" `G" `G" `G" `G" `vG" `jG" `^G" `RG$" `FG8" `:GH" `.GX" `"Gx" `G" ` G" `G" `G" `G" `G" `"t lVvl&xgzg|g~g`gtg vgx gz g`g l(t gvTgxbg g `tg$ g& g( g* g, g.`:#AG,$ %BJfp I8N%i NrTfG" p (j$N`RG " p (j$N&)$")p (j(Nrdo$)G0" p (j(N l p I8N%i r p (jNNNqCode %N Bus error Address errorIllegal instructionDivide by zeroCHK instructionTRAPV instructionPrivilege violationTrace exceptionLine 1010 emulatorLine 1111 emulatorUnexpected TRAPStack overflowUndefined global %$%N calledInvalid input streamInvalid output streamFailed to initialiseCoroutine failure Heap corruptIllegal FREEVEC Disk Full FATAL ERROR: Stack overflow FATAL ERROR:  @ %X6 <8N$ #B&(08#D#D&*08#EG" p(j$N`")W#A $)G" p(j(N")"0pINr:p(jNr#Atn,ҩ l ")ҩ"0p INrҩ`p(jLN#i")$0#B")0fdG" p(j$NNNq Backtrace of stack %X6  End of backtrace <$NU#A o $ 䊲mrNr‘JgrN")t0vgrNr#Atn:&)ցx08v n()؁z0HxorNrҩ`rNNq <,NpIdNJg"U$G" p(j(N`l GLm, GLn""GL$G" p(j(N`8 o B@lt "p(jN`$G" p(j(NN %T7 glob%I3 #X%X8 <,N"*$" #p(&)n"pIlNNrґ$*!( rҪґt0"N <8N$*&(*#p( #p8#pH #pXJ lp (iN`@")n"*p INBrҪҩrҩ$*!( NNq <0N&x08#D#D r#A n $ԁv0(ҩSrҩ`")ҩt")N <NtanvznxA؁"`"NNq <8N#j`Lrҩ#A $pI NJg&rg$)劲(f%|(rN")#pJfB(rN <4Np(j,N#A")p(j,N$)"N <DN&x08*|0X#D#F l`")#A$v0(#Cr#An<$ԁv0($)ԁx0($"p((j0N#AJgNrҩ`") frN")fr`rNNq <(NBv0#C x%D(`JR o")$<B(`4")ҩ"ҩt0#B J f") ")NNq <(Nr*p(j8N$!(r,p(j8N$!("NNq <hNtԉ#BG4& #CG\( #Dzځ#E`V <0N#Dr#An8t ")Nr0ԁ&֩8t ")N#AStԩ"`N")pD(jXN"t "v-"")xȰ#D *<ʰ#E$,<̰~ #F(x&) $"pDI8Nr#A8tn>&)$S#i<"Nҩ8$)<ԁr0(tԩ8&ւ8rҩ8`"<ҩ(x&t "pDI8N")t")v:")")xȰ#D,*<ʰ#E0,<̰~ #F4x&$")pDI8Nx&)0t")pDI8N"),x&t")pDI8N")t0#B8r#A<8n$$)ԁv0(t ԑԁ(rҩ<`"NNq$JANFEBMARAPRMAYJUNJULAUGSEPOCTNOVDEC <XNtԉ#B$")pp(j8NtfF#B")N <@Ntԁ#B&#p8(&<$)r?p(j8N#A JnrN"! rN <4N$#p( vց$&)p(jNtfF"NNq <,N$rp(j8NtfF"NNq <4Ntԁ#B&x}8")$r p(j8Nr pIN")t0#Bvfx0zfrNrҩ$)ԁr (tԩ&!8rN <,N$rp(j8NtfF"NNq <8N&x08#D#D r#A n2$)ԁv0("p (j,N$)S&ւ8rҩ`")#A t(n&ցx8rҩ `N <$Nr p (jNNNq <0Nvtp(jNN <N"*N <0N&(<Ȱ8#Dt"N#A #ir#An ґ$)ԩ&0(rҩ`rҩ tNS#Atԩ"#An$)ԁv(rҩ`") N <4Nvp(jNNNq <HN#B (BH"t0#Br#An$ԁv0(#Ct/fpx؁*ڄx0X"p,(j,N#A tAf&) x8!8rK f$) v(!(rS f$) v(!(`r,fR $) B(rҩ`NR ")$) #Br#A$)ԩ #B`&p,(jN#Atgv gx;gzfrx%A(rN")S#Ar#A nJҩ#p$J$m.r$m$tĩ$Jf$)ԩ B(``vrҩ `p((jN") N$) "p((j@N#AJmzҩtn*")ҩvm")ҩx!`$)") p((jp$(jN#Ap$(j,NtEfr#A")p$(j,NtNfr #A` r;glt gbv=gXR") lrN"ҩ" p$(jN#Argt g vf.p$(jNJgrNJfr=fp$(jNrNrNrNNq <,NBBBp(jN#At0n v9oT`,p(jNr%A(rN`r#Ap(jN#A`&")t gv gx gz+g|-g`` $r Nҩt0"p(jN#Ar0n t9lJgDp(jNB("N <@N(JHl%|(rN"()&)$0r?p(j8N#A Jm`rNNq <4N&*x8g"<p(jN"*G$ f2&()$"*&p(jN#AJl`")NrN <Nv ։#Cx8؉#D4pl(j4NJf%|(rN$")plIN$)")4plINt")plINJg%|(rN")pl(jlN")$)4(&trVpl(j8NtfF"NNq <0N$*#p(v#CB((0(JlDzg"<p(jNJfrNJg"*p(iN#Arf$*B( $*B(Nrҩ$*!( rҪҩt0"N <HN(*#pH #pX|g~g p%@(rNrf^$&#p( #p8f.#i xfr`")$)"$) #B"B "t!`"p$I N"B ()&) $)rBp$(j8N#AJlr`")NNq <(NJg&$&0(JlDxg"<p(jN%QrN <(NJg&$&0(JlDxg"<p(jN%QrN <4N*|0X#Fr#A nto"`")$(")lrN") ҩ$)ԁr0(f") ҩRNro($) ԩ&)ւt08v֩(؃Hrҩ`fNNq <0N$v0(#C%jBG" p(jN%AG" p(jN%AJgJf"<p(jNrҪ#A#i r#A n$$ԁv0(S$)ԁ(rҩ`")ҩt "*B rҩ&*!8NNqCON:CON: <,Nr p(j8NJfr`.rp(j8NW#AtnvƑ"`rNNq <$N&x08"#AJm $ԁv0(ҩ!rҩ`N <N"*" JntJfF"N"S$*!( rNNq <(Ntgv f r p(jN"p(jNN <@N(JHl%|(rN"()&)$0r@p(j8N#A Jm`rNNq <lND#Av։#CB Jl S#Qt ")ND")ҩ !t ")N#AR Jf#i@tԩ "#AD@nr pT(jNrҩD`Jl r-pL(jN") S#A@Jm ҩt0԰"pP(jNrҩ@`N <xNzډ#E0,~0h#G4r#A84n^$ԁv0(#C (!,#!%"-#7#\8#b#E$J$G&pF&H'I'4D'|:'b. ".. NRSC PRG R!NRSC RSC d!tg`NNVzNhNNU4N5N%NpNMNiN4N(N2@NtNrN3N4N:NQN_NrNu4N*N pN N8NNU|N.HN3NmN]NsN)NhNsnNdNrdN5Nv(NrN 0. Kh ?.?.NX`4* H|gRn`"*H|g *H|fTn`Rn0.Rn0. K0=@0.n eB?.?.?<?<N'P @g`B?<NO\Bn0<=@0. =@`0. K0( |g0. K ( $@0. Kh *H|g*H|fHn?.?.NP*H|fAf `Al /HnNhRPHn?<ANa\JgB?./ HnNE0 BBgNN\Hn?< /.N< B?<NN\``:0< *H|f2<D`2<NA5@$*H|f0<`0<@Hn?.?.NP|g`HlrHnNgP``|g`tHn?<:N`\Jg>BBgNN&\?./ HnNDb Hn?</.N<4 B?<NM\`=||0. Kh``|g`HlxHnNgP`L`|g`Hl~HnNfP`2`|g`HlHnNfP``|g`HlHnNfPHn?<AN_\Jg>?./ HnNC BBgNM<\Hn?< /.N;\ B?<NM\`=||0. Kh0.Rn?.?.NX0. K0=@0.n e60.gN 0.AA-H`&*H|l n / N\X`A-H n $@Jf?<HnHn0,?0.A/N&@BlT9|Z9|X/ ?.N\/N\0XBBgNL\L N^NuNVHn?. ?.NP=@0. g: nf=|`( nf=|` ng ng0<`` ng nf0<`0.AD/HnNdPBgHn?<=N]P=@ @l\?. ?.NT/HnNA Hn?<BgNMJPBBgNK.\Hn?< /.N9N B?<NK\0<`0.N^NuNV n m n f n PBP0<``( n (T @  @H|Am n P00<`T?</.HnN@ Hn?<BgNLP0<n0<nHn?</.N8 0<N^NuNV0.g< nf=|`( nf=|` ng ng0<``r/.HnNcP/. HnNcDP0.AD/HnNc,PBgBgHn?<CN\Z =@ nfD/.HnNcbP/. HnNbPHlHnNbPBgBgHn?<CN\ =@`R nfD/.HnNcP/. HnNbPHlHnNbPBgBgHn?<CN[ =@`=| no 0.|f no0.|gHn?<BgNKP nh nh /. n/(Nb|PHl n (T @/NbfPBBgNH\HnB?<Hz/.N n (T @//. Nb,PB?<NHp\0.f0<`@`80.g nl nmHn?<BgNJFP nh nh /. n/(NaP/. n (T @/NaPBBgNG\HnB?<Hz/.NB?<NG\ n (T @//. NabP0.f0<`/.HnNaFP/. HnN`P0.AD/HnN`PBgHn?<NVX?.?<>NVX0.RnJ@f*H|gP*H|gB0. Kh 0.Rn?.?.NX0. K0=@0.n eBBgNC\Bn`@0.A Pf*0.A//.N]0PJ@f0.R@?NTRn neL N^NuNVH0 n hBP n m n f0<`, n (< @&PH| n ?<?<?</.N0 0<`A$HBn`H| n``Rn ne n (< @ P&@H| o&.Bn`H| n``Rn neB n/HnN\hPHnHnN[PHnNXJ@g?<?<?</.N0* 0<`@Hn?<9NT\Jg?<?<?</.N/ 0<` n h00<L N^NuNVHnHnHnHnNB:HnHnHnHnHnHn?<?</.N& Hn?.?.NPJ@f?<?<NX`?</.HnN8 0.n0.nHn?<BgNCP n (< @ PB n (< @ PB(HnHnHn?<Hz/.N0.gNBn`@0.A Pf*Hn0.A/NZPJ@f0.R@?NTRn nmN^NuNV0.fBgNT-@`?. /.N!\=@ ?. /.N!\ @n n n0<`0.  n ( -@ n(H|g0<` n( n  n |: n |\ n B(0<`` no0.A Pf0.A//. NYP n o`?.NT-@0.  n ( @(H|f20.  n ( @A //. NYPHl/. NXP0<``0<N^NuNV/ ?<NNT&@0.?NNT&7|Bk7n7n Bk &_N^NuNV/ &n0+g0+g BgBg/ NHP/NO@X/ NO8X&_N^NuNV?. NNzT-@?. /./.N) .N^NuNV/ &n km=k0. S7P`t0+ke^2+k 7A0<?/NP\&0<=@0+ =@`(0.|g /?.N\0.@=@0.Rn0.f0+Rk=@0.&_N^NuNVH0&n$nBn n l7|Bk=| W|=@-S/ NX=@0.g .g $@-@?<0. JA/ 2.Ё-@/N( 0. S0(|g0. S ( @ `0. S ( -@ nh n0(||g`?<"/.N2\ n!@ -@ . @ (g. . @/(NWXR@? . @/(N\". A!@ . @0(". A2(|A? . @/N\". A . @0(". A2(|A? . @/(N\". A!@``|g|g| g`&/.NVfXR@?/.NF\ n!@ `L`|g`L?</.N"\ n!@ -@ . @0(". A? . @/N\". A ``|g|g|g |g`?</.N\ n!@ -@ . @?( . @/N\". A . @ (g$ . @?( . @/(Nh\". A!@ . @ (g. . @/(NUTXR@? . @/(N.\". A!@`2`|g`&?</.N \ n!@ ` . n!@ `` n1n n1n0< n1@ n1@ n m?.?. /N7DP` n00. J0(=@ @oh`\Bg?./ 0. J?(0. J?(?./ N,0.g .g $@-@0. J=P0.nfBn0.g8=k `*0.|g?.?.NX0.Rn0.H=@0.f0.L N^NuNVH0&n0.gT0+ gN0.  ShBn=k `*0.|g?. ?.NX0.H=@0.Rn0.f0.  S hm*`Bg?./ NzP0.  S0(=@ @l0.  S ( $@0.  S0(|g @$P0.  S/( NIX0.  S0(||g`* @/(NHX @/NHX @/(NHX`|g|g| g|g`/ NHX``|g|g|g|g`H @/NHX @ (g @/(NHpX @ (g @/(NHXX/ NHPX``|g` @/NH8X/ NH0X?. /N4\0.  S07n L N^NuNV/ &n0<6. `k &_N^NuNV/ &n2<6. aFA0+ A7@ &_N^NuNV/ &n &_N^NuNV/ &n0+ =@0<=@`*0.|g?. ?.NX0.H=@0.Rn0.f&_N^NuNVH0&n0.  SA$Hj?. / N\0.j0.jj?. / Nb\L N^NuNVH0&n$n/ NX=@?<0. RA/0. SA -@/N! 0< n1@ n1@?.?. /N2P` 0. R?(/ ?./ Nr 0. R hn?./N2\0. R05n0.L N^NuNV/ &n-k+H|g +H|f /+6NX` /+6NEX .&_N^NuNV/ BgNT-@-@0. n ( &@=k =|`0.|gr0.A0|g`?<?.NnX`L`|g`?<?.N>X`2`|g`?<?.NRX``|g`?<?.N4XRn0.H=@ft`/+NX'@ +f +Dg /+DNDX0. n1|?<?./,NP&_N^NuNV/ &n n P0 n m n f0<`l +l @  @H|AlT?</ HnN* 0<n0<nHn?<BgN6RPHn?</.N"` 0<`0<&_N^NuNVHn?< BgN6PHnHnHnHnN4HnHnHnHnHnHn?<?</.N BgNT-@ no?<?<N X``, no$0. n ( @(H|f`Hn?< BgN5rP n (l @ PB n (l @1| HnB?<Hz~/.N nf`6?<JNB~T-@ n| nA"  n nBD n1|H nB(?< n (l @/ nA/NL nB nA  n!@ n!@ n!@?<" n/(T nA"/NP nA  n!@* n0(: n1@> n1|H@ n0(@ nh8H n1@4 nBh HnHn?</.N/V0.n?0.n?/.NPN^NuNVBgNT-@0. n ( -@BgHnHn n0(H? n/(N-@?./.HnN' B n (Dg n (D` nA /BHn?.?.?</.N=@ nlBg?<N LX`ZN0.A0Hmb?.N\Hmn?.N\ .2.Ah 2<6.a n0( A1@ N^NuNVH0.  n ( @&PB0<0HAn.H|9n$ / < /N> HHЃ0.`@?<?<?. /.N 9n R 2.  n"( A9@P0<`lR Kf~ 2.¼o@?<?<?. /.N 9n R 2.  n"( A9@P0<` .g  n00<LN^NuNV n e./. 0. ?N\0. H@=@0<0n n "R AN^NuNV/ &n + -@ kg kg kg kf . @-PHn?. Nh\ nB&_N^NuNVH>.|μ&<0.  n=h`B0. nA&H + "+ ¼f"<`"<'@ =S0.n fLN^NuNV/ 0.  n=h`60. nA&H + g + &<`=S0.n f0<&_N^NuNV/ 0. nA&H + f0.  n=h`*0. nA&H + '@ =S0.n f0. nA&H + '@ ?. /.HnN# 0.P@?0.P@?0.Y@?0.Y@??<Bg/.N* + &<&_N^NuNVH0&n0<=@0.  n0(=@`X0. nA$H0.A0g0+ `0+2.A0Pgj `j 0.Rn0=@ ne0. nA$H0+|g + @A/ * @/NFP` * @ PB=R0+H?0. nA/N\L N^NuNVH0&n0.  n=h`0. n=P0. n hg0. n ( @-P ng`0+|g + @A//.NEPJ@g07@06T A4mB?<N(\HlvHlbHl,?<?,NFlB?<N'\?<N)VTLN^NuNVHn?. ?<N)P?.?.?.?.?. /.HnN@Hn?.N%\`N^NuNV-l(A)H(BnBnBBHn nNX0.g0.fHnHnHnHnHnHn .? .?Hn?.?.?.?.?.?.?.?.?.?.?.?.?.?.N" <=@0.|g?. nNT0.|g Hn?.?.?.?. nN 0.|g?.Hn?.?. nN 0.|g?.Hn?.?. nN 0.|gz n g0 .gHn nNX`?<?<?<N8Z\`B .g?.?. nNX`?<?<?<N8(\?<?./,N"P0.| gHn nNX`N)n(0.`N^NuNV l(1|L l(1nNN^NuNV .g l(!n l(h$` l(h$N^NuNV .g8 l(!n l(h$ l(1n( l(1n * l(1n&` l(h$N^NuNV .g8 l(h$ l(1n, l(!n /. l(A/.N fXJ@f.Hl?<N\ @gBgNT?<NnT`HlHlHlHlN9@Bnx`0.xA0Rnx n xe=|HnzHlHnN: 0,fBHlFNDPAz H0R@9@0.|R@9@9n9nBln0.H=@g Rln`At T/HntAb T/Hlb?<BgNV .t/0,nH/N* X)@^Bll9lz9l|0,H9@~Bl9ln .g. n g$Hl?. BgN$P?</,N\`BBgNjTBBgN\N^NuNV0,8f 0,:gNBBgN\0,g ?,N9TNp?.?<LN/,XN^NuNVHl`HnN6:P/.HnN5P . gHllHnN5P/. HnN5PHlnHnN5PHn?<Nj\?<NPTN^NuNV/ B?<N\=n=n`0.SnJ@f`0. nA&HHnHn?./.N Bn`>2.n0.Rn n0A02.n0.Rn n0A00.2. AAe/.?. ?,N8PBn`>2.n0.Rn n0A02.n0.Rn n0A00.2. AAe=S nnB?<N\&_N^NuNVH0&n n=P n=P=|=|Bn0.  K hf0.  K0(|g0.  K ( @ `0.  K ( -@ n=h n=h n0( nh=@=n=n n0( nh=@ n0( nh=@=n=n0. nh =@ n=h=n=n=n=n=n=n=n=| `X0<=@=@=@0.  K=h0.  K=h=n=nBn0<=@=@=|0<=@=@=|=|0<=@0. =@`pHnHn?./ Nr0.nl=n0.nl=n0.no=n0.no=n0. K=P0.RnҰne n f?.?.N:X`0.n n f?.?.NX`0.nHnHnHnHn?<BgN60.n=@0.nn=@0.n=@0.nn=@?<NT?<?,N2X?<?,N2X?<?,N3HX?N X9@|g0<`0<N^NuNVHl/.NPJ@g`Hl/.NPJ@gNHl/.NPJ@g n(g nf. n-P n(f HnNX` HnN>XA-H/./. 0.A PNPLN^/W DNuN^NuNVH nB fB`м8 LN^NuNVH n$fBCB`nD6< f႖|NzN^NuNVH0&n$n Bn-J @A)X)XA BEG>O|g|JGn|m` REHl/ NRPO`SEHl/ NPO`&0+H@JGgDG0<0dR@0.BAQ,>QQֆG|0QB`Rn0.g$nB`0R 2.HmB`d .6.HЃR$@ nH|0fRZ"H|9o R"` nH|0f$n R&@g`SE .6.HЃ @B n0L N^NuNVH0&n BnH|bf=| RH|rgH|wgH|ag <`R ,$@ f*A$H`0* |f` A"Ҽm A"Ҽm <`BBj Bn+H|+f =|j H|wf?./.N.\>j `hH|afB0<n?/.N\> @f?./.N\>?<B?NPPj `0.n?/.N\>j Gf Bj <`<5G Bj <$%@-J?<B?* NP n!@ n1l L N^NuNVH$.". BnJlVnDJlRnDvd`Bbd nmDdD-@-A LN^NuNV/BnJlRnDJ lRnD 0. -@0.n0. nngD -n N^.JNuN^NuNV nl <`?.?./. ?<BNp -@ m .`?<?.B?<BNF -@?<?.B?<BN, -@ nf .Ю -@ `$ nf .Ю -@ `0.g <`b . oHn . /?.?<@N Bg?./. ?<BN ]|9@|g <` `Bl| . N^NuNVH0><2.|SA¼0?NVT&@f <` $@5G \/NX ,~L N^NuNVH0><2.\ASA¼A ,~$@ fA $@)@~)@Bl&R0+Ge*0+Gf$`0k0+7G)J~ \`, ~f?NT&@ f <` $@ &@`L N^NuNVH0 .]&@$l~` m n l`$R o l 2+Ёf R0(k R&`& 2*Ёf 0+j$`$)J~L N^NuNV/.?<HN\N^NuNV/.?<IN\N^NuNVBn`60.AL0f"0.AL00.AN0 ` Rn nLmN^NuNVBn`&0.AL0nf0.ALBPRn nLmN^NuNV?>.=|0AL"HPgXHf0(>N^NuNVHl/.NPJ@f =|`Hl/.NPJ@f =|`Hl/.NPJ@f=|`f0. |g0/.N:XJ@g0<``Bg/.?<NX0. |?/.?<=NlP=@9@| @l0<`0. | ??.N~X0.N^Nu)IH)JD)_@NM"lH$lD/,@Nu)IH)JD)_@NN"lH$lD/,@Nu)IH)JD)_@NA"lH$lD/,@NuNVH&n Bn0.|dg`>< `.`|ug`>< ``|og`><``|xg`>< l* ndf SR- .D-@`0. f Gf .`& Gf .` ./0H/NX 2.RnA0 Gf .`( Gf .` ./0H/Nv X-@ .fp0.gHSn0.A P m0.A0| |A`0.A0|0 SR`LN^NuNVH&n n f=| A)X)XHlHl?<N]|@0. R@?HnHnHnN.g SR-.H|0f.f SR`J nff>.n RG0lo0,`0> Gl0<`0?HnHnHnNDBF0g" nm0RFA SRSGSn` nm SR0Sn`0. g SR.0. g nl SR0RnSn `0. Sn J@g$ Go0RFAH`0<0 SRSG``` SR0. g SR.><0. Sn J@g0RGA SR` SRE?.Hl/N: /NXHѓLN^NuNVBn n PH|0m4 n PH|9n$0. n PHC|0=@ nR`0.N^NuNVH0&n -n @$PXgVgH|%g nR`H|%f,RBn=|Bn| H|-f=|RH|0f|0R-JHnN"X=@$nH|.fR-JHnNX=@$nH|lf=|RgH-n Gdg Gog Gxg GufB0.g @ ` @0H/Hn?.?NT 0.g0<`0<H` Gcf R @ nRT` Gsf4 @-PX<.` nR nRSF0g nf`J Geg Gfg Ggf, @A)X)X/,/,Hn?.?NP` 0 nR .nl0.g$<.".A` nRSF0f`b .2.SAHЁ-@-@,.` .2SAHЁ @ nSSF0f .n nR` .R-@` nB .L N^NuNV/. HnNhP=@/.HnN8P0.N^NuNVHn /.NPN^NuNVHn /.N&PN^NuNV ng/. nRH?N\`N^NuNVH0&n$n -KfSg` .L N^NuNVH0&n$n `RRg HHAgHHCL N^NuNV n "n fN^NuNVH0&n$n >.-K0SGJ@gg` .L N^NuNVH0&n$K`Rf L N^NuNV/.?<ANb\9@|g0<``0<N^NuNV .9@ .9@"N^NuNV .9@$ .9@&N^Nu)IH)JDHl)_,Hl," <sNB"lH$lDNuNV9n 9| Bl9|9nN0,N^NuNV9n 9|Bl9|9nN0,N^NuNV9n 9|qBl9|9nN^N^NuNV9n Bl9|9|Bl9nN20,N^NuNV9n 9|Bl9|9nN0,N^NuNV9n 9n 9|lBl9|9nNN^NuNV9n 9|Bl9|9nN0,N^NuNV9n 9|jBl9|9nN0,N^NuNV9n 9|Bl9|9nNT0,N^NuNV9n 9|Bl9|9nN(0,N^NuNV9n 9|Bl9|9nN0,N^NuNV9n 9|hBl9|9nN0,N^NuNV)n0)n8 .мZ)@<9|dBl9|  n 9PN n 0A)H0A)H8A)H0. n ( @(H|f?. NT?<?. /,NzP`?.?.?. /,N `?.?.?. /,N ```=n n o0.  n0( |f&_N^NuNV/,NhX-@ n n`0.  n ( -@ n(H|g`?<?<NX`R`|g`6HlA R/NP n(A H/. HnNP``|g` ?. NTN^NuNV?.NT-@ nl0<`@`=n?./.N,\=@ @n?.?.?.?. ?. ?.N N^NuNV/ BgNT2. Ё&@0.g + -@ nWJg( n(H|WJf n(H|WJJ|??</,NP nWJg( n(H|WJf n(H|WJJ|??</,NP&_N^NuNV/ lW|??< /,NPHn?<BgNPHnHnHnHn?<BgNp?<?< NX)@ .м&@0< 7@"+ A1@0< "+ Ah"+ A1@?</.A/N| ?</. nA@/N| 0< n1@ n1@=l0.nkl=@BgBg/.?.?.?.0. |g|g|g|g` n&h`0`|g|g` n h&P``|g` n h&P`&k g0SGJ@f f <`0. |g|g|g|g`$+H|g+H|g <`T`P`|g|g`$+H|g+H|g <`"``|g`+H|g <` LN^NuNVH0 ,&@BnB?<N*\Hn?< BgNP?. ?.NT-@/HnN| Bg?. ?.N\=@ @lBBgN*\ <`/,/,?.?<?N -@ lFHn?<BgNPBBgN*\Hn?</.N ?.?<>NX <`r?.?<>NXHn?<BgNP .f(BBgN*\Hn?</.N <`"0+"Hg(BBgN*\Hn?< /.N <`?<JNT-@ nA"  n n| n1|H0.  n ( @ P/( nA/NP nA-H?< n/(T nA"/N| nBh ?<ANT n!@D n/(D?. ?.NP n/(DNXR@? n/(DN>\ n!@D nA  n!@*Hn?< BgNP ,6+HЃ-@Bn`?<NXBBgN*\Hn?</.N .`r?.?<>NX ,-@ n=P n0( n1@H` n(g n(H? n(H?/.NP$@ gH *6 @0( n(HRAAm. *6 @  n(HЁм-@ @0(|g=|`Z?<NT-@ n ( n nh . n!@ nB( ?< nA/ nA/N ` n(H? n(H?/.NP$@Jf =|`B*?< nA/A /N n(H|g` |``|g` |``|g`8*H|g(?< n/(?< nA/HlN 0.@Hl/<?,?<@N `Rl`-k 0,g.?</ ,Ь/N ,Ь&@k'n 0+||g`: .-@0,g&?<"/. ,Ь/N ,Ь-@ n/(NXR@=@0,g*?. n/( ,Ь /N , n!@0.Ѭ n0(|@ n=@0,gn?. n/( ,Ь/N , n!@?. n/ ,Ь6.ƼЃ/N ,6.ƼЃ n 'l "0.Ѭ``|g`"0,g'l .-@/N:X``|g|g| g`J/.NXR@=@0,g ?./. ,Ь /N 'l 0.Ѭ `B`|g|g|g |g`$ .$@0+| @g0+| @f0*`0<=@0,g'l ?</ ,Ь/N ,Ь$@?*/ ,Ь /N , $?*/* ,Ь 6*HЃ/N , 6*HЃ%@?./* *Ь6*HЃ/N *Ь6*HЃ6.ƼЃS @B *6*HЃ%@0.jjѬ 0+=@ @oZ0,g7l`$?./.N\=@0. n=P0.n f0,g7n0. l00,g8A/NXA/NX0+|`A/NXA/NX``|g`4 n0(@ nh@7@ n0( nh @7@`` |g` n0( nh n2( nhAo n0( nh@7@` n0( nh@7@ n0( nh n2( nh Ao n0( nh@7@` n0( nh @7@```60.L N^NuNVH0&n`0,gv lolB,B,?<A /HlN +H|g`4| ,", A6(HÐ/ </N X@``|g`4| ,", A6(HÐ/ </N X@``|g`2| , ", A6( HÐ/ </N X@`r`|g`2| , ", A6( HÐ/ </N X@`8`|g`.| ,", A6(HÐ/ </N X@Hl/<?,?<@N BlBl`Rl+H|g|g`vBl0,g* ,Ь$@$l|B, ,Ь)@ +6 @ P?( +6 @/Nl\0,g l0 ,Ь @h X``|g|g`Z/+6NXR@=@0,g. ,Ь -@ n ?./+6 ,Ь /N 0.Ѭ X `.`|g`$0,g ,Ь @  +6/NHn?<BgNP nA  n!@/.?</.N 0<` n-h .g . kf~B BBBBB BBB9|BlBl/+N*X , R)@ ,/ </N X5@ ,/ </N X5@ ,/ </N X5@ ,/ <"/N X5@ ,/ </N X5@ , / </N X5@ ,/ </N X5@ 4 , ЬЬ ЬЬЬЬЬЬм$ o,Hn?<BgNP/.?</.N 0<`65|$ 0* HЬ 5@0*HЬ5@ 0* HЬ 5@0*HЬ5@0*HЬ5@0*HЬ5@0*HЬ5@0*HЬ5@0*HЬ5@")|$ 0*H)@0* H)@ 0*H)@0*H)@0*H)@0*H)@0*H)@0*H)@9|9l9kHB?<N*\?.Bg?<A//. N=@ nl0<` ?.?<?<A//. N9@/+NX?,?<>NX/,0*"H/?.?<@N lB?.?<>NXBBgN*\Hn?<BgNP/.?</.ND 0<`j?.?<>NX/ /. N-PJ@f4BBgN*\Hn?<BgNP/.?</.ND 0<`/. NXBBgN*\0<L N^NuNV/ &n n! W| n P0f0<`, +< @ Pg0<`?<?<?</ ND 0<&_N^NuNVH0&nBnBnBnBn-k`d n(H|fRn`D n(H|fRn`. n(H|fRn` n(H|fRn`` n-h .fB BBBBB BBB9|BlBl/+NXHn?<BgNP$nA/ *< @/NP ,/ </N X?Hl */N ,/ <"/N X?Hl */N ,/ </N X?Hl *D/N , ?Hl */N ?.Hl *t/N ,?Hl */N ,Ь Ь?Hl *d/N ,/ </N X?Hl */N , ЬЬЬЬЬ ЬЬЬм$?Hl */N 0.n?Hl */N ?.Hl */N 0+H|gj`j0+H|gj`j0+H|gj`j0+H|gj `j Hn/. ?<Hz/ N0.f`BkH0*|gkH0*|gkH0*|gkH0* |gkHA/ *< @/NPJ@g4 +Dg /+DNXBD *< @/A/NP?.BgNXL N^NuNVH0 n&h`A //. NPJ@f 0<``+H|g +H|fl/+6NhX$@Bn`R0. J0(|g,0. J ( @A//. NPJ@f0<`&?./ N*\=@ nl&k fT0<L N^NuNV0. n ( @  @H|Al ?<?<?./.ND 0<`0. n ( @/ n A /NPJ@gh0. n ( @//.NPJ@g?<?<?./.ND 0<`*0. n ( @/ n A /NP0<N^NuNV/ &n n l=| n h0 n f0<`?< n/ n/(/ NJ@f0<`0+|g0<`0<=@0. n h(|Agp0. n h@Hn?< BgNP?< nf0<`0< n/( n h/N n hA  n h!@0<&_N^NuNVH0&n Hn?< BgNP/+6NhX$@+H|W|=@0.f=|`0. J0(|g<0. J0(| @g"0. J0(| @gBn`<` 0. J0(| @f=|?./ N*\=@ nlv$n0.gj`j0.gj:`j:+H|g/+6NhX/NXJ@gj`j+H|f0<`0<?/ Nd\A / n (l @/NPHn/ /./.?<Hzx/ N0.L N^NuNV/ &nn 0. n h0 @g n l0<` n f n h0`(?. / N,\ @ f?. ?< / NP0<``B?<?</ N& J@gB?<?</ N& J@f0<`*?< n/ n/(/ NJ@f0<`0<&_N^NuNVH0&n Hn?<BgNP$nA / *< @/NP +6 @?( ?< / N

k%P k +f +fA'HA'HA'H` `|g` k%P k A'H0<=@0+ =@`n0.|gR0.A Pf@BgBB0,?/+N-@/.?.N\/NX0.H=@0.Rn0.fL N^NuNV/ &n +H|g |g` nfT n^|?/./ /.N=@ nf/ NX0<` ng nW|`+H|f/./ /.?.N`/./ /.?.Np0<`f`|g`d nf< n^|?/././ N=@ n g nW|`/././ ?.N0<``|g`J nf././ /.N: =@ ng nW|`/+6N^X0<`` |g`Hn?<BgNPA / n (< @/NP n (l @0(S@=@0. n"(l A PB?./+6 n (l @/N Hn/ /./.?<Hz/.N nW|&_N^NuNVBg?<Bg/.N ```|g`=|=|`b`|g`Bn=|`L`| g`=|=|`4`| g`=|=|``| g`=|=|```HnHnHnHnNxHnHnHnHnHnHn?<?./.N 0.fBgNT-@0. n ( -@?./.N,\J@f n(H|g$ n(H|g?<?<NX`` n(H|f``<0.Ah -@ no0.A Pg?<?<NX`l?.NnT-@?./.HnN| 0.n0.n?<Hn/./.?.NJ@g/./.NP` /.NXN^NuNVA-HBn l=h`X0.Rn2. Af60. l0(|g0. l ( @A-H`?./,N*\=@ nn/.?. ?<?<N @f0<`0<N^NuNV?. BNL\J@g`BgNTN^NuNVHmNTXHzNRXN^NuNVH0&nBnBn +6-@/.NhX$@BnBn`Z0. J0(|g0.f 0.S@=@0. J0(| @f=|Rn?./ N*\=@ nl?<0.S@?NX-@Bg?*/ BgBg??</*6N\%@6 *6-@ n0( n? n/N\ n 5|:A$Hn?< BgNP?<*H|f0<`0< n/( A/N A %H?<B/. / ?.NJ@g/ /. NP0<``0.g / NX`/ NX0<L N^NuNVH0&n$n +H|g+H|g +``/+6NhX-@ Rl BR n0`0 n0(|g `& n0RP?/.N*\4 @^|f +L N^NuNVH0&n$n `(0<AHAnH|Zn H| `HRfBL N^NuNVH0&n=|BnBnBn fHl/. N$P`Hl/. N$P nlA /HnN`P+H|g`$0.Rn?HnHl/. N$``|g`"0.Rn?HnHl/. N$`|`|g`"0.Rn?HnHl/. N$`R`|g`"0.Rn?HnHl/. N$`(`|g`0.Rn?HnHl0.2.DRAAg&0.A/0.DA/NPJ@f ?.N$TRnD nDm&_N^NuNVBn`@0.A Pf*0.A//.NPJ@f0.R@?NTRn nmN^NuNV/ &n k f 0<`0,=@Bn-k`8 nH|_f0. Sn J@f0.`$` 0.nR nf0.`&_N^NuNV0.  n0(| @g 0.  n0(| @f\?.0.  n0(|g0.  n ( @ `0.  n ( /N\=@`0.=@HnHn?. /.N0.l=@0.n=n?<?,NXB?<N*\?<?,NX?<?,NXHn?<?,NxP?<?,NXB?<N*\N^NuNV?.0.  n0(|g0.  n ( @ `0.  n ( /N\=@?. /.HnN| 0.n0.n?.?.?.?.?<?. /.NnN^NuNVH00.  n0(|g0.  n ( @ `0.  n ( &@ 6.ƼЃ$@f`(`R*fB?.?. /.NPL N^NuNVH00.  n0(|g0.  n ( @ `0.  n ( &@0. kH`|9g`(0<0nn n9o 0<``l`|Ag`00<ann nzn0.| `0.=@`|ag`>0<ann nzo 0<Ann nZo 0<`d``|Fg` n oH n~n> n.g4 n:g* n\g n/g n*g n?f 0<`0<ann nzn0.| `0.=@`T`|Ng`00<ann nzn0.| `0.=@`|ng`T0<0nn n9o60<ann nzo 0<Ann nZo 0<`6``|Pg`00<ann nzn0.| `0.=@`|pg`r0<0nn n9oT0<ann nzo>0<Ann nZo( n\g n.g n:g 0<``` 6.ƼЃ$@`Rf 2+SAAm 0<`D`RS "6.Ƽ҃l0.@?.?. /.N^P0<`L N^NuNV?0.|g0.nf 0.n g nf`HnHn?./.NhX/NBg?. /.NhX/0.n?0.n??./.NN=@0.g?./.NhX/N\?.?.NX`0.g&0.g 0.Ah 2.AhgHnHn?./.NhX/N0.  KhBg?. /.NhX/0.n?0.n??./.NN=@0.g?./.NhX/NL\?.?.NXBg?. /.NzP`0.nf?< ?<NX @gHnHn?./.NhX/N?. /.?./.N =@ /.NhX&@0.n2.  K1@0.n2.  K1@?. / N\?. ?.NX&_N^NuNV?.NT-@?. ?.0.  n0(|AT PNXJ@g?. ?.N6XN^NuNV?Bg?,N$X?<?,NX0. n h0. n P_`"0. n h_0. n PB?<N*\0<L N^NuNVH0 n /(NX=@ n /NX=@B?<N*\0.2.SAAd n02.A=@ n=h n02.SAA=@ n0(nS@=@0.l=@=n0.l=@=nHlvHlvHn?<?,N n 6.ƼЃ$@ n 6.ƼЃ&@`R m n (6.ƼЃ$@ n (6.ƼЃ&@`R m0. n PB(0.nc0. n hB(Hl n0( nhU@? n02.SAA??,N2 B?<N*\L N^NuNVH0&n$n n l=| R0 n f 0<`` n f,/,/*?</ NJ@g 0<``0<`v`t?. / N,\=@ @fZ0. |S@??</ NP?</ HnN| 0.P@?0.P@?0.Y@?0.Y@??<Bg/ Nn0<L N^NuNV2H0?.NT2. Ё&@0.Ah )@ + -@0+|g . @-PHn?<BgNP n0(|??<(/.N

A:)HDA-HAB$H n-h2 n-h6=|=|`r n2H|_g<_ n2 nR`<0.Rn n2(Ad n6R6<_ nR` nR_ .2R20.Rn0. n2(Ae~ nBB n1|A  n!@ n1| n0(@|??</.N|P n/ n ( @/NP0+|=@ nf0<` nf0<` nf0<`0<?/.Nd\ n=h0.|gn nl=|` no=|0<6nZ@?/.Nd\ n0(|g0<.`0</?/.Nd\ n h f0<1`0<2?/.Nd\ n hf0<J` n hf0<I`0<H?/.Nd\Hn:/ HnB?<Hz/.N nf0<` n0(|g0<`0< n1@ n=hBn`Rn0.Rn n ( g=| n=h`Rn0.Rn n0( |g n1n0+| n2(J|g2<`, n2(b|g2<` n2(z|g2<`2<A7@?<A/.N\@@/?<L/.N\" AA2.AA/?<(/.N\" A n1@ n0(Z|g nh/ ?</.N n0(|g0<` n0(|g0<`0< n1@AB-HAB$H`H|_g nRRf nB .AB=@HnNXR@ nhg\ n (g n/(NXHnNXR@ n1@?HnN\ n!@?. ?.NT/?.NfP`Hn n/(NP0.R@ n2(Ag n (g n/(NX0.R@?HnBN\ n!@0+| @g0+| @f.0.R@ n1@ n/NX0.R@?NT n `HnB n/(NP0+| @g0+| @f00. n PB?. n ( @/ n/N ` n ( @/ n/NPJ@gf n/NX n ( @/NXR@ n1@? n ( @/N\ n ?. ?.NT/?.NPJ@W|`0<L N^NuNVH0&n$n n l=| j0 0. ||g` 0<``|g|g|g`r/,/?</ NJ@gHB?<2?</ N& J@g0B?<?</ N& J@gB?<P?<&/ N& J@f0<`0<`` |(g`?</ HnN| ]nn ]nn ?<(/ HnN| HnHn?.?.?.?.?.?.?.?.N0.n0.n0.k0.k?.?.?.?.?<Bg/ Nn0<`` |'g`?</ HnN| 0+k<=@ no0.n0.nn]nn ?<'/ HnN| HnHn?.?.?.?.?.?.?.?.N0.n0.n0.k0.k?.?.?.?.?<Bg/ Nn0<L N^NuNV/ ?.NT-@Hn?<BgNP .2. Ё-@ n0(|g n ( @ ` n ( &@0.Ah )@/.?</.N~ ?+ nA@/N\?+ nA/N\0+H? nA/N\0+ @@|??<!/.N n0(8k n1@ n0(:k n1@ n0(8kk n1@ n0(:kk n1@ n (-@ n0( n h|X n0( n h|_0+H n1@ n0( n hB n0( n hB n1k/+ n/NP n0( n PB nRh n0( n1@Hn/.B?<Hz/.N nf0<`:/.?</.N Hn?<?</.N& Hn?<?</.N& nn0.f=|?.?./ NvPHn?<?<&/.N& 0.2+HAg(0<7@/+NX0.R@?NT'@ n ( @//+NP?<!/.N\@@=@ n ( @ PH|n/?</.N\" AA7@ 0<7@7@ n0( nh87@ n0( nh:7@0+g\0+ gV kl0+D@7@Bk kl0+D@7@Bk n0( nh87@ n0( nh:7@`,0<7@7@0<7@7@ n1k n1k0+k?0+k?NX n1@0+k?0+ k?NX n1@ ng/ NdX0<&_N^NuNVH0&n0<2.  K1@2.  K1@Bn$n`THn?*?< RNPJ@g<=j0. K1n0. K0(n?.?. / N n^Jg0. J h\JJg0. J0V|`<0. J=h`\2+ J2(0. J0(A1@2+ J2(0. J0(A1@0. J=P0.kf?./ N,\ JA-H` n0 JA-H n0nf0. J0( n00. J0( J00<2. J1@2. J1@?.?N6XBg?.0A P/(6NzP0<L N^NuNVH0&n 0+ kA-H nA -H n0(|g . @-P n0(|=@` 0<`V`|g|g`b0.g0<`8?+?N6X . @$P  n /*NX/*NX/ NX nf0<`0<=@``|g |g`0.g0<` nf0<`0<=@?<NT$@ . @$ n ?<NT%@ jB?<NT%@ jB5|/NXR@5@5| 5|5| nf0<`0<5@`` |g`0.g0<`?+?N6X . @-P?<NT-@ . n =| n ( n n/NX n/(NX0< n1@ n1@ n0( n1@ n1@0< n2(|A n1@ n0( @@ n1@ n0(@ n1@/.NX`` |g`0.g0<` . @-P?<"NT-@ . n ?<NT n!@ n hB n0(@ n1@ n0( n1@ nBh nBh nBh nBh nBh n1| nBh nBh n1| n  n!@ n0( n? n/N\ n =|?+?N6X/.NX``` n0(|n n1@0<L N^NuNVHn?<BgNP?.NT-@0.  n h ?. ?.NX0.  n h ?. ?.N6X/.?. ?.Hlt?</.NN^NuH l*h o /N XL NuNVH0&nA/A /HnN6 J@f`?<?,NX?<?,NX?<?,NXBg?,NX?<?,NXHnNX?<?,NX=|=|$lN-lR0+ R@=@0<=@`0<=@0+ R@=@`.<`HnHnHnN6 J@gp  n6Hg0<`0<"6Hƒg2<`2<A=@0.g0<`0<??,NX0.AB??,NXHnNX .0.\@=@ fd0.Rn T .T0.lLe:0.\@=@0.Rn0.lJe0<L N^NuNV/ &n?+?+?+??<?<HljNn?+?+?+??<?<HljNn n=h n=h=|=|B?<N*\?<?,NX n0g0<`0<??,NXBg?,NX n0AB??,NXHnNXB?<N*\&_N^NuNVH00.|f BgNT`40,Vnb0.2,VlZAd0,Xn b0. 2,Xl\Ad0,Tn0,Rn 0.=@0. =@ ,N2,L ¼Ё2.I¼Ё$@ ,R2,L ¼Ё2.I¼Ё&@ <2.|-@0.lTR@=@0. lRR@=@ .6Hg0<`0<".6Hƒg2<`2<AlPg0,P|g .R` .FR0,P|g .S` .FS=|=|HlVHnHnN6 J@gp0,Pg0<`0<??,NXBg?,NX?<?,NX0,PAB??,NXB?<N*\HnNXB?<N*\SnSn0<=@=@?<HnHzN `BgHlVHzN L N^NuNV?<?<BgHmN HnHnHnHn?<?,^NT?Np?<HljHnN| /HnHlVN6 9nT9nR?<B n?( n?N N^NuNVH0Hn?. ?.NPl^g?<?<?<N\\` 0.`?<?<?<N\\`` |g`0. |gN nfF?<N T?. ?.HzNP?<N T?<?,^NX?<?,^NX`^HnHn?<HljN0.n0.n 0.=@0. =@ ,R2. L¼Ё2.I¼Ё&@ <2.|-@ ,N2. L¼Ё2.I¼Ё$@0Hg0<`0<2H®g2<`2<A=@0.n .FS .FR0.|g .R0.|g .S0.R@2< A?0.R@2<A?0.|?Hz0?,^NT?N `@` |g`&lR$lN0,JS@L=@`0,L K60.Sn T nn ,NRg00,JS@L=@`0,L J40.Sn T nn ,R2,JSAL¼Ё&@ ,N2,JSAL¼Ё$@Bn`0<40<6Rn0.lLe`^` | g` ,R2,JSAL¼Ё&@ ,N2,JSAL¼Ё$@` 0,L K0 URn ,NRg` 0,L J0 UNn&lR$lNBn` 0<46Rn0.lLe`` | g`&lR$lNBn`,Bn0@6Rn0.lLe`0|gRk`Rn0.lJe ,NRg?.N\Hz2?.N\?./.N\A /?<?.NPL N^NuNV/ &n0+=@ @m0.kf0. K0(=@ @mp0. K0(=@ @mV0. K0nfB0. K0(=@ @m(0. K hm0. K hl0<`Bn0. K=h`6Rn0. K0(| @ g0<`0. K=P0.nf0. K=h`6Sn0. K0(| @g0<`0. K=P0.nf0.g0<`d0. K0( K=h nl0<`8`Rn0. K=P0.2. Khf nW|&_N^NuNVBn=lT0.A0|f 0<`^?.N6T-@ nm6?. ?.?./.N J@f?./.N,\=@` nl 0<`?./.N,\=@0,Tg80,Znf(0. n0(|g0,VngN9nV ncv0.A gL nm?./.HnN| ` </?.?.0.A PNP`?<?<?<N\\`&0. |g no00. n0(|g0.A f=|?A H0=lBn=kA/HnNZPHn?<?,NP&_N^NuNV/ n Pe n Pc 0<` n Pf< lXo20,X2Ap g?,X?<0,X2Ap PNX n?(NT=@ @l40<f n PWJV| n0g9|X0<`60.2AZA&H n0`|g`, nA/Bg/HzJ?+N0<``|g`|g`:9nX?< ?+NXX +g?.?< kNX0<``|g`4 +gBg?. kNXJ@g ?.NT0<`Z`|g` k Bn0+ |g nA/ nA / nA / nA/?<?.NpA(/A&/A$/A"/?<?.Np +g* nA/?.Bg kNP=@f 0<` n2(k" S0(A1@ n2( k$ S0(A1@ nA/A/NZP`A"/ nA/NZP +g* nA/?.Bg kNP=@f 0<`2+ nh S0(A1@2+ nh S0(A1@ nA/A/NZP?+ ?+?+?+?<?+NX nW|??.NX0<``|g`HnHnHnHn?<?+Np0. Sh=@0. Sh=@ n0(`|g`0.n``|g`0.n``|g`0+n``|g`0+n`v`|g`0.n`Z`|g`0.n`>`|g`0+n`"`|g`0+n`` nlBn nlBn0.2+IA=@0.2+IA=@0.n Sho S0(n=@0.n Sho S0(n=@0.n S1@0.n S1@``|g`HnHnHnHn?<?+Np0. Shm 0<`X n0( S2(nH/ /N / </N X=@0.n S1@``|g`HnHnHnHn?<?+Np0. Shm 0<` n0( S2(nH/ /N / </N X=@0.n S1@```|g`k +g* nA/?.Bg kNP=@f 0<`0 n0( kd n1k n0(kd n1k n7h  n7h ?+ ?+?+?+?<?+NX nW|??.NX0<``|g`~ n2(k S0(A1@ n2( k S0(A1@ n7h n7h ?+ ?+?+?+?<?+NX 0<`,`0<` ``?<?.NjX0<`&_N^NuNVH0&n kg kfA/A/A/A/?<BgNp0+ KA$H=R0. KA$H0*jko0+j5@0*jko0+j5@ 2+ KAаf)KZA/HltNZPBgBg ? ??<BgNX BgBgNXL N^NuNV0.2AZ-P0.2AZ 0.f$BgBg . ? . ??<BgNX .`N^NuNVHnHn n A/ n A/?<0.2A^?Np0.2AZ-P0.2AZ ?<?.NX .`N^NuNV/ AZ 2.2Ё&@0. `|g`7n `v`|g`P7n 7n7n7n ?.?.?.?. ?. ?+NX ?.NT0<`@`| g` 9nX`?.?.?.?. ?. ?+NX `&_N^NuNV0.2Ah N^NuNV0.2Al N^NuNVHn?. ?.NP=@ nm0.2Al f 0<`][][NORMALSELECTEDClearD  MBlurPainting mode:DrawZeroMaskO.K.CancelIcon EditBOXTEXTBOXTEXTIMAGEPROGDEFIBOXBUTTONBOXCHARSTRINGFTEXTFBOXTEXTICONTITLEresourcefilemenualertunimplementedaccessory_(* empty header *) CONST %-8s = %d; (* form/dialog *) %-8s = %d; (* menu tree *) %-8s = %d; (* Free string index *) %-8s = %d; (* Alert string index *) %-8s = %d; (* free image index *) %-8s = %d; (* %s in tree %s *) .Iw(* resource set indicies for %s *) .Hw/* resource set indicies for %s */ /* empty header */ #define %-8s %d /* form/dialog */ #define %-8s %d /* menu tree */ #define %-8s %d /* Free string index */ #define %-8s %d /* Alert string index */ #define %-8s %d /* free image index */ #define %-8s %d /* %s in tree %s */ .INCwc resource set indicies for %s c empty header C Form/dialog INTEGER*2 %s PARAMETER %s=%d C Menu INTEGER*2 %s PARAMETER %s=%d C Free string index INTEGER*2 %s PARAMETER %s=%d C Alert string index INTEGER*2 %s PARAMETER %s=%d C Free image index INTEGER*2 %s PARAMETER %s=%d INTEGER*2 %s PARAMETER %s=%d ! %s in tree %s .DEFwDEFINITION MODULE %s; EXPORT QUALIFIED , , ; END %s. .MODwIMPLEMENTATION MODULE %s; BEGIN END %s. [3][Can't load|resource file][Abort|Retry]Can't open virtual device[3][Fatal: |][O.K.][1][Bad field][O.K.]CON:AUX:PRN:@$??CON:AUX:PRT:%d /**.))\$**g@R$ g Desk Control New Options Resource Editor About Resource Editor------------------------- Desk Accessory 1 Desk Accessory 2 Desk Accessory 3 Desk Accessory 4 Desk Accessory 5 Desk Accessory 6 Open Show Information Close Close window-------------------- Quit File Tree Object Auto Snap Auto Size CompatibilityRUBBISHFILE SYSTEMAES resource file editor Rev 1.1By Malcolm McMahonO.K. M. L. McMahon, 1986Free string C name:DUMYNAME________ANNNNNNNText:-----------------------------------------------------------------_________________________________________________________________XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXO.K.CancelAssorted error boxesCan't delete thisfile because it isread onlyCan't delete this folderBecause it contains filesI/O errorDuring deleteCan't open this fileInvalid ormissing file nameSorry - can'tCopy foldersRead errorThis file typecannot be draggedonto the desktopDuplicate filenameWrite errorCan't createnew folderCan't overwrite protectedon resource file????????New File: ________FFFFFFFFExisting file: ????????CancelO.K.NAME CONFLICTSelectableCheckedEditableFlags 11DefaultShadowedTouchexitState 6ExitOutlinedDisabledState 7Radio ButnCrossedFlags 10PreselectDUMYNAMEC name: ________ANNNNNNN000000Extended type # ______999999O.K.CancelStringButtonTitleText:String _________________________________________________________________XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXRsc error boxesCan't open.RSD fileWarning: errorsin .RSD fileRSC istoo big!Bad RSCFile FormatCan't open theheader fileCannot be saved whileit contains an emptytree likexxxxxxxxCreating new folderfilenameextName: ________.___FFFFFFFFFFFO.K.CancelCreating newresourcefileDUMYNAMEFilename: ________FFFFFFFFO.K.CancelMENUFORMAlertStringIMAGEDrag new tree onto RSC windowDrag new file off hereResourceFolderICONSTRINGBUTTONIBOXTEXT--------Edit: ________XXXXXXXXDrag new object to formO.K.EditCancelDUMYNAMEC name: ________ANNNNNNNTestMENUFORMTree manipulation errorsDuplicatename Trees must have names This tree isAlready openAlertDUMYNAMEC name: ________ANNNNNNNNone!?StopO.K.EditCancelIcon: Desk File Your message here---------------------- Desk Accessory 1 Desk Accessory 2 Desk Accessory 3 Desk Accessory 4 Desk Accessory 5 Desk Accessory 6 QuitSelectableCheckedEditableFlags 11DefaultShadowedTouchexitState 6ExitOutlinedDisabledState 7Radio ButnCrossedFlags 10PreselectDUMYNAMEC name: ________ANNNNNNN000000Extended type # ______999999O.K.EditCancel32Height: __99Mask32Width: __99Image99Banner width: __99--------------------____________________XXXXXXXXXXXXXXXXXXXXC_XSelectableCheckedEditableFlags 11DefaultShadowedTouchexitState 6ExitOutlinedDisabledState 7Radio ButnCrossedFlags 10PreselectDUMYNAMEC name: ________ANNNNNNN000000Extended type # ______999999Colour32Height: __99322Width: ___999O.K.EditCancelFree ImageDUMYNAMEName: ________FFFFFFFFO.K.CancelEdit000Bits wide: ___999000Bits high: ___999ColourObject editing errorsBad numberinputOut of rangenumber inputFunction Edit Hide Unhide Sort .. Snap Flatten Re typeSelectableCheckedEditableFlags 11DefaultShadowedTouchexitState 6ExitOutlinedDisabledState 7Radio ButnCrossedFlags 10PreselectDUMYNAMEC name: ________ANNNNNNN000000Extended type # ______999999O.K.CancelBOXI-BOXBOXCHARFillColourOutsideInsideBorderColourCChar: _XColourOpaqueXparentSelectableCheckedEditableFlags 11DefaultShadowedTouchexitState 6ExitOutlinedDisabledState 7Radio ButnCrossedFlags 10PreselectDUMYNAMEC name: ________ANNNNNNN000000Extended type # ______999999O.K.CancelObject TypeTEXTFTEXTBOXTEXTFBOXTEXTCharacter sizeFillColourOpaqueXparentSmallLargeOutsideInsideBorderColourJustificationText:DUMMY TEXT _________________________________________________________________XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXTemplate:O.K.CancelIncreasingDecreasingSort OptionsY OnlyX onlyX then YY then XRule:Order:Resource SetDUMYNAMEName: ________FFFFFFFFCounts:TEDINFOs:999Forms/menus:999ICONBLKs:999Alerts:999BITBLKs:999Free strings:999Objects:999Free images:999String space:99999Total Trees:999Total size:99999Languages:'C'PascalModula IIFortran 77O.K.CancelResource fileDUMYNAMEFile name: ________FFFFFFFFSizeDate.RSC9999999/99/9999.RSD9999999/99/9999CancelO.K.Drive informationDrive:AVolume name:xxxxxxxx.xxxFree space:999999999Allocated space:999999999O.K.                           [3][Too many windows][O.K.][1][For reasons of Hygiene|The bin cannot be opened][O.K.][2][Do you sincerely want to|delete %d file(s) &|%d Folder(s)][Absolutely|Argh!][3][To create folders drag|icon from menu to relevant|File window][O.K.][3][Unable to create|%s%s][O.K.][3][Write error on %s][O.K.][3][New resource sets must|be dragged onto empty| desktop][O.K.][3][New tree items must|Be dragged into RSC| windows][O.K.][0][New object items must|Be dragged into form| windows][O.K.][1][Message Line ][Button][3][%s object not|allowed in %s window][O.K.][2][Object now covers other|object or objects adopt|them as children?][Yes|No][3][Icon/image size change will|cause loss of significant|looking data. Do it anyway?][Sobeit|NO!][2][This move will cause|the object tree to be|reconstructed][Sobeit|Cancel][1][Object must be within|outer box of form or menu][O.K.][3][Menu items must be in|Dropped box or title bar][O.K.][1][To load a resource file|drag it onto open desktop][Understood][1][Memory space is in short|supply. Please throw away|anything you don't need][O.K.][3][Memory shortage is now|getting critical. If you|copy or create many more|items the editor will crash.][O.K.][0][Dialog test return|%d = %s][Continue|Exit][3][Cannot test this dialog|Since it has no exits][O.K.][1][OBJECTs moved to desktop|must be wholy on it][Understood][1][Trees objects can only|be dragged to resource windows|except that strings and|images can be dragged to|form windows][Understood]Free stringFLOPPY DISCFILE SYSTEM[3][Sorry program must terminate|Immediately for lack of space][Oh no!]>#  DDDDDDDDDDDL  ? ? 3eɀ%I#G0`??@@XxxI*B䇸xXXDdTLDq!!!!xE"Dm"|U"HEDE@=ǁ!$1!!'! 000000ϼO""LP"JP@|>@<<?9L2O''   @@@ 'O<<|>@? ??'?O???O?'??  |>@<<O'  @?@ 'O2wuҗuҘt2wuwuO' @?@ 0 0  H0  (0 0 0 ??```````````````````````??` ?0LJ 9 6 0?0 ??```````````````````````??` ?0LJ 9 6 0?0*F<Y%Ao!n&|U$0<d$%,% & & (<(HXY!r& 5wBB ir [BBq}  nstu~   S \ m     ' @ C N V Y c l o    U ^ o  x         ) - 1 @ avt| lu  BB #  HtA  H< H, H 00!T! 0 0" !  H""|F  H##lO H$$LV <'' ?0PP  $ +  6 = **? P  Z r   $,;P W ^ e  n | C.H& .<H&"   ) 0$  E *F'/*bA%:0G /B   Le             "      "   !0  5  ! # !A  N  Ys*~  D5    )       )  $  )  2 ;) C N V _) **887  (* A>         !         .  4J  T '] * %  + % .  ,.^H&. H&.0  .0 .#H$ "     //H&/* H$   $ # /L<$[Cb  1         i+&) +B   +^17          &      3  @  ) M+z & v {  }         PP   P            ( = R) )   *  4 )@4  Y  d  l  u)  ~        )           )        ) ++ .7 37 87/n 0+5  Q & 0p1q2r3s +6 ! f&"%&#0p$1q%2r!3s',/(H,")H,>  ;B5        )          )           ')  /  :  B  K) ,Z,v 9,6 ,6  8 8 8* 080p1q2r 3s'  , * 0  , -  @0p @1q @2r @3s D#8 K    a  l  r    -  !               D85        )       )  '  ,  5 >) F Q Y b) -:-V. . ,  $# @@@! @1!@A"@Q #@a @q% *&)" '0p(1q)2r%3s+ , -7.6/40312213041 52 63-4<8;"90p:1q;2r73s=>-r?D@C"A0pB1qC2r?3sEF FD1SN5  ( 0 9) B J  S  ])  e  j  s |)    ) --;E> 9   &= 5 '&  @!@"@!#@1$@A%@Q &@a @q(: -),$ *0p+1q,2r(3s0./, /A-H3129 2P0V 4\ 5d 6k@7?8493:2;1<0=1 >2 ?364ArFBE$C0pD1qE2rA3sGy< KHJ> ILJCGRLQMPCN0pO1qP2rL3sR-ASS (A , ] b  i t              #"/ -  %     %  $ (1%5 CGP%T ae s#y     #       !# "%!  -, 16 < G L  R  ] b  h s 'z  *          '??*?j?? ?/2234(7X80:<=X>?8?BBCEFGGKNOpP0Q W_`d@ef.  F..  F_2_ST C F REE_POSC F  AKEICONC F (_LIB C F 1_2_ST LSTF FREE_POSLSTF @LOADER LSTF MAKEICONLSTF PARSER LSTF P_LIB LSTF PLINE LSTF 0 1.45 2.73 0 0 0 tzung */ #include /* Globale Variablen */ int CHAR; void p_program(void); void p_dane(void); void p_czysc(void); void p_ok(void); void p_rownanie(void); void p_kwadratowe(void); void p_liniowe(void); void p_uklad(void); void p_miejsce_zerowe(void); void p_pierwiastki(void); void p_wydruk1(void); void p_wydruk2(void); void p_osie(void); void p_wykres1(void); void p_wykres2(void); void p_decyzja(void); long l_long; long z_long; double a_doub; double b_doub; double c_doub; double d_doub; double delta_doub; double e_doub; double f_doub; double n_doub; double x_doub; double x1_doub; double x2_doub; double x_doub; double xw_doub; double y_doub; double yw_doub; double x_doub; char ochar[C_HAR]; char *o_char; void main() { r_ein(1); CHAR = C_HAR; o_char = &ochar[0]; /* */ /* ******************************************** */ /* * PROGRAM ROZWIAZUJE UKLADY * */ /* ' ' ' Testy szybkosci ' wywolac procedure test z numerem od 1-5 ' ' DIM m(5) pocz: INPUT a IF a=-1 END ENDIF t=TIMER ON a GOSUB test1,test2,test3,test4,test5 PRINT (TIMER-t)/200 GOTO pocz PROCEDURE test1 PRINT "start" k=0 REPEAT k=k+1 a=k/2*3+4-5 @t11 UNTIL k=1000 PRINT "end" RETURN PROCEDURE t11 RETURN PROCEDURE test2 PRINT "start" k=0 REPEAT k=k+1 a=k/2*3+4-5 @t11 FOR l=1 TO 5 NEXT l UNTIL k=1000 PRINT "end" RETURN PROCEDURE test3 PRINT "start" k=0 REPEAT k=k+1 a=k/2*3+4-5 @t31 FOR l=1 TO 5 m(l)=a NEXT l UNTIL k=1000 PRINT "end" RETURN PROCEDURE t31 RETURN PROCEDURE test4 PRINT "start" k=0 REPEAT k=k+1 a=k^2 b=LOG(k) c=SIN(k) UNTIL k=1000 PRINT "end" RETURN PROCEDURE test5 p=1.57 PRINT "start" n=1000 d=0 a=0 s=p/n FOR i=1 TO n a=a+s b=SIN(a) @t51 b=COS(c) @t52 @t53 c=ATN(b) b=EXP(c) c=LOG(b) b=SQR(c) c=b^2 d=d+(a-c)*(a-c) NEXT i d=SQR(d/n) PRINT "dokladnosc = ";d RETURN PROCEDURE t51 c=ATN(b/(SQR(-b*b+1)+1.0E-35)) RETURN PROCEDURE t52 @t51 c=2*ATN(1)-c RETURN PROCEDURE t53 b=SIN(c)/COS(c) RETURN  ` 0  P2 F      $ >    R  , &  4    4   $$ *  > $  $  ~&      (  $, , 4 $<0*f  ":   ( 8\ RR    ""(     (     >(86   (8(  ,,         .B       H J :4   ,   R   N   6    0  :L0"   :J   4N0 $      F$  , ( h 0  * " 6<2J*$$$*><8<   /* Basic -> 'C' bersetzung */ #include /* Globale Variablen */ int CHAR; double *m_doub_f; void p_test1(void); void p_t11(void); void p_test2(void); void p_test3(void); void p_t31(void); void p_test4(void); void p_test5(void); void p_t51(void); void p_t52(void); void p_t53(void); double a_doub; double b_doub; double c_doub; double d_doub; double i_doub; double k_doub; double l_doub; double n_doub; double p_doub; double s_doub; double t_doub; double c_doub; void main() { r_ein(1); CHAR = C_HAR; /* */ /* */ /* Testy szybkosci */ /* wywolac procedure test z numerem od 1-5 */ /* */ /* */ if((m_doub_f = (double *)calloc((size_t)(5+1),(size_t)sizeof(double ))) == 0L) f_ehler(0); else SPEICHER[SP++] = (char *)m_doub_f; pocz: printf("\33e? ");scanf("%lg",&a_doub);printf("\33f");getchar(); if(a_doub==-1) { r_aus(0); } t_doub=timer(); switch(a_doub ) { case '1': p_test1(); break; case '2': p_test2(); break; case '3': p_test3(); break; case '4': p_test4(); break; case '5': p_test5(); break; } printf("%ld\n", (timer()-t_doub)/200); goto pocz; r_aus(0); } void p_test1(void) { printf("start\n"); k_doub=0; do { k_doub=k_doub+1; a_doub=k_doub/2*3+4-5; p_t11(); } while(!(k_doub==1000)); printf("end\n"); } void p_t11(void) { } void p_test2(void) { printf("start\n"); k_doub=0; do { k_doub=k_doub+1; a_doub=k_doub/2*3+4-5; p_t11(); for(l_doub=1;l_doub<=5;l_doub++) { } } while(!(k_doub==1000)); printf("end\n"); } void p_test3(void) { printf("start\n"); k_doub=0; do { k_doub=k_doub+1; a_doub=k_doub/2*3+4-5; p_t31(); for(l_doub=1;l_doub<=5;l_doub++) { m_doub_f[(int)(l_doub)]=a_doub; } } while(!(k_doub==1000)); printf("end\n"); } void p_t31(void) { } void p_test4(void) { printf("start\n"); k_doub=0; do { k_doub=k_doub+1; a_doub=pow(k_doub,2); b_doub=log((double)(k_doub)); c_doub=sin((double)(k_doub)); } while(!(k_doub==1000)); printf("end\n"); } void p_test5(void) { p_doub=1.57; printf("start\n"); n_doub=1000; d_doub=0; a_doub=0; s_doub=p_doub/n_doub; for(i_doub=1;i_doub<=n_doub;i_doub++) { a_doub=a_doub+s_doub; b_doub=sin((double)(a_doub)); p_t51(); b_doub=cos((double)(c_doub)); p_t52(); p_t53(); c_doub=atan((double)(b_doub)); b_doub=exp((double)(c_doub)); c_doub=log((double)(b_doub)); b_doub=sqrt((double)(c_doub)); c_doub=pow(b_doub,2); d_doub=d_doub+(a_doub-c_doub)*(a_doub-c_doub); } d_doub=sqrt((double)(d_doub/n_doub)); printf("dokladnosc = %G\n",d_doub); } void p_t51(void) { c_doub=atan((double)(b_doub/(sqrt((double)(-b_doub*b_doub+1))+1.0E-35))); } void p_t52(void) { p_t51(); c_doub=2*atan((double)(1))-c_doub; } void p_t53(void) { b_doub=sin((double)(c_doub))/cos((double)(c_doub)); }  *       $ $&&\,X0ƌ 4">  N T < "H000H`0``0`02 .0020`002000002222bHH2b2H020002000H0H0H0H0:000H`0H`0H0J0000H000H00H`00000 0\20J2\200H00000000000002200x200J0020000H000H0H00H20000000000000020000000000020000PRINT "ATARI ST" 000H0220002200000000000000000220`0000`H0x000H0b0``H0x0H20020020200000000020000002000x20  /* Basic -> 'C' bersetzung */ #include /* Globale Variablen */ int CHAR; void main() { r_ein(1); CHAR = C_HAR; printf("ATARI ST\n"); r_aus(0); }HB,460*:DZ|VN\ .D$(XfHv. B&F z *N@6  >VXRJ " , 0 nd>b"  R , $(B2@T  D:P D >&b d$  $V(z &' ' ******************************************** ' * PROGRAM ROZWIAZUJE UKLADY * ' * ROWNAN 1 I 2 STOPNIA * ' * PRACUJE W SREDNIEJ ROZDZIELCZOSCI * ' * BY * ' * TC-soft'88 TOMASZ CIESIELSKI * ' ******************************************** ' ' Zmienne programu:A,(...),F -wspolczynniki rownan ' Delta -wyznacznik rownania ' L% -ilosc rownan ' N -zmienna pomocnicza ' O$ -odpowiedzi na decyzje (0/1) ' Z% -stopien rownania ' ' ------------------------------------------------------------------------------ GOSUB program ! TO JEST CALY PROGRAM!!! ' ------------------------------------------------------------------------------ ' PROCEDURE program @czysc @dane @ok ON l% GOSUB rownanie,uklad @decyzja RETURN ' ' PROCEDURE dane ! wprowadza wspolczynniki rownan #1,#2 LOCAL o$ CLS DEFTEXT 1,0,0,9 TEXT 70,10,"Program rozwiazuje uklad rwnan o postaci:" TEXT 90,30," |Ax+Bx+C=0" TEXT 90,42," |Dx+Ex+F=0" PRINT INPUT "A=";a INPUT "B=";b INPUT "C=";c l%=1 ! jedno rownanie PRINT "------------------------------------------" PRINT INPUT "Drugie rownanie? (1/0)";o$ IF o$<>"0" THEN l%=2 ! uklad rownan (drugie rownanie) INPUT "D=";d INPUT "E=";e INPUT "F=";f PRINT ENDIF RETURN ' ' PROCEDURE czysc CLR a,b,c,d,e,f,l%,n,z%,o$ RETURN ' ' PROCEDURE ok ! sprawdza prawidlowosc wspolczynnikow row.#1,#2 LOCAL o$ CLS PRINT "Uklad rownan o postaci:" PRINT PRINT " |";a;"x^+";b;"x+";c;"=0" PRINT " |";d;"x^+";e;"x+";f;"=0" PRINT INPUT "Dane OK? (1/0)";o$ IF o$="0" THEN ! nowe dane @dane @ok ENDIF IF a=0 AND b=0 THEN PRINT "Bledne dane w rownaniu #1!!!" PRINT PAUSE 100 @dane @ok ENDIF IF l%=2 THEN IF d=0 AND e=0 AND f<>0 THEN PRINT "Bledne dane wrownaniu #2!!!" PRINT PAUSE 100 @dane @ok ENDIF PRINT ENDIF RETURN ' ' PROCEDURE rownanie ! sprawdza stopien rownan IF a=0 THEN z%=1 ! rownanie pierwszego stopnia @liniowe ELSE z%=2 ! rownanie drugiego stopnia @kwadratowe ENDIF RETURN ' ' PROCEDURE kwadratowe ! rozwiazuje rownanie kwadratowe @pierwiastki @wydruk2 @wykres2 RETURN ' ' PROCEDURE liniowe ! rozwiazuje rownanie liniowe @miejsce_zerowe @wydruk1 @wykres1 RETURN ' PROCEDURE uklad ! z row, #1,#2 tworzy jedno rownanie a=a-d b=b-e c=c-f @rownanie RETURN ' ' PROCEDURE miejsce_zerowe ! oblicza pierwiastki rownania 1-ego stopnia x1=-c/b RETURN ' ' PROCEDURE pierwiastki ! oblicza pierwiastki rownania 2-ego stopnia delta=b*b-4*a*c IF delta=0 THEN x1=-b/(2*a) ENDIF IF delta>0 THEN x1=(-b-SQR(delta))/(2*a) x2=(-b+SQR(delta))/(2*a) ENDIF xw=(-b)/(2*a) ! wspolrzedne wierzcholka paraboli yw=(-delta)/(4*a) RETURN ' ' PROCEDURE wydruk1 ! drukuje wyniki dla rownania 1-ego stopnia PRINT PRINT "Miejsce zerowe:" PRINT PRINT " X=";x1 PRINT RETURN ' ' PROCEDURE wydruk2 ! drukuje wyniki dla rownania 2-ego stopnia PRINT PRINT " DELTA=";delta PRINT IF delta<0 THEN PRINT "Nie posiada pierwiastkow." PRINT ELSE IF delta=0 THEN PRINT "Posiada jeden pierwiastek :" PRINT PRINT " X=";x1 PRINT ENDIF IF delta>0 THEN PRINT "Posiada pierwiastki :" PRINT PRINT " X1=";x1 PRINT PRINT " X2=";x2 PRINT ENDIF ENDIF PRINT "Wspolrzedne wierzcholka:" PRINT PRINT " Xw=";xw PRINT PRINT " Yw=";yw PRINT RETURN ' ' PROCEDURE osie ! rysuje osie ukladu wspolrzednych PLOT 400,100 DRAW TO 600,100 PLOT 500,200 DRAW TO 500,0 RETURN ' ' PROCEDURE wykres1 ! rysuje wykres rownania linowego @osie FOR x=-100 TO 100 STEP 0.5 y=-b*x-c PLOT x+500,y+100 NEXT x RETURN ' ' PROCEDURE wykres2 ! rysuje wykres rownania kwadratowego @osie FOR x=-12 TO 12 STEP 0.05 y=-a*x*x+d/(4*a) PLOT x*10+500-b/(2*a),(y+100) NEXT x RETURN ' ' PROCEDURE decyzja ! czy liczyc jeszcze raz? INPUT "Jeszcze raz? (1/0)";o$ IF o$="0" THEN EDIT ELSE GOSUB program ENDIF RETURN ' FREE_POS.LST ' ' Speicherplatz reservieren und Resource laden RESERVE FRE(0)-2000 ok%=RSRC_LOAD("rozne\free_pos.rsc") ' falls Resourcedatei nicht korrekt geladen IF ok%=0 ALERT 1,"RSC not found",1," Return ",a% RESERVE FRE(0)+2000 EDIT ENDIF ' Kommentar ausgeben PRINT "Programmende durch x oder X, wenn keine Dialogbox auf dem Bildschirm ist." PRINT "Linke Maustaste fr Linienendpunkte setzen, rechte fr Linienstil einstellen." ' Baumadresse, Breite und Hhe bestimmen ~RSRC_GADDR(0,0,tree_adr%) ~FORM_CENTER(tree_adr%,x%,y%,w%,h%) ' Objektnummern der EXIT-Objekte DIM s%(6) s%(1)=3 s%(2)=5 s%(3)=7 s%(4)=9 s%(5)=11 s%(6)=13 ' REPEAT ' wenn die linke Maustaste gedrckt wurde IF MOUSEK=1 x1%=MOUSEX y1%=MOUSEY PLOT x1%,y1% m_key(0) m_key(1) LINE x1%,y1%,MOUSEX,MOUSEY m_key(0) ENDIF ' wenn die rechte Maustaste gedrckt wird IF MOUSEK=2 x%=MOUSEX+40 y%=MOUSEY ' IF x%>520 x%=520 ENDIF IF y%>230 y%=230 ENDIF ' Bildschirmausschnitt retten GET x%,y%,x%+w%,y%+h%,r$ ' Objektkoordinaten ndern OB_X(tree_adr%,0)=x% OB_Y(tree_adr%,0)=y% ' Objekt zeichnen ~OBJC_DRAW(tree_adr%,0,5,x%,y%,w%,h%) ' Formularkontrolle an GEM bergeben ex%=FORM_DO(tree_adr%,0) ' Exit-Objekt deselektieren ~OBJC_CHANGE(tree_adr%,ex%,0,x%,y%,w%,h%,0,0) ' Bildschirmauschnitt restaurieren HIDEM PUT x%,y%,r$ SHOWM ' Exit-Objekt bestimmen FOR i%=1 TO 6 EXIT IF s%(i%)=ex% NEXT i% DEFLINE i% ENDIF UNTIL INKEY$="x" OR INKEY$="X" ' ' Resource aus Speicher entfernen ' und Speicherplatz zurckholen ~RSRC_FREE() RESERVE FRE(0)+2000 ' ' wartet bis der Maustastenstatus gleich s% ist PROCEDURE m_key(s%) REPEAT UNTIL MOUSEK=s% RETURN Setcolor 0,0,0,0 Setcolor 1,5,5,5 Setcolor 2,3,3,3 Setcolor 15,7,7,7 Cls @Write("> Welcome to T C - s o f t , Sir.") @Write(">") A$="> Self-test sucseeded. "+Str$(Fre(0))+" b free." @Write(A$) @Write("> All systems stand by ready for you.") @Write("> Please enter current date and time.") @Write("? dd.mm.yy [CR\DEL] hh:mm:ss [CR\DEL]") Print At(3,6); Clr B$ @Dane(1) ! wprowadz date D$=B$ Clr B$ @Dane(2) ! wprowadz czas T$=B$ Settime T$,D$ ! ustaw date i czas @Write("> Thank you Sir. I'm ready now...") Pause 50 Setcolor 0,0,0,0 Setcolor 3,7,7,7 Setcolor 1,3,3,3 Setcolor 2,4,4,4 Setcolor 15,2,2,2 ' --------------------------------------------------- Procedure Dane(X%) Local N%,A$ If X%=1 Print At(3,6); Endif If X%=2 Print At(21,6); Endif For N%=1 To 3 A$=Input$(1) @Inverse(1) Print A$; B$=B$+A$ A$=Input$(1) If N%<>3 If X%=1 A$=A$+"." Else A$=A$+":" Endif Endif Print A$; B$=B$+A$ Next N% @Key Return ' Procedure Key K%=Inp(2) If K%=13 Or K%=127 If K%=127 If X%=1 @Inverse(0) @Write("> dd:mm:yy") Print At(3,6); @Dane(1) Endif If X%=2 @Inverse(0) Print At(21,6); @Write("hh:mm:ss") Print At(18,6); @Dane(2) Endif Else If X%=1 Print At(13,6); Endif If X%=2 Print At(31,6); Endif @Inverse(1) Print "CR" @Inverse(0) Endif Else @Key Endif Return ' Procedure Write(A$) Local N%,B$ Print "_"; For N%=1 To Len(A$) B$=Right$(Left$(A$,N%)) Print Chr$(8);B$;"_"; If B$<>" " Sound 1,12,12,5,1.5 Sound Endif Pause 1 Next N% Print Chr$(8);" " Sound 1,15,12,2,2 Sound Return ' Procedure Inverse(X%) ! @Inverse(1)-inwersja wydruku ; @Inverse(0) - normalnie Print Chr$(27);Chr$(113-X%); Return RT 3,"Kein gltiges|RSC-Datei Format!",1,"Abbruch",r% ELSE IF word&(12)<1 ALERT 3,"Keine Objektbaumstruktur!",1,"Abbruch",r% ELSE ' ~RSRC_FREE() laden_ok!=RSRC_LOAD(rsc_datei$) IF laden_ok! anz_tree%=word&(12) init_namen ALERT 1,"RSC-Datei geladen!",1,"Weiter",r% ELSE ALERT 3,"Fehler beim Laden!",1,"Abbruch",r% ENDIF ENDIF ENDIF RETURN ' PROCEDURE header_lesen ' ' die ersten 18 Worte (Header) der RSC-Datei lesen ' und die Laenge feststellen zur spaeteren Ueberpruefung ' OPEN "I",#1,rsc_datei$ l_rsc_datei%=LOF(#1) BGET #1,V:word&(1),36 CLOSE #1 RETURN PROCEDURE init_namen IF laden_ok! k%=0 FOR i%=0 TO (anz_tree%-1) tree_sum%(i%)=k% ! Index ueber alle Objekte tree_name$(i%)="tree_"+STR$(i%) ! Baumnamen vorbelegen hd_raus!=FALSE ~RSRC_GADDR(0,i%,tree_adr%) j%=0 ' REPEAT ob_name$(k%)="obj_"+en!=FALSE ENDSELECT ' CLOSE #1 ELSE ALERT 1,"Picture-File existiert nicht",1,"Weiter|Abbruch",a% IF a%=2 EDIT ENDIF ENDIF UNTIL bild_geladen! RETURN > PROCEDURE markiere_icon z1$="Klicken Sie auf die linke|" z2$="obere und auf die rechte|" z3$="untere Ecke des gewnschten|" z4$="Bildausschnittes." ALERT 1,z1$+z2$+z3$+z4$,1," Return ",a% ' Maus als kleines Kreuz und auf Druck der linken Maustaste warten DEFMOUSE 5 REPEAT UNTIL MOUSEK=1 ' linke obere Ecke x1%=MOUSEX y1%=MOUSEY ' warten, bis Maustaste wieder losgelassen wird REPEAT UNTIL MOUSEK=0 ' rechte untere Ecke auswhlen HIDEM GRAPHMODE 3 REPEAT MOUSE mx%,my%,mk% dx%=AND(mx%-x1%,&HFFF0) dy%=AND(my%-y1%,&HFFF0) x2%=x1%+dx% y2%=y1%+dy% IF x1% PROCEDURE make_icon_rsc make_rsc_header make_icon_data make_mask_data make_icon_block_structure make_object_structure_mother_box make_object_structure_icon RETURN > PROCEDURE make_rsc_header header_adr%=V:rsc_header%(1) CARD{header_adr%}=1 ! reserviert ' Positionsblock CARD{header_adr%+2}=38+2*dat%+34 ! Objekt-Feld-Position CARD{header_adr%+4}=38+2*dat% ! Tedinfo-Position CARD{header_adr%+6}=38+2*dat% ! Icon-Block-Position CARD{header_adr%+8}=38+2*dat% ! Bit-Block-Position CARD{header_adr%+10}=38+2*dat% ! Position freier Strings CARD{header_adr%+12}=36 ! Position gebundener Strings CARD{header_adr%+14}=38 ! Image-Daten-Position CARD{header_adr%+16}=38+2*dat% ! Position freier Images CARD{header_adr%+18}=38+2*dat%+34+2*24 ! Objektbaumtab.-Zeiger ' Anzahlblock CARD{header_adr%+20}=2 ! Anzahl der Objekte im RSC-File CARD{header_adr%+22}=1 ! Anzahl der Bume im Resource-File CARD{header_adr%+24}=0 ! Anzahl der Tedinfo-Strukturen CARD{header_adr%+26}=1 ! Anzahl der Icon-Block-Strukturen CARD{header_adr%+28}=0 ! Anzahl der Bit-Block-Strukturen CARD{header_adr%+30}=0 ! Anzahl der Strings CARD{header_adr%+32}=0 ! Anzahl der Images CARD{header_adr%+34}=38+2*dat%+34+48+4 ! Lnge der RSC-Datei CARD{header_adr%+36}=0 ! Stringende-Markierung RETURN > PROCEDURE make_icon_data xb%=XBIOS(2) icon_adr%=V:icon_data%(1) ' Zeilenweises Kopieren der Icondaten byte_breite%=breite%/8 FOR i%=0 TO hoehe%-1 BMOVE xb%+i%*80,icon_adr%,byte_breite% ADD icon_adr%,byte_breite% NEXT i% RETURN > PROCEDURE make_mask_data ' schwarze Maske, auch mit ARRAYFILL erzeugbar mask_adr%=V:mask_data%(1) FOR i%=mask_adr% TO dat% STEP 2 CARD{i%}=65535 NEXT i% RETURN > PROCEDURE make_icon_block_structure icnblk_adr%=V:icon_blk%(1) ' Zeiger-Block {icnblk_adr%}=38+dat% ! Zeiger auf Icon-Maske {icnblk_adr%+4}=38 ! Zeiger auf Icon-Daten {icnblk_adr%+8}=36 ! Zeiger auf Icon-String ' Icon-Buchstaben-Block CARD{icnblk_adr%+12}=2^12 ! Buchstabe des Icons, siehe Text CARD{icnblk_adr%+14}=0 ! x-Position des Buchstaben CARD{icnblk_adr%+16}=0 ! y-Position des Buchstaben ' Icon-Position- und Gren-Block CARD{icnblk_adr%+18}=0 ! x-Position des Icons CARD{icnblk_adr%+20}=0 ! y-Position des Icons CARD{icnblk_adr%+22}=breite% ! Breite des Icons in Pixel CARD{icnblk_adr%+24}=hoehe% ! Hhe des Icons in Pixel ' Icon-Text-Block CARD{icnblk_adr%+26}=1 ! x-Position des Textes CARD{icnblk_adr%+28}=0 ! y-Position des Textes CARD{icnblk_adr%+30}=0 ! Textbreite in Pixel CARD{icnblk_adr%+32}=8 ! Texthoehe in Pixel RETURN > PROCEDURE make_object_structure_mother_box box_adr%=V:box_struc%(1) CARD{box_adr%}=65535 ! OB_NEXT CARD{box_adr%+2}=1 ! OB_HEAD CARD{box_adr%+4}=1 ! OB_TAIL CARD{box_adr%+6}=20 ! OB_TYPE CARD{box_adr%+8}=0 ! OB_FLAGS CARD{box_adr%+10}=16 ! OB_STATE LONG{box_adr%+12}=2^8+2^12+2^17 ! OB_SPEC CARD{box_adr%+16}=0 ! OB_X CARD{box_adr%+18}=0 ! OB_Y CARD{box_adr%+20}=400/8 ! OB_W (in Byte) CARD{box_adr%+22}=320/16 ! OB_H (in Word) RETURN > PROCEDURE make_object_structure_icon icon_adr%=V:icon_struc%(1) CARD{icon_adr%}=0 ! OB_NEXT CARD{icon_adr%+2}=65535 ! OB_HEAD CARD{icon_adr%+4}=65535 ! OB_TAIL CARD{icon_adr%+6}=31 ! OB_TYPE CARD{icon_adr%+8}=32 ! OB_FLAGS CARD{icon_adr%+10}=0 ! OB_STATE LONG{icon_adr%+12}=38+2*dat% ! OB_SPEC CARD{icon_adr%+16}=1 ! OB_X CARD{icon_adr%+18}=1 ! OB_Y CARD{icon_adr%+20}=breite%*2^8 ! OB_W CARD{icon_adr%+22}=hoehe%*2^8 ! OB_H RETURN > PROCEDURE speichere_icon_rsc ' Objektbaum-Tabellenzeiger als RSC-Datei-Abschlu obj_tz%=38+2*dat%+34 FILESELECT "\*.RSC","",icon_rsc_file$ IF icon_rsc_file$<>"" AND RIGHT$(icon_rsc_file$)<>"\" OPEN "O",#1,icon_rsc_file$ BPUT #1,V:rsc_header%(1),38 BPUT #1,V:icon_data%(1),dat% BPUT #1,V:mask_data%(1),dat% BPUT #1,V:icon_blk%(1),34 BPUT #1,V:box_struc%(1),24 BPUT #1,V:icon_struc%(1),24 BPUT #1,V:obj_tz%,4 CLOSE #1 ELSE ALERT 1,"Icon nicht gespeichert.",1," Return ",a% ENDIF RETURN ' PARSER.LST ' ' Anmerkung: dieses Programm weicht in der Reihenfolge der Befehle leicht vom ' Listing im Buch ab, weil nach der Drucklegung des Buches, aber vor der ' Vervielfltigung der Buchdisketten, die im Buch abgedruckte Form aufgrund ' eines noch im Interpreter vorhandenen Fehlers nicht lauffhig ist. Dieser ' Fehler wird in der ausgelieferten GFA-BASIC-Version behoben sein. ' anz_var|=3 DIM var$(anz_var|) DIM wert(anz_var|) var$(1)="X" var$(2)="Y" var$(3)="Z" wert(1)=196 wert(2)=3 wert(3)=-4 ' funktion$="3+((87-x)+INT(10/y))*2-z" ' parser ' PRINT PRINT " Parserwert:"'ergebnis PRINT PRINT " Parser meldet:"'meldung$ ' PROCEDURE parser LOCAL i&,j&,k&,zeichen$,alt_zeichen$,pruefe$,funk_name$ LOCAL k_beg&,k_end&,k_len&,k_term$,k_wert,funktion_gefunden! LOCAL linker_ausdruck$,rechter_ausdruck$,linker_term$ LOCAL l_eval$,pos&,konst&,fertig!,anz_operatoren& LOCAL linker_wert,linker_rest$,rechter_wert,rechter_rest$ anz_operatoren|=4 DIM operator$(anz_operatoren|) funktionswert(funktion$,anz_var|,var$(),wert()) RETURN ' PROCEDURE funktionswert(funktion$,anz_variablen|,VAR variable$(),wert()) operator$(1)="^" operator$(2)="*/" operator$(3)="\" !modulo operator$(4)="#~" !plus und minus nach Vorzeichenfilterung ' ' Voreingestellte Rckmeldung (Fehlermeldung) meldung$="ok" ' ' Aufruf des Formelparsers funktion$=UPPER$(funktion$) variablen_ersetzen(funktion$) vorzeichen_filtern(funktion$) ergebnis=@f_evaluate(funktion$) RETURN ' PROCEDURE variablen_ersetzen(VAR ersetze$) FOR i&=1 TO anz_variablen| replace(variable$(i&),STR$(wert(i&)),ersetze$) NEXT i& RETURN ' PROCEDURE replace(such$,ersatz$,VAR org$) pos&=INSTR(org$,such$) WHILE pos& org$=LEFT$(org$,pos&-1)+ersatz$+MID$(org$,pos&+LEN(such$)) pos&=INSTR(org$,such$) WEND RETURN ' PROCEDURE vorzeichen_filtern(VAR eval$) ' beseitige Doppelvorzeichen fertig!=FALSE REPEAT IF INSTR(eval$,"++") replace("++","+",eval$) ELSE IF INSTR(eval$,"--") replace("--","+",eval$) ELSE IF INSTR(eval$,"+-") replace("+-","-",eval$) ELSE IF INSTR(eval$,"-+") replace("-+","-",eval$) ELSE IF INSTR(eval$,"()") meldung$="Unzulssige Klammersetzung" eval$="1" ELSE fertig!=TRUE ENDIF UNTIL fertig! ' ' Ersetze + und - durch # und ~, wenn sie keine Vorzeichen sind alt_zeichen$="*" ! initialisiere mit operator FOR i&=1 TO LEN(eval$) zeichen$=MID$(eval$,i&,1) IF zeichen$="+" OR zeichen$="-" IF INSTR("#~*/^(\",alt_zeichen$)=0 IF zeichen$="+" MID$(eval$,i&)="#" ELSE MID$(eval$,i&)="~" ENDIF ENDIF ENDIF alt_zeichen$=MID$(eval$,i&,1) NEXT i& RETURN ' FUNCTION f_evaluate(eval$) ' Klammern und Funktionen auswerten pos&=INSTR(eval$,")") WHILE pos& ' suche die dazugehrende ffnende Klammer FOR i&=pos&-1 DOWNTO 1 zeichen$=MID$(eval$,i&,1) EXIT IF zeichen$="(" NEXT i& IF i&<1 meldung$="Fehlende ffnende Klammer" RETURN 1 ENDIF k_beg&=i& ! Anfangspos. der Klammer k_end&=pos& ! Endposition der Klammer k_len&=k_end&-k_beg&-1 ! Lnge des Klammerterms k_term$=MID$(eval$,k_beg&+1,k_len&) ! Term in Klammern k_wert=@operatoren_auswerten(k_term$) ' ' falls Funktionsname vor Klammer, transformiere IF k_beg&>=3 funk_name$=MID$(eval$,k_beg&-3,3) ELSE funk_name$="" ENDIF funktion_gefunden!=TRUE transformiere ' ' ersetze den Klammerterm durch seinen Wert IF funktion_gefunden! eval$=LEFT$(eval$,k_beg&-4)+STR$(k_wert)+MID$(eval$,k_end&+1) ELSE eval$=LEFT$(eval$,k_beg&-1)+STR$(k_wert)+MID$(eval$,k_end&+1) ENDIF pos&=INSTR(eval$,")") WEND ' IF INSTR(eval$,"(") meldung$="Fehlende schlieende Klammer" RETURN 1 ENDIF ' ' dann Ausdruck ohne Klammern auswerten op_aus=@operatoren_auswerten(eval$) RETURN op_aus ENDFUNC ' PROCEDURE transformiere IF funk_name$="INT" k_wert=INT(k_wert) ELSE IF funk_name$="FIX" k_wert=FIX(k_wert) ELSE IF funk_name$="FRC" ! FRAC-Funktion k_wert=FRAC(k_wert) ELSE IF funk_name$="ABS" k_wert=ABS(k_wert) ELSE IF funk_name$="SGN" k_wert=SGN(k_wert) ELSE IF funk_name$="RND" k_wert=RND(k_wert) ELSE IF funk_name$="SQR" k_wert=SQR(k_wert) ELSE IF funk_name$="EXP" k_wert=EXP(k_wert) ELSE IF funk_name$="LGN" ! natrlicher Logarithmus k_wert=LOG(k_wert) ELSE IF funk_name$="LOG" ! dekadischer Logarithmus k_wert=LOG10(k_wert) ELSE IF funk_name$="SIN" k_wert=SIN(k_wert) ELSE IF funk_name$="COS" k_wert=COS(k_wert) ELSE IF funk_name$="TAN" k_wert=TAN(k_wert) ELSE IF funk_name$="ATN" k_wert=ATN(k_wert) ELSE IF funk_name$="RAD" k_wert=RAD(k_wert) ELSE IF funk_name$="DEG" k_wert=DEG(k_wert) ELSE IF funk_name$="FAK" ! selbstdefinierte Fakultt IF k_wert<=100 ergebnis=1 FOR i&=1 TO k_wert MUL ergebnis,i& NEXT i& k_wert=ergebnis ELSE meldung$="Fakulttparameter zu gro" ENDIF ELSE funktion_gefunden!=FALSE ENDIF RETURN ' FUNCTION operatoren_auswerten(op_string$) FOR i&=1 TO anz_operatoren| j&=0 REPEAT INC j& zeichen$=MID$(op_string$,j&,1) IF INSTR(operator$(i&),zeichen$) ! j-tes Zeichen ein Operator? ' rechter_ausdruck$="" FOR k&=j&+1 TO LEN(op_string$) pruefe$=MID$(op_string$,k&,1) EXIT IF INSTR("#~*/^\",pruefe$) rechter_ausdruck$=rechter_ausdruck$+pruefe$ NEXT k& rechter_rest$=MID$(op_string$,k&) ' linker_ausdruck$="" FOR k&=j&-1 DOWNTO 1 pruefe$=MID$(op_string$,k&,1) EXIT IF INSTR("#~*/^\",pruefe$) linker_ausdruck$=pruefe$+linker_ausdruck$ NEXT k& linker_rest$=LEFT$(op_string$,k&) ' linker_wert=VAL(linker_ausdruck$) rechter_wert=VAL(rechter_ausdruck$) ' IF zeichen$="#" ergebnis=linker_wert+rechter_wert ELSE IF zeichen$="~" ergebnis=linker_wert-rechter_wert ELSE IF zeichen$="*" ergebnis=linker_wert*rechter_wert ELSE IF zeichen$="/" IF rechter_wert=0 meldung$="Division durch 0" RETURN 1 ELSE ergebnis=linker_wert/rechter_wert ENDIF ELSE IF zeichen$="\" ergebnis=linker_wert\rechter_wert ELSE IF zeichen$="^" ergebnis=linker_wert^rechter_wert ENDIF ' ' Einsetzen des Ergebnisses in op_string$ linker_term$=linker_rest$+STR$(ergebnis) op_string$=linker_term$+rechter_rest$ j&=LEN(linker_term$) ENDIF UNTIL j&=LEN(op_string$) NEXT i& RETURN VAL(op_string$) ENDFUNC ELSE ALERT 1,"RSC-Datei|wurde nicht gespeichert!",1,"Weiter",r% ENDIF RETURN PROCEDURE dummy RETURN t part of these object files are usually filled with zero bytes. ' With relocatable data (Routines, Strings...) there are a lot of zero bytes. ' The GFA basic Compiler creates packed object files where these zero bytes ' have been already been deleted. ' ' The Linker is able to read the standard DR-Format O files and is also able ' to read the object files created by the GFA Basic Compiler. ' ' This Library Packer provides packing resulting in a space saving of about 30%. ' ' This program works in conjunction with the program UNPACK, with which the ' standard DR-Format can be created. ' .ll 140 .pl100 .lr20 DIM a%(9) OPEN "i",#1,"GFA3BLIB" !Original lib OPEN "i",#2,"GFA3BLIB.ndx" !Original ndx OPEN "o",#3,"GFA3PLIB" !Copy 2 OPEN "o",#4,"GFA3PLIB.NDX" t00%=TIMER x&=INP&(#2) !NDX id n_s&=INP&(#2) !number of symbols n_o&=INP&(#2) !number of object-files OUT& #4,x&,n_s&,n_o& ! OUT& #3,INP&(#1) !id in Library FOR i_o&=1 TO n_o& !Go thrugh all O-Files n$=INPUT$(14,#2) !name x&=INP&(#2) !dummy o%=INP%(#2) !offset PRINT #4,n$;MKI$(0);MKL$(LOC(#3)); !NAME 0000 new Offset SEEK #1,o% !in Library seek packit ! PRINT STR$(LOC(#1),8)'STR$(LOC(#3),8)''STR$(LOC(#1)/LOC(#3)*100,6,2) NEXT i_o& l%=LOF(#2)-LOC(#2) WHILE l%>32000 PRINT #4,INPUT$(32000,#2); SUB l%,32000 WEND PRINT #4,INPUT$(l%,#2); !Rest of NDX-Files (dependency) PRINT (TIMER-t00%)/200 END PROCEDURE packit !Pack in O-File ~LEN(INPUT$(28,#1)) !Header NOT copied aa1%=LOC(#1) !Libray O-File start aa3%=LOC(#3) x&=INP&(#1) !0x601a ts%=INP%(#1) !text size ds%=INP%(#1) !data size bs%=INP%(#1) !bss size ss%=INP%(#1) !symbol size l%=ts%+ds%+ss%+28 !length reloc info PRINT HEX$(x&,4)' !l%' !601A (optic) SEEK #1,aa1% !header, text, data, symbols copy WHILE l%>32000 PRINT #3,INPUT$(32000,#1); SUB l%,32000 WEND a$=INPUT$(l%,#1) PRINT #3,a$; SEEK #1,ts%+ds%+ss%+28+aa1% !Start reloc info chk(ts%) !text reloc pack tts%=xs% !text reloc size chk(ds%) !data reloc packen dds%=xs% !data reloc size SEEK #3,18+aa3% !header change PRINT #3,MKL$(tts%);MKL$(dds%); SEEK #3,LOF(#3) RETURN PROCEDURE chk(xx%) !text or data pack i%=0 j0%=0 j1%=0 WHILE i%=xx% INC j% ENDIF IF j% !When Nullen INC j0% !statistic OUT& #3,j%*8+7 !New reloc j% Null word ENDIF IF a% !When not end OUT& #3,a% INC j1% !statistic ENDIF WEND !to end-of-segment ADD x0%,xx% !statistic xs%=(j0%+j1%)*2 !Size of reloc info ADD x1%,xs% !statistic RETURN