NeoDsk9p  lA`  @`! #@%`')+-/1 3@5`79;=?A C@E`GIKMOQ S@U`WY[]_a c@e`gikmoq s@u`wy{} @` @ ` @ ` @ ` @ ` ǀ ɠ @ ` ׀ ٠ /@` @`!Aa   !Aa!!#A%a')+-/1!3A5a79;=?A!CAEaGIKMOQ!SAUaWY[]_a!cAeagiklA`  @`! #@%`')+-/1 3@5`79;=?A C@E`GIKMOQ S@U`WY[]_a c@e`gikmoq s@u`wy{} @` @ ` @ ` @ ` @ ` ǀ ɠ @ ` ׀ ٠ /@` @`!Aa   !Aa!!#A%a')+-/1!3A5a79;=?A!CAEaGIKMOQ!SAUaWY[]_a!cAeagikLEES DIT rHGEM_CALCBAS t *GEM_CALCDAT ̔rN7GEM_CALCDOC Ȕr\OGEM_CALCLST rpVGEM_CALCPRG t DEMO CLC uhsDEMO_1 CLC uj{NEODESK DATmA183 t ******************************************************************** Deze diskette is samengesteld door de Stichting ST, Postbus 11129, 2301 RH Leiden. Onze bibliotheek van public domain programma's omvat op dit moment (zomer 1988) al zo'n drie honderd disks. Daarop vindt u programma's op elk gebied, van tekstverwerker en database tot de leukste spelletjes, de fraaiste tekenprogramma's en de handigste utilities. Ook bevat onze bibliotheek een speciale afdeling voor public domain disks met Macintosh software, die te gebruiken zijn onder de ALADIN emulator. Deze MAC-PD serie bevat tot nu toe ongeveer vijfendertig disks. ******************************************************************** U vindt in het twee maandelijks tijdschrift "ST" (Onafhankelijk tijd- schrift van en voor gebruikers van Atari ST computers) een overzicht en een bespreking van de inhoud van de nieuwe public-domain diskettes. Dit tijdschrift bevat tevens een bestelkaart zodat U vlot oveGfABASIC2 0D~ 0l"N$j%r'"'D'h''''*Z*Z*Z*ZDVSLENGRDFAKREISPADELTA_XDYOFFSAHXYKTOKENSUMQSUMMINMAXMAKSMAKS2IX1Y1VXVYLAENGEHOEHEHOLAX2Y2X3Y3X4Y4BCDEAZST1ST2OJZGFMFTA1A2B2B1UFM1SPA1SPRBAWYOXOYWXWWXXXXX2YY2AWYABYXXXIIVARSUW1WEE1E2E3E4WAW2WKSPPWABXSPBNNUNBREITE.B COPYRIGHTRONROFFHHILFAAUSSCREENFILE1UEB1UEB2FILEFE1EININVH1CODEH2KDFILEINGH3HILFSTESUA1ANZEIGELINKS FILENAME.PATHNODEEXTFILENAMEP.GFKN.GFKP.TXTN.TXTP.CLCP.BLKN.CLCN.BLKP.PI AUFLOESUNGTESTANOCOUNTCOLCOL1COL2COL3BREITEHOEHELNGITIT_ZLXYCXCYYMOXOYYYMXMBRSPALTENAAABBBXMAXYMAXHX1Y1BR_NEUH_NEUJCDREIHBEGINNBEZREIBEGINN2BEZAIL_XL_YX2INB1XB2XB1YB2YDYA1DXMXMY BL.BREITE ALL.BREITESYBREITXSTIEFYSZLFLAGBINVS1XS1YS2XS2YSXH1ZEILEND_YKMINMAXWFSTYLEFINDEXACMO_KRELEFLAGA2J1J2H2ZEXPZSTACKKLAMMERZELERZSQAUFVONBISALPHSPAMREINFAKN1N2TI_ZLWIDTRENNZLFEEDNULLTIT_FLSFLAGGRAFIK GESPEICHERTUGRAFIKE1FLAGFLAGA1CODETZEXE_FLAGSTACKWXYERGATICONKOPFSTACKEXPFEHLERNSANLEISTEHLPEINAUSPATHBREITEKOMMAPRIORPRIOR FEHLERLABELFUNKTIONUMLAUTEKLICKLINIENENDENO.COPYRFEHLERTITELINIT GRAFIK_INITMENUETASTE CURSOR.INBOXSCHIEBER AUFBAU.SCREENZEICHNE_SCHIEBER1ZEICHNE_SCHIEBER3INVERTRUNTERRECHTSGEHE.A1 HELP.SCREEN BEWEG.CURSOREDITBLOCK.RULADENBREITEKOMMACOPY.ABSMOVE.ABS GEHE.ZELLEDRUCKEN LOESCHE.ZELLERECALCBLOCK.LO SPEICHERN BREITE.ALL KOMMA.ALLCOPY.RELMOVE.RELKOPFLOESCHENEINGABEMERKEN COPY.CEL.ABS COPY.CEL.RELWIDMUNGINVERSDEGAS NACHKOMMADRUCK.ZELLINHALTHI.RESOLDATEN.UEBERNAHME SORTIEREN ZAHL_SPALTEN SUCH.FEHLER BLOCK.WERTEKUCHEN GRAFIK.2DSTAPEL GRAFIK.3DHARDCPY SPREADSHEETZEILE.EINFUGEN ZEILE.LOSCHENSPALTE.EINFUGENSPALTE.LOSCHEN SAVE.GDATEN LOAD.GDATEN ANPASSEN_MAX TITELZEILENANZEIGEEIN.ZAHLVARIABLEN.INIT BREITE.BLOCK ADJUST.SCREEN RECHNE.ZELLE FORMAT.ZELLESELECT2 ENDERN.KOORD2 ENDERN.KOORD3 C.MINIMAX ENDERN.KOORD LINE.FEED TRENNZEICHEN BOGENMASSNULLEN INFOZEILEHOCHLINKS ZAHL.SPALTENZEICHNE_SCHIEBER2 TEST.ZELLE TEST.ZELLE2SELECTARRAY_LOESCHEN BLOCK.ABS BLOCK.REL DRAW.AUSDRUCKCONTROL.AUSDRUCK KOORDINATENDR_KOPFDR_ZEILE TEST.UMLAUT SHADOW.BOX FRAME.BOX TEST.GESP LOESCHE.ALL LOESCHE.BLOCK DRAW.SPEICHERCONTROL.SPEICHER DRAW.CODEBOX HOL.BLOCK SCHREIB.BLOCK BERECHNUNGSUMMEMULTIPLMINIMAXPLUSMINUSMALDURCHH.OCHSQRSINCOSTANATNLOGCLGEXPRNDABSINT DECODE.ZELLEN UEBERLAUF HI.RESOLUTIONA DRAW.SORTIERECONTROL.SORTIERETAUSCHEN BESTIMME.MAKS EIN.GRAFIKUMSAEULENBLOECKESEITENOBENPOLY RASTER.2DBALKENTEXT MUSTER.2D FAKTORIELLEFAKFAKULTETN_UBER_NQ_MITTEL AUFLOESUNGICONINIT_VARIABLENLEISTE INV_ANZEIGESPLIT_FN  !  ***************************  * GEM-CALC 1.92 1988 *   * Dr. Gregor Englmayer *  * A-8813 St. Lambrecht *  * Weienbach 30/2 *  ***************************  *vLF*vLF,F,F,FF}F,F,F,F,FcYF  F!F !F  EG&F- !FE  F F*!F F}FvLFvLF>v!! ! !LF 2v! !d!!'L F , !!! F |F8FEvLFFLF F, !!! FEF FEF! + FFEF(!!!@FF! .R FEPP FEQF" 0fFEFE#0 F Ev! FEF  FEF ,  FF F  F L & #((# 6 #(66 FEFEF#$E#(66 FFE EQF" '0F E#' 6 FEu!  Fd ##(66  &#(# 6 0 FEF ,  F F  F 8RFEQF FE< #((# 6 0FEF0! F Eu! F ,  FF {FF F4  '#(66 FEF1! F Ev! F ,  F {F F ( ddFEF5FEF ,  F { F F( f FEF4FEF ,  F { F F( F EF5F ,  F { F F, Z7?  FFEF4F ,  F { F F( 'FFEF1!HF Ev! F ,  F {F F, &/7  FFEF0!HFEu!  F ,  F {F FF,P QLQ??FEF(!!!P`F.F! !+F R F`&E#Q # F   F, FEF Ev! F E#P` FEF EFFE 0! F 4F J FE F EF FE4 FF F, F'!G! FFEB A  F !F'!G!F !F FF FF.FF F+FGFE` F E` FEP F ET #  # FSHIFT+CURSOR , F FRAUF 1! F Ev! F1! F Ev! F, !!! F F  . F RUNTER 0!FEu!  F, F, !!! F F  FELINKS 1! F Ev! F1! F Ev! F, !!! F F  FSRECHTS 0!FEu!  F, F, !!! F F jF VF! " >  \F HFCLR-HOME , F,F  F $ nFCCONTROL+CLR-HOME , FEF EF, F  FEF EFF, F F, !!! F F  , (FHCONTROL+RAUF , FEFEF, !!! F F .  FCCONTROL+RUNTER , F  FEF EFF, F F, !!! F F  . fFCCONTROL+LINKS , FEFEF, !!! F F  . `hFCCONTROL+RECHTS , FEF EF, F, !!! F F   DF,F F   F,F F FUNKTIONSTASTE  U,whL!!!!!!!!!F SHIFT-FUNKTIONSTASTE  H,w&L!!! !!!"!#!$!!%F  RF &EB| Bx ^F2 ##xvv C@B F,&F# NF# 0F  p@@F,F F  PHHF,'F F' ' >pF,(F F( ( jF,)F F) ) H00F,*F F* * 8F,+F F+ + 8F,,F F, ,( HHFLINEFEED F:)! | Carr. Return mit Linefeed ?!! ja | nein !F FrEFEF!F. F F:)! | Carr. Return mit Linefeed ?!! ja | nein !F FrEFEF!F. F F F ,   FeTRENNZEICHEN F<)! | Trennzeichen beim Ausdruck ?!! ja | nein !F FnEFEF !Fn F  F<)! | Trennzeichen beim Ausdruck ?!! ja | nein !F FnEFEF !Fn F F F " @FmBOGENMA F*)! | Bogenma ?!! ja | nein !F FeEFEO44Fa!F F F*)! | Bogenma ?!! ja | nein !F FeEFEF!Fn F F F , <`DDF NACHKOMMA-0 FF)!) | Nachkommastellen mit '0' | auffllen ?!! ja | nein !F FhEFEF!Fk,-F F- 8FF)!) | Nachkommastellen mit '0' | auffllen ?!! ja | nein !F 4FhEFEF!Fk,-F F- F- F- -4 ~P((F0AUSDRUCK ZELLINHALT ,.F F. . 0FA,/F F/ / (00FA,0F F0 0 @44FA,1F F1 1 .@FA,2F F2 2 Zp@@FA,3F F3 3< 0<<FABLOCK-ZELLEN IN WERTE NDERN ,4F F4 4 F4 4 0F<  ``FRKUCHENGRAFIK ,5F F5 5, X FLINIENGRAFIK E E LinienF,6F  F6 6> @# ` FNBALKENGRAFIK E F BalkenF,6F  F6 60 `FSTAPELGRAFIK ,7F F7 70 @ FSULENGRAFIK E H SulenF,8F  F8 8< 88 ``FBLOCKGRAFIK IE I BlckeF,8F  F8 8>   ``FFLCHENGRAFIK E J FlchenF,8F  F8 F8 8 (F ,9F F9 9L xxF BILDSCHIRMAUFBAU nach Grafik oder Accessory T,:F F: : F 0F F,;F F; ; F,F F> > Z(@@FB,?F F? ? p``FB,@F F@ @ 8FB control-7  Fo o @FB control-8  Fo o H FB,AF FA A B00FB,BF FB FB B FB FB FBFB ZSF.F UNTERPROGRAMME  N+2FRh! F, FE Zahl SpaltenF,CFZ(E!(Esc) Zahl an Spalten (5 - 26) = FE Fc ,D!! !P!! F 5 F !E5 F ! F"Eu" !!yy FEF !"Fp)!R |Benutzter Bereich grer als|neue Blattgre. Ein Teil der|Daten geht VERLOREN !!! okay |oh nein!F, F! nFt}FH !!FH !"F I ! FF FF FF F* @ ! @ ! @ FeJ !F EG F f F  EB  F F#EG F @# E  F t#F > F EG&F  !FE  F,EF,FEFEF$EFEFEF,FF F E FE F,GFF, FE Zahl SpaltenF,CFZ}F  !FEG F EG"FH @ !@ F ; @ @ =F ,H! F FH ,I! F b F TF  BF> EG F4EG!FH @ !@ F ; @ @ =F ,H! F FH ,I! F F  F  FF F * @ F@EF,AF,F xF,GFF FG F,GFF FG}F F,FF F .F  +?F ESpch GrafikdatenF ,JFS J\Fn 7O!M!FM"%FM" FM" FM"FM"FM"&FM"'FM"FM"(FM")F8MF TFF,FF FC.FC C+@FFELaden GrafikdatenF,JFL \Fe 7I!M!F:M!%F:M! F:M! F:M!F:M!F:M!&F:M!'F:M!F:M!(F:M!)F8MF,0F) FF,FF FC.FC C+JFF, F,CF f#*.GFK!$!F F M韝 FK#EF $E F E .GFKF F.F +3F , Fj! F EF+EGFF,EGFF ; +@, @ *FEFFE+F E,F EF FE Z F ,F Z F +F x-FE!`F,)!Keine Fehler gefunden !! okay !.Fa, F FFEFnE FnEFnE Fn, !!! F F .F  +4F &/012FB)!+ |BLOCK-Koordinaten falsch| gewhlt !!!!Abbruch!FEF F/, FEBlock -> WerteFn,CFBZ)!= |Zellinhalte im Blockbereich|in die absoluten Werte|ndern ?!! okay | nein !.F! .FiEF}Fh+E/G0Fe^,E1G2Fe@ T; +@, @ =#7 +@, @7 +@, dd F +@, EA+@, F +@, E +@, F ,I+!, F FI ,F +F }F, !!! F F!,FF FC FE.FC C+;FF, FEZeile einfgenF,CFZ  FB)!% |Daten in Zeile 200|gehen verloren !!! okay |Abbruch!.F ,F|.EF4F| F  .Fn}FEF,EIFl+EGF +@, E +@, Fg t; +@, @ =FgjF;FE +@, @B| @ F  F ,K F FK F RFFQ F pZ ENDFFE +@, @ @ FF \ F 0!F ,K FE +@, @:@ F,K F FK F F F +@, E +@, FF+@, E+@, FF b+F T,F+EGF +@ EF, +@ E+  F +@ EF +F,F}F F+,FF FC.FC C+FF, FESpalte lschenFF,CFS8)! |SPALTE wirklich LSCHEN ??!! okay | nein !.F .FT}FEF F5F+EG Fi v+ B+ F+ E+ F F+ E+ F+ E+ F,EG F +@, E +@, FF ; +@, @ =FFjF;FE +@, @B| @ F  F ,L FF FL F RFFQ F Z ENDFFE +@, @ @ FF  F 0!F ,L FE +@, @:@ F ,L F FL DF *F F +@, E +@, FF+@, E+@, FF ,F F+F EF`+E IF, J+ B+ F EF+ EB+ F F `Z F +F E F E F,EG F @, EF  @, E  FF@, EF ,F  F,F}F F,,FF FC.FC C +K3 FE E; +@, @ F4E5> +@, @ F ª4F4E]> +@, @ FE> +@, @ FEA5 3 >@4 F –;@ 0F!! E1F F +@, E F F.F +L5 F  E; +@, @ F 4E7> +@, @ F f4FE> +@, @ FEB7;@ 5 >@ F R;@ B F!! EAF F +@, E F F.F +-Fh! F}FüEGFò EGF ,I! F Ü F ÎF , !!! F}F.FF F+'FhF6EF7EF'@!G! FFEB6 A7  F !F'@!G!FF!F.FF F+(F @ E 6@7 FF@ E6@7 FF ,I! F, F,MF .FM M+)F 5E6F 3E7FEF EF@ E 6@7 FF ;@ @ =FFjF;FE@ @B| @ F B F ,NF FN F RFFQ F Z ENDFFE@ @ @ FF  F 0!F ,NFE@ @:@ F,NF FN rF XF F @ E@ FF@ EF  ,; @ @ =FF ,H! F FH ,I! F, F,MF .FM M+OF EF ƂF@EF!F@ ƚFEF!F@ F.F +PFEF FFEF !F@ FEF !F@ F.F +QFEF * FFEF!F@ LFEO44F@!F F.F +RFEF LjFFEF!F ǠFEF!F F,-F.F- -+FYF@Y@! "BX "p F U N K T I O N E N "BX "qF4Y! "#PI -- Wert fr Pi (3.14...)FF$Y8! " #DAT -- DatumF(Y@!@ "#SQR() -- WurzelFi2Y@!` "#LOG() -- Nat. LogarithmusF)2Y0!` "#CLG() -- dek. LogarithmusF 0Y0!@ "#EXP() -- ExponentiationF9&Y@! "#SIN() -- SinusF(Y0! "#COS() -- CosinusF(Y@! "#TAN() -- TangensF.Y0! "#ATN() -- ArcustangensFm(Y@!  "#INT() -- IntegerF,Y0!  "#ABS() -- AbsolutwertF4Y@!0 "#RND() -- Runden auf GanzzahlF*Y0!0 "#FAK() -- FakulttF(.Y@!P "#SUM(A1:Z100) -- SummeF0Y@!` "#MUL(A1:Z100) -- ProduktFz4Y@!p "#AVE(A1:Z100) -- DurchschnittFFY@! ".#STA(A1:Z100) -- Standardabweichung (div. n-1)FNDY@! ",#STD(A1:Z100) -- Standardabweichung (div. n)F)JY@! "2#QWN(A1:Z100) -- Quadratischer Mittelwert (div. n)F)LY@! "4#QMW(A1:Z100) -- Quadratischer Mittelwert (div. n-1)FN0Y@!  "#MIN(A1:Z100) -- MinimumFF0Y@!( "#MAX(A1:Z100) -- MaximumFFDY@!8 ",#NUN(N:n) -- N ber n = N!/(n!*(N-n)!)FvF ERF̼ SF, !!! F.F  +SFh!F E frei=AX CCP  FE  F! EB A F "!` EB6 A7 F-.!P E Block lo=B/ A1 Fb(!X Eru=B0 A2 F1&! EBreite=A8 /A9 F!p EA *A F!"6 EFE  F'!G!FF !F'!G!FF!F.FF F+FG& Θ#HH F1,T F FT& # PP  F, F F& #MM  F, F F& .#KK F1,U F FU'!G! FKEB A  F !F'!G!F !F.FF F+ !:!! F#F  F}F,V F :  F E  F:EFF FEYFE!@@!F F!(!!!P`F^E B`` Bp ; IN/OUT FORMAT BLOCK ZELLE SPEZIAL GRAFIKF'!!F$F4!! !F ӾF;E@@FьE:G: FY!= "### !>"F  <@> "F F"EF>& E>>@ F!|8!! F $*FE|G HF4?F &?F$F 6F? $*F F!>!!>F >F!$F!|!! F! !! F!|!! F ,  F ,W: F,SF:, F F F SF.F +  F%!F* !d! !F(!!!PF,' !!B F$' !!B F(!!!@F,' !((!B F(!!!P`F0 !! !F0 !f! !fF0 !0! !0F $*FEPP F< !#0 !@ !#0 F $F.FF F +W F#%!F* !! !?F(!!!PF&' !!B F$' !>>!B F(!!!@F4/ !!!!P!B B F4/ !44!P!B B F(!!!P`F0 !! !FF0 !7! !7FF$F ,  F.F  +  F (F7%!F> !'! !#' 66 F%!!F@ !#' 66 ! !/FZ F   F%!F@ !#/ 66 ! !/FZ%!!F> !'! !#/ 66 F F%!FV !#(66 ! !#(# 6 FK%!!F> !'! !#(66 FF !#(# 6 ! !/F  F F.F +T3 F#, F1!3F (F1!3F Eu! F, !!! F 4F!, F F .F  +@ F \@F, F F 4F  ڸ Fڐ F4FrF ڰ@F, !!! F F  F! @F!, F F  F .F  +@ F @F, F F 4F ,V F fFF4F,V F F ^@F, !!! F F  ۀF! |@F!, F F  F .F  +U5 F, F1!5F F1!5F Eu! F, !!! F F!, F F .F  +VA FjFA6EG F0! F 6ZAF F5F.F  + B FA jBFFEF vFEF FE;E@@F Fܼ@ F F@ F*E;@  !0 >@ F FE FE FE E F 6  FE !* F FOEF F NFF E6 F 6 FE  F JFE;@ F FE FE @ E F.F  +F,MFEndernF,CF`l @ F B; @ @ =FEC @ @ ! F  F 4 @ E; @ @ = @ @6 @  F .F @ E @ F F ,H! F \F!@ E5 @ F F ,I! FEF,FF.F  +MF FEF,FFF,SFF FS FEF,FFF,SFF FS.FS S +X! Fh! F EFFEEC @ @, F 0 F  @ !! EF EF FE F  FFEC @ @, F  F  @ !! EF F LF F.F +Y! Fh! F EFFEEC @ @ F  F  @ !! E,F EF FE F b FFEC @ @ F R F  @ !! E,F F F F.F +Fh! F, F}FE BerechnungF,CFB EGFEGF ; @ @ =F ,H! F ,I! F FI F  F , !!! F.F  +F0EF2EF,FFF,SFF ^/1F B` F F.F +F/EF1EF,FFF,SFF 02F B` F F.F +F, Fh! FE Laden vonF,Z F 8 F}F 7I!M!F F:M!F BF:M! F:M! F T F!F fF!F F:M!F:M!F Eu"  !yy FF F,[F * @ F  F NCF dCF:M!F:Y! ""Bitte CODE eingeben (6 Zeichen) : "B` "FE^@ FY! "BX "KF EF$EF \F EF$EF FE vFEF EF FE z F:M!F F!F F!F F:M!F FF!F F!F F:M!F $FF !F 6F !F F:M!F `FF!F rF!F F F$Y! " CODE FALSCH !"B` "Fe8MF {HFO F F FEF$EF EF F " FE:M!CF:M!DF:M!EF:M!FF FEEEFEFFEG F :M! FF :M! FF :M! FFE  F EG F @ EFL @ EFL n F .FEF,FF FF FF CECF DEDF EEEF FEFFEF FE :E F F,)! | Block zu breit ! !! ok !F" F|ECGEFb EDGFFb:M" @ F:M" @ F ,Y! F@ E5 @ F ; @ @ =F:M"@ F F F ,I! F FI Z F JF Ev! FEv ! F8MF,FF  FF FF, !!! F F ,FF}F.FF F+FF, Fh! F,Z F  F}F 7O!M!F F M"BFM" FM" FM"F R$FEF8Y! "B` ""Bitte CODE eingeben (6 Zeichen) : "F`@lFE FE;@@ F M"CFM"F FF x$F M"CFM"F FF M"NF F FM"FM"FM"FM"FM"CFM"DFM"EFM"FF FFM"FFM"FFM"ECFM"FDF F TFFJEG F M" FF M" FF M" FF FFEF FEECGEFB EDGFFB ,X! FM" @ FM" @ F ,Y! F ; @ @ =FCM"@ F F t F dF8MF F,FF}F.FF F+F h F , FEBreite stellenFF,CFB8E(Esc) Breite Spalte (1 - 72) B  = F E F,D!!!!! F 5 F}F  E5 F EG F ,I! F  F ,GF}F F ,FF F .F  + F h F , FEBreite stellenF!,CFB.E&(Esc) Breite aller Spalten (1 - 72) = F E F ,D!!!!! F 5 F}F J !5 FFGEG F EG F ,IG! F  F GF ,GF}F FG,FF F .F  +GF ,FF EF5FFF4FF,V F F, !!! F.F  +Fh F, FE Komma stellenF,CFK8E(Esc) Nachkommastellen Spalte B  = F E F,D!!!!! F 65 F}F  E5 FEF EGF ,I! F  F , !!! F @F!,FF F .F  +!F h F , FE Komma stellenF,CFK2E*(Esc) Nachkommastellen fr alle Spalten = F E F ,D!!!!! F F5 F}F J !5 FF&GEGF EGF ,IG! F  F GF EF, !!! F PF!,FF F .F  +FF, FEFM,CFF.F +F EKopierenF ,\ F.F\ \+"F E Kopieren rel.F,] F.F] ]+F E VerschiebenF,\ F.F\ \+#F EVerschieben rel.F ,] F.F] ]+F , FY! "BX "lF6Y! " Gehe Zelle "BX "p "BX "q"F=FESF6#AZ #az #BP F ZBPP F$E7 #Z FEFE Gehe Feld B F,D!!! !! F E5 F!EF!, !!! F F! Y! "BX "l " @ F, F F .F  +F   F, FEFEF'!G! F EB A  F !F'!G!F !F, F NFFEFEFEFEF, !!! F F .F  +F, FEAusdruckF ,CFAFA,^FA,_FAFA ~ Fc ,` Fc zF}F 4Fc7O!M!PRN:F,M"BX "R"B "BX "l"B "F NFf%*.TXT!!F JF M韝 F%EF 7O!M!F F F v4F" |FE9F FE8F FE 4FE@ F M"B "BX "P"F # F 0# F Xt# F M"BX "M"Bp "FFE@ F |FM"Bp "FE  F F FM"BX "M"FE F F F FjIF  F,aF Fa J FFJED GFF,bF ! !ff!\F!F(!!!P`F*'!>! A U S D R U C K F(!F!F%!!F*>!p!!F*>!H!!fF%!!F**!p!ff!F*>! !!>F**! !ff!>F**!H!ff!fF'>! !BLOCKF"'W!4! mit TITELF"'6!4! mit ZEILEF"'9!\!DISKETTEF!F'f! !BLATTF '\!\!DRUCKERF!F2,e>!z!!!! F2,e*!z!ff!!! F'u! !OKF$';! !ABBRUCHF.F +_FEFEF4EF EFEFFE " ! ! F E F  F6 n ?  pp FFEF%!!F*>!p!!F%!!F**!p!ff!F'>! !BLOCKF!F'f! !BLATTF!F FF6 \ * ff pp FFEF%!!F**!p!ff!F%!!F*>!p!!F'f! !BLATTF!F'>! !BLOCKF!F FF6 | >    >>FF  F EF%!!F*>! !!>F!F"'W!4! mit TITELF!F lF EF%!!F*>! !!>F"'W!4! mit TITELF F { FA F6  * ff   >>FF .FEF%!!F**! !ff!>F!F"'6!4! mit ZEILEF!F FEF%!!F**! !ff!>F"'6!4! mit ZEILEF F { FA F6  >  HH ffFF4EF%!!F*>!H!!fF%!!F**!H!ff!fF!F '\!\!DRUCKERF!F"'9!\!DISKETTEF F6  * ff HH ffFF4EF%!!F**!H!ff!fF%!!F*>!H!!fF '\!\!DRUCKERF!F"'9!\!DISKETTEF!F FF6  C   FFEF FE6  , cc  FFEFEF FE FE "ZF^FF &RF.F +cF 4FRFFQF Z*FQFZF EC@ F ZF!! EB FxF!ZF! F|FF,,123,,124,,125,,91,,92,,93,,126,* .F, ,+$F3hF3tEG F:Y! " Kopf Spalte "B " : "BX "K"F`l FtY! "BX "KF FXEF, !!! F.F  +F,fFJ)!- |Willst Du wirklich das|Programm verlassen ?!! ja | nein !F FsFFF FF.FF F+FEF @ EFu @ EF @ E  F, F.F  +%F D)! | LSCHEN von !! allem | Block | nichts !F  FL FL,gF F,hFF Fh Fh.Fh h+gFF:)! |LSCHEN des ARBEITSBLATTES!! ja | nein !F  tFH}F,fFF F,[Fj FEF,F * @ FN}F, !!! F F .F  +hF  /012FB)!+ |BLOCK-Koordinaten falsch| gewhlt !!!!Abbruch!F  F4)! |LSCHEN des BLOCKES!! ja | nein !Fn  FH E/G0FsE  F ~ E1G2Fs @ EFs @ EF @ EFs  L F  .FEF, !!! F F  F.F  +D!K!L!M!! Fh F E F! E6AM F! EAK F!BX "e"FFEF  6FY! "BX "lF FY! ""FY6 ! " "FF  `SF F EBa F  B 6 FE;@6  F FE  096  F EF FEY6 ! "" 6 FY6 6 ! "F " pBXX BPP F  NBPP FEFB FE  pBXX F E-1F FE KE5 FX  #KLKM K F B` FY6 ! "" 6 F F #KLK M KFBX "fF.F +Z@ F"  >@FE SpeichernF,CFSF,iFS,jFSF  Fp ELadenF,CFLB)! | Laden von !! allem | Block | nichts !FF F!  F  F  @F ,fF ELadenF,CFL FCE'*.CLCF E)F* F*E(*.BLKF E*F* FE ,` F F f! !F F M韝 FL FL'EFL)E FLE .CLCF F(EF*E FE .BLKF FE F ,` F F F.F +iF!F8,d !!pp!!! F%!!F*4!!ff!fF%!!F*"!!ff!&F%!!F*4!!!&F!F(!!!P`F,'v!H! S P E I C H E R N F(!F!F'9!!BLOCKF!F'a!!BLATTF,kF2,e4!p!!!! F2,e"!p!ff!!! F'p!!OKF '6!!ABBRUCHF.F +jFEFEFFE " ! ! F E F  F6  4   %%FFEF%!!F*4!!!&F%!!F*"!!ff!&F!F'a!!BLATTF!F'9!!BLOCKF,kF Fk6  " ee  %%FFEF%!!F *4!!!&F*"!4!ff!XF%!!F*"!!ff!&F*4!4!!XF'a!!BLATTF"'4!J!mit CODEF!F'9!!BLOCKF"'R!J! ohne CODEF!F FF:  4  44 WW$F$EF%!!F*4!4!!XF%!!F*"!4!ff!XF"'4!J!mit CODEF!F"'R!J! ohne CODEF!F FF@  " ee 44 WW$F $EF%!!F *4!4!!XF%!!F*"!4!ff!XF!F"'4!J!mit CODEF!F"'R!J! ohne CODEF F6  9  uu  FEF FE6  % cc uu  FEFEF FE FE 0ZFFF 4RF.F +kF!F $ $ F%!!F *4!4!!XF%!!F*"!4!ff!XF!F"'4!J!mit CODEF!F"'R!J! ohne CODEF F%!!F*4!4!!XF%!!F*"!4!ff!XF!F"'4!J!mit CODEF!F"'R!J! ohne CODEF F!F.FF F+d!!N!!O!P F NFH!NF F ,FH!F F%!F!!N!FN!!N!F OFD!!N!F F! %!O!PF!!N!F F%F.FF F+e!!N!!O!P F NFH!NF F FH!F F OF!!!N!F2 ! !N ! F !! ! F N!!N ! F N!!N ! F !! ! F F!%!F!!N!F !! ! F N!!N ! F N!!N ! F !! ! F %!O!PF2 ! !N ! F F.F  +` FEF F!CEFDEFEEFFEF F4 j/012;@  LadenFB)!+ |BLOCK-Koordinaten falsch| gewhlt !!!!Abbruch!FEF F/CE/F( ;@  AusdruckF DE1 F FDE1F= FEE0FFE2F FE F.FE E +\@ F! L/012FB)!+ |BLOCK-Koordinaten falsch| gewhlt !!!!Abbruch!FEF F/,lF@ Q XF ,m@! F, !!! F F  FE.F  +]@ F /012FB)!+ |BLOCK-Koordinaten falsch| gewhlt !!!!Abbruch!FEF F/,lF@ Q XF 5E/F 3E1F E1G2FE/G0F ;@ @ =FNjF;FE@ @B| @ F  F ,NF FN tF RF|F@4#SUM,#AVE,#STA,#STD,#MUL,#MIN,#MAX,#QMN,#QMW,END FQ F ~Z ENDFFE@ @ @ FF j F 0!F ,NFE@ @:@ F,NF FN F F F RFF B FF ,m@! F@ Fm FE.Fm S+NF, E;@ @ F4E]>@ @ FE>@ @ FEB7;@ 5 >@ FI 2;@ AF>!! EAF F h;@ B  F!! EB  F FE5>@ 3F Eu! F Ev! FFE;@ A >@4 F@ E F.F +lFEFE,CFF Y! "B` "BX "lFXY! "L(Esc) Bewege Cursor an die linke obere Ecke, dann 'Return' oder Mausklick re"FFjR!QFFR  ^SFEFRERF n RFB  RFQEPPF  FQEa F FE  Q PQ XXFnH!QF,FQH!QF F RQPQXXFn !QPF& !##0/ ##21 F}F!E/G0F! E1G2F@ E @ F !d F !TFEF FE !F B` F, !!! F F .F  +m@!S F& ###0/ ##21 F "t@F0"pE/G0FE  F"f E1G2F @ EF @ EF @ EF "4 F "F F#HEG#0/ F2#> EG#21 F2 @ E/@ 1 Fr/@ 1 EFr #; @ @ =SF ,H! F #(F!@ E5 @ FF F ,I! F " F "F Ev! FEv ! F,FF #SF ,F F #FS,)! | Block zu breit ! !! ok !Fr, !!! F F!.F! ! +H! FTEF" $; @ @  =#DATF,n> @ @  F $PTF @ EF @ E F $F @ E*FEHLER*F @ EF2E | T  | in Zelle B A F )!!! weiter !Fe F! F.F! ! +n F$h!4!U! !#!V!W!!H!X!F jY!Z![FEC@ ! F %0 F E;@ F FEFE EFEC@# F! 'ZT F! SUM  UEC@#SUM F % FU ,o! FM Fo oSTA  TEC@#STA F % FT ,o! FA Fo oSTD  TEC@#STD F & FT ,o! FD Fo oAVE  VEC@#AVE F &B FV ,o! FE Fo oMUL  UEC@#MUL F &v FU,pF Fp pMIN  IEC@#MIN F & FI ,q! FN Fq qMAX  AEC@#MAX F & FA ,q! FX Fq oQMN  VEC@#QMN F '* FV,o! F Fo oQMW  VEC@#QMW F 'j FV,o!  F Fo qPI  IEC@#PI F! ' FI EFE;@ AO >@ F FE E 'Z F%4F ZELLEN  EFE&EvC@B| !C@B F (PF(4EC+-*/^(@?@@ F (L4F(TEF FE FE *ZT F VE7?@@ FHE5>@ FXE]>@ F )VV HH F (; V@H @ =F  EV@H F  (FV E5 V@H F FE )Fj FFTEF  FE *j F )n?@@ +F$E;@ A >@X  F *bF@ )?@@ -F*E;@ +A >@X  F, *^F@& *Z?@@ *?@@ /F * ;@ -F*E-;@ A >@X  F, *VF&E;@ A >@X  F, E>@ F FE FE FE FE *F@ E;@ A >@X F FE'F@  *;@ -F E] F E(0;@ )>@ F FE EFEEC@(- F +ZFE;@ 0>@ F*F@ qNUN  AFEEC@#NUN F +vZT F +n FA EF,F Fq+0F@  FEC@# F ,BZTF@E?@@ F6E#C$SQRSINCOSTANATNLOGCLGEXPRNDABSINTFAK@  F , % FNTEF ,:F,E;@ B  >@ F FE+F@ FEC@+ F ,|ZF!! EB F,JF! EEB FFE EC@ F ,ZF!! E+F,F FEC@- F+ ,ZF!! EB F,F! EEB FFE EC@ F -BZF!! E-F-F FEC@* F- -|ZF!! EB F-JF! FEC@/ F -ZF!! EB F-F! FEC@^ F -ZF!! EB  F-F! /6 T;@  F .X] FT4YF]Y EA5 FE>@]  F /F@ .;@ (F4[F;4ZF;Z E;@ F /F; /;@ )F .[F5[F.Z (ZF4YFY EZ FZ5ZFE.F5ZFF /FTEF FE /F /|;@ B F/`7 7Z ZF4YFY EZ F5ZFE/ F4ZFFZ E;@ F /F;TEF FE FE FE E>@ FF FE.F@ /ZFF4YFY EZ F5ZFE/F /[FFTE@@F FE EAUSWERTUNG  UjZ! FFZ4 F  0H] F4ZF]Z E5 F 0F5>w7 Lr!s!t!u!v!w!x!y!z!{!|!}!~!!!!FN F0 YTFu.F +o!@ F EF j!!\F,F 3?@U@ )F> 3jVV HH WW XX V WH XF#EVFFEEHFFEN 1; #@ @ =]; #@ @ #]? #@ @@ ; #@ @ - F0!#@ F0!#@ F4\F F\4F 12XF4#F 1&#WF 1@\F3!\F F 2D@\F 2.\F\3!\FEN(#\ #\ F  2@FTE F FE FE 2@\F 2\F\3!\FEN(#\ \ F  2FTE F FE FE 2@\F 2\FF EN\ F 2FTEppF FE FE 36@ \F 3 \F\EN#\ F 32FTEppF FE FE E6A F E;@ A =@6 U F 3|F@TEPPF FE 3FTE@@F FE.FE E+pF@vLF EFEF,F 4?@U@ )F> 4VV HH WW XX V WH XF#EVFFEEHFFEN 4; #@ @ =]; #@ @ #]? #@ @@ ; #@ @ - F2!#@ F F4F 4(XF4#F 4#WF E6A F E;@ A =@6 U F 4F@TE00F FE 5 FTE@@F FEvLF.FL L+FF 5\F,)! | BERLAUF !!! !! weiter !F  F!jF TE00FEvLFF.FF F +q!@ F EFj\F!Ejju?HFLEju?HFL,Fj 7P?@U@ )F> 7VV HH WW XX V WH XF#EVFFEEHFFEN 6; #@ @ =]; #@ @ #]? #@ @@ ; #@ @ - F4\F;Eu#@ ! FEv#@ ! F FE4F 6(XF4#F 6#WF 6@FEF FE E6A F E;@ A =@6 U F 7&F@TE F FE 7H\TFTE@@F FE 7bFTE@@F FE.FE E+FvLF@h FiE5>@  FL4E@:@ FjE5>@4 FXEF 8ijF 8PjF8 EiIijF2X! F 8jF@3X!jF5jFj Fj 7 Fi 8HjF8D EGjF3X! F 82 FG F 8ZFjXEF FE4E@)@ FE;@ AX >@4 FM 8FiXEFTE``F FEvLF.F +rF@ 8ZFF0Z !Z F5ZF 8FTEFZ FE.FE E+sF 92ZFF1Z !Z F5ZF 9DFTEFZ FE.FE E+tF 9|ZFF2Z !Z F5ZF 9FTEFZ FE.FE E+uF 9ZFF 9Z F3Z !Z F5ZF 9FTE FZ FE :FTEFZ FE.FE E+vF :@ZFFZ EZ Z FU5ZF :RF TEF FE.FE E+F :ZFFZ E%Z F :F%TEF  FE.FE E+F :ZFFZ E(Z F :F(TEF  FE.FE E+F ;ZFF Z E&Z $Z F ;.F&TEF FE.FE E+|F ;ZFF ;nZ FZ E0Z F ;F0 Z EFZTE``F  FE ;FTEF  FE.FE E+~F ;ZFFZ E/Z F ;F/TEF  FE.FE E+wF $ZFF ,闝Z F Z EF >6F,TEF  FE.F +闝g Frh FgEF >gg<FL> EGgF2! F >z FG >FgTE``FEF F.F +*F ?RF~)!fDieses Programm ist meiner|Gattin IRIS gewidmet, die|immer viel Verstndnis fr|mein Hobby aufbringt !!!Klick...!FEF DFi)!v Ich gre Dich herzlich !|Sieh' bitte gndig ber meine|und die Fehler im Programm|hinweg. Danke!! gern | na gut | nie !FF %!F* ! ! !CF*0!0!@ !BF*`!`! !AF"(!!!FE!`F! B FFH!H! FT!H! F!F (!!!X`F0'a4!99! Vielen DankF(!!!P`F.'p!M!und ein dickes Bussi!F8'B!u!Der zweite Teil gilt natrlichF8'B!!nur fr einen weiblichen User!F {pF CF BF6/p!>!HH!Sehr nett von Dir !F(!!!P`FT/p!\!HH!2(Du kennst das Programm wohl noch nicht so genau?)F C|F(!!!P`FF/p!>!HH!$Da ist doch irgendwo der Mistkbel ?FT/p!\!HH!2(da kannst Du zumindest das Programm hineinwerfen)F F FEF {pF*!! !EF"DEGFHF&!!  !#H F CF!F F.F +F"VE7?@ @ FHE5>@@@ F4E@:@ FWE7?@4@ FXE5>@4 FUE4]>@4 F.FE E+FFhFj8FDE/G0F 08! F DFj9FE EGF09! F EF.F +fFhF EFFH)!( | Arbeitsblatt ist| |NICHT GESPEICHERT!!! OK |Sichern!F EFe,F F F.F +&F EB FeEEingabeF,CFE\EF@EBH BK BM BP BX Ba FFE&Y! """ ""BXX "K"FEa FtE^B|| Bx B> BH BK BM BP BX B Ba F* G\#xxvv C@B F G\F5\F E;@\ F GXF@* GT XHH F EB F4\F F\ F\ F\(FPC@B \F  G\FEPPFBX "D"B` "F {pF"F GSF" F H X aaF,MF,FF @ EF H; @ @ =F4EC @ @ ! F H4 F 4 @ E; @ @4 = @ @6 @ 4 F HF @ E @ F F ,H! F HF!@ E5 @ F F ,I! FEF FE,EBH BK BM BP F I8C@B FEF@,FF F,FF.F  +CF IvFEA *A  F IF E FA FEE6 F 'D!G! F !F'D!G!F!F Y! "F.F +FE F E# FF J:FFEFF JDFEF FE JFFR)!> |Dieses Programm luft|nicht in niedriger|Bildschirmauflsung!! OK !FF! F!E> F K(F!E FELL` FE**FE  F6!F6!F6!F6!F#F K8FjFF,FF F.F +F* F K GEM_CALC.DAT F 7I!M! GEM_CALC.DATF:M!F:M!F:M!F  E FM!z !F8MFz KF EF  F.F +F#E\F'E\F(E\F+E\F%E\FEBX pFEBX qF EPPF EHHFEO44F EFEFEFE@@FEFEFEFEFj FEFP* ! ! !HH !HH !HH !HH !pp FF* @H !HH !HH !HH !  F * @ F J !FRFMv EGF Q F Md FG|F$1,1,2,2,3,3,4,4,4,4,4,4,4,4,4,4,4  ,M EG`FaQ F M FG" E B| FHunbekannte Funktion,'(' fehlt,unbekannter Operator,zu wenig Argumente LDivision durch Null,')' fehlt,negative Zahl bei LOG,negative Zahl bei SQR @falsche Koordinaten bei ,Fehler bei #MIN/MAX,Fehler bei #MUL ZDkeine numerischen Daten| bei #MIN/MAX,Fehler bei #SUM/AVE/STA/QMW Fehler bei #FAK/NUN .F +F*HH FOp EGHFaQ F OpZ ***Fa OJ F  EF   EF8 , GEM-CALC,--------------------, , , , , , ,""  , Laden F3, Speichern ^F3,---------------------, Drucken F9, Zellinhalt C-Z,---------------------, Blatt lschen ^F10, Ende ^F9,""  , Zahl der Spalten C-L, Breite Spalte F4, Breite Alle ^F4,-----------------------, Komma Spalte F5, Komma Alle ^F5,-----------------------, Zeile einfgen C-1, Zeile lschen C-2, Spalte einfgen C-3 z Spalte lschen C-4,-----------------------, Nachkomma-0 C-N, Return mit LF C-P, Trennzeichen C-T,""  , links oben ^F2, rechts unten F2,-------------------, Move absolut F7, Move relativ ^F7, Copy absolut F6, Copy relativ ^F6,-------------------, --> Werte C-V, Lschen ^F10,"" l , ndern F1,-------------------, Merken C-M, Copy absolut C-A, Copy relativ C-R,-------------------, Lschen F10,""  , Berechnung ^F1, Fehler suchen C-O, Sortieren C-X, Gehe Zelle F8, Invert C-C, Hi Resolution C-K, Kopf ^F8, Titelzeilen C-0, Bogenma C-B, max. Bereich C-9 .--------------------, Hilfe Help/C-,""  , Datentransfer C-U, Daten laden C-6, Daten speichern C-5,----------------------, Kuchen C-D, Linien C-E, Balken C-F, Stapel C-G, Sulen C-H, Blcke C-I  Flchen C-J,----------------------, Hardcopy C-Q, Degas C-W,----------------------, Spreadsheet C-S,"" *** .F +F EF* @ ! @ ! @ FJ !FJ !F@J !F E  FVx EG F EB  FVn#EG F @# EF VV#F V4 FV EG&F  !FE V F,EF V F!F VF!F FEFEF$EFEFEF,FFF.F +EFEFEFEFEF/EF1EF0EF2EF6EF7EF.FE E+F EF EFjFFEFEFE@@F%EF&EF(EF)EF'EF.FE E+鄝!!] FYF(!!!F,VN FEu! \ F;E88F%!F!! !FF!FX|EG]F E F OEA> F E FX F XF(!!!P`FF!Y*SRF.F +FS8F YF"E | Datei nicht gefunden ! F YF|hE*Es ist ein Fehler aufgetreten:|Fehler Nr. A 0|(Klartext gibts erst in|GFA-BASIC Version 3.04)F FE)!!! Mist !F }FF!.F +F!h !F(!!!@F BE;GEM-CALC ** ** Version 1.92 - 02.03.1989 ** ** GEM-CALCFZ EG6 F0 Z7?@ @ <7?@ @ hF*"! ! EB7?@ @  F F Z FE'@! !F(!!!@F !@! !(!F.F! !+F@E FF [~F!,F, !!! F \F!1! FwL!!!!.!!g!F1! F2wL2!! !!!!!!;!!!R!O!PF1!F$wL!!!!#!!"!!4!hF!1!@FwL!!'!(!)!!F1!F(*wL!3!1!!+!/!$!B!Q!A!!Fi1!`F E F6wL0!@!?!!5!6!6!7!8!8!8!!9!,!!:Fs F.F +/F0 ]F?]EXXF! ]F]EHHF! FE,鄝!!] F!, !!! F.F  ++F6!F ]vFEnn F6!F ]FH!F6!F6!F F!.F! !+FFh!FYF!@@!F%!!F"!x! !GF8%!F* ! !oo!F* !!oo!F**!H! !xF"^ EPGpHF *! ! ! F ^ F!"_ E8GH`F !H! !xF ^ F(!!!F'>!|!GF'z!|!EF&'@!||!MF(/4!|!44!-CALCF(!!!P`F*'N@!||!regorF('@!||!nglF*'@!||!mayerF"(!!!P`F"'/!*!GEM-CALCF(!!!@F '9!<! 1988FF(!!!P`F0' !*!ist ein PD-Programm vonF*'!T!Gregor EnglmayerFm('!d!Weienbach 30/2F.'!t!A-8813 St. LambrechtFn"(!# !!P`F@'*!!&Gefllt Dir das Programm, dann schickeFs@'*!!&mir bitte DM 20.- oder S 100.-- DANKEFs(!!!FRF!b EGF* p4!4!HHFdQFp$' p!:!F b^ F|F ,K,L,I,C,K,.,.,., F,bRSF,.F +.FR h!!F.F)!! | Ausdruck der Zellinhalte ? !! alle | Block | nein !Fs e, Fs ,` F e(F}F7O!M!PRN:F@M"BX "R"B "BX "l"B "BX "M"FnjIFeECGEFRdEDGFFR d @ FE @ FF4EFFEEC@B| F dL FE;@ >@ F FE dF ,cFM"B "FM"A ": "F M""F dF:MF dFM"BP "F" F4IF dIFM"B@ "FjIF FI FI cF cFM"B@ "F*8MF}F F FF.FF F+9F g FFEF eF, Fd)!F |Eine Hardcopy des Arbeits-|blattes bewirkt einen|PROGRAMMABSTURZ !!!!weiter|oh nein!F0 F! gF f$ Fo2)! |Drucker einschalten!! okay |Abbruch!FeF| gFkE> FDE BXX *B  B> B> F7!MF!LST:F$MF"BX "3"B@ Fgh^E G^F 5Ez F *g$_E^G G^H F 5!2_ F45F g _FMF!""BP "FH g^F MFF F f^FFMF"BX "2FMF"B@ "F 8MFFB F F gF, F F F  F .F  +:F EFh EGF" !FE g FGRFFQ F h6Z F !F hF , !!! F.F |F.2,13,16,24,27,32,40,45,51,55,69,76,84,87,-1  ,+1F, jFF,, FE SortierenF,CFSFS,FS,FSFS j<` FrEF}F i`Fri EaGbF0ix#E GbF0 iHcF i@d@ d@# F,F F inF ij d@  d@# F,F F F i#F@ i F@ j"F j EaGbFj#E GbF icF id@ d@# F,F F j F j d@  d@# F,F F F i#F@ i F@ F, !!! F}F FF,FF FC.FC C+FF!F8,d!x!  !9!! F%!!F*f!! !\F%!!F*"!x! ! F*"!*! !NF*f!V!!zF*f!!!F*"!! !F%!!F*f!x!! F*f!*!!NF2,ef!!!4!! F2,e%!! !4!! F!F(!!!P`F,'t!D! S O R T I E R E NF(!F!F$'>!! absteigendF "'@!>! numerischF'H!,!OKFr 'C!,!ABBRUCHF&E SPALTE (A-B ) : FE$Y!p "B F"E von ZEILE (1-A ): FFY! "1F E bis ZEILE (2-A ): FFY,! "A F!F$'%!! aufsteigendF&' !>! alphabetischFE!F.F +FEF`EFcEFdEFaEFbEFFE " ! ! F E F u2 F6 o d  zz  FF`EF%!!F*f!x!! F%!!F*"!x! ! F!F$'%!! aufsteigendF!F$'>!! absteigendF F6 p "  zz  FF`EF%!!F*"!x! ! F%!!F*f!x!! F!F$'>!! absteigendF!F$'%!! aufsteigendF F6 q d  ** NNFFcEF%!!F*f!*!!NF%!!F*"!*! !NF!F&' !>! alphabetischF!F"'@!>! numerischF F6 r "  ** NNFFcEF%!!F*"!*! !NF%!!F*f!*!!NF!F"'@!>! numerischF!F&' !>! alphabetischF F6 sr f  WW zzFFFEBd FY!p ""F`lFdE7 F s8ddFE!`F F!rdd F$Y!p "Bd F F6 t f   FF,,D;@6  !a!!!! F s5 F aE5 F FEY! ""aF F6 t %   FF*,D;@6  !b!!!,! F t5 F bE5 F FEY,! ""bF F6 t p    11FFEF FE6 u. '    11FF`EFEF FE FE uFZFnFF uJRF.F +FuKEGFHK@ !K@# FH K@ ! K@# FH K@ ! K@# F upKF!.F +BFEF4 FK`)!? | Wieviele Zeilen sollen als | Titelzeilen gedruckt werden ? ! ! 0 | 1 | 2 ! F5 F v FW!Fv vhFFEF vrFEF FE`)!D1. alle Spalten|2. linke Spalten (75 Zeichen) | | werden gedruckt.!! 1 | 2 !FF vFeEF vFEF FE wF!F  F.F +AF h!!eFSE Bereich maxF,CFB}FeEF wFhwEGFwEGF w @ FeEF FE wZeF wtF wfF FEeFeEF x2FFx.EGFx$EGF x @ FeEF FE x$ZeF wF wF FEeFEF,FFF,SFF}F.FF F+,FF xFF E+*.PI2F xF* E+*.PI3F FE f !!FF zdF M韝 FF+EFFE = @ F 7O!M!F yFEM!FEM!FEM!% FEM! FFEM!% FEM! FFEM!% FEM! FFEM!% FEM! FFy EG@F EM!F y FG z! !>F ! }*%FEReihenF } @ F F> E; @ F ;# @  F# E># @ F F> 8`F # E;# @ F F f`F# E;# @` F F F# E;# @@ F F F# E;# @  F F F# E;# @ F F 0F# E;# @ F F @`F# E;# @ F F h@F# E;# @ F F   @# F @# EFF FEv! @# F0@# ! @# FFEv!@# FF ,#F  F FEF FE,FH!F,FH!F r EGFh#EGF1 @# !F ^ @# FF  @# EF F .#F  F EF EG&FF !FE  F `F!F$!F&!F FF!F F F ^FF> EG&FF !FE , F!F!F FF, !!! F.F  +F1!F EFELLF!FE  FEF EF "F2!F  FEF EF F2! F  FEF EF FE FE FE2!F F.F +8F,FYF#F(!!!F' !P! FF(!!!@F' !! FEppFE>>FEHHFEHHFEkkFEzzFEFEF EF EF,F EF !EF "EF #EF$EF%E$FF&E# F'E# F EGF$ $!#% G"$!#% F $E$&F %E%'F  F%$EF&E#" FN EGF $!G$!F $!G$!!F $E$&F  FG$EF%E$FG&E## (F! EG(F !#$ G!#$ F !#$ G !#$ F $E$&F)E @F *E &F FF EHHF  F E F  FE+E# ,( F Z+ F+E%+   F hF +E%+ F FE EA+ F  ( FE *A F FE-EF (!!!-F')!*!F" z F !G!#F&E#" FF'E# FF.E# FF+E&FF%EF E%F#F" p Sulen C-HF",F zF,FF F, !!! F.F  +F /EIF$EF0EF%!!/F E/ F EGF(1E$+ .F"2E1&+F3E%'F4E3/@ 5F1!4!2!3F 1!#4 !2!#3 F,F!,F! $E$&F  F-E@@F)E1&F!*E3F (!!!-F')H!*!/ F E .F %E%'F /F EGF$)E& #& `F"*E  F EA F(!!!@F')!*! F  F.F +F  E2F E2.F  E2.F  E2F  E3F E#3' F" E#4' F"  E4FL! ! F.F +F  E1F  E2F E2.F E1.F  E4F  E4F E#4' F" E#4' F"L! ! F.F +F/EIF%!!/F,F E/ F)E 6.F"*E'6'F(!!!@F')H!*!/ F /FEGF)E& F/*E@F(!!!@F')!*! F F.F +F 7EF 6E/F8EG7F 9E78F8 E8&6..F"9 E8 .F"88 E#5/@8 fffj'6' F 9 E8 'F 08FL! ! F 8EG7F$ 8 !8 G8 .!8 'F6 8F"  Blcke C-IFF E7 Fk E#'6' F E6..FI E F.L! ! F.  E7 F  E7 F E .F E 'FI  E F E#6' F  E F E#'6' FIL! ! F F.F  +6F,F#F|:EGF E FF E//FF ;FF :FF,F F rF: E #:@ < F  ! F $!!!F :F $*F  F :F $[lF  F :FF$@!!!FF FEGF=E F >E F E ?F E//#:@ < FI G ! F =!>G ! G ! F6 &FGN P!#z:  !  !#z:  F1N P!#|:  !  !#|:  F1(!!!@F.' (!#:  !: F! F H:F $!!!F,F, !!! F.F   +F?EaaF@E?# FEGF%!!F9EGF"AE #9 ?# @F BEA@F tF#CE//@9 >F FE FE FFNEFOEFLERRFME F 9FFLEHHFME F FE 9FFLEzzFMEF FE FE FKNEFOEllFLE>>FMEF .9FFLE F FE Z9FFLEHHFMEF FE 9FKLEWWFMEF FE FEL!M!N!OFVEGF(!!!FPEKFKEK#9@  JF %!!FL!M!N!O!P!KFL!M!N!O!P!KF LHFN?E##PK  Oaa FlQEF ?OF  ?)FaQEF FE FERE9@ F HFRE%z RI  Fl FE'LQN#3336#   )?O !#MO#3336#   *?O !RF  FL F(!!!@FESumme=AI F8'LN!#M O !F(!!!@F6'LN!#M O !9 F 9F#"SE#@  `F0  !#S@  !@@F  EGF % !! F4  !#S H  !@@F h F! EGF(!!!@F2' !#S H  ! F  F!(!!!F$' !@!; @ F(!!!@F0' !p!; @ F(!!!P`F, !!! F.F  +FEF EGF !FE  FG.F +7FH!F,F?EaaFj9EGFAE #9 ?FFBEA?@@F? CE//##@9  < F%!F>E//FA!>!B!CF`EGFjTFKEGFTETK@9 F KFK1T!FCE#/#T< FF <>CF%!!FA!C!B!>F NF!A!C!B!CF FA>ECFB F! .9F!;EF,F9 $!!!F,FH!F, !!! F.F  +FSE#@  FF(!!!@F ^ EGF%!! F.  !#p HH !@FF,' !#t HH ! FF  F!.F +F,FYF,FEE(FUEaa# F?Eaa# F VEF;EF"  Balken C-FF;EFVEFUEaaF?EUF FE DE,(FEGVF2 4 Linien C-EVF E UF ! G !#  F F FG.F +韝" F "E" FPEC"@: F"@\@ FE"@\@ FhF@ E;"@ F,E"@.@ F ,F. E?"@@, F !E>"@, F F@ E>"@ F!EF F.FM|bhRZ YF]UW^[FώրvD<Ǵfr P(\plPNZEhĸ>]Bx`tb\zh0Ne:g$bwuIL WD#Ҁ²TƨZԀۈʀҀ㞀 zr؀x<>E. LȀ!Ȁ$̀035899R9:;<=(=n=;<>7pIKFKO(^F 0 0 6  . V Z  , , Y  @ # %& * 4 6 9 D Gހ I L MB M M NH P0 Q Qb Q Q Ov P O O" N N X I\ l ~ * p B D  X V R4 Rx K ^x _ `V cz "1 0 7134 C @ ` @@@@@ @@ @ @ @@ D@@(DP(@P0@P0@@`( @``dD@ E@ @    @4  @<@`P@ R10)@( @ 0)1\ 8 ȓ 1@` $@0($ 8x $BU@T! @,G @  @*y H00 Delta_x=26/Breite% Ym%=Mousey If Ym%>88*Dvs And Ym%<115*Dvs Sflag!=True X%=(Ym%-88*Dvs)/Dvs/Delta_x X%=Max(1,X%) Cx%=X% If Ox%<>X% Ox%=X% Gosub Zeichne_schieber1(X%) Endif Endif If Ym%<=(168+(Y%+Lng%)*182/Hoehe%)*Dvs-Test% And Ym%>=(168+Y%*182/Hoehe%)*Dvs Sflag!=True Oy%=Y% Dy=(168+Y%*182/Hoehe%)*Dvs-Ym% Repeat Yym%=Mousey+Dy If Yym%>167*Dvs And Yym%<352*Dvs Y%=(Yym%/Dvs-167)/182*Hoehe% Y%=Min(Y%,Hoehe%-Lng%) If ((168+Y%*182/Hoehe%)*Dvs)>166*Dvs And (168+(Y%+Lng%)*182/Hoehe%)*Dvs-Test%<352*Dvs And Oy%<>Y% Oy%=Y% Gosub Zeichne_schieber3(Y%) Endif Endif Until Mousek=0 Ym%=Mousey Endif If Ym%>(168+(Y%+Lng%)*182/Hoehe%)*Dvs-Test% And Ym%<352*Dvs Sflag!=True Add Y%,10 Y%=Min(Y%,Hoehe%) Gosub Zeichne_schieber3(Y%) Pause 8 Endif If Ym%>167*Dvs And Ym%<(168+Y%*182/Hoehe%)*Dvs Sflag!=True Sub Y%,10 Y%=Max(Y%,1) Gosub Zeichne_schieber3(Y%) Pause 8 Endif ' If Ym%>57*Dvs And Ym%<73*Dvs And X%>1 Sflag!=True Dec X% Cx%=X% Gosub Zeichne_schieber1(X%) Pause 5 Endif If Ym%>115*Dvs And Ym%<131*Dvs And X%135*Dvs And Ym%<151*Dvs And Y%>1 Sflag!=True Dec Y% Gosub Zeichne_schieber3(Y%) Pause 5 Endif If Ym%>367*Dvs And Ym%<383*Dvs And Y%151*Dvs And Ym%<167*Dvs And Y%>1 Sflag!=True Sub Y%,100 Y%=Max(Y%,1) Gosub Zeichne_schieber3(Y%) Pause 8 Endif If Ym%>351*Dvs And Ym%<367*Dvs And Y%382*Dvs Cy%=Y% Deftext 1,,,13+7*Test% Return ' Procedure Cursor.inbox If Mousek<>0 And Grafik!=False Ym%=(Mousey-64*Dvs)/(8*Aufloesung%)+Y%-1 If Ym%<=Y%+Lng% Gosub Invert(0) Cy%=Ym% Cy%=Max(Cy%,1) Xm%=(Mousex-28)/8 Br%=0 I%=X% Repeat Add Br%,Breite%(I%) Inc Br% If Xm%<=Br% Cx%=I% I%=Spalten% Endif Inc I% Until I%>=Spalten%+1 Gosub Invert(1) Text 0,398*Dvs," " H$=Chr$(Cx%+64)+Str$(Cy%)+" " Graphmode 4 Text 0,398*Dvs,H$ Graphmode 1 Endif Endif Return ' Procedure Taste Menu Off Aa%=Menu(14)/256 Ab%=Menu(14)-256*Aa% Bb%=Menu(13) ' If (Aa%=75 Or Aa%=77 Or Aa%=72 Or Aa%=80) And (Bb% And 3)<>0 And Grafik!=False !SHIFT+CURSOR Gosub Invert(0) If Aa%=72 !RAUF Sub Y%,20 Y%=Max(Y%,1) Sub Cy%,20 Cy%=Max(Cy%,1) Gosub Aufbau.screen(X%,Y%,Cx%,Cy%) Endif If Aa%=80 !RUNTER Add Cy%,19 Cy%=Min(Cy%,Hoehe%-1) Gosub Runter(0) Gosub Aufbau.screen(X%,Y%,Cx%,Cy%) Endif If Aa%=75 !LINKS Sub X%,5 X%=Max(X%,1) Sub Cx%,5 Cx%=Max(Cx%,1) Gosub Aufbau.screen(X%,Y%,Cx%,Cy%) Endif If Aa%=77 !RECHTS Add Cx%,4 Cx%=Min(Cx%,Breite%-1) Gosub Rechts(0) Gosub Aufbau.screen(X%,Y%,Cx%,Cy%) Endif Clr Aa% Else ' If Ab%=0 And Grafik!=False And Aa%<>3 And Aa%<>110 If Aa%=71 !CLR-HOME Gosub Invert(0) Gosub Gehe.a1 Endif ' If Aa%=119 !CONTROL+CLR-HOME Gosub Invert(0) X%=1 Cx%=Xmax%-1 Gosub Rechts(0) If Y%<>Ymax% Y%=1 Cy%=Ymax%-1 Gosub Runter(0) Endif Gosub Aufbau.screen(X%,Y%,Cx%,Cy%) Endif ' If Aa%=72 And Bb%=4 !CONTROL+RAUF Gosub Invert(0) Y%=1 Cy%=1 Gosub Aufbau.screen(X%,Y%,Cx%,Cy%) Endif If Aa%=80 And Bb%=4 !CONTROL+RUNTER Gosub Invert(0) If Y%<>Ymax% Y%=1 Cy%=Ymax%-1 Gosub Runter(0) Endif Gosub Aufbau.screen(X%,Y%,Cx%,Cy%) Endif ' If Aa%=115 And Bb%=4 !CONTROL+LINKS Gosub Invert(0) X%=1 Cx%=1 Gosub Aufbau.screen(X%,Y%,Cx%,Cy%) Endif ' If Aa%=116 And Bb%=4 !CONTROL+RECHTS Gosub Invert(0) X%=1 Cx%=Xmax%-1 Gosub Rechts(0) Gosub Aufbau.screen(X%,Y%,Cx%,Cy%) Endif ' If Aa%=98 Gosub Help.screen Endif ' If Bb%<>4 Gosub Beweg.cursor Endif ' ' FUNKTIONSTASTE ' On Aa%-58 Gosub Edit,Block.ru,Laden,Breite,Komma,Copy.abs,Move.abs,Gehe.zelle,Drucken,Loesche.zelle ' ' SHIFT-FUNKTIONSTASTE ' On Aa%-83 Gosub Recalc,Block.lo,Speichern,Breite.all,Komma.all,Copy.rel,Move.rel,Kopf,Ende,Loeschen ' Else ' H$=""+Chr$(126)+Chr$(124)+"^" If ((Ab%>31 And Ab%<123) Or Instr(H$,Chr$(Aa%))<>0) And Grafik!=False Gosub Eingabe Else If Grafik!=False And Aa%>11 ' If Ab%=30 And Aa%=12 Gosub Help.screen Endif ' If Ab%=13 And Aa%=50 Gosub Merken Endif ' If Ab%=1 And Aa%=30 Gosub Copy.cel.abs Endif ' If Ab%=18 And Aa%=19 Gosub Copy.cel.rel Endif ' If Ab%=25 And Aa%=44 Gosub Widmung Endif ' If Ab%=3 And Aa%=46 Gosub Invers Endif ' If Ab%=23 And Aa%=17 Gosub Degas Endif ' If Ab%=16 And Aa%=25 !LINEFEED If Lfeed!=True Alert 2," | Carr. Return mit Linefeed ?",1," ja | nein ",H% If H%=2 Gespeichert!=False Lfeed!=False Menu 34,0 Endif Else Alert 2," | Carr. Return mit Linefeed ?",2," ja | nein ",H% If H%=1 Gespeichert!=False Lfeed!=True Menu 34,1 Endif Endif Endif ' If Ab%=20 And Aa%=20 !TRENNZEICHEN If Trennz!=True Alert 2," | Trennzeichen beim Ausdruck ?",1," ja | nein ",H% If H%=2 Gespeichert!=False Trennz!=False Menu 35,0 Endif Else Alert 2," | Trennzeichen beim Ausdruck ?",2," ja | nein ",H% If H%=1 Gespeichert!=False Trennz!=True Menu 35,1 Endif Endif Endif ' If Ab%=2 And Aa%=48 !BOGENMA If Grd=1 Alert 2," | Bogenma ?",1," ja | nein ",H% If H%=2 Gespeichert!=False Grd=Pi/180 Menu 67,0 Endif Else Alert 2," | Bogenma ?",2," ja | nein ",H% If H%=1 Gespeichert!=False Grd=1 Menu 67,1 Endif Endif Endif ' If Ab%=14 And Aa%=49 !NACHKOMMA-0 If Null!=True Alert 2," | Nachkommastellen mit '0' | auffllen ?",1," ja | nein ",H% If H%=2 Gespeichert!=False Null!=False Menu 33,0 Gosub Nachkomma Endif Else Alert 2," | Nachkommastellen mit '0' | auffllen ?",2," ja | nein ",H% If H%=1 Gespeichert!=False Null!=True Menu 33,1 Gosub Nachkomma Endif Endif Endif ' If Ab%=26 And Aa%=21 !AUSDRUCK ZELLINHALT Gosub Druck.zellinhalt Endif ' If Ab%=11 And Aa%=37 Gosub Hi.resol Endif ' If Ab%=21 And Aa%=22 Gosub Daten.uebernahme Endif ' If Ab%=24 And Aa%=45 Gosub Sortieren Endif ' If Ab%=12 And Aa%=38 Gosub Zahl_spalten Endif ' If Ab%=15 And Aa%=24 Gosub Such.fehler Endif ' If Ab%=22 And Aa%=47 !BLOCK-ZELLEN IN WERTE NDERN Gosub Block.werte Endif ' Endif ' If Ugrafik!=True And Aa%>11 If Ab%=4 And Spa<=14 And Offs>=0 And Aa%=32 !KUCHENGRAFIK Gosub Kuchen Endif ' If Ab%=5 And Aa%=18 !LINIENGRAFIK Hilf$=" E Linien" Gosub Grafik.2d Endif ' If Ab%=6 And Aa%=33 And (Spa<=14 Or Rei<=2) !BALKENGRAFIK Hilf$=" F Balken" Gosub Grafik.2d Endif ' If Ab%=7 And Aa%=34 And Offs>=0 !STAPELGRAFIK Gosub Stapel Endif ' If Ab%=8 And Aa%=35 And Offs>=0 !SULENGRAFIK Hilf$=" H Sulen" Gosub Grafik.3d Endif ' If Ab%=9 And Aa%=23 And Spa<=14 And Offs>=0 !BLOCKGRAFIK Hilf$=" I Blcke" Gosub Grafik.3d Endif ' If Ab%=10 And Aa%=36 And Spa<=14 And Offs>=0 !FLCHENGRAFIK Hilf$=" J Flchen" Gosub Grafik.3d Endif Endif ' If Ab%=17 And Aa%=16 Gosub Hardcpy Endif ' If Ab%=19 And Aa%=31 !BILDSCHIRMAUFBAU nach Grafik oder Accessory Gosub Spreadsheet Endif ' If Aa%<=11 If Ab%=17 And Aa%=2 Gosub Zeile.einfugen Endif ' If Ab%=0 And Aa%=3 Gosub Zeile.loschen Endif ' If Ab%=19 And Aa%=4 Gosub Spalte.einfugen Endif ' If Ab%=20 And Aa%=5 Gosub Spalte.loschen Endif ' If Ab%=21 And Aa%=6 Gosub Save.gdaten Endif ' If Ab%=30 And Aa%=7 Gosub Load.gdaten Endif ' If Ab%=23 And Aa%=8 ' control-7 Endif ' If Ab%=24 And Aa%=9 ' control-8 Endif ' If Ab%=25 And Aa%=10 Gosub Anpassen_max Endif ' If Ab%=16 And Aa%=11 Gosub Titelzeilen Endif Endif ' Endif Endif Endif Repeat Until Inkey$="" Return ' ' UNTERPROGRAMME ' Procedure Zahl_spalten Local X1%,Y1% Gosub Invert(0) A$="Zahl Spalten" Gosub Anzeige H$="(Esc) Zahl an Spalten (5 - 26) = " H%=Breite% Gosub Ein.zahl(H$,H%,5,26,2,3) If Val(Aus$)<>-1 Br_neu%=Val(Aus$) If Br_neu%<>Breite% H_neu%=Min(5200/Br_neu%,999) H%=1 If Br_neu%"" And File1$<>"\" Open "O",#1,File1$ Print #1;Reih% Print #1;Ueb1$ Print #1;Ueb2$ Print #1;Offs Print #1;Rei Print #1;Beginn% Print #1;Bezrei% Print #1;Spa Print #1;Beginn2% Print #1;Bez% Close #1 Else Gosub Inv_anzeige Endif Return ' Procedure Load.gdaten A$="Laden Grafikdaten" Gosub Select2 If File1$<>"" And File1$<>"\" Open "I",#1,File1$ Input #1,Reih% Input #1,Ueb1$ Input #1,Ueb2$ Input #1,Offs Input #1,Rei Input #1,Beginn% Input #1,Bezrei% Input #1,Spa Input #1,Beginn2% Input #1,Bez% Close #1 Gosub Daten.uebernahme Else Gosub Inv_anzeige Endif Return ' Procedure Select2 Gosub Invert(0) Gosub Anzeige H$="\*.GFK" Sget Screen$ Fileselect H$,File$,File1$ If Len(File1$)>4 If Right$(File1$,4)<>".GFK" Ai%=Instr(File1$,".") If Ai%>0 File1$=Left$(File1$,Ai%)+"GFK" Else File1$=File1$+".GFK" Endif Endif Endif If File1$<>"" And File1$<>"\" Ai%=Instr(File1$,".") If Ai%>0 File1$=Left$(File1$,Ai%)+"GFK" Else File1$=File1$+".GFK" Endif Endif If File1$<>"" And File1$<>"\" File$=Mid$(File1$,3) Ai%=Instr(File$,".") File$=Left$(File$,Ai%-1) Endif Sput Screen$ Return ' Procedure Such.fehler Gosub Invert(0) Clr X1%,Y1% E1flag!=False For L_x%=Cx% To Xmax% For L_y%=Cy% To Ymax% If Left$(Aus$(L_x%,L_y%),3)="*FE" X1%=L_x% Y1%=L_y% E1flag!=True Endif Exit If E1flag!=True Next L_y% Exit If E1flag!=True Next L_x% If X1%=0 And X2%=0 Out 2,7 Alert 0,"Keine Fehler gefunden ",1," okay ",In% Gosub Invert(1) Else X%=X1% Y%=Y1% Cx%=X1% Cy%=Y1% Gosub Aufbau.screen(X%,Y%,Cx%,Cy%) Endif Return ' Procedure Block.werte If B1x%>B2x% Or B1y%>B2y% Alert 3," |BLOCK-Koordinaten falsch| gewhlt !!",1,"Abbruch",H% H%=4 Else Gosub Invert(0) A$="Block -> Werte" Gosub Anzeige Alert 1," |Zellinhalte im Blockbereich|in die absoluten Werte|ndern ?",2," okay | nein ",In% If In%=1 Gespeichert!=False Defmouse 2 For L_x%=B1x% To B2x% For L_y%=B1y% To B2y% If Left$(Ein$(L_x%,L_y%),1)="=" Or (Asc(Ein$(L_x%,L_y%))>=48 And Asc(Ein$(L_x%,L_y%))<=57) Ein$(L_x%,L_y%)=Str$(Erg(L_x%,L_y%)) Aus$(L_x%,L_y%)=Ein$(L_x%,L_y%) Gosub Format.zelle(L_x%,L_y%) Endif Next L_y% Next L_x% Defmouse 0 Gosub Aufbau.screen(X%,Y%,Cx%,Cy%) Else Gosub Inv_anzeige Endif Endif Return ' Procedure Zeile.einfugen Gosub Invert(0) A$="Zeile einfgen" Gosub Anzeige If Ymax%=Hoehe% Alert 3," |Daten in Zeile 200|gehen verloren !",2," okay |Abbruch",In% Else In%=1 Inc Ymax% Endif If In%=1 Defmouse 2 Gespeichert!=False For L_y%=Ymax% Downto Cy%+1 For L_x%=1 To Xmax% Ein$(L_x%,L_y%)=Ein$(L_x%,L_y%-1) If Left$(Ein$(L_x%,L_y%),1)="=" Clr A% Repeat A%=Instr(Ein$(L_x%,L_y%),Chr$(126),A%+1) If A%<>0 Gosub Endern.koord2(1) Endif Until A%=0 Restore Funktion Do Read F$ Exit If F$="END" Repeat A%=Instr(Ein$(L_x%,L_y%),F$,A%+1) If A%<>0 Add A%,4 Gosub Endern.koord2(1) A%=Instr(Ein$(L_x%,L_y%),":",A%) Gosub Endern.koord2(1) Endif Until A%=0 Loop Endif Aus$(L_x%,L_y%)=Aus$(L_x%,L_y%-1) Erg(L_x%,L_y%)=Erg(L_x%,L_y%-1) Next L_x% Next L_y% For L_x%=1 To Xmax% Ein$(L_x%,Cy%)="" Aus$(L_x%,Cy%)=Space$(Breite%(L_x%)+1) Erg(L_x%,Cy%)=0 Next L_x% Gosub Recalc Defmouse 0 Else Gosub Inv_anzeige Endif Return ' Procedure Zeile.loschen Gosub Invert(0) A$="Zeile lschen" Gosub Anzeige Alert 3," |ZEILE wirklich LSCHEN ??",2," okay | nein ",In% If In%=1 Defmouse 2 Gespeichert!=False If Ymax%>=Cy% Dec Ymax% For L_y%=Cy% To Ymax% For L_x%=1 To Xmax% Ein$(L_x%,L_y%)=Ein$(L_x%,L_y%+1) If Left$(Ein$(L_x%,L_y%),1)="=" Clr A% Repeat A%=Instr(Ein$(L_x%,L_y%),Chr$(126),A%+1) If A%<>0 Gosub Endern.koord2(-1) Endif Until A%=0 Restore Funktion Do Read F$ Exit If F$="END" Repeat A%=Instr(Ein$(L_x%,L_y%),F$,A%+1) If A%<>0 Add A%,4 Gosub Endern.koord2(-1) A%=Instr(Ein$(L_x%,L_y%),":",A%) Gosub Endern.koord2(-1) Endif Until A%=0 Loop Endif Aus$(L_x%,L_y%)=Aus$(L_x%,L_y%+1) Erg(L_x%,L_y%)=Erg(L_x%,L_y%+1) Next L_x% Next L_y% For L_x%=1 To Xmax% Ein$(L_x%,Ymax%+1)="" Aus$(L_x%,Ymax%+1)=Space$(Breite%(L_x%)+1) Erg(L_x%,Ymax%+1)=0 Next L_x% Endif Gosub Recalc Defmouse 0 Else Gosub Inv_anzeige Endif Return ' Procedure Spalte.einfugen Gosub Invert(0) A$="Spalte einfgen" Gosub Anzeige If Xmax%=Breite% Alert 3," |Daten in Spalte Z|gehen verloren !",2," okay |Abbruch",In% Else In%=1 Inc Xmax% Endif If In%=1 Gespeichert!=False Defmouse 2 For L_x%=Breite% Downto Cx%+1 If Kopf$(L_x%-1)<>Chr$(L_x%+63) Kopf$(L_x%)=Kopf$(L_x%-1) Endif Next L_x% For L_x%=Breite% Downto Cx%+1 Breite%(L_x%)=Breite%(L_x%-1) Komma%(L_x%)=Komma%(L_x%-1) For L_y%=1 To Hoehe% Ein$(L_x%,L_y%)=Ein$(L_x%-1,L_y%) If Left$(Ein$(L_x%,L_y%),1)="=" Clr A% Repeat A%=Instr(Ein$(L_x%,L_y%),Chr$(126),A%+1) If A%<>0 Gosub Endern.koord3(1) Endif Until A%=0 Restore Funktion Do Read F$ Exit If F$="END" Repeat A%=Instr(Ein$(L_x%,L_y%),F$,A%+1) If A%<>0 Add A%,4 Gosub Endern.koord3(1) A%=Instr(Ein$(L_x%,L_y%),":",A%) Gosub Endern.koord3(1) Endif Until A%=0 Loop Endif Aus$(L_x%,L_y%)=Aus$(L_x%-1,L_y%) Erg(L_x%,L_y%)=Erg(L_x%-1,L_y%) Next L_y% Next L_x% Kopf$(Cx%)=Chr$(Cx%+64) Breite%(Cx%)=Breite%(0) Komma%(Cx%)=Komma%(0) For L_y%=1 To Hoehe% Ein$(Cx%,L_y%)="" Aus$(Cx%,L_y%)=Space$(Breite%(Cx%)+1) Erg(Cx%,L_y%)=0 Next L_y% Gosub Recalc Defmouse 0 Else Gosub Inv_anzeige Endif Return ' Procedure Spalte.loschen Gosub Invert(0) A$="Spalte lschen" Gosub Anzeige Alert 3," |SPALTE wirklich LSCHEN ??",2," okay | nein ",In% If In%=1 Defmouse 2 Gespeichert!=False If Xmax%>=Cx% Dec Xmax% For L_x%=Cx% To Breite%-1 If Kopf$(L_x%+1)<>Chr$(L_x%+65) Kopf$(L_x%)=Kopf$(L_x%+1) Endif Breite%(L_x%)=Breite%(L_x%+1) Komma%(L_x%)=Komma%(L_x%+1) For L_y%=1 To Hoehe% Ein$(L_x%,L_y%)=Ein$(L_x%+1,L_y%) If Left$(Ein$(L_x%,L_y%),1)="=" Clr A% Repeat A%=Instr(Ein$(L_x%,L_y%),Chr$(126),A%+1) If A%<>0 Gosub Endern.koord3(-1) Endif Until A%=0 Restore Funktion Do Read F$ Exit If F$="END" Repeat A%=Instr(Ein$(L_x%,L_y%),F$,A%+1) If A%<>0 Add A%,4 Gosub Endern.koord3(-1) A%=Instr(Ein$(L_x%,L_y%),":",A%) Gosub Endern.koord3(-1) Endif Until A%=0 Loop Endif Aus$(L_x%,L_y%)=Aus$(L_x%+1,L_y%) Erg(L_x%,L_y%)=Erg(L_x%+1,L_y%) Next L_y% Next L_x% Flag!=False For L_x%=Breite% Downto Cx% If Kopf$(L_x%)<>Chr$(L_x%+64) Flag!=True Kopf$(L_x%)=Chr$(L_x%+64) Endif Exit If Flag!=True Next L_x% Breite%(Xmax%+1)=Breite%(0) Komma%(Xmax%+1)=Komma%(0) For L_y%=1 To Hoehe% Ein$(Xmax%+1,L_y%)="" Aus$(Xmax%+1,L_y%)=Space$(Breite%(0)+1) Erg(Xmax%+1,L_y%)=0 Next L_y% Endif Gosub Recalc Defmouse 0 Else Gosub Inv_anzeige Endif Return ' Procedure Endern.koord2(Dy%) E1$=Left$(Ein$(L_x%,L_y%),A%+1) A1%=Val(Mid$(Ein$(L_x%,L_y%),A%+2)) If A1%>=Cy% A1%=Val?(Mid$(Ein$(L_x%,L_y%),A%+2)) Ein$=Mid$(Ein$(L_x%,L_y%),A%+2) Ein$=Str$(Val(Ein$)+Dy%)+Mid$(Ein$,1+A1%) If Left$(Ein$,1)="0" Mid$(Ein$,1,1)="1" Endif Ein$(L_x%,L_y%)=E1$+Ein$ Endif Return ' Procedure Endern.koord3(Dx%) E1$=Left$(Ein$(L_x%,L_y%),A%) A1%=Asc(Mid$(Ein$(L_x%,L_y%),A%+1))-64 If A1%>=Cx% Ein$=Mid$(Ein$(L_x%,L_y%),A%+1) Ein$=Chr$(Asc(Left$(Ein$,1))+Dx%)+Mid$(Ein$,2) If Left$(Ein$,1)=Chr$(64) Mid$(Ein$,1,1)="A" Endif Ein$(L_x%,L_y%)=E1$+Ein$ Endif Return ' Procedure Nachkomma Local X1%,Y1% Defmouse 2 For X1%=1 To Xmax% For Y1%=1 To Ymax% Gosub Format.zelle(X1%,Y1%) Next Y1% Next X1% Gosub Aufbau.screen(X%,Y%,Cx%,Cy%) Defmouse 0 Return ' Procedure Merken Local H$ Mx%=Cx% My%=Cy% Text 48,398*Dvs," " H$=Chr$(Mx%+64)+Str$(My%)+" " Graphmode 4 Text 48,398*Dvs,H$ Graphmode 1 Return ' Procedure Copy.cel.abs Ein$(Cx%,Cy%)=Ein$(Mx%,My%) Erg(Cx%,Cy%)=Erg(Mx%,My%) Gosub Format.zelle(Cx%,Cy%) Gosub Invert(1) Gosub C.minimax Return ' Procedure Copy.cel.rel Dx%=Cx%-Mx% Dy%=Cy%-My% X1%=1 Y1%=1 Hlp$(X1%,Y1%)=Ein$(Mx%,My%) If Left$(Hlp$(X1%,Y1%),1)="=" Clr A% Repeat A%=Instr(Hlp$(X1%,Y1%),Chr$(126),A%+1) If A%<>0 Gosub Endern.koord Endif Until A%=0 Restore Funktion Do Read F$ Exit If F$="END" Repeat A%=Instr(Hlp$(X1%,Y1%),F$,A%+1) If A%<>0 Add A%,4 Gosub Endern.koord A%=Instr(Hlp$(X1%,Y1%),":",A%) Gosub Endern.koord Endif Until A%=0 Loop Endif Ein$(Cx%,Cy%)=Hlp$(X1%,Y1%) Hlp$(X1%,Y1%)="" If Left$(Ein$(Cx%,Cy%),1)="=" Gosub Rechne.zelle(Cx%,Cy%) Endif Gosub Format.zelle(Cx%,Cy%) Gosub Invert(1) Gosub C.minimax Return ' Procedure Line.feed Gespeichert!=False If Lfeed!=True Lfeed!=False Menu 34,0 Else Lfeed!=True Menu 34,1 Endif Return ' Procedure Trennzeichen Gespeichert!=False If Trennz!=True Trennz!=False Menu 35,0 Else Trennz!=True Menu 35,1 Endif Return ' Procedure Bogenmass Gespeichert!=False If Grd<>1 Grd=1 Menu 67,1 Else Grd=Pi/180 Menu 67,0 Endif Return ' Procedure Nullen Gespeichert!=False If Null!=True Null!=False Menu 33,0 Else Null!=True Menu 33,1 Endif Gosub Nachkomma Return ' Procedure Help.screen Cls Print At(12,2);Chr$(27);"p F U N K T I O N E N ";Chr$(27);"q" Print At(9,4);"#PI -- Wert fr Pi (3.14...)" Print At(46,4);"#DAT -- Datum" Print At(6,6);"#SQR() -- Wurzel" Print At(6,7);"#LOG() -- Nat. Logarithmus" Print At(44,7);"#CLG() -- dek. Logarithmus" Print At(44,6);"#EXP() -- Exponentiation" Print At(6,8);"#SIN() -- Sinus" Print At(44,8);"#COS() -- Cosinus" Print At(6,9);"#TAN() -- Tangens" Print At(44,9);"#ATN() -- Arcustangens" Print At(6,10);"#INT() -- Integer" Print At(44,10);"#ABS() -- Absolutwert" Print At(6,11);"#RND() -- Runden auf Ganzzahl" Print At(44,11);"#FAK() -- Fakultt" Print At(12,13);"#SUM(A1:Z100) -- Summe" Print At(12,14);"#MUL(A1:Z100) -- Produkt" Print At(12,15);"#AVE(A1:Z100) -- Durchschnitt" Print At(12,16);"#STA(A1:Z100) -- Standardabweichung (div. n-1)" Print At(12,17);"#STD(A1:Z100) -- Standardabweichung (div. n)" Print At(12,18);"#QWN(A1:Z100) -- Quadratischer Mittelwert (div. n)" Print At(12,19);"#QMW(A1:Z100) -- Quadratischer Mittelwert (div. n-1)" Print At(12,20);"#MIN(A1:Z100) -- Minimum" Print At(12,21);"#MAX(A1:Z100) -- Maximum" Print At(12,23);"#NUN(N:n) -- N ber n = N!/(n!*(N-n)!)" Repeat A=Mousek Until A Or Inkey$<>"" Gosub Aufbau.screen(X%,Y%,Cx%,Cy%) Return ' Procedure Infozeile Local H$,A$ H$=" frei="+Str$(Fre(0)-100000)+" " A$=Space$(80) Mid$(A$,1)=Chr$(Cx%+64)+Str$(Cy%) Mid$(A$,7)=Chr$(Mx%+64)+Str$(My%) Mid$(A$,13)="Block lo="+Chr$(B1x%+64)+Str$(B1y%) Mid$(A$,27)="ru="+Chr$(B2x%+64)+Str$(B2y%) Mid$(A$,36)="Breite="+Str$(Bl.breite%)+"/"+Str$(All.breite%) Mid$(A$,60)=Str$(Breite%)+"*"+Str$(Hoehe%) Mid$(A$,81-Len(H$))=H$ H$=Space$(80) Text 0,398*Dvs,H$ Graphmode 4 Text 0,398*Dvs,A$ Graphmode 1 Return ' Procedure Beweg.cursor If (Aa%=72 Or Aa%=200) And Cy%>1 Gosub Hoch(1) Endif If (Aa%=80 Or Aa%=208) And Cy%1 Gosub Links(1) Endif Text 0,398*Dvs," " H$=Chr$(Cx%+64)+Str$(Cy%)+" " Graphmode 4 Text 0,398*Dvs,H$ Graphmode 1 Return ' Procedure Aufbau.screen(X%,Sy%,Cx%,Cy%) Color 1 If Grafik!=False Defmouse 0 Gosub Zahl.spalten(73) If Sy%>Hoehe%-Lng% Y%=Hoehe%-Lng% Sy%=Y% Endif Cls Put 0,12-12*Test%,Copyright$ Endif Deftext 1,0,0,13+7*Test% H$=" "+Chr$(14)+Chr$(15)+" IN/OUT FORMAT BLOCK ZELLE SPEZIAL GRAFIK" Text 0,16+8*Test%,H$ Defline 1 Line 0,18+8*Test%,639,18+8*Test% If Grafik!=False Breit%=6 For Xs%=X% To Spalten% Print At(Breit%,5);Left$(Kopf$(Xs%),Breite%(Xs%)) Deftext 1,,,6+2*Test% Text Breit%*8-8-2*Test%,60+31*Test%,Chr$(Xs%+64) Add Breit%,(Breite%(Xs%)+1) Next Xs% Deftext 1,,,13+7*Test% Tief%=6 For Ys%=Sy% To Sy%+Lng% Print At(2,Tief%);Using "### ",Ys%; For Xs%=X% To Spalten% Print Aus$(Xs%,Ys%); Next Xs% Inc Tief% Next Ys% X1%=36 Y1%=95+48*Test%+Lng%*16*Dvs Line X1%,63+23*Test%,X1%,Y1% Defline -&X101010101010101 For Xs%=X% To Spalten% Add X1%,Breite%(Xs%)*8+8 If Xs%<>Spalten% Line X1%,63+23*Test%,X1%,Y1% Endif Next Xs% Clr Zl% For Ys%=63*Dvs To Y1%-16*Dvs Step 16*Dvs Inc Zl% If Zl%<3 Defline 1 Else Defline -&X101010101010101 Endif Line 4,Ys%,X1%,Ys% Next Ys% Defline 1 Line X1%,63*Dvs,X1%,Y1% Line 4,Y1%,X1%,Y1% Line 3,63*Dvs,3,Y1% Gosub Zeichne_schieber1(X%) Gosub Zeichne_schieber2(Sy%) Gosub Infozeile Gosub Invert(1) Endif Repeat Until Inkey$="" Return ' Procedure Zeichne_schieber1(X%) Deffill 1,0 Pbox 622,57*Dvs,638,131*Dvs Deftext 1,0,0,13+9*Test% Text 626-2*Test%,71*Dvs+2*Test%,Chr$(4) Text 627-2*Test%,128*Dvs+Test%,Chr$(3) Deftext 1,,,6+2*Test% Text 626-2*Test%,84*Dvs+Test%,Chr$(X%+64) Deftext 1,,,13+7*Test% Line 623,73*Dvs+Test%,638,73*Dvs+Test% Line 623,115*Dvs-Test%,638,115*Dvs-Test% Line 623,88*Dvs+Test%,638,88*Dvs+Test% Defline -&X101010101010101 Delta_x=26/Breite% Line 623,(88+X%*Delta_x)*Dvs,637,(88+X%*Delta_x)*Dvs Defline 1 Return ' Procedure Zeichne_schieber2(Y%) Deffill 1,0 Pbox 622,135*Dvs,638,383*Dvs Deftext 1,0,0,13+9*Test% Text 626-2*Test%,149*Dvs+2*Test%,Chr$(1) Text 626-2*Test%,380*Dvs+Test%,Chr$(2) Deftext 1,,,6+2*Test% Text 624-2*Test%,161*Dvs+Test%,13+3*Test%,Chr$(1)+Chr$(1) Text 624-2*Test%,361*Dvs-Test%,13+3*Test%,Chr$(2)+Chr$(2) Deftext 1,,,13+7*Test% Line 623,151*Dvs+Test%,638,151*Dvs+Test% Line 623,367*Dvs-Test%,638,367*Dvs-Test% Defline 1 Gosub Zeichne_schieber3(Y%) Return ' Procedure Zeichne_schieber3(Y%) If Y%=1 Deffill 1,0 Pbox 622,167*Dvs+Test%,638,(167+Lng%*182/Hoehe%)*Dvs Deffill 2,2,4 Pbox 622,(167+Lng%*182/Hoehe%)*Dvs,638,351*Dvs-Test% Else If Y%=Hoehe%-Lng% Deffill 1,0 Pbox 622,(351-Lng%*182/Hoehe%)*Dvs,638,351*Dvs-Test% Deffill 2,2,4 Pbox 622,167*Dvs+Test%,638,(351-Lng%*182/Hoehe%)*Dvs Else Deffill 1,0 Pbox 622,(168+Y%*182/Hoehe%)*Dvs,638,(168+(Y%+Lng%)*182/Hoehe%)*Dvs-Test% Deffill 3,2,4 Pbox 622,167*Dvs+Test%,638,(168+Y%*182/Hoehe%)*Dvs Pbox 622,(168+(Y%+Lng%)*182/Hoehe%)*Dvs-Test%,638,351*Dvs-Test% Endif Endif Return ' Procedure Hoch(Dy%) Gosub Invert(0) Sub Cy%,Dy% If Cy%Y%+Lng% While Cy%>Y%+Lng% Inc Y% Wend If Flag% Gosub Aufbau.screen(X%,Y%,Cx%,Cy%) Endif Else If Flag% Gosub Invert(1) Endif Endif Return ' Procedure Rechts(Flag%) If Flag% Gosub Invert(0) Endif Inc Cx% Gosub Zahl.spalten(73) If Cx%>Spalten% Repeat Inc X% Gosub Zahl.spalten(73) Until Spalten%>=Cx% If Flag% Gosub Aufbau.screen(X%,Y%,Cx%,Cy%) Endif Else If Flag% Gosub Invert(1) Endif Endif Return ' Procedure Links(Dx%) Gosub Invert(0) Sub Cx%,Dx% If Cx%B% Next Spalten% Dec Spalten% Return ' Procedure Invert(Inv%) If Inv%=1 Inv$=Ron$ Else Inv$=Roff$ Endif Breit%=6 If Cx%>X% For Xs%=X% To Cx%-1 Add Breit%,(Breite%(Xs%)+1) Next Xs% Endif Tief%=6+Cy%-Y% H$=Left$(Aus$(Cx%,Cy%),Len(Aus$(Cx%,Cy%))-1) Print At(Breit%,Tief%);Inv$;H$;Roff$ If Left$(H$,3)="*FE" And Inv%=1 Print Chr$(7); Endif If Inv%=0 Breit%=Breit%*8-8 Tief%=Tief%*16/(1-(Aufloesung%=1))-1 If Cy%=Y%+Lng% Defline 1 Else Defline -&X101010101010101 Endif Line Breit%,Tief%,Breit%+Breite%(Cx%)*8,Tief% Defline 1 Endif Print At(2,3);Ein$(Cx%,Cy%);" ";Chr$(27);"K" Return ' Procedure Format.zelle(X%,Y%) Local H%,A% H$=Ein$(X%,Y%) If Left$(H$,5)="=#DAT" H$=" "+Date$ Erg(X%,Y%)=0 Else If Left$(H$,1)="=" If Left$(Aus$(X%,Y%),3)<>"*FE" H$=Str$(Erg(X%,Y%)) Else H$=Aus$(X%,Y%) Erg(X%,Y%)=0 Endif Else A1%=Instr(H$," !") If A1%<>0 H$=Left$(H$,A1%) Endif Endif Endif If Val?(Left$(H$,1))>0 Or (Left$(H$,1)="-" And Val?(Mid$(H$,2,1))>0) If Val(H$)>1.0E-10 Or Val(H$)<-1.0E-10 H=Trunc(Val(H$)*10^Komma%(X%)) H1$=Str$(H/10^Komma%(X%)) Else H=Val(H$) H1$=H$ Endif H%=Instr(H1$,".") If H%=0 And Komma%(X%)>0 If Null!=True H1$=H1$+"." Endif H%=Len(H1$) Endif A%=Instr(H1$,"E") If A%=0 If Len(H1$)-H%=Komma%(X%) H1$=Left$(H1$,H%+Komma%(X%))+Mid$(H1$,A%) Else If Null!=True H1$=Left$(H1$,A%-1)+String$(Komma%(X%)-A%+H%+1,"0")+Mid$(H1$,A%) Endif Endif Endif H$=Space$(Breite%(X%)) If Len(H1$)>Breite%(X%) H$=String$(Breite%(X%),"*") Else Rset H$=H1$ Endif Else H%=Len(H$) If H%0 Ein$(Cx%,Cy%)=Upper$(Left$(Ein$(Cx%,Cy%),A%))+Right$(Ein$(Cx%,Cy%),Len(Ein$(Cx%,Cy%))-A%) Else Ein$(Cx%,Cy%)=Upper$(Ein$(Cx%,Cy%)) Endif Gosub Rechne.zelle(Cx%,Cy%) Else Erg(Cx%,Cy%)=Val(Ein$(Cx%,Cy%)) Endif Gosub Format.zelle(Cx%,Cy%) Gespeichert!=False Gosub Inv_anzeige Return ' Procedure C.minimax If Cx%>Xmax% Xmax%=Cx% Gosub Breite.block Gosub Infozeile Endif If Cy%>Ymax% Ymax%=Cy% Gosub Breite.block Gosub Infozeile Endif Return ' Procedure Test.zelle(Cx%,Cy%) Local A%,A1! A1!=False Repeat A%=Instr(Ein$(Cx%,Cy%),",") If A%<>0 Mid$(Ein$(Cx%,Cy%),A%,1)="" A1!=True Endif Until A%=0 If A1!=True Repeat A%=Instr(Aus$(Cx%,Cy%),",") If A%<>0 Mid$(Aus$(Cx%,Cy%),A%,1)="" Endif Until A%=0 Endif Return ' Procedure Test.zelle2(Cx%,Cy%) Local A%,A1! A1!=False Repeat A%=Instr(Ein$(Cx%,Cy%),"") If A%<>0 Mid$(Ein$(Cx%,Cy%),A%,1)="," A1!=True Endif Until A%=0 If A1!=True Repeat A%=Instr(Aus$(Cx%,Cy%),"") If A%<>0 Mid$(Aus$(Cx%,Cy%),A%,1)="," Endif Until A%=0 Endif Return ' Procedure Recalc Local X1%,Y1% Gosub Invert(0) Defmouse 2 A$="Berechnung" Gosub Anzeige For Y1%=1 To Ymax% For X1%=1 To Xmax% If Left$(Ein$(X1%,Y1%),1)="=" Gosub Rechne.zelle(X1%,Y1%) Gosub Format.zelle(X1%,Y1%) Endif Next X1% Next Y1% Gosub Aufbau.screen(X%,Y%,Cx%,Cy%) Return ' Procedure Block.ru B2x%=Cx% B2y%=Cy% Gosub Breite.block Gosub Infozeile If Cx%B2x% Or Cy%>B2y% Print Chr$(7) Endif Return ' Procedure Laden Gosub Invert(0) Local X1%,Y1% H$="Laden von" Gosub Select(1) If H%<>3 And File1$<>"" Defmouse 2 Open "I",#1,File1$ If H%=1 Input #1,Ein$ If Ein$="B" Input #1,Breite% Input #1,Tit_zl% If Tit_zl% Menu 66,1 Else Menu 66,0 Endif Input #1,Tit_fl! Input #1,Ein$ Hoehe%=Min(5200/Breite%,999) Erase Hlp$() Gosub Array_loeschen Dim Hlp$(Breite%,Hoehe%) Endif If Ein$="N" Or Ein$="C" If Ein$="C" Input #1,Code$ Print At(2,3);"Bitte CODE eingeben (6 Zeichen) : ";Chr$(7); Ein$=Input$(6) Print At(2,3);Chr$(27);"K" Code!=True Cd%=3 If Ein$<>Code$ Code!=False Cd%=2 Endif Else Code$="" Code!=True Endif If Code!=True Input #1,Null! If Null!=True Menu 33,1 Else Menu 33,0 Endif Input #1,Lfeed! If Lfeed!=True Menu 34,1 Else Menu 34,0 Endif Input #1,Trennz! If Trennz!=True Menu 35,1 Else Menu 35,0 Endif Input #1,Grd If Grd=1 Menu 67,1 Else Menu 67,0 Endif Else Print At(2,3);"CODE FALSCH !";Chr$(7); Close #1 Pause 50 Endif Endif Else Code$="" Cd%=2 Code!=True Endif If Code!=True Input #1,S1x% Input #1,S1y% Input #1,S2x% Input #1,S2y% If H%=1 Xmax%=S2x% Ymax%=S2y% For X1%=1 To Breite% Input #1,Breite%(X1%) Input #1,Komma%(X1%) Input #1,Kopf$(X1%) H$=Space$(Breite%(X1%)+1) For Y1%=1 To Hoehe% Aus$(X1%,Y1%)=H$ Ein$(X1%,Y1%)="" Next Y1% Next X1% Gespeichert!=True Gosub Breite.block Endif If H%=2 S1x%=S1x%+Cx%-1 S1y%=S1y%+Cy%-1 S2x%=S2x%+Cx%-1 S2y%=S2y%+Cy%-1 Gespeichert!=False Endif If S2x%>Breite% Or S2y%>Hoehe% Alert 3," | Block zu breit ! ",1," ok ",H% Else For X1%=S1x% To S2x% For Y1%=S1y% To S2y% Input #1;Ein$(X1%,Y1%) Input #1;Aus$(X1%,Y1%) Gosub Test.zelle2(X1%,Y1%) Erg(X1%,Y1%)=Val(Ein$(X1%,Y1%)) If Left$(Ein$(X1%,Y1%),1)="=" Input #1;Erg(X1%,Y1%) Endif If H%=2 Gosub Format.zelle(X1%,Y1%) Endif Next Y1% Next X1% Xmax%=Max(X1%-1,Xmax%) Ymax%=Max(Y1%-1,Ymax%) Close #1 Gosub Breite.block Endif Endif Gosub Aufbau.screen(X%,Y%,Cx%,Cy%) Endif Gosub Inv_anzeige Defmouse 0 Return ' Procedure Speichern Gosub Invert(0) Local X1%,Y1% Gosub Select(0) If H%<>3 And E_flag!=False And File1$<>"" Defmouse 2 Open "O",#1,File1$ If H%=1 Print #1;"B" Print #1;Breite% Print #1;Tit_zl% Print #1;Tit_fl! If Cd%=1 Ein$="" Print At(2,3);Chr$(7);"Bitte CODE eingeben (6 Zeichen) : "; Form Input 6 As Ein$ Ein$=Ein$+" " Ein$=Left$(Ein$,6) Print #1;"C" Print #1;Ein$ Else If Cd%=3 Print #1;"C" Print #1;Code$ Else Print #1;"N" Endif Endif Print #1;Null! Print #1;Lfeed! Print #1;Trennz! Print #1;Grd Print #1;S1x% Print #1;S1y% Print #1;S2x% Print #1;S2y% Else Print #1;1 Print #1;1 Print #1;S2x%-S1x%+1 Print #1;S2y%-S1y%+1 Endif If H%=1 For X1%=1 To Breite% Print #1;Breite%(X1%) Print #1;Komma%(X1%) Print #1;Kopf$(X1%) Next X1% Gespeichert!=True Endif For X1%=S1x% To S2x% For Y1%=S1y% To S2y% Gosub Test.zelle(X1%,Y1%) Print #1;Ein$(X1%,Y1%) Print #1;Aus$(X1%,Y1%) Gosub Test.zelle2(X1%,Y1%) If Left$(Ein$(X1%,Y1%),1)="=" Print #1;Erg(X1%,Y1%) Endif Next Y1% Next X1% Close #1 Endif Gosub Inv_anzeige Defmouse 0 Return ' Procedure Breite Local Y1% Gosub Invert(0) A$="Breite stellen" Gosub Anzeige H$="(Esc) Breite Spalte (1 - 72) "+Chr$(Cx%+64)+" = " H%=Breite%(Cx%) Gosub Ein.zahl(H$,H%,1,72,2,3) If Val(Aus$)<>-1 Defmouse 2 Breite%(Cx%)=Val(Aus$) For Y1%=1 To Hoehe% Gosub Format.zelle(Cx%,Y1%) Next Y1% Gosub Adjust.screen Defmouse 0 Else Gosub Inv_anzeige Endif Return ' Procedure Breite.all Local Y1% Gosub Invert(0) A$="Breite stellen" Gosub Anzeige H$="(Esc) Breite aller Spalten (1 - 72) = " H%=Breite%(0) Gosub Ein.zahl(H$,H%,1,72,2,3) If Val(Aus$)<>-1 Defmouse 2 Arrayfill Breite%(),Val(Aus$) For Sx%=1 To Breite% For Y1%=1 To Hoehe% Gosub Format.zelle(Sx%,Y1%) Next Y1% Next Sx% Gosub Adjust.screen Defmouse 0 Else Gosub Inv_anzeige Endif Return ' Procedure Adjust.screen Gosub Breite.block Gespeichert!=False Dec X% Repeat Inc X% Gosub Zahl.spalten(73) Until Spalten%>=Cx% Gosub Aufbau.screen(X%,Y%,Cx%,Cy%) Return ' Procedure Komma Local Y1% Gosub Invert(0) A$="Komma stellen" Gosub Anzeige H$="(Esc) Nachkommastellen Spalte "+Chr$(Cx%+64)+" = " H%=Komma%(Cx%) Gosub Ein.zahl(H$,H%,0,9,2,3) If Val(Aus$)<>-1 Defmouse 2 Komma%(Cx%)=Val(Aus$) Gespeichert!=False For Y1%=1 To Ymax% Gosub Format.zelle(Cx%,Y1%) Next Y1% Gosub Aufbau.screen(X%,Y%,Cx%,Cy%) Else Gosub Inv_anzeige Endif Return ' Procedure Komma.all Local Y1% Gosub Invert(0) A$="Komma stellen" Gosub Anzeige H$="(Esc) Nachkommastellen fr alle Spalten = " H%=Komma%(0) Gosub Ein.zahl(H$,H%,0,9,2,3) If Val(Aus$)<>-1 Defmouse 2 Arrayfill Komma%(),Val(Aus$) For Sx%=1 To Xmax% For Y1%=1 To Ymax% Gosub Format.zelle(Sx%,Y1%) Next Y1% Next Sx% Gespeichert!=False Gosub Aufbau.screen(X%,Y%,Cx%,Cy%) Else Gosub Inv_anzeige Endif Return ' Procedure Inv_anzeige Gosub Invert(1) A$="" Gosub Anzeige Return ' Procedure Copy.abs H2$="Kopieren" Gosub Block.abs(0) Return ' Procedure Copy.rel H2$="Kopieren rel." Gosub Block.rel(0) Return ' Procedure Move.abs H2$="Verschieben" Gosub Block.abs(1) Return ' Procedure Move.rel H2$="Verschieben rel." Gosub Block.rel(1) Return ' Procedure Gehe.zelle Gosub Invert(0) Print At(2,3);Chr$(27);"l" Print At(2,3);"Gehe Zelle ";Chr$(27);"p ";Chr$(27);"q"; Repeat K$=Inkey$ Until (K$>="A" And K$<="Z") Or (K$>="a" And K$<="z") Or (K$=Chr$(13)) If K$<>Chr$(13) X%=Asc(K$)+32*(K$>"Z")-64 Cx%=X% H$="Gehe Feld "+Chr$(X%+64) Gosub Ein.zahl(H$,1,1,Hoehe%,2,3) Y%=Val(Aus$) Cy%=Y% Gosub Aufbau.screen(X%,Y%,Cx%,Cy%) Else Print At(2,3);Chr$(27);"l ";Ein$(Cx%,Cy%) Gosub Invert(1) Endif Return ' Procedure Gehe.a1 If X%=1 And Y%=1 Gosub Invert(0) Cx%=1 Cy%=1 Text 0,398*Dvs," " H$=Chr$(Cx%+64)+Str$(Cy%)+" " Graphmode 4 Text 0,398*Dvs,H$ Graphmode 1 Gosub Invert(1) Else X%=1 Y%=1 Cx%=1 Cy%=1 Gosub Aufbau.screen(X%,Y%,Cx%,Cy%) Endif Return ' Procedure Drucken Gosub Invert(0) A$="Ausdruck" Gosub Anzeige Sget Screen$ Gosub Draw.ausdruck Gosub Control.ausdruck Sput Screen$ If H%<>3 Gosub Koordinaten(H%) If E_flag!=False Defmouse 2 If A1%=1 Open "O",#2,"PRN:" Print #2;Chr$(27);"R";Chr$(2);Chr$(27);"l";Chr$(0); Else Sget Screen$ Fileselect "\*.TXT","",Dfile$ Sput Screen$ If Dfile$<>"" Open "O",#2,Dfile$ Endif Endif If A1%=1 Or Dfile$<>"" If H%=1 A%=All.breite% Else A%=Bl.breite% Endif If A1%=1 Links$=Space$(6) Print #2;Chr$(18);Chr$(27);"P"; If A%>74+4*(Z!=True) If A%>88+4*(Z!=True) If A%>122+4*(Z!=True) Print #2;Chr$(27);"M";Chr$(15); Links$=Space$(12) Else Print #2;Chr$(15); Links$=Space$(10) Endif Else Print #2;Chr$(27);"M"; Links$=Space$(8) Endif Endif Endif Clr Zeilen% If T!=True Gosub Dr_kopf Endif If Ymax%>Tit_zl% For D_y%=S1y%+Tit_zl% To S2y% Gosub Dr_zeile If Zeilen%>64 And A1%=1 Print #2;Chr$(12); Clr Zeilen% If T!=True Gosub Dr_kopf Endif Endif Next D_y% Endif If A1%=1 Print #2;Chr$(12); Endif Close #2 Endif Endif Endif Gosub Inv_anzeige Defmouse 0 Return ' Procedure Dr_kopf Local X%,D_y% Print #2;Links$; If Z!=True Print #2;" "; Endif For X%=S1x% To S2x% H$=Kopf$(X%) If Len(H$)>=Breite%(X%) H$=Left$(H$,Breite%(X%)) Else H$=H$+Space$(Breite%(X%)-Len(H$)) Endif Gosub Test.umlaut If Trennz!=False Print #2;H$;" "; Else Print #2;H$;"!"; Endif Next X% Zeilen%=2 If Lfeed!=True Print #2 Else Print #2;Chr$(13); Endif If Tit_zl%>0 And Ymax%>=Tit_zl% If Tit_fl!=False For D_y%=1 To Tit_zl% Gosub Dr_zeile Next D_y% Else For D_y%=1 To Tit_zl% H$=Left$(Ein$(1,D_y%),75) Gosub Test.umlaut Print #2;Links$;H$; Inc Zeilen% If Lfeed!=True Print #2 Else Print #2;Chr$(13); Endif Next D_y% Endif Endif If Lfeed!=True Print #2 Else Print #2;Chr$(13); Endif Return ' Procedure Dr_zeile Local X% Print #2;Links$; If Z!=True Print #2;Using "###_ ",D_y%; Endif For X%=S1x% To S2x% H$=Aus$(X%,D_y%) Gosub Test.umlaut If Trennz!=False Print #2;H$; Else Print #2;Left$(H$,Len(H$)-1);"!"; Endif Next X% Inc Zeilen% If Lfeed!=True Print #2 Else Print #2;Chr$(13); Endif Return ' Procedure Draw.ausdruck Graphmode 1 Gosub Shadow.box(170,60*Dvs,480,305*Dvs,2,4) Graphmode 4 Deffill ,2,8 Pbox 120,70*Dvs,120,70*Dvs Pbox 120,70*Dvs,520,90*Dvs Graphmode 1 Deffill ,2,2 Pbox 190,70*Dvs,460,110*Dvs Graphmode 2 Deftext ,0-Test%,,13+7*Test% Text 260,95*Dvs," A U S D R U C K " Deftext ,0 Graphmode 1 Deffill ,2,8 Pbox 190,120*Dvs,310,150*Dvs Pbox 190,200*Dvs,310,230*Dvs Deffill ,0,0 Pbox 340,120*Dvs,460,150*Dvs Pbox 190,160*Dvs,310,190*Dvs Pbox 340,160*Dvs,460,190*Dvs Pbox 340,200*Dvs,460,230*Dvs Text 380,140*Dvs,"BLOCK" Text 215,180*Dvs,"mit TITEL" Text 365,180*Dvs,"mit ZEILE" Text 370,220*Dvs,"DISKETTE" Graphmode 3 Text 230,140*Dvs,"BLATT" Text 220,220*Dvs,"DRUCKER" Graphmode 1 Gosub Frame.box(190,250*Dvs,315,290*Dvs,0,0) Gosub Frame.box(340,250*Dvs,460,290*Dvs,0,0) Text 245,275*Dvs-Test%,"OK" Text 375,275*Dvs-Test%,"ABBRUCH" Return ' Procedure Control.ausdruck Ex!=False H%=1 A1%=1 T!=False Z!=False Do Mouse X,Y,K Y=Y/Dvs If K=1 If X>191 And X<309 And Y>120 And Y<150 H%=1 Deffill ,2,8 Pbox 190,120*Dvs,310,150*Dvs Deffill ,0,0 Pbox 340,120*Dvs,460,150*Dvs Text 380,140*Dvs,"BLOCK" Graphmode 3 Text 230,140*Dvs,"BLATT" Graphmode 1 Endif If X>340 And X<460 And Y>120 And Y<150 H%=2 Deffill ,2,8 Pbox 340,120*Dvs,460,150*Dvs Deffill ,0,0 Pbox 190,120*Dvs,310,150*Dvs Text 230,140*Dvs,"BLATT" Graphmode 3 Text 380,140*Dvs,"BLOCK" Graphmode 1 Endif If X>190 And X<310 And Y>160 And Y<190 If T!=False T!=True Deffill ,2,8 Pbox 190,160*Dvs,310,190*Dvs Graphmode 3 Text 215,180*Dvs,"mit TITEL" Graphmode 1 Else T!=False Deffill ,0,0 Pbox 190,160*Dvs,310,190*Dvs Text 215,180*Dvs,"mit TITEL" Endif Pause 10 Endif If X>340 And X<460 And Y>160 And Y<190 If Z!=False Z!=True Deffill ,2,8 Pbox 340,160*Dvs,460,190*Dvs Graphmode 3 Text 365,180*Dvs,"mit ZEILE" Graphmode 1 Else Z!=False Deffill ,0,0 Pbox 340,160*Dvs,460,190*Dvs Text 365,180*Dvs,"mit ZEILE" Endif Pause 10 Endif If X>190 And X<310 And Y>200 And Y<230 A1%=1 Deffill ,2,8 Pbox 190,200*Dvs,310,230*Dvs Deffill ,0,0 Pbox 340,200*Dvs,460,230*Dvs Graphmode 3 Text 220,220*Dvs,"DRUCKER" Graphmode 1 Text 370,220*Dvs,"DISKETTE" Endif If X>340 And X<460 And Y>200 And Y<230 A1%=2 Deffill ,2,8 Pbox 340,200*Dvs,460,230*Dvs Deffill ,0,0 Pbox 190,200*Dvs,310,230*Dvs Text 220,220*Dvs,"DRUCKER" Graphmode 3 Text 370,220*Dvs,"DISKETTE" Graphmode 1 Endif If X>195 And X<310 And Y>255 And Y<285 Ex!=True Endif If X>345 And X<455 And Y>255 And Y<285 H%=3 Ex!=True Endif Endif Exit If Ex!=True Loop Repeat Until Mousek=0 Return ' Procedure Test.umlaut If H$<>"" And A1%=1 Restore Umlaute Do Read H1$ Exit If H1$="*" Read H% Do A%=Instr(H$,H1$) Exit If A%=0 Mid$(H$,A%,1)=Chr$(H%) Loop Loop Endif Umlaute: Data ,123,,124,,125,,91,,92,,93,,126,* Return ' Procedure Kopf Local X1% For X1%=1 To Breite% Print At(2,3);"Kopf Spalte ";Chr$(X1%+64);" : ";Chr$(27);"K"; Form Input 77 As Kopf$(X1%) Print At(2,3);Chr$(27);"K" Next X1% Gespeichert!=False Gosub Aufbau.screen(X%,Y%,Cx%,Cy%) Return ' Procedure Ende Gosub Test.gesp Alert 2," |Willst Du wirklich das|Programm verlassen ?",2," ja | nein ",H% If H%=1 Menu Kill Edit Endif Return ' Procedure Loesche.zelle Gespeichert!=False Ein$(Cx%,Cy%)="" Erg(Cx%,Cy%)=0 Aus$(Cx%,Cy%)=Space$(Breite%(Cx%)+1) Gosub Invert(1) Return ' Procedure Loeschen Alert 1," | LSCHEN von ",3," allem | Block | nichts ",H% If H%<>3 If H%=1 Gosub Loesche.all Else Gosub Loesche.block Endif Endif Return ' Procedure Loesche.all Alert 1," |LSCHEN des ARBEITSBLATTES",2," ja | nein ",H% If H%=1 Defmouse 2 Gosub Test.gesp Erase Hlp$() Gosub Array_loeschen Clr Tit_zl% Tit_fl!=False Gosub Grafik_init Dim Hlp$(Breite%,Hoehe%) Defmouse 1 Gosub Aufbau.screen(X%,Y%,Cx%,Cy%) Endif Return ' Procedure Loesche.block If B1x%>B2x% Or B1y%>B2y% Alert 3," |BLOCK-Koordinaten falsch| gewhlt !!",1,"Abbruch",H% Else Alert 1," |LSCHEN des BLOCKES",2," ja | nein ",H% If H%=1 For X1%=B1x% To B2x% H$=Space$(Breite%(X1%)+1) For Y1%=B1y% To B2y% Ein$(X1%,Y1%)="" Erg(X1%,Y1%)=0 Aus$(X1%,Y1%)=H$ Next Y1% Next X1% Gespeichert!=False Gosub Aufbau.screen(X%,Y%,Cx%,Cy%) Endif Endif Return ' Procedure Ein.zahl(H$,K%,Min%,Max%,X%,Y%) Local Lng% H$=H$+" " Lng%=Len(Str$(Max%)) Ein$=Str$(K%) Print Chr$(27);"e"; Repeat Aus$="" If Y%=3 Print At(X%,Y%);Chr$(27);"l" Endif Print At(X%,Y%);H$;Ein$ Print At(X%-1+Len(H$),Y%);" "; Repeat Until Inkey$="" Repeat In$=Chr$(Inp(2)) If In$=Chr$(8) And Len(Aus$)>=1 Aus$=Left$(Aus$,Len(Aus$)-1) Endif If In$>="0" And In$<="9" And Len(Aus$)Max%) And K%<>-1 Print Chr$(7) Print At(X%+Len(H$),Y%);Ein$;Spc(Lng%-Len(Ein$)) Endif Until (K%>=Min% And K%<=Max%) Or K%=-1 Print Chr$(27);"f" Return ' Procedure Select(Flag%) If Flag%=0 A$="Speichern" Gosub Anzeige Sget Screen$ Gosub Draw.speicher Gosub Control.speicher Else A$="Laden" Gosub Anzeige Sget Screen$ Alert 2," | Laden von ",3," allem | Block | nichts ",H% Endif If H%<>3 If H%=1 If Flag%=1 Gosub Test.gesp A$="Laden" Gosub Anzeige Endif H$="\*.CLC" Else H$="\*.BLK" Endif Gosub Koordinaten(H%) If E_flag!=False Fileselect H$,File$,File1$ If Len(File1$)>4 If H%=1 If Right$(File1$,4)<>".CLC" Ai%=Instr(File1$,".") If Ai%>0 File1$=Left$(File1$,Ai%)+"CLC" Else File1$=File1$+".CLC" Endif Endif Else If Right$(File1$,4)<>".BLK" Ai%=Instr(File1$,".") If Ai%>0 File1$=Left$(File1$,Ai%)+"BLK" Else File1$=File1$+".BLK" Endif Endif Endif Else If File1$<>"" And File1$<>"\" If H%=1 Ai%=Instr(File1$,".") If Ai%>0 File1$=Left$(File1$,Ai%)+"CLC" Else File1$=File1$+".CLC" Endif Else Ai%=Instr(File1$,".") If Ai%>0 File1$=Left$(File1$,Ai%)+"BLK" Else File1$=File1$+".BLK" Endif Endif Endif Endif If File1$<>"" And File1$<>"\" File$=Mid$(File1$,3) Ai%=Instr(File$,".") File$=Left$(File$,Ai%-1) Endif Gosub Koordinaten(H%) Endif Endif Sput Screen$ Return ' Procedure Draw.speicher Graphmode 1 Gosub Shadow.box(160,64*Dvs,480,296*Dvs,2,4) Deffill ,2,2 Pbox 180,74*Dvs,460,115*Dvs Deffill ,0,0 Pbox 325,130*Dvs,460,166*Dvs Deffill ,2,8 Pbox 180,130*Dvs,315,166*Dvs Graphmode 2 Deftext ,0-Test%,,13+7*Test% Text 246,100*Dvs," S P E I C H E R N " Deftext ,0 Graphmode 1 Text 370,152*Dvs,"BLOCK" Graphmode 3 Text 225,152*Dvs,"BLATT" Gosub Draw.codebox Gosub Frame.box(180,240*Dvs,315,286*Dvs,0,0) Gosub Frame.box(325,240*Dvs,460,285*Dvs,0,0) Text 240,268*Dvs,"OK" Text 365,268*Dvs,"ABBRUCH" Return ' Procedure Control.speicher Ex!=False H%=1 Do Mouse X,Y,K Y=Y/Dvs If K=1 If X>180 And X<315 And Y>130 And Y<165 H%=1 Deffill ,2,8 Pbox 180,130*Dvs,315,166*Dvs Deffill ,0,0 Pbox 325,130*Dvs,460,166*Dvs Graphmode 3 Text 225,152*Dvs,"BLATT" Graphmode 1 Text 370,152*Dvs,"BLOCK" Gosub Draw.codebox Endif If X>325 And X<459 And Y>130 And Y<165 H%=2 Deffill ,0,0 Pbox 180,130*Dvs,315,166*Dvs Pbox 325,180*Dvs,460,216*Dvs Deffill ,2,8 Pbox 325,130*Dvs,460,166*Dvs Pbox 180,180*Dvs,315,216*Dvs Text 225,152*Dvs,"BLATT" Text 360,202*Dvs,"mit CODE" Graphmode 3 Text 370,152*Dvs,"BLOCK" Text 210,202*Dvs,"ohne CODE" Graphmode 1 Endif If X>180 And X<315 And Y>180 And Y<215 And Cd%<3 Cd%=2 Deffill ,2,8 Pbox 180,180*Dvs,315,216*Dvs Deffill ,0,0 Pbox 325,180*Dvs,460,216*Dvs Text 360,202*Dvs,"mit CODE" Graphmode 3 Text 210,202*Dvs,"ohne CODE" Graphmode 1 Endif If X>325 And X<459 And Y>180 And Y<215 And Cd%<3 And H%=1 Cd%=1 Deffill ,0,0 Pbox 180,180*Dvs,315,216*Dvs Deffill ,2,8 Pbox 325,180*Dvs,460,216*Dvs Graphmode 3 Text 360,202*Dvs,"mit CODE" Graphmode 1 Text 210,202*Dvs,"ohne CODE" Endif If X>185 And X<310 And Y>245 And Y<280 Ex!=True Endif If X>330 And X<455 And Y>245 And Y<280 H%=3 Ex!=True Endif Endif Exit If Ex!=True Loop Repeat Until Mousek=0 Return ' Procedure Draw.codebox Graphmode 1 If Cd%<>1 And Cd%<>3 Deffill ,2,8 Pbox 180,180*Dvs,315,216*Dvs Deffill ,0,0 Pbox 325,180*Dvs,460,216*Dvs Graphmode 1 Text 360,202*Dvs,"mit CODE" Graphmode 3 Text 210,202*Dvs,"ohne CODE" Else Deffill ,0,0 Pbox 180,180*Dvs,315,216*Dvs Deffill ,2,8 Pbox 325,180*Dvs,460,216*Dvs Graphmode 3 Text 360,202*Dvs,"mit CODE" Graphmode 1 Text 210,202*Dvs,"ohne CODE" Endif Graphmode 1 Return ' Procedure Shadow.box(X%,Y%,W%,H%,Fstyle%,Findex%) If X%>W% Swap X%,W% Endif If Y%>H% Swap Y%,H% Endif Deffill 1,1 Pbox X%+2,H%,W%+2,H%+2 Pbox W%,Y%+2,W%+2,H% If Fstyle%=4 Box X%,Y%,W%,H% Else Deffill 2,Fstyle%,Findex% Pbox X%,Y%,W%,H% Endif Deffill 1 Return ' Procedure Frame.box(X%,Y%,W%,H%,Fstyle%,Findex%) If X%>W% Swap X%,W% Endif If Y%>H% Swap Y%,H% Endif If Fstyle%=4 Box X%,Y%,W%,H% Box X%+5,Y%+5,W%-5,H%-5 Line X%,Y%,X%+5,Y%+5 Line W%,Y%,W%-5,Y%+5 Line W%,H%,W%-5,H%-5 Line X%,H%,X%+5,H%-5 Else Deffill 1,0 Pbox X%,Y%,W%,H% Line X%,Y%,X%+5,Y%+5 Line W%,Y%,W%-5,Y%+5 Line W%,H%,W%-5,H%-5 Line X%,H%,X%+5,H%-5 Deffill 1,Fstyle%,Findex% Pbox X%+5,Y%+5,W%-5,H%-5 Endif Return ' Procedure Koordinaten(H%) E_flag!=False If H%=1 S1x%=1 S1y%=1 S2x%=Xmax% S2y%=Ymax% Else If B1x%>B2x% Or B1y%>B2y% And Left$(A$,17)<>" Laden" Alert 3," |BLOCK-Koordinaten falsch| gewhlt !!",1,"Abbruch",H% E_flag!=True Else S1x%=B1x% If Left$(A$,17)=" Ausdruck" S1y%=B1y%-Tit_zl% Else S1y%=B1y% Endif S2x%=B2x% S2y%=B2y% Endif Endif Return ' Procedure Block.abs(Flag%) If B1x%>B2x% Or B1y%>B2y% Alert 3," |BLOCK-Koordinaten falsch| gewhlt !!",1,"Abbruch",H% H%=4 Else Gosub Hol.block If Ac%<>27 Gosub Schreib.block(Flag%,0) Gosub Aufbau.screen(X%,Y%,Cx%,Cy%) Endif Endif Return ' Procedure Block.rel(Flag%) If B1x%>B2x% Or B1y%>B2y% Alert 3," |BLOCK-Koordinaten falsch| gewhlt !!",1,"Abbruch",H% H%=4 Else Gosub Hol.block If Ac%<>27 Dx%=Cx%-B1x% Dy%=Cy%-B1y% For Y1%=B1y% To B2y% For X1%=B1x% To B2x% If Left$(Hlp$(X1%,Y1%),1)="=" Clr A% Repeat A%=Instr(Hlp$(X1%,Y1%),Chr$(126),A%+1) If A%<>0 Gosub Endern.koord Endif Until A%=0 Restore Funktion Funktion: Data #SUM,#AVE,#STA,#STD,#MUL,#MIN,#MAX,#QMN,#QMW,END Do Read F$ Exit If F$="END" Repeat A%=Instr(Hlp$(X1%,Y1%),F$,A%+1) If A%<>0 Add A%,4 Gosub Endern.koord A%=Instr(Hlp$(X1%,Y1%),":",A%) Gosub Endern.koord Endif Until A%=0 Loop Endif Next X1% Next Y1% Gosub Schreib.block(Flag%,1) Endif Endif Return ' Procedure Endern.koord E1$=Left$(Hlp$(X1%,Y1%),A%) A1%=Val?(Mid$(Hlp$(X1%,Y1%),A%+2)) Ein$=Mid$(Hlp$(X1%,Y1%),A%+1) Ein$=Chr$(Asc(Left$(Ein$,1))+Dx%)+Mid$(Ein$,2) If Left$(Ein$,1)<"A" Mid$(Ein$,1,1)="A" Endif If Left$(Ein$,1)>Chr$(Breite%+64) Mid$(Ein$,1,1)=Chr$(Breite%+64) Endif H%=Val(Mid$(Ein$,2))+Dy% H%=Min(H%,Hoehe%) H%=Max(H%,1) Ein$=Left$(Ein$,1)+Str$(H%)+Mid$(Ein$,2+A1%) Hlp$(X1%,Y1%)=E1$+Ein$ Return ' Procedure Hol.block A$=H2$ Gosub Anzeige Print At(2,3);Chr$(7);Chr$(27);"l" Print At(2,3);"(Esc) Bewege Cursor an die linke obere Ecke, dann 'Return' oder Mausklick re"; Repeat Clr Mo_k%,Ac% Repeat Until Inkey$="" Repeat Mo_k%=Mousek Until Inp?(2) Or Mo_k%=2 If Mo_k%=2 Ac%=13 Else Ac%=Inp(2) Endif If Ac%<>13 And Ac%<>27 Swap Aa%,Ac% Gosub Beweg.cursor Swap Aa%,Ac% Endif Until Ac%=13 Or Ac%=27 If Ac%=13 If (Cx%+(B2x%-B1x%)<=Breite%) And (Cy%+(B2y%-B1y%)<=Hoehe%) Defmouse 2 For X1%=B1x% To B2x% For Y1%=B1y% To B2y% Hlp$(X1%,Y1%)=Ein$(X1%,Y1%) Next Y1% Next X1% Gespeichert!=False Endif Else Print Chr$(7) Gosub Aufbau.screen(X%,Y%,Cx%,Cy%) Endif Return ' Procedure Schreib.block(Flag%,Rel%) If (Cx%+(B2x%-B1x%)<=Breite%) And (Cy%+(B2y%-B1y%)<=Hoehe%) If Flag%=1 For X1%=B1x% To B2x% H$=Space$(Breite%(X1%)+1) For Y1%=B1y% To B2y% Ein$(X1%,Y1%)="" Erg(X1%,Y1%)=0 Aus$(X1%,Y1%)=H$ Next Y1% Next X1% Endif For X1%=Cx% To Cx%+(B2x%-B1x%) For Y1%=Cy% To Cy%+(B2y%-B1y%) Ein$(X1%,Y1%)=Hlp$(X1%-Cx%+B1x%,Y1%-Cy%+B1y%) Hlp$(X1%-Cx%+B1x%,Y1%-Cy%+B1y%)="" If Left$(Ein$(X1%,Y1%),1)="=" And Rel%=0 Gosub Rechne.zelle(X1%,Y1%) Else Erg(X1%,Y1%)=Val(Ein$(X1%,Y1%)) Endif Gosub Format.zelle(X1%,Y1%) Next Y1% Next X1% Xmax%=Max(X1%-1,Xmax%) Ymax%=Max(Y1%-1,Ymax%) Gosub Breite.block If Rel%=1 Gosub Recalc Endif Else Alert 3," | Block zu breit ! ",1," ok ",H% Gosub Aufbau.screen(X%,Y%,Cx%,Cy%) Endif Return ' Procedure Rechne.zelle(X%,Y%) Eflag%=False If Left$(Ein$(X%,Y%),5)<>"=#DAT" Gosub Berechnung(Mid$(Ein$(X%,Y%),2)+" ") If Eflag%=False Aus$(X%,Y%)="" Erg(X%,Y%)=Stack(1) Else Aus$(X%,Y%)="*FEHLER*" Erg(X%,Y%)=0 A$=" | "+Fehler$(Eflag%)+" | in Zelle "+Chr$(X%+64)+Str$(Y%) Alert 3,A$,1," weiter ",H% Endif Endif Return ' Procedure Berechnung(Ein$) Local A%,A1%,A2%,I%,J%,J1%,J2%,H%,H1%,H2%,H$ Clr Zexp%,Zstack%,Klammer% A%=Instr(Ein$," !") If A%<>0 Ein$=Left$(Ein$,A%) Endif Do Flag!=False A%=Instr(Ein$,"#") Exit If A%=0 Or Eflag%<>0 ' ' SUM ' A%=Instr(Ein$,"#SUM") If A%<>0 Gosub Summe(A%,0) Endif ' ' STA ' A%=Instr(Ein$,"#STA") If A%<>0 Gosub Summe(A%,2) Endif ' ' STD ' A%=Instr(Ein$,"#STD") If A%<>0 Gosub Summe(A%,3) Endif ' ' AVE ' A%=Instr(Ein$,"#AVE") If A%<>0 Gosub Summe(A%,1) Endif ' ' MUL ' A%=Instr(Ein$,"#MUL") If A%<>0 Gosub Multipl Endif ' ' MIN ' A%=Instr(Ein$,"#MIN") If A%<>0 Gosub Minimax(A%,0) Endif ' ' MAX ' A%=Instr(Ein$,"#MAX") If A%<>0 Gosub Minimax(A%,1) Endif ' ' QMN ' A%=Instr(Ein$,"#QMN") If A%<>0 Gosub Summe(A%,4) Endif ' ' QMW ' A%=Instr(Ein$,"#QMW") If A%<>0 Gosub Summe(A%,5) Endif ' ' PI ' A%=Instr(Ein$,"#PI") If A%<>0 Flag!=True Ein$=Left$(Ein$,A%-1)+Str$(Pi)+Mid$(Ein$,A%+3) Endif ' Exit If Flag!=False Loop ' ' ZELLEN ' Do A%=Max(Instr(Ein$,Chr$(126)),Instr(Ein$,Chr$(64))) If A%>1 A1%=Instr("+-*/^(",Mid$(Ein$,A%-1,1)) If A1%=0 Eflag%=1 Endif Endif Exit If A%=0 Or Eflag%<>0 J1%=Asc(Mid$(Ein$,A%+1,1))-64 H1%=Val(Mid$(Ein$,A%+2)) H2%=Val?(Mid$(Ein$,A%+2)) If J1%>0 And J1%<=Breite% And H1%>0 And H1%<=Hoehe% If Left$(Ein$(J1%,H1%),1)="=" H=Erg(J1%,H1%) Else H=Val(Ein$(J1%,H1%)) Endif Else Clr H Eflag%=9 Endif If H<0 And A%>2 If Mid$(Ein$,A%-1,1)="+" Ein$=Left$(Ein$,A%-2)+Str$(H)+Mid$(Ein$,A%+2+H2%)+" " Else If Mid$(Ein$,A%-1,1)="-" Ein$=Left$(Ein$,A%-2)+"+"+Str$(-H)+Mid$(Ein$,A%+2+H2%)+" " Else If Mid$(Ein$,A%-1,1)="*" Or Mid$(Ein$,A%-1,1)="/" If Left$(Ein$,1)<>"-" Ein$="-"+Left$(Ein$,A%-1)+Str$(-H)+Mid$(Ein$,A%+2+H2%)+" " Else Ein$=Left$(Ein$,A%-1)+Str$(-H)+Mid$(Ein$,A%+2+H2%)+" " Ein$=Mid$(Ein$,2) Endif Endif Endif Endif Else Ein$=Left$(Ein$,A%-1)+Str$(H)+Mid$(Ein$,A%+2+H2%) Endif Loop ' If Left$(Ein$,1)="-" A%=Val?(Ein$) Ein$="(0"+Left$(Ein$,A%)+")"+Mid$(Ein$,A%+1) Endif ' Do A%=Instr(Ein$,"(-") Exit If A%=0 Ein$=Left$(Ein$,A%)+"0"+Mid$(Ein$,A%+1) Loop ' ' NUN ' Do A%=Instr(Ein$,"#NUN") Exit If A%=0 Or Eflag%<>0 If A%<>0 Flag!=True Gosub N_uber_n Endif Loop ' ' Do A%=Instr(Ein$,"#") Exit If A%=0 Or Eflag%>0 H$=Mid$(Ein$,A%+1,3) Token=(Instr("SQRSINCOSTANATNLOGCLGEXPRNDABSINTFAK",H$)+2)/3 If Token=0 Or Int(Token)<>Token Eflag%=1 Else Ein$=Left$(Ein$,A%-1)+Chr$(Token+5)+Mid$(Ein$,A%+4) Endif Loop ' Do A%=Instr(Ein$,"+") Exit If A%=0 Mid$(Ein$,A%,1)=Chr$(1) Loop ' A$="E"+Chr$(1) Do A%=Instr(Ein$,A$) Exit If A%=0 Mid$(Ein$,A%+1,1)="+" Loop ' Do A%=Instr(Ein$,"-") Exit If A%=0 Mid$(Ein$,A%,1)=Chr$(2) Loop ' A$="E"+Chr$(2) Do A%=Instr(Ein$,A$) Exit If A%=0 Mid$(Ein$,A%+1,1)="-" Loop ' Do A%=Instr(Ein$,"*") Exit If A%=0 Mid$(Ein$,A%,1)=Chr$(3) Loop ' Do A%=Instr(Ein$,"/") Exit If A%=0 Mid$(Ein$,A%,1)=Chr$(4) Loop ' Do A%=Instr(Ein$,"^") Exit If A%=0 Mid$(Ein$,A%,1)=Chr$(5) Loop ' While Len(Ein$)>1 And Eflag%=0 And Left$(Ein$,1)<>" " If Val?(Ein$)>0 Inc Zexp% Exp$(Zexp%)=Str$(Val(Ein$)) Ein$=Mid$(Ein$,Val?(Ein$)+1) Else If Left$(Ein$,1)="(" Inc Klammer% Inc Zstack% Stack$(Zstack%)=Left$(Ein$,1) Else If Left$(Ein$,1)=")" If Klammer%>0 Dec Klammer% While Stack$(Zstack%)<>"(" And Zstack%>1 Inc Zexp% Exp$(Zexp%)=Stack$(Zstack%) Dec Zstack% Wend Dec Zstack% Else Eflag%=2 Endif Else If Left$(Ein$,1)0 Inc Zexp% Exp$(Zexp%)=Stack$(Zstack%) Dec Zstack% Wend Inc Zstack% Stack$(Zstack%)=Left$(Ein$,1) Else Eflag%=3 Endif Endif Endif Ein$=Mid$(Ein$,2) Endif Wend While Zstack%>0 Inc Zexp% Exp$(Zexp%)=Stack$(Zstack%) Dec Zstack% Wend If Klammer%>0 Eflag%=6 Endif ' ' AUSWERTUNG ' Clr Zstack%,I% Repeat Inc I% If Val?(Exp$(I%))>0 Inc Zstack% Stack(Zstack%)=Val(Exp$(I%)) Else On Asc(Exp$(I%)) Gosub Plus,Minus,Mal,Durch,H.och,Sqr,Sin,Cos,Tan,Atn,Log,Clg,Exp,Rnd,Abs,Int,Fak Endif Until I%>=Zexp% Or Eflag%>0 Return ' Procedure Summe(A%,Flag%) Flag!=True Clr Sum,Qsum,Zeler% Gosub Decode.zellen If Mid$(Ein$,A2%,1)=")" If J1%>0 And J1%<=Breite% And H1%>0 And H1%<=Hoehe% And J2%>0 And J2%<=Breite% And H2%>0 And H2%<=Hoehe% And J1%<=J2% And H1%<=H2% J%=J1% Repeat H%=H1% Repeat If Left$(Ein$(J%,H%),1)="=" Or Val?(Left$(Ein$(J%,H%),1))>0 Or (Val?(Mid$(Ein$(J%,H%),2,1))>0 And Left$(Ein$(J%,H%),1)="-") Add Sum,Erg(J%,H%) Add Qsum,Erg(J%,H%)^2 Inc Zeler% Endif Inc H% Until H%>H2% Inc J% Until J%>J2% If Flag%=1 And Zeler% Div Sum,Zeler% Endif If Flag%=2 And Zeler% If Zeler%>1 Div Sum,Zeler% Sum=Sqr(Abs((Qsum-Sum*Sum*Zeler%)/(Zeler%-1))) Else Eflag%=5 Endif Endif If Flag%=3 And Zeler% If Zeler%>1 Div Sum,Zeler% Sum=Sqr(Abs((Qsum-Sum*Sum*Zeler%)/Zeler%)) Else Eflag%=5 Endif Endif If Flag%=4 And Zeler% If Zeler%>1 Sum=Sqr(Qsum/Zeler%) Else Eflag%=15 Endif Endif If Flag%=5 And Zeler% If Zeler%>1 Sum=Sqr(Qsum/(Zeler%-1)) Else Eflag%=15 Endif Endif H%=Len(Str$(Sum)) Ein$=Left$(Ein$,A%-1)+Str$(Sum)+Right$(Ein$,Len(Ein$)-A2%) Else Eflag%=13 Endif Else Eflag%=6 Endif Return ' Procedure Multipl On Error Gosub Ueberlauf Flag!=True Sum=1 Gosub Decode.zellen If Mid$(Ein$,A2%,1)=")" If J1%>0 And J1%<=Breite% And H1%>0 And H1%<=Hoehe% And J2%>0 And J2%<=Breite% And H2%>0 And H2%<=Hoehe% And J1%<=J2% And H1%<=H2% J%=J1% Repeat H%=H1% Repeat If Left$(Ein$(J%,H%),1)="=" Or Val?(Left$(Ein$(J%,H%),1))>0 Or (Val?(Mid$(Ein$(J%,H%),2,1))>0 And Left$(Ein$(J%,H%),1)="-") Mul Sum,Erg(J%,H%) Endif Inc H% Until H%>H2% Inc J% Until J%>J2% H%=Len(Str$(Sum)) Ein$=Left$(Ein$,A%-1)+Str$(Sum)+Right$(Ein$,Len(Ein$)-A2%) Else Eflag%=11 Endif Else Eflag%=6 Endif On Error Gosub Fehler Return ' Procedure Ueberlauf If Err=1 Alert 3," | BERLAUF !!! ",1," weiter ",H% Endif Clr Sum Eflag%=11 On Error Gosub Fehler Resume Next Return ' Procedure Minimax(A%,Flag%) Flag!=True Clr Zeler% Min=1.0E+99 Max=-1.0E+99 Gosub Decode.zellen If Mid$(Ein$,A2%,1)=")" If J1%>0 And J1%<=Breite% And H1%>0 And H1%<=Hoehe% And J2%>0 And J2%<=Breite% And H2%>0 And H2%<=Hoehe% And J1%<=J2% And H1%<=H2% J%=J1% Repeat H%=H1% Repeat If Left$(Ein$(J%,H%),1)="=" Or Val?(Left$(Ein$(J%,H%),1))>0 Or (Val?(Mid$(Ein$(J%,H%),2,1))>0 And Left$(Ein$(J%,H%),1)="-") Inc Zeler% Min=Min(Erg(J%,H%),Min) Max=Max(Erg(J%,H%),Max) Endif Inc H% Until H%>H2% Inc J% Until J%>J2% If Flag%=1 Min=Max Endif H%=Len(Str$(Min)) Ein$=Left$(Ein$,A%-1)+Str$(Min)+Right$(Ein$,Len(Ein$)-A2%) Else Eflag%=10 Endif If Zeler%=0 And Eflag%=0 Eflag%=12 Endif Else Eflag%=6 Endif Return ' Procedure N_uber_n On Error Gosub Ueberlauf Local I% N1%=Val(Mid$(Ein$,A%+5)) A1%=Instr(Ein$,":",A%)+1 N2%=Val(Mid$(Ein$,A1%)) Nun=1 If N1%>=N2% If N2%>0 For I%=N1% Downto N1%-N2%+1 Mul Nun,I% If N2%>0 Div Nun,N2% Dec N2% Endif Next I% If N2%>1 For I%=2 To N2% Div Nun,I% Next I% Endif Else Nun=1 Endif A1%=Instr(Ein$,")",A%)+1 Ein$=Left$(Ein$,A%-1)+Str$(Nun)+Mid$(Ein$,A1%) Else Nun=0 Eflag%=14 Endif On Error Gosub Fehler Return ' Procedure Plus If Zstack%>1 Add Stack(Zstack%-1),Stack(Zstack%) Dec Zstack% Else Eflag%=4 Endif Return ' Procedure Minus If Zstack%>1 Sub Stack(Zstack%-1),Stack(Zstack%) Dec Zstack% Else Eflag%=4 Endif Return ' Procedure Mal If Zstack%>1 Mul Stack(Zstack%-1),Stack(Zstack%) Dec Zstack% Else Eflag%=4 Endif Return ' Procedure Durch If Zstack%>1 If Stack(Zstack%)<>0 Div Stack(Zstack%-1),Stack(Zstack%) Dec Zstack% Else Eflag%=5 Endif Else Eflag%=4 Endif Return ' Procedure H.och If Zstack%>1 Stack(Zstack%-1)=Stack(Zstack%-1)^Stack(Zstack%) Dec Zstack% Else Eflag%=4 Endif Return ' Procedure Int If Zstack%>0 Stack(Zstack%)=Int(Stack(Zstack%)) Else Eflag%=4 Endif Return ' Procedure Abs If Zstack%>0 Stack(Zstack%)=Abs(Stack(Zstack%)) Else Eflag%=4 Endif Return ' Procedure Rnd If Zstack%>0 Stack(Zstack%)=Trunc(Stack(Zstack%)+0.5*Sgn(Stack(Zstack%))) Else Eflag%=4 Endif Return ' Procedure Log If Zstack%>0 If Stack(Zstack%)>0 Stack(Zstack%)=Log(Stack(Zstack%)) Else Stack(Zstack%)=0 Eflag%=7 Endif Else Eflag%=4 Endif Return ' Procedure Exp If Zstack%>0 Stack(Zstack%)=Exp(Stack(Zstack%)) Else Eflag%=4 Endif Return ' Procedure Sqr If Zstack%>0 If Stack(Zstack%)>=0 Stack(Zstack%)=Sqr(Stack(Zstack%)) Else Stack(Zstack%)=0 Eflag%=8 Endif Else Eflag%=4 Endif Return ' Procedure Clg If Zstack%>0 If Stack(Zstack%)>0 Stack(Zstack%)=Log10(Stack(Zstack%)) Else Stack(Zstack%)=0 Eflag%=7 Endif Else Eflag%=4 Endif Return ' Procedure Sin If Zstack%>0 Stack(Zstack%)=Sin(Stack(Zstack%)*Grd) Else Eflag%=4 Endif Return ' Procedure Cos If Zstack%>0 Stack(Zstack%)=Cos(Stack(Zstack%)*Grd) Else Eflag%=4 Endif Return ' Procedure Tan If Zstack%>0 Stack(Zstack%)=Tan(Stack(Zstack%)*Grd) Else Eflag%=4 Endif Return ' Procedure Atn If Zstack%>0 Stack(Zstack%)=Atn(Stack(Zstack%))/Grd Else Eflag%=4 Endif Return ' Procedure Fak If Zstack%>0 Gosub Fakultet(Stack(Zstack%)) Stack(Zstack%)=Fak Else Eflag%=4 Endif Return ' Procedure Fakultet(N%) Local I% Fak=1 If N%>=0 And N%<94 For I%=1 To N% Mul Fak,I% Next I% Else Eflag%=14 Fak=0 Endif Return ' Procedure Widmung If Wid!=False Alert 1,"Dieses Programm ist meiner|Gattin IRIS gewidmet, die|immer viel Verstndnis fr|mein Hobby aufbringt !",1,"Klick...",H% Wid!=True Else Alert 2," Ich gre Dich herzlich !|Sieh' bitte gndig ber meine|und die Fehler im Programm|hinweg. Danke",2," gern | na gut | nie ",H% Sget Screen$ Deffill 1,0 Prbox 10,10*Dvs,630,390*Dvs Rbox 11,11*Dvs,629,389*Dvs Rbox 14,14*Dvs,626,386*Dvs Deftext 1,17,,32-19*Test% Out 2,7 If H%=1 Put 50,25*Dvs,Icon$(0) Put 425,25*Dvs,Icon$(0) Graphmode 1 Deftext ,16,,27+14*Test% Text 225-45*Test%,185*Dvs,"Vielen Dank" Deftext ,0,,13+7*Test% Text 240,205*Dvs,"und ein dickes Bussi!" Text 194,245*Dvs,"Der zweite Teil gilt natrlich" Text 194,265*Dvs,"nur fr einen weiblichen User!" Pause 60 Else If H%=2 Text 120,190*Dvs,400,"Sehr nett von Dir !" Deftext ,0,,13+7*Test% Text 120,220*Dvs,400,"(Du kennst das Programm wohl noch nicht so genau?)" Else Deftext ,0,,13+7*Test% Text 120,190*Dvs,400,"Da ist doch irgendwo der Mistkbel ?" Text 120,220*Dvs,400,"(da kannst Du zumindest das Programm hineinwerfen)" Endif Endif Wid!=False Pause 120 Prbox 16,16*Dvs,624,394*Dvs For H%=18 To 198 Step 4 Rbox H%,H%*Dvs,640-H%,(400-H%)*Dvs Next H% Sput Screen$ Endif Return ' Procedure Decode.zellen J1%=Asc(Mid$(Ein$,A%+5,1))-64 H1%=Val(Mid$(Ein$,A%+6)) A1%=Instr(Ein$,":",A%) J2%=Asc(Mid$(Ein$,A1%+1,1))-64 H2%=Val(Mid$(Ein$,A1%+2)) A2%=A1%+2+Val?(Mid$(Ein$,A1%+2)) Return ' Procedure Breite.block Local X1% Clr Bl.breite% For X1%=B1x% To B2x% Add Bl.breite%,Breite%(X1%)+1 Next X1% Clr All.breite% For X1%=1 To Xmax% Add All.breite%,Breite%(X1%)+1 Next X1% Return ' Procedure Test.gesp Local H% If Gespeichert!=False Alert 3," | Arbeitsblatt ist| |NICHT GESPEICHERT!",2," OK |Sichern",H% If H%=2 Gosub Speichern Endif Endif Return ' Procedure Eingabe Ein$=Chr$(Ab%) A$="Eingabe" Gosub Anzeige Zeler%=1 H1$=Chr$(200)+Chr$(203)+Chr$(205)+Chr$(208)+Chr$(27)+Chr$(225) Repeat Print At(2,3);Ein$;Ron$;" ";Roff$;Chr$(27);"K"; A%=Inp(2) H$="^"+Chr$(126)+Chr$(124)+Chr$(95)+Chr$(200)+Chr$(203)+Chr$(205)+Chr$(208)+Chr$(27)+Chr$(8)+Chr$(225) If (A%>31 And A%<123) Or Instr(H$,Chr$(A%)) If A%=8 And Zeler%>0 Dec Zeler% Ein$=Left$(Ein$,Zeler%) Else If A%<>27 And A%<200 And A%<>8 Ein$=Ein$+Chr$(A%) Inc Zeler% Endif Endif Endif Until A%=13 Or Instr(H1$,Chr$(A%)) Or Zeler%>76 If Zeler%>76 A%=13 Print Chr$(27);"D";Chr$(7); Pause 30 Repeat Until Inkey$="" Endif If A%<>27 And A%<>225 Gosub C.minimax Gosub Breite.block Ein$(Cx%,Cy%)=Ein$ If Left$(Ein$(Cx%,Cy%),1)="=" A1%=Instr(Ein$(Cx%,Cy%)," !") If A1%<>0 Ein$(Cx%,Cy%)=Upper$(Left$(Ein$(Cx%,Cy%),A1%))+Right$(Ein$(Cx%,Cy%),Len(Ein$(Cx%,Cy%))-A1%) Else Ein$(Cx%,Cy%)=Upper$(Ein$(Cx%,Cy%)) Endif Gosub Rechne.zelle(Cx%,Cy%) Else Erg(Cx%,Cy%)=Val(Ein$(Cx%,Cy%)) Endif Gosub Format.zelle(Cx%,Cy%) Gespeichert!=False Endif H$=Chr$(200)+Chr$(203)+Chr$(205)+Chr$(208) If Instr(H$,Chr$(A%)) Aa%=A% Gosub Beweg.cursor Endif Gosub Inv_anzeige Return ' Procedure Anzeige If A$="" A$=Str$(Breite%)+"*"+Str$(Hoehe%)+" " Else A$=A$+" " Endif A$=Space$(18-Len(A$))+A$ Text 392,398*Dvs,Space$(18) Graphmode 4 Text 392,398*Dvs,A$ Graphmode 1 Print At(2,3); Return ' Procedure Aufloesung Aufloesung%=Xbios(4) Test%=(Aufloesung%=1) If Test%=True Dvs=0.5 Else Dvs=1 Endif If Aufloesung%=0 Alert 3," |Dieses Programm luft|nicht in niedriger|Bildschirmauflsung",1," OK ",A% Quit Endif Copyright$=Space$(1526) If Aufloesung%=1 Col%=275 Col1%=1635 Col2%=85 Col3%=1280 Setcolor 0,Col1% Setcolor 1,Col2% Setcolor 2,Col3% Setcolor 3,Col% Color 2 Else Clr Col% Gosub No.copyr Endif Return ' Procedure Icon Dim Icon$(1) If Exist("GEM_CALC.DAT") Open "I",#1,"GEM_CALC.DAT" Input #1,No% Input #1,Count% Input #1,Len Icon$(Count%)=Space$(Len) Bget #1,Varptr(Icon$(Count%)),Len Close #1 Else Icon$(0)="" Endif Return ' Procedure Init_variablen Ron$=Chr$(27)+"p" Roff$=Chr$(27)+"q" Breite%=26 Hoehe%=200 Grd=Pi/180 Lng%=18 Fak=1 Rei=1 Spa=12 Wid!=False Trennz!=False Lfeed!=True Null!=True Clr Tit_zl% Tit_fl!=False Dim Kopf$(Breite%),Breite%(Breite%),Komma%(Breite%),Stack$(100),Exp$(100),Stack(100),Prior%(100),Fehler$(15) Dim W(5,50),Nsa$(50),X(50),Y(50),N$(5) Dim Hlp$(Breite%,Hoehe%) Arrayfill Prior%(),0 Restore Prior For I%=1 To 17 Read Prior%(I%) Next I% Prior: Data 1,1,2,2,3,3,4,4,4,4,4,4,4,4,4,4,4 ' For I%=1 To 14 Read Fehler$(I%) Next I% Fehler$(9)=Fehler$(9)+Chr$(126) Data unbekannte Funktion,'(' fehlt,unbekannter Operator,zu wenig Argumente Data Division durch Null,')' fehlt,negative Zahl bei LOG,negative Zahl bei SQR Data falsche Koordinaten bei ,Fehler bei #MIN/MAX,Fehler bei #MUL Data keine numerischen Daten| bei #MIN/MAX,Fehler bei #SUM/AVE/STA/QMW Data Fehler bei #FAK/NUN Return ' Procedure Leiste Dim Leiste$(100) For I%=0 To 100 Read Leiste$(I%) Exit If Leiste$(I%)="***" Next I% Leiste$(I%)="" Leiste$(I%+1)="" Data , GEM-CALC,--------------------, , , , , , ,"" Data , Laden F3, Speichern ^F3,---------------------, Drucken F9, Zellinhalt C-Z,---------------------, Blatt lschen ^F10, Ende ^F9,"" Data , Zahl der Spalten C-L, Breite Spalte F4, Breite Alle ^F4,-----------------------, Komma Spalte F5, Komma Alle ^F5,-----------------------, Zeile einfgen C-1, Zeile lschen C-2, Spalte einfgen C-3 Data Spalte lschen C-4,-----------------------, Nachkomma-0 C-N, Return mit LF C-P, Trennzeichen C-T,"" Data , links oben ^F2, rechts unten F2,-------------------, Move absolut F7, Move relativ ^F7, Copy absolut F6, Copy relativ ^F6,-------------------, --> Werte C-V, Lschen ^F10,"" Data , ndern F1,-------------------, Merken C-M, Copy absolut C-A, Copy relativ C-R,-------------------, Lschen F10,"" Data , Berechnung ^F1, Fehler suchen C-O, Sortieren C-X, Gehe Zelle F8, Invert C-C, Hi Resolution C-K, Kopf ^F8, Titelzeilen C-0, Bogenma C-B, max. Bereich C-9 Data --------------------, Hilfe Help/C-,"" Data , Datentransfer C-U, Daten laden C-6, Daten speichern C-5,----------------------, Kuchen C-D, Linien C-E, Balken C-F, Stapel C-G, Sulen C-H, Blcke C-I Data Flchen C-J,----------------------, Hardcopy C-Q, Degas C-W,----------------------, Spreadsheet C-S,"" Data *** Return ' Procedure Init Gespeichert!=True Dim Ein$(Breite%,Hoehe%),Aus$(Breite%,Hoehe%),Erg(Breite%,Hoehe%) Arrayfill Komma%(),2 Arrayfill Breite%(),9 Arrayfill Erg(),0 ' H$=Space$(10) For I%=1 To Breite% Kopf$(I%)=Chr$(I%+64) For J%=1 To Hoehe% Aus$(I%,J%)=H$ Next J% Next I% For I%=77 To 83 Menu I%,2 Next I% Gosub Variablen.init If Tit_zl% Menu 66,1 Else Menu 66,0 Endif Xmax%=1 Ymax%=1 Cd%=2 Ugrafik!=False Grafik!=False Gosub Breite.block Sget Screen$ Return ' Procedure Variablen.init X%=1 Y%=1 Cx%=1 Cy%=1 B1x%=1 B1y%=1 B2x%=1 B2y%=1 Mx%=1 My%=1 Return ' Procedure Grafik_init Ueb1$="" Ueb2$="" Clr Offs Fak=1 Rei=1 Spa=12 Reih%=1 Beginn%=1 Beginn2%=1 Bez%=1 Bezrei%=1 Return ' Procedure Hi.resolution(X%,Y%,Z%) Cls Deftext 1,0,,4 Gosub Zahl.spalten(103) Y%=Min(Y%,Hoehe%-55) Breit%=23 Deffill 1,1 Pbox 0,0,639,9 Graphmode 3 For Xs%=X% To Spalten% Text Breit%,8,Left$(Kopf$(Xs%),Breite%(Xs%)) Add Breit%,Breite%(Xs%)*6+6 Next Xs% Graphmode 1 Tief%=18 For Ys%=Y% To Y%+Z% A$=" " Rset A$=Str$(Ys%) A$=A$+" " For Xs%=X% To Spalten% A$=A$+Aus$(Xs%,Ys%) Next Xs% Text 0,Tief%,A$ Add Tief%,7 Next Ys% Deftext 1,,,13+7*Test% Repeat Until Inkey$<>"" Or Mousek Return ' Procedure Fehler Close If Err=-33 H$=" | Datei nicht gefunden ! " Else H$="Es ist ein Fehler aufgetreten:|Fehler Nr. "+Str$(Err)+"|(Klartext gibts erst in|GFA-BASIC Version 3.04)" Endif Alert 3,H$,1," Mist ",H% Defmouse 0 Resume Fehlerlabel Return ' Procedure No.copyr Local I%,H$ Deftext 1,16,,6 H$="GEM-CALC ** ** Version 1.92 - 02.03.1989 ** ** GEM-CALC" For I%=1 To Len(H$) If Asc(Mid$(H$,I%,1))>47 And Asc(Mid$(H$,I%,1))<58 Mid$(H$,I%,1)=Chr$(Asc(Mid$(H$,I%,1))-32) Endif Next I% Text 24,40,H$ Deftext 1,0,,6 Get 0,24,639,42,Copyright$ Return ' Procedure Menue Aa%=Menu(0) Menu Off If Aa%=1 Gosub Titel Gosub Aufbau.screen(X%,Y%,Cx%,Cy%) Else Sub Aa%,10 On Aa% Gosub Laden,Speichern,A,Drucken,Druck.zellinhalt,A,Loesche.all,Ende Sub Aa%,10 On Aa% Gosub Zahl_spalten,Breite,Breite.all,A,Komma,Komma.all,A,Zeile.einfugen,Zeile.loschen,Spalte.einfugen,Spalte.loschen,A,Nullen,Line.feed,Trennzeichen Sub Aa%,17 On Aa% Gosub Block.lo,Block.ru,A,Move.abs,Move.rel,Copy.abs,Copy.rel,A,Block.werte,Loesche.block Sub Aa%,12 On Aa% Gosub Edit,A,Merken,Copy.cel.abs,Copy.cel.rel,A,Loesche.zelle Sub Aa%,9 On Aa% Gosub Recalc,Such.fehler,Sortieren,Gehe.zelle,Invers,Hi.resol,Kopf,Titelzeilen,Bogenmass,Anpassen_max,A,Help.screen Sub Aa%,14 Hilf$=Leiste$(Menu(0)) On Aa% Gosub Daten.uebernahme,Load.gdaten,Save.gdaten,A,Kuchen,Grafik.2d,Grafik.2d,Stapel,Grafik.3d,Grafik.3d,Grafik.3d,A,Hardcpy,Degas,A,Spreadsheet Endif Return ' Procedure Hi.resol If Aufloesung%=2 Z%=54 Else Z%=25 Endif Gosub Hi.resolution(X%,Y%,Z%) Gosub Aufbau.screen(X%,Y%,Cx%,Cy%) Return ' Procedure Invers Setcolor 0,Col% If Aufloesung%=2 Col%=1911-Col% Setcolor 1,Col% Else Swap Col%,Col1% Setcolor 0,Col1% Setcolor 3,Col% Endif Return ' Procedure Titel Local X%,Y% Cls Put 0,24-12*Test%,Copyright$ Deffill 3,4,1 Pbox 0,62*Dvs,639,399 Deffill 1,0 Prbox 160,80*Dvs,479,150*Dvs Prbox 160,144*Dvs,479,318*Dvs Box 170,200*Dvs,282,248*Dvs For I%=208 To 240 Step 8 Line 170,I%*Dvs,282,I%*Dvs Next I% For I%=184 To 268 Step 14 Line I%,200*Dvs,I%,248*Dvs Next I% Deftext 1,0,,32+19*Test% Text 190,126*Dvs,"G" Text 250,126*Dvs,"E" Text 292+6*Test%,126*Dvs,"M" Text 360,126*Dvs,90,"-CALC" Deftext 1,2,,13+7*Test% Text 206+6*Test%,126*Dvs,"regor" Text 266+6*Test%,126*Dvs,"ngl" Text 308+12*Test%,126*Dvs,"mayer" Deftext 1,17,,13+7*Test% Text 175,170*Dvs,"GEM-CALC" Deftext 1,0,,6+2*Test% Text 185,188*Dvs," 1988" Deftext 1,,,13+7*Test% Text 278,170*Dvs,"ist ein PD-Programm von" Text 302,212*Dvs,"Gregor Englmayer" Text 302,228*Dvs,"Weienbach 30/2" Text 302,244*Dvs,"A-8813 St. Lambrecht" Deftext 1,-2*(Test%=0),,13+7*Test% Text 170,286*Dvs,"Gefllt Dir das Programm, dann schicke" Text 170,302*Dvs,"mir bitte DM 20.- oder S 100.-- DANKE" Deftext 2,1,,32+19*Test% Restore Klick For I%=0 To 9 Pcircle I%*60+45,360*Dvs,25 Read H$ Text I%*60+38,372*Dvs,H$ Next I% Klick: Data ,K,L,I,C,K,.,.,., Repeat Until Mousek Or Inkey$<>"" Return ' Procedure Druck.zellinhalt Local A%,X%,Y% Alert 2," | Ausdruck der Zellinhalte ? ",3," alle | Block | nein ",H% If H%<>3 Gosub Koordinaten(H%) If E_flag!=False Defmouse 2 Open "O",#2,"PRN:" Print #2;Chr$(27);"R";Chr$(2);Chr$(27);"l";Chr$(8);Chr$(27);"M"; Clr Zeilen% For X%=S1x% To S2x% For Y%=S1y% To S2y% If Ein$(X%,Y%)<>"" H$=Ein$(X%,Y%) A1%=1 Repeat A%=Instr(H$,Chr$(126)) If A%<>0 H$=Left$(H$,A%-1)+Mid$(H$,A%+1) Endif Until A%=0 Gosub Test.umlaut Print #2;Chr$(X%+64); Print #2;Str$(Y%);": "; Print #2;H$; If Lfeed!=True Print #2 Else Print #2;Chr$(13); Endif Inc Zeilen% If Zeilen%>64 Print #2;Chr$(12); Clr Zeilen% Endif Endif Next Y% Next X% Print #2;Chr$(12); Close #2 Defmouse 0 Endif Endif Return ' Procedure Hardcpy If Aufloesung%<>1 Hidem H%=1 If Grafik!=False Gosub Invert(0) Alert 3," |Eine Hardcopy des Arbeits-|blattes bewirkt einen|PROGRAMMABSTURZ !!",2,"weiter|oh nein",H% Endif If H%=1 While Out?(0)=False And H%=1 Alert 1," |Drucker einschalten",1," okay |Abbruch",H% Wend If H%=1 A$=Space$(380) G$=" "+Chr$(27)+"*"+Chr$(5)+Chr$(380)+Chr$(380/256) Open "",#99,"LST:" Print #99;Chr$(27);"3";Chr$(24) For S%=Xbios(3) To S%+79 Dx%=Varptr(A$) For Q%=S%+399*80 To S% Step -80 Poke Dx%,Peek(Q%) Inc Dx% Next Q% Print #99,G$;A$;Chr$(13); If Lfeed!=True Print #99 Endif Next S% Print #99;Chr$(27);"2" Print #99;Chr$(12); Close #99 Endif Endif If Grafik!=False Gosub Invert(1) Endif Showm Endif Return ' Procedure Spreadsheet Grafik!=False For I%=1 To 75 Menu I%,3 Next I% Restore Linien Do Read I% Exit If I%=-1 Menu I%,2 Loop Gosub Aufbau.screen(X%,Y%,Cx%,Cy%) Return Linien: Data 2,13,16,24,27,32,40,45,51,55,69,76,84,87,-1 ' Procedure Sortieren If Ymax%>1 Gosub Invert(0) A$="Sortieren" Gosub Anzeige Sget Screen$ Gosub Draw.sortiere Gosub Control.sortiere Sput Screen$ If Auf%<>3 Gespeichert!=False Defmouse 2 If Auf%=1 For I%=Von% To Bis%-1 For J%=I%+1 To Bis% If Alph%=2 If Erg(Spa%,I%)>Erg(Spa%,J%) Gosub Tauschen Endif Else If Ein$(Spa%,I%)>Ein$(Spa%,J%) Gosub Tauschen Endif Endif Next J% Next I% Else For I%=Von% To Bis%-1 For J%=I%+1 To Bis% If Alph%=2 If Erg(Spa%,I%)114 And X<305 And Y>125 And Y<160 Auf%=1 Deffill ,2,8 Pbox 115,124*Dvs,305,160*Dvs Deffill ,0,0 Pbox 325,124*Dvs,520,160*Dvs Graphmode 3 Text 165,146*Dvs,"aufsteigend" Graphmode 1 Text 380,146*Dvs,"absteigend" Endif If X>325 And X<520 And Y>125 And Y<160 Auf%=2 Deffill ,2,8 Pbox 325,124*Dvs,520,160*Dvs Deffill ,0,0 Pbox 115,124*Dvs,305,160*Dvs Graphmode 3 Text 380,146*Dvs,"absteigend" Graphmode 1 Text 165,146*Dvs,"aufsteigend" Endif If X>114 And X<305 And Y>170 And Y<206 Alph%=1 Deffill ,2,8 Pbox 115,170*Dvs,305,206*Dvs Deffill ,0,0 Pbox 325,170*Dvs,520,206*Dvs Graphmode 3 Text 160,190*Dvs,"alphabetisch" Graphmode 1 Text 385,190*Dvs,"numerisch" Endif If X>325 And X<520 And Y>170 And Y<206 Alph%=2 Deffill ,2,8 Pbox 325,170*Dvs,520,206*Dvs Deffill ,0,0 Pbox 115,170*Dvs,305,206*Dvs Graphmode 3 Text 385,190*Dvs,"numerisch" Graphmode 1 Text 160,190*Dvs,"alphabetisch" Endif If X>115 And X<305 And Y>215 And Y<250 Repeat Ein$=Chr$(Spa%+64) Print At(19,15);H1$; Form Input 1 As Ein$ Spa%=Asc(Upper$(Ein$))-64 If Spa%<1 Or Spa%>Xmax% Out 2,7 Endif Until Spa%>0 And Spa%<=Xmax% Print At(19,15);H1$+Chr$(Spa%+64) Endif If X>115 And X<304 And Y>260 And Y<295 Gosub Ein.zahl(Left$(H2$,Len(H2$)-1),Von%,1,Ymax%-1,16,18) If Val(Aus$)<>-1 Von%=Val(Aus$) Endif Print At(16,18);H2$;Von% Endif If X>330 And X<520 And Y>260 And Y<295 Gosub Ein.zahl(Left$(H3$,Len(H3$)-1),Bis%,2,Ymax%,43,18) If Val(Aus$)<>-1 Bis%=Val(Aus$) Endif Print At(43,18);H3$;Bis% Endif If X>120 And X<300 And Y>320 And Y<355 Ex!=True Endif If X>335 And X<515 And Y>320 And Y<355 Auf%=3 Ex!=True Endif Endif Exit If Ex!=True Loop Repeat Until Mousek=0 Return ' Procedure Tauschen For K%=1 To Xmax% Swap Erg(K%,I%),Erg(K%,J%) Swap Ein$(K%,I%),Ein$(K%,J%) Swap Aus$(K%,I%),Aus$(K%,J%) Next K% Return ' Procedure Titelzeilen Gespeichert!=False Inc Tit_zl% Alert 2," | Wieviele Zeilen sollen als | Titelzeilen gedruckt werden ? ",Tit_zl%," 0 | 1 | 2 ",Tit_zl% Dec Tit_zl% If Tit_zl% Menu 66,1 If Tit_fl!=True H%=2 Else H%=1 Endif Alert 2,"1. alle Spalten|2. linke Spalten (75 Zeichen) | | werden gedruckt.",H%," 1 | 2 ",H% If H%=1 Tit_fl!=False Else Tit_fl!=True Endif Else Menu 66,0 Endif Return ' Procedure Anpassen_max Local X%,Y%,M% A$="Bereich max" Gosub Anzeige Defmouse 2 M%=1 If Xmax%>1 For X%=1 To Xmax% For Y%=1 To Ymax% If Ein$(X%,Y%)<>"" M%=X% Endif Exit If M%=X% Next Y% Next X% Endif Xmax%=M% M%=1 If Ymax%>1 For Y%=1 To Ymax% For X%=1 To Xmax% If Ein$(X%,Y%)<>"" M%=Y% Endif Exit If M%=Y% Next X% Next Y% Endif Ymax%=M% A$="" Gosub Breite.block Gosub Infozeile Defmouse 0 Return ' Procedure Degas If Aufloesung%=1 File$="\*.PI2" Else File$="\*.PI3" Endif Sget Screen$ Fileselect File$,"",File1$ Sput Screen$ Hidem If Len(File1$)>4 File$=Right$(File$,4) If Right$(File1$,4)<>File$ A%=Instr(File1$,".") If A%=0 File1$=File1$+File$ Else File1$=Left$(File1$,A%-1)+File$ Endif Endif Open "O",#1,File1$ If Aufloesung%=1 Out #1,0 Out #1,1 Out #1,Int(Col%/256) Out #1,Col% Mod 256 Out #1,Int(Col2%/256) Out #1,Col2% Mod 256 Out #1,Int(Col3%/256) Out #1,Col3% Mod 256 Out #1,Int(Col1%/256) Out #1,Col1% Mod 256 For I%=1 To 24 Out #1,0 Next I% Else Out #1,0 Out #1,2 Out #1,Int(1911/256) Out #1,1911 Mod 256 Out #1,0 Out #1,0 For I%=1 To 28 Out #1,0 Next I% Endif Bput #1,Xbios(2),32000 Close #1 File$="" Showm Endif Return ' Procedure Array_loeschen Erase Ein$() Erase Aus$() Erase Erg() Gosub Init Return ' ' GRAFIKROUTINEN *** Dank an Johannes Fiedler, D-7920 Heidenheim *** ' Procedure Daten.uebernahme Gosub Invert(0) Deftext 1,16,,13+7*Test% Text 8,46+24*Test%,"Grafik - Datenbernahme"+Space$(55) Alert 2," Darstellung von | | ",Reih%,"Reihen|Spalten",Reih% Hidem Deffill 0,0 Pbox 0,240*Dvs,639,399*Dvs Print At(3,17);"berschrift : " Print At(3,18); Form Input 35 As Ueb1$ Print At(3,20);"Untertitel :" Print At(3,21); Form Input 70 As Ueb2$ Ein$=Str$(Offs) Print At(3,23);"Y-Offset "; Form Input 6 As Ein$ Offs=Val(Ein$) Ein$=Str$(Fak) Print At(3,24);"Y-Faktor "; Form Input 7 As Ein$ Fak=Val(Ein$) Fak=Max(0.1,Fak) Pbox 0,240*Dvs,639,399*Dvs Line 0,380*Dvs,639,380*Dvs ' If Reih%=1 A$="Reihen" Else A$="Spalten" Endif Ein$=Str$(Rei) Print At(7,17);"Wieviele "+A$+" hintereinander (1-4) ? "; Form Input 1 As Ein$ Rei=Val(Ein$) Rei=Min(4,Rei) Rei=Max(1,Rei) A$=Left$(A$,Len(A$)-1) If Reih%=1 Ein$=Str$(Beginn%) Hilfs$="Eingabe der obersten darzustellenden Zeile: 1 - "+Str$(Hoehe%-Rei+1) Else Ein$=Chr$(Beginn%+64) Hilfs$="Eingabe der uerst linken darzustellenden Spalte: A - Z" Endif Print At(3,25);Hilfs$; Print At(7,18);"Beginnend mit ";A$;" "; Form Input 3 As Ein$ If Reih%=1 Beginn%=Val(Ein$) Beginn%=Min(Beginn%,Hoehe%+1-Rei) Else Beginn%=Asc(Ein$)-64 If Beginn%>Breite%+1-Rei Sub Beginn%,32 Endif Endif Beginn%=Max(1,Beginn%) Print At(2,25);Space$(78); ' If Reih%<>1 A$="Spalte(n)" Ein$=Str$(Bezrei%) Hilfs$="Zeile: 1 - "+Str$(Hoehe%-1)+" | Kopfzeile: 0 | nichts: -1" Else A$="Reihe(n)" Hilfs$="Spalte: A - Z | nichts: -1" If Bezrei%<=0 Ein$=Str$(Bezrei%) Else Ein$=Chr$(Bezrei%+64) Endif Endif Print At(3,25);Hilfs$; Print At(7,19);"Bezeichnung der ";A$;" "; Form Input 3 As Ein$ If Reih%=1 If Val?(Ein$)>0 Bezrei%=-1 Bezrei%=Min(Bezrei%,Breite%+1-Rei) Else Bezrei%=Asc(Ein$)-64 If Bezrei%>Breite%+1-Rei Sub Bezrei%,32 Endif Endif Else Bezrei%=Val(Ein$) Bezrei%=Min(Bezrei%,Hoehe%+1-Rei) Endif Print At(2,25);Space$(78); ' Ein$=Str$(Spa) If Reih%=1 Hilf$="26" Else Hilf$="28" Endif Print At(7,21);"Wieviele Werte nebeneinander (2-";Hilf$;") ? "; Form Input 2 As Ein$ Spa=Val(Ein$) Spa=Min(Val(Hilf$),Spa) Spa=Max(2,Spa) If Reih%=1 Ein$=Chr$(Beginn2%+64) A$="Spalte" Hilfs$="Eingabe der uerst linken darzustellenden Spalte: A - Z" Else Ein$=Str$(Beginn2%) A$="Reihe" Hilfs$="Eingabe der obersten darzustellenden Zeile: 1 - "+Str$(Hoehe%-Spa+1) Endif Print At(3,25);Hilfs$; Print At(7,22);"Beginnend mit ";A$;" "; Form Input 3 As Ein$ If Reih%=1 Beginn2%=Asc(Ein$)-64 If Beginn2%>Breite%+1-Spa Sub Beginn2%,32 Endif Else Beginn2%=Min(Hoehe%+1-Spa,Val(Ein$)) Endif Beginn2%=Max(1,Beginn2%) Print At(2,25);Space$(78); ' If Reih%<>1 A$="Reihe(n)" Hilfs$="Spalte: A - Z | nichts: -1" If Bez%<=0 Ein$=Str$(Bez%) Else Ein$=Chr$(Bez%+64) Endif Else A$="Spalte(n)" Ein$=Str$(Bez%) Hilfs$="Zeile: 1 - "+Str$(Hoehe%-1)+" | Kopfzeile: 0 | nichts: -1" Endif Print At(3,25);Hilfs$; Print At(7,23);"Bezeichnung der ";A$;" "; Form Input 3 As Ein$ If Reih%=1 Bez%=Min(Hoehe%+1-Rei,Val(Ein$)) Else If Val?(Ein$)>0 Bez%=-1 Bez%=Min(Bez%,Breite%+1-Rei%) Else Bez%=Asc(Ein$)-64 If Bez%>Breite%+1-Rei Sub Bez%,32 Endif Endif Endif Print At(2,25);Space$(78); If Reih%=1 If Spa+Beginn2%+1>Breite% Spa=Breite%-Beginn2%+1 Endif Else If Spa+Beginn%+1>Hoehe% Spa=Hoehe%-Beginn%+1 Endif Endif ' For I%=1 To 5 N$(I%)="" Next I% For I%=1 To 50 Nsa$(I%)="" W(0,I%)=0 Next I% Clr Maks,Maks2 For I%=1 To Rei For J%=1 To Spa If Reih%=1 W(I%,J%)=Erg(Beginn2%+J%-1,Beginn%+I%-1) If Bezrei%=0 N$(I%)=Kopf$(Beginn%+I%-1) Else If Bezrei%>0 N$(I%)=Ein$(Bezrei%,Beginn%+I%-1) Endif Endif If Bez%=0 Nsa$(J%)=Kopf$(Beginn2%+J%-1) Else If Bez%>0 Nsa$(J%)=Ein$(Beginn2%+J%-1,Bez%) Endif Endif Else W(I%,J%)=Erg(Beginn%+I%-1,Beginn2%+J%-1) If Bezrei%=0 N$(I%)=Kopf$(Beginn%+I%-1) Else If Bezrei%>0 N$(I%)=Ein$(Beginn%+I%-1,Bezrei%) Endif Endif If Bez%>0 Nsa$(J%)=Ein$(Bez%,Beginn2%+J%-1) Endif Endif While Left$(N$(I%),1)=" " N$(I%)=Mid$(N$(I%),2) Wend N$(I%)=Left$(N$(I%),8) While Left$(Nsa$(J%),1)=" " Nsa$(J%)=Mid$(Nsa$(J%),2) Wend If Spa<7 Nsa$(J%)=Left$(Nsa$(J%),8) Endif If Spa=7 Nsa$(J%)=Left$(Nsa$(J%),7) Endif If Spa=8 Nsa$(J%)=Left$(Nsa$(J%),6) Endif If Spa=9 Nsa$(J%)=Left$(Nsa$(J%),5) Endif If Spa>9 Nsa$(J%)=Left$(Nsa$(J%),4) Endif If Spa>11 Nsa$(J%)=Left$(Nsa$(J%),3) Endif If Spa>14 Nsa$(J%)=Left$(Nsa$(J%),2) Endif If Spa>24 Nsa$(J%)=Left$(Nsa$(J%),1) Endif ' If W(I%,J%)=Maks Offs=0 Endif Gosub Bestimme.maks Swap Maks,Maks2 Gosub Bestimme.maks Swap Maks,Maks2 ' For I%=1 To Rei For J%=1 To Spa Sub W(I%,J%),Offs If W(I%,J%)<0 W(I%,J%)=0 Endif Next J% Next I% ' Ugrafik!=True For I%=77 To 83 Menu I%,3 Next I% If Spa>14 Menu 77,2 Menu 82,2 Menu 83,2 If Rei>2 Menu 79,2 Endif Endif If Offs<0 For I%=77 To 83 Menu I%,2 Next I% Menu 78,3 Menu 79,3 Endif Showm Gosub Aufbau.screen(X%,Y%,Cx%,Cy%) Return ' Procedure Bestimme.maks Sub Maks,Offs Flag!=False I=0.1 Repeat If Maks<=I Maks=I Flag!=True Else Mul I,2 If Maks<=I Maks=I Flag!=True Else Mul I,2.5 If Maks<=I Maks=I Flag!=True Endif Endif Endif Mul I,2 Until I>10000000 Or Flag!=True Return ' Procedure Grafik.3d Gosub Ein.grafik Cls Color 3 Deftext 1,0,,32+19*Test% Text 20,52*Dvs,Ueb1$ Deftext 1,,,6 Text 20,66*Dvs-2*Test%,Ueb2$ X1=30 Y1=380 Vx=25 Vy=50 Laenge=470 Hoehe=250 Ho=Hoehe La=Laenge X2=X1+Vx Y2=Y1-Vy Gosub Um X3=X2+La Y3=Y2-Ho X4=X1+La Y4=Y1-Ho B=0 C=B D=(X2-X1)/Rei E=(Y2-Y1)/Rei For A=0 To Rei Draw X1+B,(Y1+C)*Dvs To X4+B,(Y1+C)*Dvs B=B+D C=C+E Next A B=0 D=(X4-X1)/Spa For A=0 To Spa Draw X1+B,Y1*Dvs To X2+B,Y2*Dvs Draw X2+B,Y2*Dvs To X2+B,Y3*Dvs B=B+D Next A B=0 C=B D=(Y4-Y1)/Az For A=0 To Az Draw X1,(Y1+B)*Dvs To X2,(Y2+B)*Dvs Draw X2,(Y2+B)*Dvs To X3,(Y2+B)*Dvs B=B+D St1=X3+6 St2=Y2+A*D If Maks<1 I%=100 Else I%=10 Endif O=(A*J/Az+Offs)/Fak If O<10 O=Int(O*I%+0.5)/I% Else O=Int(O) Endif Te$=Str$(O) If A=Az And Fak<>1 Te$=Te$+" *"+Str$(Fak) Endif Z=4-2*Test% Deftext 1,0,,Z Text St1,St2*Dvs-4*Test%,Te$ Next A Draw X1,Y1*Dvs To X1,Y4*Dvs D=(X4-X1)/Spa E=(Y1-Y2)/Rei G=(X2-X1)/Rei O=D/4 C=0 H=C Color 2 If Hilf$=" Sulen C-H" Gosub Saeulen Else Gosub Bloecke Endif Gosub Aufbau.screen(X%,Y%,Cx%,Cy%) Return ' Procedure Saeulen For Fm=Rei Downto 1 B=0 Ft=1 Deffill 2,2,Fm*2-2 Te$=N$(Fm) For A=1 To Spa A1=X2+B+1+O*0.5-H-3*G/4 A2=A1+D-O B2=Y2+C+3*E/4 B1=B2-W(Fm,A)*U Box A1,B1*Dvs,A2,B2*Dvs Pbox A1+1,(B1+1)*Dvs,A2-1,(B2-1)*Dvs Gosub Seiten Gosub Oben B=B+D Next A Z=6+2*Test% St1=A1+D+4 St2=B2+4 Deftext 1,0,,Z Text St1-25*Test%,St2*Dvs,N$(Fm) H=H+G C=C+E Next Fm For A=1 To Spa St1=X1+D*A-(D/4)*3.5 St2=Y1+10+K Te$=Str$(A) Deftext 1,0,,6 Text St1,St2*Dvs-4*Test%,Nsa$(A) Next A Return ' Procedure Seiten X(1)=A2 X(2)=A2+2*G/4 X(3)=A2+2*G/4 X(0)=A2 Y(1)=B2*Dvs Y(2)=(B2-2*E/4)*Dvs Y(3)=(B1-2*E/4)*Dvs Y(0)=B1*Dvs Polyfill 4,X(),Y() Return ' Procedure Oben X(1)=A1 X(2)=A2 X(3)=A2+2*G/4 X(0)=A1+2*G/4 Y(1)=B1*Dvs Y(2)=B1*Dvs Y(3)=(B1-2*E/4)*Dvs Y(0)=(B1-2*E/4)*Dvs Polyfill 4,X(),Y() Return ' Procedure Bloecke For Fm=Rei Downto 1 Deffill 2,2,Fm*2-2 Gosub Poly Te$=N$(Fm) St1=X2+Laenge+5-Fm1*G St2=Y2+E+Fm1*E Deftext 1,0,,6+2*Test% Text St1-25*Test%,St2*Dvs,N$(Fm) Next Fm For I=0 To Spa-1 St1=X1+I*D-20 St2=Y1+12 Deftext 1,,,6 Text St1,St2*Dvs-2*Test%,Nsa$(I+1) Next I Return ' Procedure Poly Spa1=Spa-1 Fm1=Rei-Fm For S=0 To Spa1 P=Spa1-S X(S)=X2+S*D-Fm1*G-G X(Spa+P)=X(S)+G Y(S)=(Y2-U*W(Fm,S+1)+4.2*E/4+Fm1*E)*Dvs Y(Spa+P)=Y(S)-E*Dvs Next S Polyfill Spa*2,X(),Y() For S=0 To Spa1 Draw X(S),Y(S) To X(S)+G,Y(S)-E*Dvs Next S If Hilf$=" Blcke C-I" X(Spa)=X(Spa1) Y(Spa)=(Y2+E+Fm1*E)*Dvs X(Spa+1)=X2-Fm1*G-G Y(Spa+1)=Y(Spa) Polyfill Spa+2,X(),Y() X(1)=X(Spa1) Y(1)=Y(Spa1) X(2)=X(1)+G Y(2)=Y(1)-E*Dvs X(3)=X(2) Y(3)=(Y2+Fm1*E)*Dvs X(0)=X(1) Y(0)=(Y2+E+Fm1*E)*Dvs Polyfill 4,X(),Y() Endif Return ' ' Procedure Grafik.2d Gosub Raster.2d Color 2 For R=1 To Rei X=40 Y=350 If Ba=1 If R=1 Gosub Balken Endif Else Y=Y-(W(R,1)*Wy) Plot X,Y*Dvs Defline 1,1,0,0 If R=2 Defline -&X101010101010101 Endif If R=3 Defline -&X110110110110110 Endif If R=4 Defline 6,1,0,0 Endif For I=2 To Spa Ox=X Oy=Y+1 X=X+Wx Y=350-(W(R,I)*Wy) Draw To X,Y*Dvs Draw Ox,Oy*Dvs To X,Y*Dvs+1 To X,Y*Dvs Next I Line X+52,(125+R*20)*Dvs,X+80,(125+R*20)*Dvs Line X+52,(126+R*20)*Dvs,X+80,(126+R*20)*Dvs Deftext 1,0,,6 Text X+84,(130+R*20)*Dvs,N$(R) Endif Next R Defline 1,1,0,0 Gosub Text Gosub Aufbau.screen(X%,Y%,Cx%,Cy%) Return ' ' Procedure Balken Wx=450/Spa Wwx=Wx/(Rei+1) For I=1 To Rei Deffill 1-Test%,2,9-I*2 For P=1 To Spa Xx=40+(P-1)*Wx+(I-1)*Wwx Xx2=Xx+Wwx If Offs>=0 Yy2=350-W(I,P)*Wy Pbox Xx,350*Dvs,Xx2,Yy2*Dvs Else Yy2=350+Offs*Wy-(W(I,P)+Offs)*Wy Pbox Xx,(350+Offs*Wy)*Dvs,Xx2,Yy2*Dvs Endif Next P Next I Gosub Muster.2d Return ' Procedure Text Deftext 1,0,,32+19*Test% Text 20,52*Dvs,Ueb1$ Deftext 1,,,6 Text 20,66*Dvs-4*Test%,Ueb2$ For I=0 To Az Deftext 1,,,4-2*Test% O=(I*Awy+Offs)/Fak If Maks<1 I%=100 Else I%=10 Endif If O<10 O=Int(O*I%+0.5)/I% Else O=Int(O) Endif Te$=Str$(O) If I=Az And Fak<>1 Te$=Te$+" *"+Str$(Fak) Endif Text 496,(350-(I*Aby))*Dvs-2*Test%,Te$ Next I Xxx=500-(Ba=1) J=0 For I=25 To Xxx Step Wx Ii=I+12 If Ba=1 Add Ii,4 Endif Inc J Deftext 1,0,,6 Text Ii,360*Dvs-4*Test%,Nsa$(J) Next I Return ' Procedure Um J=0 For X=1 To Rei For B=1 To Spa J=Max(J,W(X,B)) Next B Next X J=Max(J,Maks) J=Max(J,0.1) U=Ho/J Az=10 Return ' ' Procedure Kuchen Gosub Ein.grafik Cls Var=1 If Aufloesung%<>1 Alert 2," |Beschriftung der Kuchenteile :",1,"keine|Zahlwert|% -wert",Var Endif For P=1 To Rei Su=0 For I=1 To Spa Su=Su+W(P,I)+Offs Next I If Su<=0 Su=1 Endif W1=3600/Su We=0 If Rei=1 E1=240 E2=215 E3=135 E4=115 Endif If Rei=2 E3=90 E4=77 E2=215 If P=1 E1=130 Else E1=380 Endif Endif If Rei=3 E3=75 E4=68 E1=105 E2=160 If P=2 E1=400 E2=160 Endif If P=3 E1=250 E2=285 Endif Endif If Rei=4 E3=65 E4=59 E1=95 E2=144 If P=2 E1=320 Endif If P=3 E1=200 E2=300 Endif If P=4 E1=430 E2=300 Endif Endif Ellipse E1,E2*Dvs,E3,E4*Dvs For I=1 To Spa Deftext 1,0,,4 Wa=We We=We+(W(P,I)+Offs)*W1 Deffill I>1,2,I Pellipse E1,E2*Dvs,E3,E4*Dvs,Wa,We Ellipse E1,E2*Dvs,E3,E4*Dvs,Wa,We If Var>1 Wx=((Wa+We)/2)*Pi/1800 W2=0 If Wx>Pi/2 If Wx<5.3 W2=8 Endif Endif Wk=W(P,I)+Offs If Var=3 Wk=Int(1000*Wk/Su)/10 Endif Text E1-4-W2+E3*(1.15-(Rei=4)/20)*Sin(Wx+0.5*Pi),(E2+E4*(1.15-(Rei=4)/20)*Cos(Wx+0.5*Pi))*Dvs,Wk Endif Next I Deftext 1,0,,6+2*Test% Su$="Summe="+Str$(Su) Text E1-E3/2,(E2+5*E4/4+18)*Dvs-2*Test%,Su$ Deftext 1,1,,6+2*Test% Text E1-E3/2,(E2+5*E4/4+9)*Dvs,N$(P) Next P Spp=(12-Spa)*10+56 Circle 550,(Spp+24)*Dvs-10*Test%,12 For A=2 To Spa Deffill A>1,2,A Pcircle 550,(Spp+A*25)*Dvs-10*Test%,12 Next A For A=1 To Spa Deftext 1,0,,6+2*Test% Text 570,(Spp+2+A*25)*Dvs-10*Test%,Nsa$(A) Next A Deftext 1,,,32+19*Test% Text 20,48*Dvs,Left$(Ueb1$,32) Deftext 1,,,6 Text 20,60*Dvs-4*Test%,Left$(Ueb2$,64) Deftext 1,,,13+7*Test% Gosub Aufbau.screen(X%,Y%,Cx%,Cy%) Return ' Procedure Ein.grafik Grafik!=True For I%=1 To 75 Menu I%,2 Next I% Return ' Procedure Stapel Swap Maks,Maks2 Gosub Raster.2d Wx=450/Spa For P=1 To Spa Xx=40+(P-1)*Wx Xx2=Xx+Wx*0.75 Yy2=350-((W(0,P)-Offs)*Wy) Deffill 2,0 Oy=350*Dvs Pbox Xx,Oy,Xx2,Yy2*Dvs For I=1 To Rei Clr W For K%=1 To I W=W+W(K%,P)+Offs Next K% Sub W,Offs Yy2=(350-(W*Wy))*Dvs If Oy>Yy2+2 Deffill 2,2,9-I*2 Pbox Xx,Yy2,Xx2,Oy Else Line Xx,Yy2,Xx2,Yy2 Endif Oy=Yy2 Next I Next P Ba=1 Gosub Muster.2d Defline 1,1,0,0 Gosub Text Swap Maks,Maks2 Gosub Aufbau.screen(X%,Y%,Cx%,Cy%) Return ' Procedure Muster.2d Spp=(12-Spa)*10 Deftext 1,0,,6 For A=1 To Rei Deffill 2,2,9-A*2 Pcircle 555,(120+A*25)*Dvs,12 Text 571,(122+A*25)*Dvs,N$(A) Next A Return ' Procedure Raster.2d Gosub Ein.grafik Cls Gosub Um Aby=260/Az Abx=450/(Spa-1) Wx=450/(Spa-1) Spb=Spa-1 Ba=0 If Hilf$=" Balken C-F" Ba=1 Spb=Spa Abx=450/Spa Wx=Abx Endif Awy=J/Az Wy=260/J X=40 Y=350 Color 3 Draw X,Y*Dvs To X+450,Y*Dvs For I=1 To Az Y=350-I*Aby Draw X,Y*Dvs To 490,Y*Dvs Next I Y=350 For I=0 To Spb If Hilf$=" Linien C-E" Or I=0 Or I=Spb Or Offs<0 X=40+I*Abx Draw X,Y*Dvs To X,(Y-260)*Dvs Endif Next I Return ` V` Efv*oM5| m HPHUBg?<JNA(m)m -:gS)@ -OK1PC#HNHx?<HNA@)@l/?<HNA)@h&@)@XЬl)@d)@`ARCpr Ѝ"QHNFALNHz2?< NA\pdAxr0XQ)K\NN x$bttN ,`NuJrBjNuHz?<&NN\NτCAp$L Qp Np9lrBlJpNNppMNp9@pdAr 0Q0tr N;9lNNupealp`NuaNJHz?<&NNBWNANC2A@p222NrҌ0<NB0,rNurA9Ar`v C9Cr`rt9@9A9BNrrҌpsNB0,Nu9@N`rDҌpsNBNuC2 @ e @}bA@p222Nr,Ҍ0<NBNu pa4|a@:>< |a6RGk0Gg`a(0GVfA1G<ap??<?<NM\Nu??< NMXNu&8*:EENuHn׬ 2$4BBNuAd RdQRB BbABJk 0NuJBjBBXNu 0Nu 2$NuE`B<gJEgEjCDEDF Fe( F dF8BCHC` F0bFHC8v` HD8HDkDуdQRBNuDdBDA@kgAр[SBk0NuJlJBk&Nu0g H@rB JkЀ[` BbNuJBj prtNuHPAJgPpr$< _Nup _NtNu&8*JEgJBgJjBEB:HC҅H@:|ۆ҄ۆ<HC>H@ЃdHA@B@H@хk HAҁHAрSB BbNuNpNNuCDEJEgJBgJjBEBQ*HE?<>0rHGGdHGGdSWDуdi\?<>0rHGGdHGGdSWDуdiN?<>0rHGGdHGGdSW2 H@N’DCH@0r`dGH@0r`?<`JBgVB&8TTDуdQRBNuDAр&AdRAрAрDуNuprt|=|   g +g -f .g20  b 0e 9b da`RF` .f 0e 9b dajSF` Eg efX +g -f 0e 9oSH`00  b&Hz0  b E Do`HJjDDDS4</NJFkSFk&aQN`Ha"FFaQL8NѨ6. JgtBn Nupr$<NuJBk4<rpAC v JBgJjv-| Bb BkH>aaNRFBdL8?NѨ<JBga2SF Be BgQRB`ApdR e <rRF&0xafEv+0JFjDFv-Hƌd0BFHF 0HF0ANuprt|`2:HQ A dGe GbFGNu G0dFGHANu~NuAd RdQRB6Ce0 C/jC C@j C jr0H@{0DH@Nur{0Nu{0NutNuJj(:,af AfBfNu&<x*<NVHnr$g4jDk( b4<J@`@[H@0Nu4<Ѐ[Nu4<NuNuAd RdQRBBkBjDBJjDNupNufJj fJAkNupNdRdRrxaAffBWHNuJjDBDA@JBfprJjDEDD@JEfvxNuaغBffAVHNuCDEaEf fDUHNu]HNuCDEaEffDftNuCDEHHNѮNL8N8L8NRJjtNupN&NAXJ@jNNu~c0NQNuN"J@g,A,BBgHQ?<=NAP FJ@k??<>NAXtNutNuBNNV]NNN8]NNNѨ]N <ڢ2,SFSGFnHGnDDDk9DBlDEk9EBlFcllGcll0,lb 0,lcNu6pmrtA)HA)HN;pN HHPNB4 _:8><DbFEbGCHP@dʾAdBD2ƞE29|C???FF22N23BRG0@\@N "2)IN6(* 9AJA)H@@[000][ˈN" Evz`* [g" ]g |g QSz` zQSpQ][ɈN" Dvx`* [g" ]g |g QSx` xQSpQ]Bp4NpHNu*( IN"A)H @depd ae zb QB DN"A\)H @ e` ae zb \gQBA BhNpZNpA BP"`#|}NA"H0,tg"Hg \f`A\fS A EN AR@H`2QNu@9@JpNNpr|<N" @xepw2A$JBjDFHB t`0QBl9F)lVTAtp 9| N;p`p`pNNu~`~ `~HAҬ 2HA dJ@g??)AVHT hf if$Qb XbEJf$?`NN׬lX4TSWjT` $A4TQE I XX0d?NN׬lVT4SWfT`2,V`$AT4Qr40N;A R4RB`A Gf //o~4$_<F"OSG !H@Ь 2 Q)@RHRprN;"H2@N*.0H@N*.YdN(HAN(2(g"P@g2RADAH""l`r2oZAe 1@#)I`Nuk1@Nup NN"l`dpNAtrdJhk\QpaNH ld$l`"Hg0 k&@ S`g k#&@0+S@H3 Q&f)I`LNu?<?<NAXJgJgNAH@B pN A NuApN N0$Nn$BS@kH2QNupC ұd"X0Pg"RA$D#Nu"X0NuN"J@gpNu _0HpN _0HpN p"_0HqNp"_0HqNE ұeHHQ0)N $_$ZR@H`2QNu$Y0gHR@@"D%$X0P2g# R@%NupE $ $X0dP.gRG,D%pr Y2dP.gRG,D!p4Ae4v`VfANuNWHNuNVHNuNUHNuNSHNuNRHNuNTHNu Ihd*Nn$E$RR@H`2QˈN" ENu Ihd"*Nn$E8*$R`"QˈN" ENu2)A IJAfr4(Ae*RBBc0*SA?Nn$E$R`QˈN" ENup`(* 0(iNn$E 4R`Q$D 4R`QˈN" DN" ENua NuN" IHPg"B  g &gNJBjt BNut`Rptr ae OgT Xgj HgSRB ae Fb$0k  c_  c b退`tSJBkNlRB0 b b瀀`RB0 fрd`0H 0 0H@Nu?<*NATANp N 2p <0Nn`QNu0g< @g4:8(g* b.&NnSD`Q0$C$RQLjN" CNuN"pNnp NpC 0(gFd"P$I` *Nn$E$R(S@jv A(Wf( ae zb Q DNur ,* N"& ( EN" C"Sj|AcRGFc8>`4A g6 g0 g` gTlfelhgFf2pRGRFa`a,` `?~ap ap a 0NuCpE`bf`FgRGJGgRSGSFFgCpE`Yf`Nua@Jf gH@ fa(@ fza0 b @ Ee0Nu?<?<NMXNur9A(HNLNu0,^2,`N$zEfpaRppaNAEg0PaľEfa4RE`p a2a*Efp a(N ldeS@f lbfSl`9Ab9FdNupapqr`p`C l ", Ⲭ dfѬ SA 0! Nup"NNNXJfNup#`NFN׬"p`tdbDA0Hg<<R@f|0HNn*JFk*HQ/??<?NAXfX ENuJkpNp`p`\F( &I.` ??<NMXJ[j E&DNu<(`|HP?N<pg2JFg W"X2@e2<A`QN:CpR@ 1 fA 0! "_N, HHHNup`pNu)H9@Jp4NpP'J&f H LNu P&NuQ'` J,'fJ,&gHA#ȇeC! B,&LNu-W)K20, 8k8@ gJl&f"Nu , 8g"P 8 @/, 8Nb  8fQ 8J,'gNupB <``L@ H)l26)z @W , Jf`CfSHj-D@Hd0H@H 0H@0`fSC\fS , @a"C\fApNNNZHP?< NA\NuH@aa/a a Nu@0 9c^Nu| PC>$Error # ][Abort]\f.B &lX)K\)ld` lp ,BQjNup(NVtHB9BL@@TAt )l g.A( f hgSASAgRB`9BJNpSAgNu)l g,vARC( g9CJ9|Lp!,Np FPeNuDA JpBQA/)H )l gBlJpNpB Aprt0 0BBB R@ @efA000 0PB0 *00 000\0X0 *0000 0P0BX0, *@00p1| 1|QBX0 $HTH0P &0 *0,NupNSk [0NupNuHPaH8 _&X Pf/|~ K!zag @ ep 24C"2 S@ػ Td BTA3A0C4$I2a222B"0@2A\xvaRg<2#M 4B3BS@ -f ػ Td>BAAb8RGRC`3RSG5GC5C J1DcaRF F e`RG GcdNuXASF1F41R 1h4 x1EDgVA)H)H 9|J?<NNTU@g,ACg dRhdRh(gpL8Npp>L8Np*HEAJ0?C bL000H?A/.)HpNpLrHH/>Bl/,ff.f.ffNu l /.g&, ^`D&, N`>&, R`8&, V`2&, Z`,2,/4WAARA0,/6A hfRAS@f9A/,&, Jo ? CNb0`@k Ap0(/.NuA Nu|`|*Md A l)G Z`A b)G V0, HF 00Nup)@JphNpLtH &JKBCH .A/~0 1PP1P1PA L? &<@>AFG0000X0000X0000X0000C ~AJ0g0  pi, Np"F QNuYp-KNu _b@gGHpp 0f NuGNpb @"l`Yd&-KNN"l`YepN&#k"C-KN"Cփk փk2##`փk"`2`& $Y8gHRDD*D%H8#$c2g# HRDD%H`p"l`Qd&&| NuN"l`QepZNt"l`]d6&|0NuN"l`]epZNC ҳfHP0(Nn$W$RR@H`2Q"H _$l` dd" $X&0BP6Y&|Hg R@@%E ҳeHQ0)N $_$RR@H`2QNu$Y 0P1@Hg R@@%NuN$l` epZN,jJk `BffAge Jj 2$NuJjNu,jJj `BffAgb Jj 2$NuJjNu/\ga `6f -K. @Nua \dp\N&#k gH`Nu"Cփk փk2##`փk##`3#`$Y8gHRDD*D%H8#$c2g# HRDD%H` l @ , Ь R@"@E xTg`)J @NR)H,Bl0NuE+000 l,N"0l0oNNuaNHP l,"X42,0Rl0Bd1 _g !g &g, \g2N`Rl01` _N"J@fp NN _N` NpR@RABd 1\fRA9A0 _/N""@cԒ@H/N Njp?N _N`p%NLNTH l,"X42,0Rl0Bd1 _g,vxz| +g. -g( *g $g" #g N`Rl01`` `RCRABd1 _fRA` #g $g *g ,g ^gB +gZ -gT .fRxRDRABdH1 #g ^g +g. -g( _f&RA`RERABd1 ^g +g -f2ALH@NL8"aC " Lx2DE A,b -fEt1BQt1$0000QE[JEft Q0JgE\J"f0J"ff JFj-Sg$E[JEgRE\JEg vJ*g RCJ*f~ g~*Jf`9I0`JEf@RANE[JEg*ÒEA, gSAR`Ô l,HQ?HjSl0 l,"X0Rl0gL _g0 ,g .g +g( -g $_HRN`$W "0d`Rl0`p Jojp-`Sl0Nu)|R 8)|y ޢX -NlH <r$<L8NRN׬~ N@Jɴ(NVnR>Np4NfHPp~N"_NHPp|N"_NHPp^N"_NC.N -Nl&<x*<NLpJBgp/ -Nl&<x*<NRpJBgp/Hm. -N"_N*NlzN:pJBgp/4-NVzNpJBgp$fN\Ah.NbNp44-NVzNpJBgp/ -Nl&<x*<NLpJBgp$fNgd -Nl&<x*<NpJBgp/ -Nl&<x*<NpJBgp$fN]>ANb -Nl&<x*<NpJBgp/ -Nl&<x*<NpJBgp$fN]ANb -Nl&<x*<NpJBgp/ -Nl&<x*<NpJBgp$fN]ANb -Nl&<x*<NpJBgp/ -Nl&<x*<NpJBgp$fN^RANb -Nl&<x*<NpJBgp/ -Nl&<x*<NpJBgp$fN^A^,Nb -Nl&<x*<NpJBgp/ -Nl&<x*<NpJBgp$fN_ A~Nb -Nl&<x*<NpJBgp/ -Nl&<x*<NpJBgp$fN_fA|Nb -Nl&<x*<NpJBgp/ -Nl&<x*<NpJBgp$fN`4-NV&<x*<NJBfN`LHxNZ | Carr. Return mit Linefeed ?HPNf ja | nein r"_ N+@ -UgN`FBmBmpr"NXN`HxNZ | Carr. Return mit Linefeed ?HPNf ja | nein r"_ N+@ -SgN`Bmt;Bpr"NX -Nl&<x*<NpJBgp/ -Nl&<x*<NpJBgp$fNb4-NV&<x*<NJBfNaHxNf | Trennzeichen beim Ausdruck ?4HPNf ja | nein 4r"_ N+@ -UgNaBmBmpr#NXNbHxNf | Trennzeichen beim Ausdruck ?HPNf ja | nein r"_ N+@ -SgNbBmt;Bpr#NX -Nl&<x*<NpJBgp/ -Nl&<x*<NpJBgp$fNcbA N&<x*<NJBfNbHxNf | Bogenma ?HPNf ja | nein 4r"_ N+@ -UgNbBmNN&<x*<NѮA NprCNXNcbHxNf | Bogenma ?4HPNf ja | nein r"_ N+@ -SgNcbBmA 0prCNX -Nl&<x*<NpJBgp/ -Nl&<x*<NpJBgp$fNd4-NV&<x*<NJBfNd^HxNf) | Nachkommastellen mit '0' | auffllen ?4HPNf ja | nein 4r"_ N+@ -UgNdXBmBmpr!NXAJNbNdHxNf) | Nachkommastellen mit '0' | auffllen ?HPNf ja | nein r"_ N+@ -SgNdBmt;Bpr!NXAJNb -Nl&<x*<NpJBgp/ -Nl&<x*<NpJBgp$fNeNf I BlckeC4NANb -Nl&<x*<NpJBgp/ -Nl&<x*<NpJBgp/AN&<x*<NppJBgp/A0NzNjpJBgp$fNkNZ J FlchenC4NANb -Nl&<x*<NpJBgp/ -Nl&<x*<NpJBgp$fNlNA$Nb -Nl&<x*<NpJBgp/ -Nl&<x*<NpJBgp$fNlANb - oNp4 -Nl&<x*<NpJBgp/ -Nl&<x*<NpJBgp$fNmA}Nb -NlzNpJBgp/ -Nl&<x*<NpJBgp$fNmhA~Nb -Nl&<x*<NpJBgp/ -Nl&<x*<NpJBgp$fNmANb -Nl&<x*<NpJBgp/ -Nl&<x*<NpJBgp$fNn ANb -Nl&<x*<NpJBgp/ -Nl&<x*<NpJBgp$fNn|AvNb -Nl&<x*<NpJBgp/ -Nl&<x*<NpJBgp$fNnAw^Nb -Nl&<x*<NpJBgp/ -Nl&<x*<NpJBgp$fNo* -Nl&<x*<NpJBgp/ -Nl&<x*<NpJBgp$fNo| -Nl&<x*<NpJBgp/ -Nl&<x*<NpJBgp$fNoANb -Nl&<x*<NpJBgp/ -Nl&<x*<NpJBgp$fNp4AZNbNHPA "_N>JBgNNZA탠NA탤NBANbNZ Zahl SpaltenC:NAn@NbNf!(Esc) Zahl an Spalten (5 - 26) = C.N+mHHm./-HxHxHxHxA4NbA@NX&<x*<N:JBfNvA@NXN׬+@ -HfNu -Nl&<x*< NѨH <r$< L8NN׬+@+| -]HpJBgp/ -]HpJBgp$fNr&HxNZR |Benutzter Bereich grer als|neue Blattgre. Ein Teil der|Daten geht VERLOREN !HPNZ okay |oh neinr"_ N+@ -SgNupNVA탨CH  "A탬CL  "CJAPNAPNAVNAN/-H -LCP~N/-H -LCV~N/-H -LC~NtANN+|T -HATNF -TC NNHPA "_N>JBfNs /-T -T@NC N+| -LA탰NF/-T/- -TCbN,RNTCV~NNߪ`NqNqNߪ`|Nq+|MTpSATNFp"-TNXNߪ`NqNqAuNbAv&Nb+|+|+|BmBmAg NbAFN+mH+mLAڠNbBANbNZ Zahl SpaltenC:NAn@NbpNV -HmNt+| -HA탠NF+| -A탤NF/- -CP~NHP/- -CJ~N"_Nj/- -CP~NHPp"_NzHPp=N"_N>JBfNt/-/-A2Nb/-/-ANbNߪ`vNqNߪ`XNqNu+| -LA탤NF+| -A탠NF/- -CP~NHP/- -CJ~N"_Nj/- -CP~NHPp"_NzHPp=N"_N>JBfNu~/-/-A2Nb/-/-ANbNߪ`vNqNߪ`XNqAJN/-H -LCJ~NBmANbAJNbNuAڠNbNuAڠNbpNVNv AݸNbNNZNZSpch GrafikdatenC:NAxNbHmLA "_NHpJBgp/HmLp\N"_NHpJBgp$fNwLpONHPALr"_NHpN -N6NpNARN`NpNAXN`NpNA0NPNpNANPNpN -N6NpN -N6NpNANPNpN -N6NpN -N6NpNNwVAݸNbNNZNfLaden Grafikdaten4C:NAxNbHmLA "_NHpJBgp/HmLp\N"_NHpJBgp$fNxpINHPALr"_NHpNN+@pNN"CRNpNN"CXNpNN A0NpNN ANpNN+@pNN+@pNN ANpNN+@pNN+@pNANbNxAݸNbNNZBANbAn@NbHmNf*.GFK4"_NHPHmAL""_NHmLA "_NHJBfNyDHmLA >NbACNACNHmA"_NHPNZ.GFK"_NCLNNNZBANbBBBm+md -ANF+mh -ANF/- -CV~NHPp"_NzHPNf*FE4"_N>JBfNy+mЃ+mԃt;B4-NV&<x*<Ng N2NzNߪ`NqNq4-NV&<x*<Ng N2Nz2Nߪ`HNq -NlzNpJBgp/ -NlzNpJBgp$fNzprNBNZKeine Fehler gefunden HPNZ okay r"_ N+@HxANbNz+m\+m`+md+mh/-\/-`/-d/-hA$NbNNZ -భ^HpJBgp/ -谭^HpJBgp$fN{HxNf+ |BLOCK-Koordinaten falsch| gewhlt !!HPNfAbbruchEr"_ N+@+|N}BANbNZBlock -> WerteC:NAn@NbHxNf= |Zellinhalte im Blockbereich|in die absoluten Werte|ndern ?HPNf okay | nein r"_ N+@ -SgN}BmpNV+m -ANF+m -ANF/- -CP~NHPp"_NzHPp=N"_N>pJBgp//- -CP~NNLNl&<x*<NjpJBgp//- -CP~NNLNl&<x*<NppJBgp$fN}x/-/-/- -C~NNCP~N/-/-/- -CP~NCV~N/-/-ANbNߪ`NqNߪ`NqpNV/-\/-`/-d/-hA$NbN}AݸNbNNZBANbNZZeile einfgenC:NAn@Nb -LgN~`HxNf% |Daten in Zeile 200|gehen verloren !4HPNZ okay |Abbruchr"_ N+@N~l+|R -SgNlpNVBm+m -hRANF+| -ANF/-/-/- -NlH <r$<L8NRN׬CP~NCP~N/- -CP~NHPp"_NzHPp=N"_N>JBfNJB,/- -CP~NHPp~NHP -,R _"_N.+@, -,JfNtHxANb -,Jf)|) NCdNHmdNfEND"_N>gNJ/- -CP~NHPHmd -,R _"_N.+@, -,JfN< <,Ѝ/p _ѐHxANb/- -CP~NHPp:NHP -, _"_N.+@,HxANb -,Jfh`JBfNB,/- -CP~NHPp~NHP -,R _"_N.+@, -,JfNHxANb -,Jf)|) NCdNHmdNfEND"_N>gN/- -CP~NHPHmd -,R _"_N.+@, -,JfN <,Ѝ/p _ѐHxANb/- -CP~NHPp:NHP -, _"_N.+@,HxANb -,Jfh`JBfNlB,/- -CP~NHPp~NHP -,R _"_N.+@, -,JfNHxANb -,Jf)|) NCdNHmdNfEND"_N>gNl/- -CP~NHPHmd -,R _"_N.+@, -,JfN^ <,Ѝ/p _ѐHxANb/- -CP~NHPp:NHP -, _"_N.+@,HxANb -,Jfh`JBfNB,/- -CP~NHPp~NHP -,R _"_N.+@, -,JfNHxANb -,Jf)|) NCdNHmdNfEND"_N>gN/- -CP~NHPHmd -,R _"_N.+@, -,JfN <,Ѝ/p _ѐHxANb/- -CP~NHPp:NHP -, _"_N.+@,HxANb -,Jfh`JBfNHmpHxp1Nr "_N/-/-HmjAp"_NCP~NNNZ AN/- -CP~NHP -,"_NzCjN/- -CP~NHP -,R"_NNLNlH <r$<L8NRN׬+@ -dlNB/- -CP~NHP -,R"_NCpNHmpp"_NzNLЭNHPHmpp"_N"_NCpNHmpp"_NzHPp@N"_N>JBfN"HmpHxpANr "_N/-/-HmjAp"_NCP~NNNZA탠NA탤NpNV+| -A탠NF+| -A탤NF/-/-ANbNߪ`NqNqNߪ`NqNq/-\/-`/-d/-hA$NbpNVNNZA.NB+md+mhAN&<x*<N8N׬r0NnNZ Nd -@NHP -NlN"_NHPNZ "_NC.NpNͮAN&<x*<N8N׬r0NnA.NdpNͮNNZ/-d/-h/- -CP~NCP~N/-d/-h/- -C~NC~N /-d/-hANbHxANbAŲNbNNZ -d+@ -h+@+|+|/-/-/- -CP~NCJ~N/- -CJ~NHPp"_NzHPp=N"_N>JBfNB,/- -CJ~NHPp~NHP -,R _"_N.+@, -,JfNA(Nb -,Jf)|) NCdNHmdNfEND"_N>gN/- -CJ~NHPHmd -,R _"_N.+@, -,JfN <,Ѝ/p _ѐA(Nb/- -CJ~NHPp:NHP -, _"_N.+@,A(Nb -,Jfp`D/-d/-h/- -CJ~NCP~N/-/-A CJ~N/-d -hCP~NHPp"_NzHPp=N"_N>JBfN(/-d/-hA2Nb/-d/-hANbHxANbAŲNbNNZBm4-NV&<x*<NJBfNBmpr"NXNt;Bpr"NXNNZBm4-NV&<x*<NJBfNBmpr#NXNt;Bpr#NXNNZBmA N&<x*<N:JBfN>A 0prCNXNdNN&<x*<NѮA NprCNXNNZBm4-NV&<x*<NJBfNBmpr!NXNt;Bpr!NXAJNbNNZNNpr N"pNN`Nrp F U N K T I O N E N pNN`pqNNNpr N"Nr#PI -- Wert fr Pi (3.14...)NNpr.N"N #DAT -- Datum.NNprN"Nr#SQR() -- WurzelNNprN"Nr#LOG() -- Nat. LogarithmusNNpr,N"Nr#CLG() -- dek. LogarithmusNNpr,N"Nr#EXP() -- ExponentiationNNprN"N#SIN() -- Sinus%NNpr,N"N#COS() -- Cosinus4NNp rN"N#TAN() -- Tangens4NNp r,N"Nr#ATN() -- ArcustangensNNp rN"N#INT() -- Integer4NNp r,N"N#ABS() -- Absolutwert4NNp rN"N#RND() -- Runden auf Ganzzahl4NNp r,N"Nr#FAK() -- FakulttNNp r N"Nr#SUM(A1:Z100) -- SummeNNpr N"Nr#MUL(A1:Z100) -- ProduktNNpr N"N#AVE(A1:Z100) -- Durchschnitt4NNpr N"Nr.#STA(A1:Z100) -- Standardabweichung (div. n-1)NNpr N"Nr,#STD(A1:Z100) -- Standardabweichung (div. n)NNpr N"Nr2#QWN(A1:Z100) -- Quadratischer Mittelwert (div. n)NNpr N"Nr4#QMW(A1:Z100) -- Quadratischer Mittelwert (div. n-1)NNpr N"Nr#MIN(A1:Z100) -- MinimumNNpr N"Nr#MAX(A1:Z100) -- MaximumNNpr N"Nr,#NUN(N:n) -- N ber n = N!/(n!*(N-n)!)NNA6NhA6N/NHPA "_NHpJBgp$g/-\/-`/-d/-hA$NbNNZA.NBA:NBNZ frei=HPN̠NlH JBgNNZ A\NpN*pN.AN&<x*<N8N׬"<nNnAN&<x*<N8N׬"<~NpNpN"pN& -(Nl&<x*<N8&<x*<NVN׬Nr -(NlN2&<x*< NRN׬/AN&<x*<N8H -(NlN2L8NVN׬"NnpNNd -(NlN2&<x*< NRN׬/ANvN:H -(NlL8NVN׬"NnpNNdpN -(NlN2&<x*<NVN׬Nr -(NlN2&<x*< NRN׬/AN&<x*<N8H -(NlL8NVN׬"Nn -\@NNdpN -(Nl&<x*<N8&<x*<NVN׬NrAN&<x*<N8H -(NlL8NVN׬"<oNnAN&<x*<N8H -(NlL8NVN׬"<~NHAN&<x*<N8H -(NlL8NRN׬"<oNnAN&<x*<N8H -(NlL8NRN׬"<~NHAN&<x*<N8H -(NlL8NVN׬"<oNnAN&<x*<N8H -(NlL8NVN׬"<~NH pJBgp/ -,Nl&<x*<NpJBgp$fNPNpNN` -,JgN -NlvN:H <r$<L8NRN׬+@ -NlvN:H -$SWHNV&<x*<NRL8NѨH <r$<L8NRN׬+@ -hNlH -`NlH -PNlL8NVL8NJBfN0pN`N: JBfNbp NHPN>"_NC.N/-\/-`tC~N NPHm.p"_NzHPp=N"_N>JBfN/-\ -`CV~NHPp"_NzHPNf*FEB"_NHJBfN/-\ -`C~NNC.NN/-\ -`CV~NC.N/-\/-`tC~N NPHm.NZ !"_N*+@ -JfNPHm. -"_NzC.NHm.p"_NzNRNlzNLpJBgp/Hm.p"_NzHPp-N"_N>pJBgp/Hm.pr"_NNRNlzNLpJBgp$fNVA.NX&<8<*<NLpJBgp/A.NX&<8<*<NRpJBgp$fNA.NXH -\ChN,Nl&<x*<NL8N8NAJBfNb/-d -hCP~NHPNZ !"_N*+@, -,JfN"/-d/-h/-d -hCP~NHP -,"_NzNHP/-d -hCP~NHP/-d -hCP~NN","_N"_NCP~NNJ/-d/-h/-d -hCP~NNCP~N/-d/-hA2NbNŊ/-d/-h/-d -hCP~NNXC~N /-d/-hANbBmAݸNbNNZ -dnN+mdAg NbANb -hnN+mhAg NbANbNNZ AhN AdNA,NANBm/-d -hCP~NHPp,N"_N*+@, -,JfNƖ/-d -hCP~NHP/-,pNr "_Nt;B -,Jf4-NV&<x*<NJBfN$/-d -hCV~NHPp,N"_N*+@, -,JfN/-d -hCV~NHP/-,pNr "_N -,JfNNZ AhN AdNA,NANBm/-d -hCP~NHPpN"_N*+@, -,JfNǴ/-d -hCP~NHP/-,p,Nr "_Nt;B -,Jf4-NV&<x*<NJBfNB/-d -hCV~NHPpN"_N*+@, -,JfN:/-d -hCV~NHP/-,p,Nr "_N -,JfNNZA탠NA탤NBANbpNVNZ BerechnungC:NAn@Nb+| -A탤NF+| -A탠NF/- -CP~NHPp"_NzHPp=N"_N>JBfN/-/-A2Nb/-/-ANbNߪ`NqNqNߪ`NqNq/-\/-`/-d/-hA$NbNNZ+md+mhAg NbANb -d]HpJBgp/ -h]HpJBgp$fNɬNpNN`NNNZ+md+mhAg NbANb -d^HpJBgp/ -h^HpJBgp$fNNpNN`NNNZBANbA탠NA탤NNf Laden von4C.NHxA ^Nb -Nl&<x*<N:pJBgp/HmLA "_NHpJBgp$fNpNVpINHPALr"_NH -SgNjpNN"CpNHmppBN"_N>JBfNpNN+@HpNN+@X -X$fN8prBNXN@prBNXpNN ;BpNN"CpN -HNl&<x*< NѨH <r$< L8NN׬+@LAJNANb/-H -LCJ~NHmppNN"_N>pJBgp/HmppCN"_N>pJBgp$fNdHmppCN"_N>JBfNpNN"C킂NNprN"Nr"Bitte CODE eingeben (6 Zeichen) : pNN`pN`CpNNprN"pNN`pKNNt;B+|HmpA킂"_NHJBfNBm+|NA C킂Nt;B4-NV&<x*<NJBfN.pNN ;B4-NV&<x*<NJBfNDpr!NXNLpr!NXpNN ;B4-NV&<x*<NJBfN͌pr"NXN͔pr"NXpNN ;B4-NV&<x*<NJBfNpr#NXNpr#NXpNN A NA N&<x*<NJBfN prCNXN(prCNXNdNprN"N CODE FALSCH !4pNN`pNp2NN΄A C킂N+|t;B4-NV&<x*<NJBfNpNN+@0pNN+@4pNN+@8pNN+@< -SgN+m8+m<+| -HA탠NFpN/-NCbNpN/-NChNpN/-N"C N -CbN,RNTC.N+| -LA탤NF/-/-A.CV~N/-/-A CP~NNߪ`NqNqNߪ`TNqt;BAg Nb -UgN -0NlH -dNlL8NVH <r$<L8NRN׬+@0 -4NlH -hNlL8NVH <r$<L8NRN׬+@4 -8NlH -dNlL8NVH <r$<L8NRN׬+@8 -JBfN6pN/-/-N C~N -UgNV/-/-ANbNߪ`NqNߪ`Nq -NlH <r$<L8NRH -NlL8NN׬+@ -NlH <r$<L8NRH -NlL8NN׬+@pNAg Nb/-\/-`/-d/-hA$NbAݸNbpNVNNZBANbA탠NA탤NBA ^Nb -Nl&<x*<N:pJBgp/4-NVzNpJBgp/HmLA "_NHpJBgp$fNpNVpONHPALr"_NH -SgNնpNpBNNpN -HN6NpN -XN6NpN4-N>N -SgNA CpNNprN"pNN`Nr"Bitte CODE eingeben (6 Zeichen) : AprNHmpNZ "_NCpNHmpp"_NzCpNpNpCNNpNApN`NN -WgNpNpCNNpNA킂N`NN pNpNNNpN4-N>NpN4-N>NpN4-N>NpNA NPNpN -0N6NpN -4N6NpN -8N6NpN -JBfNpN/- -C~NNTNNߪ`BNqNߪ`&NqpNAݸNbpNVNNZA탤NBANbNZBreite stellenC:NAn@NbNf(Esc) Breite Spalte (1 - 72) 4HP -d@N"_NHPNf = 4"_NC.N -dCbN,+@Hm./-HxHxHHxHxA4NbA@NX&<x*<N:JBfNpJBgp$ghHmp N"_NHJBfNA킎NLNlHHmpZN"_NRNVvN:L8NVH <r$<L8NRN׬+@\+m\dNZ Gehe Feld HP -\@N"_NC.NHm.HxHx/-LHxHxA4NbA@NXN׬+@`+m`h/-\/-`/-d/-hA$NbNNprN"pNN`Nrl /-d -hCP~NN`NHxANbNNZ -\Nl&<x*<NpJBgp/ -`Nl&<x*<NpJBgp$fNBANb+|d+|hAN&<x*<N8N׬rNnNZ Nd -d@NHP -hNlN"_NHPNZ "_NC.NpNͮAN&<x*<N8N׬rNnA.NdpNͮHxANbNP+|\+|`+|d+|h/-\/-`/-d/-hA$NbNNZBANbNZAusdruckC:NAn@NbAFNANbABNbAFN -WfN/-A#FNb4-NVzNJBfNpNV -SgNJpONHPNZPRN:r"_NHpNpNN`pRNpNN`pNN`plNpNN`NHmNf*.TXTB"_NHPA HPA킔""_NHmA "_NHJBfNHmA >NbACNpONHPA킔r"_NH -Nl&<x*<NpJBgp/HmA "_NHpJBgp$fN -SgN+m,N +m, -SgNpNTCNpNpNN`pNN`pPN -,NlH4-NV&<x*<NNVvN:&<x*<NVL8NRJBfN -,NlH4-NV&<x*<NNVvN:&<x*<NVL8NRJBfN -,NlH4-NV&<x*<NNVvN:&<x*<NVL8NRJBfNpNpNN`pMNpNN`p NTCNNpNpNN`p NTCNNpNpNN`pMNpNTCNBH4-NV&<x*<NJBfNANb -XnN -4ЭX+@L -gNNX+@Hm.A|"_N*+@, -,JWHgNHm./-, -Nr "_N``NNZA탠N+| -HA탠NFNprN"Nr Kopf Spalte -@NN`N : 4pNN`pKN -C NNrMNNprN"pNN`pKNNNߪ`~NqBm/-\/-`/-d/-hA$NbNNZAgNbHxNf- |Willst Du wirklich das|Programm verlassen ?HPNf ja | nein 4r"_ N+@ -SgNNNZNNZBm/-d/-hA CP~N/-d/-htC~N /-d/-h -dCbN,RNTCV~NHxANbNNZHxNZ | LSCHEN von HPNZ allem | Block | nichts r"_ N+@ -WfN -SgNANbNANbNNZHxNZ |LSCHEN des ARBEITSBLATTESHPNf ja | nein r"_ N+@ -SgNpNVAgNbAJNANbBXBmAv&Nb/-H -LCJ~NpNV/-\/-`/-d/-hA$NbNNZ -భ^HpJBgp/ -谭^HpJBgp$fN(HxNf+ |BLOCK-Koordinaten falsch| gewhlt !!nHPNfAbbruch4r"_ N+@N,HxNf |LSCHEN des BLOCKEShHPNf ja | nein r"_ N+@ -SgN,+m -A탠NF -CbN,RNTC.N+m胤 -A탤NF/-/-A CP~N/-/-tC~N /-/-A.CV~NNߪ`NqNqNߪ`NqNqBm/-\/-`/-d/-hA$NbNNZ A`N A\N AXN ATN APN"_A.NFAPNHm.p N"_NC.N -XNlNN"+@P -PNlNCpNNpNN`peNA C@N -`WgN N -`"-\N"pNN`plNNN -`"-\N"A.N`ApN`NN -\NlH <r$<L8NRHA.N"NlL8NVN׬/ -`"N"p NNHPA "_N>JBgpNNC킚NHmpN"_N>pJBgp/A@N"Nl&<x*<NjpJBgp$fN0Hm@A@N"NlH <r$<L8NRN׬"_NzC@NHmp0N"_N\pJBgp/Hmp9N"_NppJBgp/A@N"P]HpJBgp$fNHm@A킚"_NC@NN -\NlHA.N"NlL8NVN׬/ -`"N"A@N` -PNlHA@N"NlL8NRN׬NjNN -\NlHA.N"NlL8NVHA@N"NlL8NVN׬/ -`"N"HmpN"_N>pJBgp/Hmp N"_N>pJBgp$g Hmp N"_N>pJBgp/Hm@A "_N>pJBgp$fNApC@NHmpN"_N>JBfN NZ-1C@NA@NXN׬+@P -PT]HpJBgp/ -PX^HpJBgp/ -PNl&<x*<N:pJBgp$fN NpNN`NN -\NlHA.N"NlL8NVN׬/ -`"N"ApN` -PNlHApN"NlL8NRN׬NjN -PT\HpJBgp/ -PX_HpJBgp/ -PNl&<x*<NpJBgp$gNpNN`pfNNNNZ A$N -$JgN Nf SpeichernC:NAn@NbAFNA NbANbAFNN 2NfLaden4C:NAn@NbHxNZ | Laden von HPNZ allem | Block | nichts r"_ N+@ -WfN -SgN -$SgN AgNbNfLadenC:NAn@NbHmNf*.CLC4"_NC.NAC^NN Hm Nf*.BLK4"_NC.NAC^N/-A#FNb4-NVzNJBfN Hm.Hm^AL""_NHmLA "_NHJBfN HmLA >Nb -SgN ACNACNHmA"_NHPNZ.CLC"_NCLNN AC NACNHmA"_NHPNZ.BLK"_NCLN/-A#FNbNNZpNͮHxANvN:N׬/HxAN&<x*<N8N׬/HxHxAfNbpN.pN2AN&<x*<N8N׬"<NnAN&<x*<N8N׬"<NpN.pN2AN&<x*<N8N׬"<ENnAN&<x*<N8N׬"<NpN.pN2AN&<x*<N8N׬"<NnAN&<x*<N8N׬"<;NpNͮ -(DN" -(Nl&<x*<N8&<x*<NVN׬NrAN&<x*<N8N׬"<NnNf S P E I C H E R N 4NdpN"pNͮAN&<x*<N8N׬"<rNnNfBLOCKNNdpNͮAN&<x*<N8N׬"<NnNfBLATT4NdANbHxAN&<x*<N8N׬/Hx;AN&<x*<N8N׬/BBANbHxEAN&<x*<N8N׬/HxAN&<x*<N8N׬/BBANbAN&<x*<N8N׬"<NnNZOKNdAN&<x*<N8N׬"<mNnNfABBRUCH4NdNNZBm+|NH ABNh AHNh ANNhANAHNNѨAHNANN&<x*<NJBfNPABN&<x*<NLpJBgp/ABN&<x*<NRpJBgp/AHN&<x*<NLpJBgp/AHN&<x*<NRpJBgp$fN+|pN.pN2AN&<x*<N8N׬"<NnAN&<x*<N8N׬"<;NpN.pN2AN&<x*<N8N׬"<ENnAN&<x*<N8N׬"<NpNͮAN&<x*<N8N׬"<NnNfBLATTNdpNͮAN&<x*<N8N׬"<rNnNfBLOCK4NdANbABN&<x*<NLpJBgp/ABN&<x*<NRpJBgp/AHN&<x*<NLpJBgp/AHN&<x*<NRpJBgp$fN+|pN.pN2AN&<x*<N8N׬"<NnAN&<x*<N8N׬"<;NAN&<x*<N8N׬"<ENnAN&<x*<N8N׬"<NpN.pN2AN&<x*<N8N׬"<ENnAN&<x*<N8N׬"<NAN&<x*<N8N׬"<NnAN&<x*<N8N׬"<;NAN&<x*<N8N׬"<NnNfBLATT;NdAN&<x*<N8N׬"<hNnNZmit CODENdpNͮAN&<x*<N8N׬"<rNnNfBLOCK4NdAN&<x*<N8N׬"<NnNf ohne CODE4NdpNͮABN&<x*<NLpJBgp/ABN&<x*<NRpJBgp/AHN&<x*<NLpJBgp/AHN&<x*<NRpJBgp/ -Nl&<x*<NRpJBgp$fN+|pN.pN2AN&<x*<N8N׬"<NnAN&<x*<N8N׬"<;NpN.pN2AN&<x*<N8N׬"<ENnAN&<x*<N8N׬"<NAN&<x*<N8N׬"<hNnNZmit CODENdpNͮAN&<x*<N8N׬"<NnNf ohne CODE4NdpNͮABN&<x*<NLpJBgp/ABN&<x*<NRpJBgp/AHN&<x*<NLpJBgp/AHN&<x*<NRpJBgp/ -Nl&<x*<NRpJBgp/ -Nl&<x*<NpJBgp$fN+|pN.pN2AN&<x*<N8N׬"<NnAN&<x*<N8N׬"<;NpN.pN2AN&<x*<N8N׬"<ENnAN&<x*<N8N׬"<NpNͮAN&<x*<N8N׬"<hNnNZmit CODENdpNͮAN&<x*<N8N׬"<NnNf ohne CODE4NdABN&<x*<NLpJBgp/ABN&<x*<NRpJBgp/AHN&<x*<NLpJBgp/AHN&<x*<NRpJBgp$fNt;BABN&<x*<NLpJBgp/ABN&<x*<NRpJBgp/AHN&<x*<NLpJBgp/AHN&<x*<NRpJBgp$fNP+|t;B4-NV&<x*<NgNv` NJfNNZpNͮ -Nl&<x*<N:pJBgp/ -Nl&<x*<N:pJBgp$fNpN.pN2AN&<x*<N8N׬"<NnAN&<x*<N8N׬"<;NpN.pN2AN&<x*<N8N׬"<ENnAN&<x*<N8N׬"<NpNͮAN&<x*<N8N׬"<hNnNZmit CODENdpNͮAN&<x*<N8N׬"<NnNf ohne CODE4NdNXpN.pN2AN&<x*<N8N׬"<NnAN&<x*<N8N׬"<;NpN.pN2AN&<x*<N8N׬"<ENnAN&<x*<N8N׬"<NpNͮAN&<x*<N8N׬"<hNnNZmit CODENdpNͮAN&<x*<N8N׬"<NnNf ohne CODE4NdpNͮNNZ AdN A`N A태N A\N A`N A\N -\\nNA\C\  " -`nNA태C`  "pN*pN. -\T"-Np -\T/ -T"N -`T"-\Nn -\T"-N -`YgNT -`"-\Nn -"-\NNpN* -`N. -dN2 -`"-\Nn -"-\NpN*NNZ AdN A`N A태N A\N A`N A\N -\\nNA\C\  " -`nN A태C`  " -`YgN! -`"-\Nn -"-\N -\Z/ -`Z"Nn -\NlH <r$<L8NRN׬/ -NlH <r$<L8NRN׬"N -`"-\Nn -\Z/ -`Z"NH -`"-\Nn -\NlH <r$<L8NRN׬/ -`Z"NH -"-\Nn -\NlH <r$<L8NRN׬/ -NlH <r$<L8NRN׬"NH -"-\Nn -\Z/ -NlH <r$<L8NRN׬"NHN#>pN*pN. -`"-\Nn -"-\N -`"-\Nn -\Z/ -`Z"NH -`"-\Nn -\NlH <r$<L8NRN׬/ -`Z"NH -"-\Nn -\NlH <r$<L8NRN׬/ -NlH <r$<L8NRN׬"NH -"-\Nn -\Z/ -NlH <r$<L8NRN׬"NHpN* -`N. -dN2 -\Z/ -`Z"Nn -\NlH <r$<L8NRN׬/ -NlH <r$<L8NRN׬"NNNZ A태NBm -SgN#+|0+|4+m8+mJBfN$ -萭X+@4N$+m4+m8+mJBfN'B,/- -CJ~NHPp~NHP -,R _"_N.+@, -,JfN'"A(Nb -,Jf)|) NCdNHmdNfEND"_N>gN'/- -CJ~NHPHmd -,R _"_N.+@, -,JfN' <,Ѝ/p _ѐA(Nb/- -CJ~NHPp:NHP -, _"_N.+@,A(Nb -,Jfp`DNߪ`NqNߪ`Nq/-$HxA-hNbNNZ/- -CJ~NHP -,"_NzCjN/- -CJ~NHP -,T"_NNR+@/- -CJ~NHP -,R"_NCpNHmpp"_NzNLЭNHPHmpp"_N"_NCpNHmpp"_NzHPpAN"_NfJBfN)HmpHxpANr "_NHmpp"_NzHP -H@N"_NRJBfN)PHmpHx -H@Nr "_NHmpp"_NNXH -NlL8NVN׬+@ -NlH -LNlL8NN׬+@ -NlH <r$<L8NN׬+@Hmpp"_NzHP -NlN"_NHPHmp -T"_N"_NCpN/-/-HmjAp"_NCJ~NNNZA킈C:NAn@NbNprN"pNN`pNN`plNNNprN"NrL(Esc) Bewege Cursor an die linke obere Ecke, dann 'Return' oder Mausklick reBlBhNHPA "_N>JBgN+@lpN/ -lNl&<x*<NpJBgp$g -lUgN+@+| hN+JpN+@h -hNl&<x*<N:pJBgp/ -hNl&<x*<N:pJBgp$fN+AhC탈  "A|NbAhC탈  " -hNl&<x*<NpJBgp/ -hNl&<x*<NpJBgp$g -h gN-4 -dNlH -NlH -NlL8NRL8NVH -HNlL8NjpJBgp/ -hNlH -NlH -NlL8NRL8NVH -LNlL8NjpJBgp$fN-.pNV+m -A탠NF+m胤 -A탤NF/-/-/- -CP~NCJ~NNߪ`NqNqNߪ`NqNqBmN-`NpNN`N/-\/-`/-d/-hA$NbNNZ ApN A$N -dNlH -NlH -NlL8NRL8NVH -HNlL8NjpJBgp/ -hNlH -NlH -NlL8NRL8NVH -LNlL8NjpJBgp$fN1 -$SgN.+m -A탠NF -CbN,RNTC.N+m胤 -A탤NF/-/-A CP~N/-/-tC~N /-/-A.CV~NNߪ`NqNqNߪ`NqNq+md -dNlH -NlH -NlL8NRL8NVN׬A탠NF+mh -hNlH -NlH -NlL8NRL8NVN׬A탤NF/-/- -NlH -dNlL8NRH -NlL8NVN׬/ -NlH -hNlL8NRH -NlL8NVN׬CJ~NCP~N -NlH -dNlL8NRH -NlL8NVN׬/ -NlH -hNlL8NRH -NlL8NVN׬/A CJ~N/- -CP~NHPp"_NzHPp=N"_N>pJBgp/ -pNlzNpJBgp$fN0/-/-A2NbN0/-/-/- -CP~NNXC~N /-/-ANbNߪ`RNqNߪ`Nq -NlH <r$<L8NRH -NlL8NN׬+@ -NlH <r$<L8NRH -NlL8NN׬+@Ag Nb -pSgN1AJNbN1HxNZ | Block zu breit ! HPNZ ok r"_ N+@/-\/-`/-d/-hA$NbNNZ A`N A\NBt/-\ -`CP~NHPp"_NzHPNf=#DAT"_NHJBfN3/-\ -`CP~NHPp"_NHPp N"_NHPA3Nb -tJgN2/-\/-`A CV~N/-\/-`pCNC~N N3/-\/-`NZ*FEHLER*CV~N/-\/-`tC~N Nf | HP -tC2NN"_NHPNZ | in Zelle "_NHP -\@N"_NHP -`NlN"_NC:NHxHm:NZ weiter r"_ N+@NNZ"_ApNFA,NANAxNATNA탰NA|NA턀NA태NADNA턄NA.NBBBBHmpNZ !"_N*+@, -,JfN4DHmp -,"_NzCpNBmHmpp#N"_N*+@, -,NlzNpJBgp/ -tNlzN:pJBgp$VHgN7,HmpNZ#SUM"_N*+@, -,JfN4/-,BAGfNbHmpNZ#STA"_N*+@, -,JfN5/-,HxAGfNbHmpNZ#STD"_N*+@, -,JfN5@/-,HxAGfNbHmpNZ#AVE"_N*+@, -,JfN5x/-,HxAGfNbHmpNZ#MUL"_N*+@, -,JfN5AMNbHmpNZ#MIN"_N*+@, -,JfN5/-,BAQNbHmpNZ#MAX"_N*+@, -,JfN6/-,HxAQNbHmpNZ#QMN"_N*+@, -,JfN6N/-,HxAGfNbHmpNZ#QMW"_N*+@, -,JfN6/-,HxAGfNbHmpNf#PI"_N*+@, -,JfN7t;BHmp -,NlH <r$<L8NRN׬"_NzHPNNN"_NHPHmp -,V"_N"_NCpN4-NVzNgN7,`Hmpp~N"_N*NlHHmpp@N"_N*NlL8NN׬+@, -,SnN7NZ+-*/^(HPHmp -,NlH <r$<L8NRN׬/p""_N"_N*+@ -JgN7+|t -,NlzNpJBgp/ -tNlzN:pJBgp$VHgN>Hmp -,R/p""_NNLNlH <r$<L8NRN׬+@|Hmp -,T"_NNXN׬+@DHmp -,T"_NNR+@ -|NlzNLpJBgp/ -|H_HpJBgp/ -DNlzNLpJBgp/ -DL_HpJBgp$fN9n/-| -DCP~NHPp"_NzHPp=N"_N>JBfN9J/-| -DC~NAJBfN:Hmp -,NlH <r$<L8NRN׬"_NzHPAJBfN;Hmp -,NlH <r$<L8NRN׬"_NzHPp+N"_NHPApJBgp/Hmp -,NlH <r$<L8NRN׬/p""_NHPp/N"_N>pJBgp$fN=Hmpp"_NzHPp-N"_NHJBfN=6p-NHPHmp -,NlH <r$<L8NRN׬"_Nz"_NHPAHmp -,NlH <r$<L8NRN׬"_NzHPAJBfN?ApNR+@,NZ(0HPHmp -,"_Nz"_NHPp)N"_NHPHmp -,R"_N"_NCpNHmpNZ(-"_N*+@, -,JWHgN?hHmp -,"_NzHPp0N"_NHPHmp -,R"_N"_NCpN`HmpNZ#NUN"_N*+@, -,NlzNpJBgp/ -tNlzN:pJBgp$VHgN? -,JfN?t;BATNb`Hmpp#N"_N*+@, -,NlzNpJBgp/ -tNlzNLpJBgp$VHgNAHmp -,R/p""_NC.NNZ$SQRSINCOSTANATNLOGCLGEXPRNDABSINTFAKHPA."_N*Nl&<x*<NV&<x*<NѮATNATNzNpJBgp/ATNNATNN:pJBgp$fNA+|tNAHmp -,NlH <r$<L8NRN׬"_NzHPATN&<x*<NVN׬N"_NHPHmp -,X"_N"_NCpN`\Hmpp+N"_N*+@, -,JWHgNAHmp/-,pNr "_N`pENHPpN"_NC:NHmpA:"_N*+@, -,JWHgNB"Hmp -,R/p+Nr "_N`Hmpp-N"_N*+@, -,JWHgNBbHmp/-,pNr "_N`pENHPpN"_NC:NHmpA:"_N*+@, -,JWHgNBHmp -,R/p-Nr "_N`Hmpp*N"_N*+@, -,JWHgNCHmp/-,pNr "_N`Hmpp/N"_N*+@, -,JWHgNC@Hmp/-,pNr "_N`Hmpp^N"_N*+@, -,JWHgNCHmp/-,pNr "_N`ApN"Nl&<x*<NLpJBgp/ -tNlzNpJBgp/Hmpp"_NzHPp N"_NHpJBgp$fNF>ApNRJnND@R/-ApNXNC,NHmpApNRR"_NCpNNF:Hmpp"_NzHPp(N"_N>JBfNDRR/-Hmpp"_NzC&NNF&Hmpp"_NzHPp)N"_N>JBfNEL -JnNE>S -C&NNHPp(N"_NHpJBgp/ -Nl&<x*<NLpJBgp$fNE4R/- -C&NNC,NS`SNEF+|tNF&Hmpp"_NzHPpN"_NfJBfNFApNLCnN,NlH -C&NNNLCnN,NlL8NjpJBgp/ -NlzNLpJBgp$fNER/- -C&NNC,NS`vR/-Hmpp"_NzC&NNF&+|tHmpp"_NCpN`D -JnNFnR/- -C&NNC,NS` -JnNF+|tBBTRT -TC,NNNRJnNFR/- -TC,NNNXCNpNG* -TC,NNNL~N@VWbWX6X[[\>\\ZJ[zZYYYh]" -T\HpJBgp/ -tNlzNLpJBgp$g0NNZ A$N A,Nt;BBm^BmdBAeNbHmpp"-x"_NHPp)N"_N>JBfNMp -|NlzNLpJBgp/ -|H_HpJBgp/ -DNlzNLpJBgp/ -DL_HpJBgp/ -NlzNLpJBgp/ -H_HpJBgp/ -NlzNLpJBgp/ -L_HpJBgp/ -|_HpJBgp/ -D_HpJBgp$fNMb+m|+mD/- -CP~NHPp"_NzHPp=N"_N>pJBgp//- -CP~NHPp"_NzNRNlzNLpJBgp//- -CP~NHPpr"_NNRNlzNLpJBgp//- -CP~NHPp"_NzHPp-N"_N>pJBgp$fNJ JBfNP -|NlzNLpJBgp/ -|H_HpJBgp/ -DNlzNLpJBgp/ -DL_HpJBgp/ -NlzNLpJBgp/ -H_HpJBgp/ -NlzNLpJBgp/ -L_HpJBgp/ -|_HpJBgp/ -D_HpJBgp$fNP~+m|+mD/- -CP~NHPp"_NzHPp=N"_N>pJBgp//- -CP~NHPp"_NzNRNlzNLpJBgp//- -CP~NHPpr"_NNRNlzNLpJBgp//- -CP~NHPp"_NzHPp-N"_N>pJBgp$fNO JBfNT -|NlzNLpJBgp/ -|H_HpJBgp/ -DNlzNLpJBgp/ -DL_HpJBgp/ -NlzNLpJBgp/ -H_HpJBgp/ -NlzNLpJBgp/ -L_HpJBgp/ -|_HpJBgp/ -D_HpJBgp$fNT+m|+mD/- -CP~NHPp"_NzHPp=N"_N>pJBgp//- -CP~NHPp"_NzNRNlzNLpJBgp//- -CP~NHPpr"_NNRNlzNLpJBgp//- -CP~NHPp"_NzHPp-N"_N>pJBgp$fNSR/- -C~NHAfNL8NAfN/- -C~NHAlNL8NAlNR -oR -o -$SgNSClAf 0AfNNN"+@Hmp -,NlH <r$<L8NRN׬"_NzHPAfNN"_NHPHmpApN"x"_N"_NCpNNT+| t -NlzNpJBgp/ -tNlzNpJBgp$fNT+| tNT+|tNNZ)|P vN:L8NVNCNpNZB+|tNNZ -JnNZ -CNzNLJBfNZ/- -CNNCNpNZ/-tCNp+|tNZ+|tNNZ -JnNZ/- -CNNضCNpNZ+|tNNZ -JnN[j -CNzNjJBfN[N/- -CNNCNpN[d/-tCNp+|tN[r+|tNNZ -JnN[ -CNzNLJBfN[/- -CNNCNpN[/-tCNp+|tN[+|tNNZ -JnN\./- -CNA NN8NCNpN\6+|tNNZ -JnN\z/- -CNA NN8NٸCNpN\+|tNNZ -JnN\/- -CNA NN8N܊CNpN\+|tNNZ -JnN]/- -CNNܬA NNѮCNpN]+|tNNZ -JnN]f -CNN׬/A]vNb/-ANCNpN]n+|tNNZ ANATNA 0 -NlzNjpJBgp/ -Nl&<x*<NRpJBgp$fN^+|T -ATNF <Ѝ/ -TNl _N2Nߪ`NqNqN^$+|tBmNNZ4-NVzNJBfN^HxNZfDieses Programm ist meiner|Gattin IRIS gewidmet, die|immer viel Verstndnis fr|mein Hobby aufbringt !HPNZKlick...r"_ N+@t;BNeHxNZv Ich gre Dich herzlich !|Sieh' bitte gndig ber meine|und die Fehler im Programm|hinweg. DankeHPNf gern | na gut | nie r"_ N+@AFNpN*pN.AN&<x*<N8N׬r NnAN&<x*<N8N׬"<vNAN&<x*<N8N׬r NnAN&<€x*<N8N׬"<uNAN&<x*<N8N׬rNnAN&<x*<N8N׬"<rNpNpN" -(Nl&<x*<N8&<x*<NRN׬NrprN -SgNc?<2AN&<x*<N8N׬?pCNN"Nt?<AN&<x*<N8N׬?pCNN"NtpNͮpN" -(Nl&<x*<N8&<x*<NVN׬Nr -(Nl&<x*<N8&<x*<NRN׬/AN&<x*<N8N׬"NnNf Vielen DankeNdpN" -(Nl&<x*<N8&<x*<NVN׬NrAN&<x*<N8N׬"<NnNfund ein dickes Bussi!DNdAN&<x*<N8N׬"<NnNZDer zweite Teil gilt natrlichNdAN&<x*<N8N׬"<NnNZnur fr einen weiblichen User!NdpJBg -,Nl&<x*<N:pJBgp/ -,Nl&<x*<N:pJBgp$fNmAŲNbAg Nb/-d/-hApCP~N/-d -hCP~NHPp"_NzHPp=N"_N>JBfNm|/-d -hCP~NHPNZ !"_N*+@ -JfNmJBfNn -HNlNHPp*N"_NHP -LNlN"_NHPp N"_NC:NNnHm:p N"_NC:NA:N"DNTHPA:"_NC:NAN&<x*<N8N׬"<NnpNTNdpNͮAN&<x*<N8N׬"<NnA:NdpNͮNprN"NNZ?<NNT+@$ -$Nl&<x*<NpJBgp+@( -(RgNoA 0NoA 0 -$JgNp:HxNZ> |Dieses Programm luft|nicht in niedriger|BildschirmauflsungHPNZ OK r"_ N+@,NZ <NTCN -$SgNp+|8+|c<+|U@+|D?->Bg?<NN\?-B?<?<NN\?-F?<?<NN\?-:?<?<NN\pN͢NpB8AzNbNNZpCNNZ GEM_CALC.DATNNVJBfNqpINHPNZ GEM_CALC.DATr"_NHpNN+@0pNN+@4pNN AN/-4ANNTCNpN -4CN/AN"N4pNNqBA CNNNZp\NCNp\NCNp\NC Np\NCNp\NCNpNHPppN"_NC"NpNHPpqN"_NC(N+|H+|ȃLNN&<x*<NѮA N+|PA 0A 0A @0BmBmt;Bt;BBXBm -HC N -HCbN -HChNpdC&NpdC,NpdCNpdCnNpC2NHxp2C~Np2C8Np2CNp2CNpC>N/-H -LCJ~NpAnNn)|Z +|TpATNF/-TNXCnNNߪ`NqNq+|TpATNF/-TNC2NNߪ`NqNqHx p C2NNHPp~N"_NC2NNNZpdCDNBTpdATNF/-TNCDN -TCDNNHPNf***4"_N>g N2Nt@Nߪ`NqNq/-TA CDN -TR/A CDNNNZt;B/-H -LCP~N/-H -LCV~N/-H -LC~NpAhNnp AbNntANNp NTC.N+|T -HATNF/-T -T@NC N+| -LA탰NF/-T/-A.CV~NNߪ`NqNqNߪ`NqNq+|MTpSATNFp"-TNXNߪ`NqNqAuNb -X$fNuprBNXNuprBNX+|+|+|BmBmAg NbAFNNNZ+|\+|`+|d+|h+|+|+|+|+|+|NNZA CRNA CXNBm4A 0A 0A @0+|+|+|+|+|NNZ A턘N A`N A\NNpNpN"pNrHxgANb -`NlH -LNlH <r$<L8NRL8NN׬+@`+|pN*pN.prNnp "<NpNͮ+m\ -ANFp"-Nn -C NNHP -CbN,"_NzNd <Ѝ/ -CbN,Nl&<x*<N8&<x*<NVN׬ _ѐNߪ`NqNqpNͮ+|+m` -`ЭANFNf >C:NHm: -NlN"_NHm:p N"_NC:N+m\ -ANFHm:/- -CV~N"_NC:NNߪ`NqNq -rNnA:Nd <Ѝ/p _ѐNߪ`XNqpN -(Nl&<x*<N8&<x*<NVN׬NrNHPA "_NHpJBgp/N言$gNNZNN< gNyTNZ | Datei nicht gefunden ! C.NNyNZ*Es ist ein Fehler aufgetreten:|Fehler Nr. HPNnz <Ѝ/p _ -~N@ <Ѝ/p _ -~ N@JyLޢ~}Z <Ѝ/p _pNJCDNNC4N -~N@w^v"X$|NNZ -$UgN}+|6N}+|/-\/-`/-AvNb/-\/-`/-d/-hA$NbNNZ?-:Bg?<NN\ -$UgN~V -8wD+@8?-:?<?<NN\N~ABg?<NN\?-:?<?<NN\NNZA\NA`NNBg -(Nl&<x*<N8&<x*<NRN׬?A"NtpN*pN.pN2AN&<x*<N8N׬rNn <"<NpN*pN.AN&<x*<N8N׬"<NnAN&<x*<N8N׬"<NAN&<x*<N8N׬"<NnAN&<x*<N8N׬"<NAN&<x*<N8N׬"<NnAN&<x*<N8N׬"<N+|ЃTp"<ATNt -TNlANN8N׬"<Nn -TNlANN8N׬"<NHN`NqNq+|Tp"< ATNtAN&<x*<N8N׬"-TNnAN&<x*<N8N׬"-TNHN`NqNqpNpN" -(Nl&<x*<N8&<x*<NVN׬NrAN&<x*<N8N׬"<NnpGNNdAN&<x*<N8N׬"<NnpENNd -(Nl&<x*<N8&<x*<NVN׬/AN&<x*<N8N׬"NnpMNNdAN&<x*<N8N׬"<hNnNf-CALCrZNfpNpN" -(Nl&<x*<N8&<x*<NVN׬Nr -(Nl&<x*<N8&<x*<NVN׬/AN&<x*<N8N׬"NnNfregor4Nd -(Nl&<x*<N8&<x*<NVN׬/AN&<x*<N8N׬"NnNfngl4Nd -(Nl&<x*<N8&<x*<NVN׬/AN&<x*<N8N׬"NnNfmayer4NdpNpN" -(Nl&<x*<N8&<x*<NVN׬NrAN&<x*<N8N׬"<NnNZGEM-CALCNdpNpN" -(NlN2&<x*<NVN׬NrAN&<x*<N8N׬"<NnNZ 1988NdpN -(Nl&<x*<N8&<x*<NVN׬NrAN&<x*<N8N׬"<NnNfist ein PD-Programm von4NdAN&<x*<N8N׬"<.NnNZGregor EnglmayerNdAN&<x*<N8N׬"<.NnNfWeienbach 30/24NdAN&<x*<N8N׬"<.NnNZA-8813 St. LambrechtNdpN -(JWHNV&<x*<N8N׬N" -(Nl&<x*<N8&<x*<NVN׬NrAN&<x*<N8N׬"<NnNZ&Gefllt Dir das Programm, dann schickeNdAN&<x*<N8N׬"<NnNZ&mir bitte DM 20.- oder S 100.-- DANKENdpNpN" -(Nl&<x*<N8&<x*<NVN׬Nr)| BTp ATNF -TNl&<x*<N8&<x*<NVN׬/AN&<x*<N8N׬"NnpNDNC.N -TNl&<x*<N8&<x*<NVN׬/AN&<x*<N8N׬"NnA.NdNߪ`4NqN/NHPA "_NHpJBgp$gNNZA,NA\NA`NHxNf! | Ausdruck der Zellinhalte ? &HPNf alle | Block | nein 4r"_ N+@ -WfN/-A#FNb4-NVzNJBfNpNVpONHPNZPRN:r"_NHpNpNN`pRNpNN`pNN`plNpNN`pNN`pMNBH+m0\ -8A\NF+m4` -Nߪ`NqNqNߪ`NqNq+mA C:NAg NbANbpNVNNZ -$SgNHmNf*.PI2"_NC^NNHmNf*.PI3"_NC^NHm^A HPAL""_NN\HmLA "_NHJBfNHmLA >NbACNHmA"_NHPHm^p"_N"_NCLNpONHPALr"_NH -$SgNpNpNpNpNpN -8NlvN:NN׬NpN -8Nl&<x*<N؈N׬NpN -@NlvN:NN׬NpN -@Nl&<x*<N؈N׬NpN -DNlvN:NN׬NpN -DNl&<x*<N؈N׬NpN -NfSpaltenC:NANNCpNNprN"Nf Wieviele HPA:"_NHPNZ hintereinander (1-4) ? "_NN`AprNApNXANAN&<x*<NANAN&<x*<NANHm:A:N"NlH <r$<L8NRN׬"_NzC:N -SgN -NlNCpNNf1Eingabe der obersten darzustellenden Zeile: 1 - eHP -LNlHANL8NR&<x*<NVN"_NC킬NN< -@NCpNNZ8Eingabe der uerst linken darzustellenden Spalte: A - ZC킬NNprN"A킬N`NprN"NrBeginnend mit A:N`N :AprN -SgNApNXN׬+@ -NlH -LNl&<x*<NVHANL8NRL8NN׬+@NApNLNlH <r$<L8NRN׬+@ -NlH -HNl&<x*<NVHANL8NRL8NRJBfN <Ѝ/p _ -Nl&<x*<NN׬+@NprN"pNNTN` -SfNrNf Spalte(n)C:N -NlNCpNNf Zeile: 1 - 4HP -LNlH <r$<L8NRN"_NHPNZ | Kopfzeile: 0 | nichts: -1"_NC킬NNNZReihe(n)C:NNZSpalte: A - Z | nichts: -1C킬N -JoN -NlNCpNN -@NCpNNprN"A킬N`NprN"NrBezeichnung der A:N`Nr AprN -SgNFApNRJnN+| -NlH -HNl&<x*<NVHANL8NRL8NN׬+@N@ApNLNlH <r$<L8NRN׬+@ -NlH -HNl&<x*<NVHANL8NRL8NRJBfN@ <Ѝ/p _NApNXN׬+@ -NlH -LNl&<x*<NVHANL8NRL8NN׬+@NprN"pNNTN`ANNCpN -SgNNZ26C4NNNZ28C4NNprN"Nr Wieviele Werte nebeneinander (2-A4N`Nr) ? AprNApNXANA4NXHANL8NANAN&<x*<NAN -SgN& -@NCpNNZSpalteC:NNZ8Eingabe der uerst linken darzustellenden Spalte: A - ZC킬NN -NlNCpNNfReiheC:NNf1Eingabe der obersten darzustellenden Zeile: 1 - :HP -LNlHANL8NR&<x*<NVN"_NC킬NNprN"A킬N`NprN"NrBeginnend mit A:N`N :AprN -SgNApNLNlH <r$<L8NRN׬+@ -NlH -HNl&<x*<NVHANL8NRL8NRJBfN <Ѝ/p _N -LNl&<x*<NVHANL8NRHApNXL8NN׬+@ -Nl&<x*<NN׬+@NprN"pNNTN` -SfNNZReihe(n)C:NNZSpalte: A - Z | nichts: -1C킬N -JoN -NlNCpNN -@NCpNNjNf Spalte(n)BC:N -NlNCpNNf Zeile: 1 - 4HP -LNlH <r$<L8NRN"_NHPNZ | Kopfzeile: 0 | nichts: -1"_NC킬NNprN"A킬N`NprN"NrBezeichnung der A:N`Nr AprN -SgN -LNl&<x*<NVHANL8NRHApNXL8NN׬+@N ApNRJnN+| -NlH -HNl&<x*<NVH -NlL8NRL8NN׬+@N ApNLNlH <r$<L8NRN׬+@ -NlH -HNl&<x*<NVHANL8NRL8NRJBfN <Ѝ/p _NprN"pNNTN` -SgN -NlANNV&<x*<NVH -HNlL8NRJBfN -HNlH -NlL8NR&<x*<NVANN* -NlANNV&<x*<NVH -LNlL8NRJBfN* -LNlH -NlL8NR&<x*<NVAN+|TpATNF/-TA C>NNߪ`NqNq+|Tp2ATNF/-TA C8NB/-TtC~N Nߪ`NqNqBmvBm|+|TANATNF+|ANA탰NF -SgN/-T/- -NlH -NlL8NVH <r$<L8NRN׬/ -NlH -TNlL8NVH <r$<L8NRN׬C~NC~N -JgN/-T -NlH -TNlL8NVH <r$<L8NRN׬C NNC>NN0 -JnN0/-T/- -NlH -TNlL8NVH <r$<L8NRN׬CP~NC>N -JgN/- -NlH -NlL8NVH <r$<L8NRN׬C NNC8NN -JnN/- -NlH -NlL8NVH <r$<L8NRN׬/ -CP~NC8NNö/-T/- -NlH -TNlL8NVH <r$<L8NRN׬/ -NlH -NlL8NVH <r$<L8NRN׬C~NC~N -JgN/-T -NlH -TNlL8NVH <r$<L8NRN׬C NNC>NNT -JnNT/-T -NlH -TNlL8NVH <r$<L8NRN׬/ -CP~NC>N -JnNö/-/- -NlH -NlL8NVH <r$<L8NRN׬CP~NC8N -TC>NNHPp"_NzHPp N"_N>JBfN/-T -TC>NNHPp"_NC>N`/-T -TC>NNHPp"_NzC>N -C8NNHPp"_NzHPp N"_N>JBfN|/- -C8NNHPp"_NC8N`AN&<x*<NRJBfN/- -C8NNHPp"_NzC8NAN&<x*<NJBfN/- -C8NNHPp"_NzC8NAN&<x*<NJBfNN/- -C8NNHPp"_NzC8NAN&<x*<NJBfNŔ/- -C8NNHPp"_NzC8NAN&<x*<NLJBfN/- -C8NNHPp"_NzC8NAN&<x*<NLJBfN /- -C8NNHPp"_NzC8NAN&<x*<NLJBfNf/- -C8NNHPp"_NzC8NAN&<x*<NLJBfNƬ/- -C8NNHPp"_NzC8N/-T -C~NA0NNRJBfN/-T/-A0NC~N /-T -C~NArNNArNB -C~N//-T -C~N _N$B -C~NAxNNAxNNߪ`dNqNߪ`BNqArNA0NNpJBfNǘBm4AxNbAxCr  "002AxNbAxCr  "002+|TANATNF+|ANA탰NF/-T -C~N/A0N _N /-T -C~NzNRJBfN\/-T/-tC~N Nߪ`NqNqNߪ`NqNqt;B+|MTpSATNFp"-TNXNߪ`NqNqAN&<x*<NLJBfNprMNXprRNXprSNXAN&<x*<NLJBfNprONXA0NzNRJBfNR+|MTpSATNFp"-TNXNߪ`NqNqprNNXprONXNz/-\/-`/-d/-hA$NbNNZ 0A퀐 H0A퀖 H0A퀜 k0A퀢 z0C퀢A퀨 0C퀜A퀮 0A퀐NA퀄NNVA퀴NA퀖NA퀊NNRA퀺NA,NbA퀮NA퀴NNVANA퀨NA퀺NNRANA퀮NA퀄NNVANA퀨NA퀊NNRANBmCA 0A퀄NA퀴NNRANNѮANA퀊NA퀺NNRANNѮANBm:ANA6N ANA퀄NNVN׬?ANA퀊NNVANN8N׬?ANANNVN׬?ANA퀊NNVANN8N׬?~NANANNVANANANNVANN`JBfN(ATNbN2A2Nb/-\/-`/-d/-hA$NbNNZCA 0 <r$<AN BmA 0pN*pN.ANN2H <r$<L8NRN׬N2ANC>NNC킲NA6 0ANA6N ANA퀴NNV&<x*<NVHANvN:L8NVHANN8A2NNRA8NA&N/ANA8NN8N׬"NnA,N/ANA2NN8N׬"NA&N&<x*<NVN׬/A8N&<x*<NVANN8N׬"Nn <r$<A,NNRN׬/ <r$<A2NNRANN8N׬"NAٺNbANbANANNVANN`Nq -(NlN2&<x*<NVANANA&NNV&<x*<NVANA2N&<x*<NVANpNpN"ANNr -(Nl&<x*<N8ANNRN׬/ANANN8N׬"NnANC>NNNdANANNC킲NA퀜NA퀴NNV&<x*<NVHANADNN8L8NRANANA퀺NNVHANADNN8L8NVANpNpN" -(NlN2&<x*<NVN׬Nr -(Nl&<x*<N8ANNRN׬/ANANN8N׬"NnANC>NNNdN`NqBm <r$<ANNRA~N ANA~NN8A퀄NNVH <r$<L8NRANA퀊N&<x*<NVANpNpNrAN/ANANN8H -(NlN2L8NRN׬"NnA~N&<x*<NVN׬C8NNNdN` NqNNZ <r$<ANNRAJNANANNRADNBmTAJNAPN APNAJNNRAVNAPN/ANAPNN8A퀴NNVHANADNN8L8NRHANL8NRCNpAVNANNVN׬/APNCNANNVCNpAPN/AN/APN&<x*<NVN׬C~NA>NN8A퀺NNRHAN&JBfNAN/AJNCNCNpAN/ANA퀺NNVHANADNN8L8NVANN8CNpAN&<x*<NVN׬/ANADNN8A퀴NNRHANL8NRCNpAN&<x*<NVN׬/ANCNCNpAN&<x*<NVN׬CArNHxAJNCNCNpHxAJNCNCNpHxpCNANNVCNpHxpCNHANANN8L8NRCNpHxpCNCNpHxANADNN8A퀺NNVANN8CNpBpCNCNpBANA퀺NNVHANADNN8L8NVANN8CNppCArNNNZANNbpN͢A\ 0ANA\N AB 0AH /0AbN&<x*<NJBfN*A\N&<x*<NJBfN$ANbNA\N/pC~NAhNN8AHNNRAHNABN/ANAHNN8N׬"NBpN`pNzprNA\N&<x*<NJBfN NNNdN`NqpN`pNzprNANb/-\/-`/-d/-hA$NbNNZAN&<x*<NѨAzNAN&<x*<NVAzNNѨA큀NA~ 0ANA~N -(SDN*pN.A~NN2&<x*<NRN׬N2AV 0ANAVN <r$<AVNNRAzNN8&<x*<NVH <r$<A~NNRA큀NN8L8NVA큆NA큀NA큆NNVA큌NA0NzNjJBfNA~N/AVNC~NAhNN8&<x*<NRA큒NA큆N/AN&<x*<N8N׬"NnA큌N/ANA큒NN8N׬"NNAhNA0NN8&<x*<NVHA~N/AVNC~NA0NNVAhNN8L8NRA큒NA큆N/AhNA0NN8&<x*<NVANN8N׬"NnA큌N/ANA큒NN8N׬"NN`NqN`zNqANbNNZpNpN" -(Nl&<x*<N8&<x*<NVN׬NrAN&<x*<N8N׬rNnARNdpNpNrAN&<x*<N8H -(NlvN:L8NRN׬rNnAXNdBmANA~N pN -(NlN2&<x*<NRN׬NrA큘NA~NN8A0NNVANNѮANArN&<x*<NRJBfNZ+|dTNb+| TAN&<x*<NRJBfN -TNlANN8&<x*<NVNH -TNlL8NѨANNANNANANNC킲NANA~NNpJBgp/AN&<x*<N:pJBgp$fNtHmNZ *"_NHPANN"_NC킲NA큞NA~NN8&<x*<NRANN8H -(NlN2L8NRN׬"<NnA킲NdN`NqAbN&<x*<NNV&<x*<NRA큤NBm A~ H0AzNA큤NA~NXA~N&<x*<NVA큪NAbN&<x*<NJBfN <Ѝ/ <r$< _N$ANvpNpN"pNrA큪N/AN&<x*<N8H -(NlvN:L8NRN׬"NnANC8NNNdNJ` NqNNZBm AB 0ANABN A 0ANAN ABN/ANC~NANNANN`NqNqN`NqNqArNANNAN <2<$<ANNANANA퀨NNѨA>NA 0NNZA$NbNA큰 0 -$SfNHxNZ |Beschriftung der Kuchenteile :HPNZkeine|Zahlwert|% -wertr"_ NA큰NhAV 0ANAVN BmA~ 0ANA~N AVN/A~NC~NA큶NNVA0NNVA큶NN`NqNqA큶NzNpJBfNRA큶 0A큶N&<x*< NѨA큼NBmAN&<x*<NJBfNA p0A W0A 0A f0AN&<x*<NJBfNhA 40A 0A W0AVN&<x*<NJBfNZA 0NhA >0AN&<x*<NJBfNDA 0A 0A R0A 0AVN&<x*<NJBfNA H0A 0AVN&<x*<NJBfNDA z0A 0AN&<x*<NJBfNRA 0A l0A >0A 0AVN&<x*<NJBfNA 0AVN&<x*<NJBfNA H0A 0AVN&<x*<NJBfNRA W0A 0AN/ANANN8N׬"NnAN/ANANN8N׬"NA~ 0ANA~N pNpN"pNrCA 0AVN/A~NC~NA0NNVA큼NN8ANNVANA~N&<x*<NLpJBgpN*pN.A~NN2AN/ANANN8N׬"NnAN/ANANN8N׬"NAN/AN"NAN/ANANN8N׬"NnAN/ANANN8N׬"NAN/AN"N*A큰N&<x*<NLJBfNANANNVvN:HNNL8N8&<x*< NѮAzNBmNNvN:AzNNRJBfNAzN&<8<*<NRJBfNA 0AVN/A~NC~NA0NNVANA큰N&<x*<NJBfNAN&<x*< N8A큶NNѮN&<x*<NѮAN <r$<ANNRHANL8NRHAN&<x*<NNV&<x*<NѮ&<3338<4*<NRANN8HNNvN:AzNNVNL8N8L8NVN׬/AN&<x*<NNV&<x*<NѮ&<3338<4*<NRANN8HNNvN:AzNNVNٸL8N8ANNVANN8N׬"NnANNNdN`NqpNpN" -(NlN2&<x*<NVN׬NrNZSumme=HPA큶NN"_NC킸NANvN:ANNRN׬/AN&<x*<N8vN:ANNV&<x*<NVANN8H -(NlN2L8NRN׬"NnA킸NdpNpN" -(NlN2&<x*<NVN׬NrANvN:ANNRN׬/AN&<x*<N8vN:ANNV&<x*<NVANN8N׬"NnAVNC>NNNdN`(NqAN&<x*<NR&<x*<N8&<x*<NVANAN&<x*<NVANN8H -(Nl&<x*<N8L8NRN׬"<&Nnp NfA6 0ANA6N A6N&<x*<NLpJBgpN*pN.A6NN2A6N&<x*<N8ANNVANN8H -(Nl&<x*<N8L8NRN׬"<&Nnp NDN`VNqA6 0ANA6N pNpN" -(NlN2&<x*<NVN׬NrAN&<x*<NVHA6N&<x*<N8L8NVANN8H -(Nl&<x*<N8L8NRN׬"<:NnA6NC8NNNdN`4NqpN -(Nl&<x*<N8&<x*<NVN׬NrAN&<x*<N8N׬rNnHmRp "_NzNdpNpNrAN&<x*<N8H -(NlvN:L8NRN׬rNnHmXp@"_NzNdpN -(Nl&<x*<N8&<x*<NVN׬Nr/-\/-`/-d/-hA$NbNNZt;B+|TpKATNFp"-TNXNߪ`NqNqNNZAxCr  "002ANNbAN&<x*<NѨAzNAV 0ANAVN <r$<AVNNRAzNN8&<x*<NVA큆NAzN&<x*<N8A큆NNVA큌NBAVNC~NHA0NL8NRAhNN8&<x*<NRA큒NpN*pN.AN&<x*<N8AtNA큆N/AtN"NnA큌N/ANA큒NN8N׬"NA~ 0ANA~N Bm+|PA~NAPNF/-PAVNC~NANNVA0NNVANNߪ`NqNq <Ѝ/A0N _N AhNANN8&<x*<NRANN8A큒NA큒N&<x*<NVAtNNRJBfNDpN*pN.A~NN2&<x*<NRN׬N2A큆N/A큒N"NnA큌N/AtN"NNtA큆N/A큒N"NnA큌N/A큒N"NHC큒At 0N`xNqN`&NqAb 0ANbpN`pNzprNANbAxCr  "002/-\/-`/-d/-hA$NbNNZAN&<x*<NR&<x*<N8ANpNpN"pNrA6 0ANA6N pN*pN.A6NN2&<x*<NRN׬N2A6N&<x*<N8&<x*<NVANN8N׬"<+Nnp NDA6N&<x*<N8&<x*<NVANN8N׬"<;NnA6NC>NNNdN`"NqNNZA$NbNA,NbAN&<x*<NѨA큞N <r$<ANNR&<x*<NѨAN <r$<ANNR&<x*<NѨAzN <r$<ANNRANBmfHm4Nf Balken C-F4"_N>JBfNAb 0CA 0AN&<x*<NѨANCAz 0ANANNѨA큘NAN&<x*<NѨAhNAB 0AH /0pN͢ABN?ANAHNN8N׬?ABN&<x*<NVN׬?ANAHNN8N׬?~NA~ 0ANA~N A큞NA~NN8&<x*<NRAHNABN?ANAHNN8N׬??<ANAHNN8N׬?~NN`NqNqAH /0BmANA~N Hm4Nf Linien C-E"_N>pJBgp/A~NzNpJBgp/ANA~NNpJBgp/A0NzNRpJBgp$fN ,ANA~NN8&<x*<NVABNABN?ANAHNN8N׬?ABN? <r$<AHNNRANN8N׬?~NN`NqNNZ"_ANFANCNHmp:N"_N*A~NhHmp\NHPA~N&<x*<NVN׬ _"_N.$fN Hmp\NHPA~N&<x*<NVN׬ _"_N.A~Nh`HmA~N"_NzCNHmp.NHPA~N&<x*<NVN׬ _"_N.ANhANJBfN HmA~N&<x*<NVN׬/A~NANNRH <r$<L8NRN׬""_NCNHmAN"_NCNN HmA~N&<x*<NVN׬"_NCNA CNNNZ123124125919293126*#SUM#AVE#STA#STD#MUL#MIN#MAX#QMN#QMWEND11223344444444444unbekannte Funktion'(' fehltunbekannter Operatorzu wenig ArgumenteDivision durch Null')' fehltnegative Zahl bei LOGnegative Zahl bei SQRfalsche Koordinaten bei Fehler bei #MIN/MAXFehler bei #MULkeine numerischen Daten| bei #MIN/MAXFehler bei #SUM/AVE/STA/QMWFehler bei #FAK/NUN GEM-CALC-------------------- Laden F3 Speichern ^F3--------------------- Drucken F9 Zellinhalt C-Z--------------------- Blatt lschen ^F10 Ende ^F9 Zahl der Spalten C-L Breite Spalte F4 Breite Alle ^F4----------------------- Komma Spalte F5 Komma Alle ^F5----------------------- Zeile einfgen C-1 Zeile lschen C-2 Spalte einfgen C-3 Spalte lschen C-4----------------------- Nachkomma-0 C-N Return mit LF C-P Trennzeichen C-T links oben ^F2 rechts unten F2------------------- Move absolut F7 Move relativ ^F7 Copy absolut F6 Copy relativ ^F6------------------- --> Werte C-V Lschen ^F10 ndern F1------------------- Merken C-M Copy absolut C-A Copy relativ C-R------------------- Lschen F10 Berechnung ^F1 Fehler suchen C-O Sortieren C-X Gehe Zelle F8 Invert C-C Hi Resolution C-K Kopf ^F8 Titelzeilen C-0 Bogenma C-B max. Bereich C-9-------------------- Hilfe Help/C- Datentransfer C-U Daten laden C-6 Daten speichern C-5---------------------- Kuchen C-D Linien C-E Balken C-F Stapel C-G Sulen C-H Blcke C-I Flchen C-J---------------------- Hardcopy C-Q Degas C-W---------------------- Spreadsheet C-S*** KLICK...213162427324045515569768487-1@  TV*X  DJJX.LVV >:V*V:V*V>40 FRVVVVVVV$ZZd$\\d$J0Jl$f fVVVVVVVVVppVVRJVVVVVRRV8$X( z * $<  0@2@  D Tl80DL .Bb&~Z4 &Z@ <8:&&\@ <8:(Xl^@ <8:p&\f@ <8:Fzʀ.* @<86 4>>VJ n n | >  $R:Rl&L $B:  $  &L `.$n 4$8$4$Vr$FF$fVV$(:,NP4v6 6  fZ2Z2P(`. :, :"6J(,*rT62::><>F4Bj`* d(T(R8@"&(@&d(P$&(D$ &f(P2 *0040 B^ 6   ZB j TT4$LV8Th$HJH>B>RXvt\V&BB0Z(,nln f 2BZTB&|  d44, FJ\.VVD00lBf"n`<Zb Lbp@<864D\rl(p 6 R^28^l& ***** ****|N\F4 $RNN$ XZDZD@@>$&$V,$hF.0.&h,H8n8&8@,NN,쎐B|f4<LLLL""D""""....v<,Ff8F x N4v6 6l $Jj :8."P. 4(&r D^l&Z$HV\ \"" X: 6X: 6.hVt(P(Τ0N, H P0P, $P \h&&`zVLtXzvzLPXz4D