g52 **** MIN-TKP ***********************[************************************ *(* `TORSTEN BAUMBACH 21.4.1988 *2* AHORNSTR.16, 6502 GERA-LUSAN *<* (mini-tabellenkalkulations- *(F* programm f}r den KC 85/4 ) *QP* *Z*********************************** d----VARIABLEN INITIALISIEREN-------n8000xB$(3),ZE(10),Z$(10),E(11)A$(200,4):D1:B4:C4:I17:J1 862,25:0:2----BILDSCHIRM---------------------G(27);"1";(18)]0,31,0,39:4,0:8);"A";17);"B";26);"C";35);"D"(40,"=")Z020(Z,3);"\":(0,12);"\":(0,21);"\"(0,30);"\":(2,12);"\" (2,21);"\":(2,30);"\""(3,0);(40,"-")50,84,319,84,4?1110O22,31,0,39x"----TASTATURABFRAGE----------------,E(509):E03006S0:H0@E631410:300JE16D1:B4:C4:1110:300TE18I1:300^E17IE:300hE7E121010:300rE65300G|----TEILPROGRAMMZUWEISSUNG---------(E64)2010,300,300,3010,4010,5000,6010,7010,300,300,14000(E75)8010,300,300,9010,300,300,10010,15000,16000,11010(E85)12010,300,300,300,13000300 ++++ GRUNDROUTINEN ++++++++++++++++C ----CURSORBEWEGUNG---------------- H0:(B,C);" ":(B,C8(A$(B4D,C101)));A$(B4D,C101) E8CC9:C4C31 E9CC9:C31C4 E10BB1:B20DDI:H1:BB1 E11(B4D1)BB1:B4DDI:H1:BB1 $H11150: .(B,C);">": b L----SICHTBARER TABELLENTEIL------- VH0:(2,12(A$(0,1)));A$(0,1) `(2,21(A$(0,2)));A$(0,2) j(2,30(A$(0,3)));A$(0,3) t(2,39(A$(0,4)));A$(0,4) ~D200D184 D1D1 I1H01190* E10B4:B20; 4,20,4,39:K 22,31,0,39[ KD:L420p SP0:K100SP1 K10SP2 (L,0);(SP," ");((K),((K))1) PRINTAT(L,4);STRING$(36," ") (L,12(A$(K,1)));A$(K,1) (L,21(A$(K,2)));A$(K,2)) (L,30(A$(K,3)));A$(K,3)I (L,39(A$(K,4)));A$(K,4)U KK1:s (B,C);">": x----HELP-MENU--------------------- (27);"2" AR11690 0,31,0,39::AR1 "HELP-MENU": "Tasten im Kommandomodus:": "(?) HELP-MENU": "(";(138);") SCROLL-Modus"[ "(";(139);") 'PAGE'-MODUS" "(";(144);") CUSOR ZUM TABELLENANFANG" :"Kommandos": "(A)BSPEICHERN -der Tabelle" "(D)URCHSCHNITT -errechnen" "(E)INGABEMODUS"" * zur}ck mit '/'"B" * Spaltenschreiben Shift + ";(138)p" * Zeilenschreiben Shift + ";(139)""(F)ORMELMODUS","(G)RAFIK -Tabellendiagramm"6"(H)ERAUSSUCHEN -von Zellen"@"(K)OMMABUENDIG -formatieren"!J"(L)ADEN -einer Tabellendatei"ET"(O)RDNEN -der Tabelle"V^"(R)ECHNEN"h"(S)PEICHERPLATZ -und Tabellenumfang"m"(T)ABELLENSCROLL"r"(U)EBERSCHRIFT -setzen"|"(V)ERGLEICH -durchf}hren""(Z)ERSTOEREN -(l|schen)":30);">ENTER<";*(509)131690F(27);"1";:22,31,0,39i ----EINGABE DER SPALTE------------"Spalte:";C$(C$)1C$"@"C$"E"A(C$)64:&A0:SP14:A$(0,SP)C$ASP0:A0D:"not found"::1690Al----ENDE DER TEILPROGRAMME--------Vv(509)131910\k(27);"1"22,31,0,39::300----AUSGEBEN EINER ZEILE----------Z;":";S14:A$(Z,S);",";:"" $++++ TEILPROGRAMME +++++++++++++++L----ABSPEICHERN DER DATEI---------a"(A)BSPEICHERN"{"Name der Datei:";D$"(enter)";C$ :""D$;A$1920  ----DURCHSCHNITT BERECHNEN-------- "(D)URCHSCHNITT":1800& Z1200:A$(Z,A)""30509 SS(A$(Z,A))p ((A$(Z,A))47(A$(Z,A))58)(A$(Z,A))46HH1v  H0"nicht berechenbar!":1910 "arithmetisches Mittel:";SH 1910 ----EINGABEMODUS------------------)"(E)INGABEMODUS":1:C$""@E(509):E04020^D$(E):E121010:4020mE471920E18J1:4020E17J0:4020E631410::4010E13D$"":4120D$;:1:1,0:"";C$:D$D$C$D$"PI"D$"3.141593"(D$)8D$(D$,8)/(B,C);" "F"(B,C(D$)8);D$^,A$(B4D,C101)D$l6J14190@CC9:C35C4:BB1JB20H1:E10:DDI:B20:1150T4210^BB1hB20H1:E10:DDI:B20:1150r(B,C);">"|:4010 =----FORMELMODUS-------------------X"(F)ORMELMODUS":1800z"von Zeile,bis Zeile:";ZA,ZE"Formel f}r Zeile";ZA;":""Inhalt einer Zelle durch (SP.ZE)""darstellen! :";F$ Formeln f}r alle Zeilen bilden...."U$F$:V$U$:FO0:Z01:Q1:Z1(U$)S(F$,Z,1)"("5170kZ$(Q)(F$,Z0,ZZ0)E(Q)((F$,Z1,1))64LZ2Z7 (F$,L,1)")"Z0L1ZE(Q)((F$,Z3,LZ2))(QQ12Z<Z$(Q)(F$,(F$)Z01) -FZelleninhalte einsetzen...........<PZZZA ZEOZF$"":Z1Q1ydZE(Z)0ZE(Z)201E(Z)0E(Z)55250n"Formel nicht zul{ssig"xFO1:ZZZE:5300A$A$(ZE(Z)ZZZA,E(Z))A$""A$"0"F$F$Z$(Z)A$Z A$(ZZ,0)F$Z$(Z)ZZ5FO11910 ]ausrechnen/Regeln beachten........Potenzen ZZZA ZE:5800H0:Z1Q1Q1ZQ:5410Z$(Z)"^":5420ZLE(Z1)E(Z):H1.A$(ZZ,0)(A$(ZZ,0),ZE(Z1))(ZL)(A$(ZZ,0),ZE(Q)ZE(Z1))IH1ZQ::5800:5350n" ,Division/Multiplikation 6H0:Z1Q1@Q1ZQ:5540JZ$(Z)"/"5490TE(Z)0"Division durch Null/Zeile";ZZ:1900^ZLE(Z1)E(Z):H1"h5510:rZ$(Z)"*":5550Q|ZLE(Z1)E(Z):H1^Z$(ZL)A$(ZZ,0)(A$(ZZ,0),ZE(Z1))Z$(A$(ZZ,0),ZE(Q)ZE(Z1))H1ZQ::5800:5430 Addition/Subtraktion H0:Z1Q1(Q1ZQ:5670=Z$(Z)"+"5610TZLE(Z1)E(Z):H1^5650vZ$(Z)"-":5680Z15670(A$(ZZ,0),Z1,1)"0"(A$(ZZ,0),Z1,1)"9"5670ZLE(Z1)E(Z):H1A$(ZZ,0)(A$(ZZ,0),ZE(Z1))(ZL)(A$(ZZ,0),ZE(Q)ZE(Z1))-H1ZQ::5800:55603&;0S0v:(A$(ZZ,0))32A$(ZZ,0)(A$(ZZ,0),(A$(ZZ,0))1):S1DS15680N((A$(ZZ,0)))" "A$(ZZ,0)(A$(ZZ,0),1)"0"5740X"Formel nicht zul{ssig!"bFO1:ZZZElZZ 6vErgebnisse in entspr.Spalte.......FFO11910UZZZA ZEmA$(ZZ,A)A$(ZZ,0):1110:1920 Formel in Zeich.u.Zahlen zerl-----Q1:Z1(A$(ZZ,0))C$(A$(ZZ,0),Z,1)C$"-"5860Z15870<(A$(ZZ,0),Z1,1)"0"(A$(ZZ,0),Z1,1)"9"5870x(C$"0"C$"."C$" ")C$"^"ZE(Q)Z:Z$(Q)C$:QQ1~ZE(Q)(A$(ZZ,0))1Z1Q E(Z1)((A$(ZZ,0),ZE(Z1)1,ZE(Z)ZE(Z1)1))  & p----DIAGRAMMDARSTELLUNG-----------6 z"(G)RAFIK"M "1-KREISDIAGRAMM"e "2-LINIENDIAGRAMM" "3-BALKENDIAGRAMM";E E1E3:6010 :"1.Zeile,letzte Zeile:";Z1,Z2 1800:A1A:J$"" E16320 !Kreisdiagramm.....................)!(27);"2"D!0,31,0,39::AR0:NE0Q!AZ1Z2j!SS((A$(A,A1))):}!160,128,100,7!W0:AZ1Z2!W1W:WW360((A$(A,A1)))S!160,128,(Wǯ180)100160,(Wǯ180)100128!$(A$(A,A1))06230".NE1:SS51005,"8WAW1ǯ180:WEWǯ180e"B160(WA)SS,(WA)SS128,160(WE)SS,(WE)SS128k"Lq"V"`NE1(1,0);"Schraffur->negative Werte""jA$(0,A1)""(0,0);A$(0,A1):0,(A$(0,A1)):6280"t(0,0);"Spalte ";(64A1)"~0,8#J$"J"1910;#A$(0,A2)""" und ";A$(0,A2):1900X#" und Spalte ";(64A2)b#1900#E26540 #Liniendiagramm....................#"mit 2.Spalte(J/N)?";J$#J$"J""2.";:1800:A2A#M0:AZ1Z2$H(A$(A,A1))H(A$(A,A1))<$M(A$(A,A1))M(A$(A,A1))d$H(A$(A,A2))J$"J"H(A$(A,A2))$M(A$(A,A2))J$"J"M(A$(A,A2))$ $M1240(HM):M2305(Z2Z11) $(27);"2"$(0,31,0,39::AR0$2MI5MM1%<5,5,5,250,7:5,MI,315,MI%FAZ11Z2\%P5M2(A1Z1),M1(A$(A1,A1))MI,5M2(AZ1),M1(A$(A,A1))MI,7n%ZJ$"J"6510%d5M2(A1Z1),M1(A$(A1,A2))MI,5M2(AZ1),M1(A$(A,A2))MI,5%n%x6250 &Balkendiagramm....................&M0:AZ1Z2:&M(A$(A,A1))M(A$(A,A1))[&H(A$(A,A1))H(A$(A,A1))a&&M1240(HM):M2305(Z2Z11)&(27);"2"&0,31,0,39::AR0&5,5,5,255,7:5,5M1M,315,5M1M&AZ1Z2'Z5M1M(A$(A,A1))M15M1M((A$(A,A1)))1'(AZ1)M27,Z,(AZ11)M25,Z9':^'6250 'X----SUCHEN------------------------'b"(H)ERAUSSUCHEN":1800'l"What?";D$'vZA0:(D$)0(D$,1)"0"(D$,1)"."ZA1'Z1200'ZA07080&((A$(Z,A))(D$)A$(Z,A)""19500(7090F(A$(Z,A)D$1950h(:1910 (@----LADEN EINER DATEI-------------(J"(L)ADEN"(T"Dateiname:";D$(^"(enter)";A$(h:""D$;A$:D1:B4:C4(r0,31,0,39::180!)(#----ORDNEN------------------------<)2#"(O)RDNEN":1800:A1A])<#"mit Nebenspalte (J/N)?";J$v)F#J$"J""2.";:1800)P#A2A:AA1)Z#"beginnend mit 1-kleinstem/2-gr|~tem")_#"Zelleninhalt?";E)d#ZM1:Z1200 )n#A$(Z,A)""ZMZ)x#*#ZA0:(A$(ZM,A))0ZA10*#Z0:(A$(ZM,A2))0Z1@*#ZZA 9140h*#:"Unterschiedliche Feldelemente!"r*#1910*#ZA19160*#(A$(ZM,A),1)"0"(A$(ZM,A),1)"."ZA1*#E29330*#Z2ZM*#ZA09230+#((A$(Z,A))(A$(Z1,A))A$(Z,A)"")A$(Z1,A)""92907+#(A$(Z,A))(A$(Z1,A))9260y+#((A$(Z,A2))(A$(Z1,A2))A$(Z,A2)"")A$(Z1,A2)""9290+$9260+$(A$(Z,A)A$(Z1,A)A$(Z,A)"")A$(Z1,A)""9290+$A$(Z,A)A$(Z1,A)9260,"$(A$(Z,A2)A$(Z1,A2)A$(Z,A2)"")A$(Z1,A2)""9290!,,$H1:S14O,6$A$A$(Z,S):A$(Z,S)A$(Z1,S):A$(Z1,S)A$U,@$[,J$z,T$A$(ZM,A)""ZMZM1:9300,^$H1H0:9170,h$9480,r$Z2ZM,|$ZA09390,$((A$(Z,A))(A$(Z1,A))A$(Z,A)"")A$(Z1,A)""9450-$(A$(Z,A))(A$(Z1,A))9420S-$((A$(Z,A2))(A$(Z1,A2))A$(Z,A2)"")A$(Z1,A2)""9450]-$9420-$(A$(Z,A)A$(Z1,A)A$(Z,A)"")A$(Z1,A)""9450-$A$(Z,A)A$(Z1,A)9420-$(A$(Z,A2)A$(Z1,A2)A$(Z,A2)"")A$(Z1,A2)""9450-$H1:S14).$A$A$(Z,S):A$(Z,S)A$(Z1,S):A$(Z1,S)A$/.$5.$T.$A$(ZM,A)""ZMZM1:9460g.$H1H0:9330.%1190:1920 .N%"Zelleninhalt?";E.'----BERECHNUNG-------------------.'"(R)ECHNEN":1800/$'"1-addieren;2-multiplizieren?";E&/.'"1.Zeile,letzte Zeile:";Z1,Z25/8'E210070S/B'ZZ1Z2:SS(A$(Z,A)):d/L'"=";S:1910/V'S1:ZZ1Z2:SS(A$(Z,A)):/`'10060 /*----UEBERSCHRIFT EINGEBEN--------/+"(U)EBERSCHRIFT":18000 +A$(0,A)"":"";A$(0,A)/0+(A$(0,A))8A$(0,A)(A$(0,A),8)J0 +(2,A95);" "m0*+(2,A93(A$(0,A)));A$(0,A)04+1920 0.----VERGLEICH--------------------0."(V)ERGLEICH":18000."Vergleichswort/-zahl:";E$1."1-kleineres/2-gr|~eres suchen?";E1/O1/ZA0:(E$)0(E$,1)"0"(E$,1)"."ZA1^1/E112130k1&/Z1200{10/ZA0121101:/(A$(Z,A))(E$)19501D/121201N/A$(Z,A)E$19501X/:19101b/Z12001l/ZA012170 2v/(A$(Z,A))(E$)A$(Z,A)""19502/1218062/A$(Z,A)E$A$(Z,A)""1950W2/:1910 ~22----LOESCHEN VON ZELLEN----------22"(Z)ERSTOEREN/LOESCHEN"22180022"1.Zeile,letzte Zeile:";Z1,Z222ZZ1Z222A$(Z,A)"":331110:1920 -36----KOMMABUENDIG FORMATIEREN-----I36"(K)OMMABUENDIG":1800a36"Kommastellen:";STn36Z120036A$(Z,A)"":1417036ZA(A$(Z,A))36ZA(ZA10ST.5)10ST36A$(Z,A)(ZA)37ST0141503 7L1(A$(Z,A))47(A$(Z,A),L,1)"."L(A$(Z,A))::141304784(7A$(Z,A)A$(Z,A)".0"h427(A$(Z,A))1STA$(Z,A)A$(Z,A)"0":141304<7(A$(Z,A),(A$(Z,A))ST,1)"."A$(Z,A)A$(Z,A)"0":141404F7(A$(Z,A))32A$(Z,A)(A$(Z,A),(A$(Z,A))1)4P75Z71110:1920 (5:----SPEICHERINITIALISIERUNG------G5:"(S)PEICHERUEBERPRUEFUNG"o5:A$"":J$"":D$"":C$"":F$"":V$""5:U$"":B$(1)"":B$(2)"":B$(3)""5:A010:Z$(A)"":5:A1200:A$(A,0)"":5:FR(X$)5:"noch";FR;"Byte frei"6:"Beschrieben:"!6:BG0:ZG0:SP14:ZE0:BY0.6:Z1200Z6;A$(Z,SP)""ZEZE1:BYBY(A$(Z,SP))`6;6;"Spalte ";(SP64);":";ZE;"Zeilen mit"BY"Byte"6$;ZGZGZE:BGBGBY:6.;ZG0ZD1:ZDZG68;"Ausnutzung";BGZD"Zeichen/Zelle"7B;FF800ZG:FRFR1600!7L;FRFF8FRFF:FR(FR8)M7V;"bei voller Ausnutzung noch"FR"Zellen"b7`;"beschreibbar";7j;1910 7>----TABELLENSCROLLING------------7>"(T)ABELLENSCROLLING ohne Nummernanzeige"7>"STOP durch "8>4,20,0,2:8>4,20,4,39:$8>A1200/8>B14P8>B91(A$(A,B)));A$(A,B);V8>y8>(509)0A17ZA:A201:Ԟ""8>8>22,31,0,398>A1178?ZZZ17A8 ?SP0:ZZ100SP18?ZZ10SP28 ?(A3,0);(SP," ");((ZZ),3SP)8*?94?B4:C4:DZZ169>?(B,C);">"?9H?(18):1920 f9hB*********************************(ZZ),3SP)8*?94?