) I#1: 1#RVB BASIC-MIX2O 0,31,0,39:5:5:8::(0,0);" ":1100yA1$"KLEINCOMPUTER KC85/2 & KC85/3"A3$" "(A4$"HAUSHALTSABRECHNUNG"2(5,2);A1$<(9,16);A3$F(12,12);A4$P(17,27);">ENTER<":0Zյ(13)90:ԙ: 1010)II1(E$)A(E$,II,1)"."540IIIR570q(E$,II2,1)""E$E$"0"&(E$,II3,1)""E$(E$,II2)0:E$E$".00"DX25,26,0,39:6::4: (39,(173)):7*:"KATEGORIEAUSWAHL":4%4::K1AO:6)K10)Z$(K):K>>6)K10)"ENDE":600XH6:"KATEGORIE?";F:4iRF1FK840o\(T)999999:2::6 (22,0);"WERT GROESSER 999999-->PROGRAMMABBRUCH":4800N(652),Z$(62) L$" ":LE$(15," "):D0:KS0BQ$"BUDGET":Q1$"KATEGORIE ":Q2$"FUNKTIONSAUSWAHL"| Q3$"MONATSAUSGABEN":Q4$"ERFASSUNG":Q5$"AUSWERTUNG" Q6$"VERGLEICH":Q7$"PLAN-IST-"WOHNUNG/HAUS,WIRTSCHAFTSGELD,KLEIDUNG,KFZ,TASCHENGELD,HOBBYREGELM. AUSGABEN,LASTER,VERSCHIEDENES,EINKOMMEN]$JANUAR,FEBRUAR,MAERZ,APRIL,MAI,JUNI,JULI,AUGUST,SEPTEMBER,OKTOBERu. NOVEMBER,DEZEMBER}8Z0B1:1:::L10:23)Q2$V"---------------------------------------":4`6,23,6,39:"1 SPEZIFIKATION": j"2 "Q4$" "Q3$:1 t"3 EINZEL"Q5$" VON MONATEN":T ~"4 "Q5$" AB JAHRESBEGINN":b "5 ENDE"k 600 6:(22,0);"FUNKTION ?":F$:F(F$):700 F1F51170 F11280 F51890 Z01280 :Q$"DATEI VON BAND LESEN":( 6:"BAND POSITIONIEREN UND STARTEN";B:4< "HAUSH.*1";Z$O "HAUSH.*2";NW Z1 AON(1):MN(352):I110:AU(I)N(1I): F21890 M131290 600:A$"J":"NEUES JAHR BEGINNEN (J)/N:";A$:KS0:700 A$"J"1370 A$"N"1090:1285 + "DER AKTUELLE MONAT IST ";@ 10:Z$(61):4:g (Z$(62)"""LETZTE EINGABEN AM " 2Z$(62)"":Z$(62);"." ;600 <A$"N":"NEUER MONAT J/(N):";A$:700 F A$"N"1890 PA$"J"1340 ZD1:::22:"BITTE WARTEN":4 [M131380 \M0I ]I12181:N(I)0:I:I232652:N(I)0:I:1500| dI1AO:N(61(M1)10I)0:N(231(M1)10I)0 nJ1AU(I) xN(61(M1)10I)N(61(M1)10I)N(11(I1)5J) N(231(M1)10I)N(231(M1)10I)N(181(I1)5J)0 N(602(I1)5J)N(602(I1)5J)N(11(I1)5J)F N(11(I1)5J)0P J:I] I1AO l J1AU(I)w K15 N(352(I1)25(J1)5K)0 K:J:I (1,0);LE$:A$"J" M121509600:A$"J":"JAHRESSTATISTIK ABSPEICHERN (J)/N:";A$+M13:A$"N"1090KS1:D1:46904600gA$"J":"ALTE PLANWERTE UEBERNEHMEN (J)/N:";A$u600: ~700A$"J"1840A$"N"150010:Q$28)"PLAN AENDERN"(39,(173)):4"I1AO,4,23,0,39: 6A0:Q1$;:5:Z$(I);30);:4:"PLAN - ALT"1@:J1AU(I)QJ7:J;".";Z$(10(I1)5J);T4:37((N(181(I1)5J))));N(181(I1)5J):^Jh600r6:"KATEGORIE? (0=KEINE)";NR:4|NR0NRAU(I)1650NR01800A04,23,0,39:18304,23,0,39:=Q1$;:5:Z$(I);30);:4:"PLAN - NEU":LJ1AU(I)l7:J;".";Z$(10(I1)5J);4:37((N(181(I1)5J))));N(181(I1)5J):J600A$"J":"ALLES KORREKT (J)/N:";A$:44,23,0,39:A$"N"1580A$"J"1750%4,23,0,39:1830b6:"NEUER PLANWERT?";E$:4:500:N(181(I1)5NR)(E$) N(181(I1)5NR)999999"ZU GROSS":1800A11650&I01060:MM1DI1MNZ$(61)XIbF1900,2760,3330,3960,4690l1040v:Z1:D1D"ES WERDEN HAUPTKATEGORIEN VORGESCHLAGEN"o"DIESE KOENNEN BESTAETIGT, GEAENDERT""ODER UEBERSPRUNGEN WERDEN."7::"UEBERBLICK:"(28,(160)):I19Z$(I):I;". ";Z$(I):I4::"ALS LETZTE "Q1$"WIRD AUTOMATISCH"3"DAS EINKOMMEN ANGEFUEGT."<600P"ENTER";B:700ZJ0:eI19:"VORSCHLAG "Q1$;Z$(I)A$"J":6:"AUFNEHMEN (J)/N:";A$:4 A$"N"2120A$"J"2050 JJ1*Z$(J)Z$(I)4Q1$;J;" :";Z$(J)>22101HA$"J":6:"UMBENENNEN (J)/N:";A$:4BRA$"N"2200T\A$"J"2120^fJJ1p6:"NEUER NAME? (MAX 15 BUCHST.)";Z$(J):4z(Z$(J))15"NAME ZU LANG!!":2160Q1$;J;" :";Z$(J)2210"GESTRICHEN"I:"DAS "A4$" UNTERTEILT"9"SICH IN FOLGENDE HAUPTKATEGORIEN:"V7:I1J::I;Z$(I):I _600A$"J":"ALLES KORREKT (J)/N:";A$:700 A$"N"2020A$"J"2250:Z$(J1)IJ210:Z$(I)LE$:IAOJ1 I110 J15 Z$(10(I1)5J)LE$$ J:I-. 22,23,0,3998 I1AOhB (1,O);"ZU JEDER HAUPT"Q1$"KOENNEN BIS"L (3,0);"ZU 5 UNTERKATEGORIEN GEWAEHLT WERDEN"V (6,3);(30," ")` 7;(6,3);Z$(I)j AU(I)0t J15~ 6:"UNTERKAT.-NAME? (ENDE=ENTER)";Z$(10(I1)5J):4T (Z$(10(I1)5J))15"ZU LANG (MAX. 15 BST.)":2430s Z$(10(I1)5J)LE$2530 AU(I)AU(I)1 5;(6J,5);Z$(10(I1)5J) (6J,23);"PLAN:" 6:"MONATSPLANWERT?";E$:4:500:N(181(I1)5J)(E$)) N(181(I1)5J)999999"ZU GROSS":2490A (7J,38(E$));E$H JR 2580r Z$(10(I1)51)LE$2580 Z$(10(I1)51)Z$(I) AU(I)1: 6:"MONATSPLANWERT?";E$:4:500:N(181(I1)51)(E$) N(181(I1)51)999999"ZU GROSS":2560 (8,5);"PLAN: ",E$L 6:A$"J":"ALLES KORREKT (J)/N:";A$:4:Y II712p( (II,1);(39," ")x2 II< A$"J"2690F A$"N"2580P J1AU(I)Z N(181(I1)5J)0d Z$(10(I1)5J)LE$n Jx 2370 I ! 6:"ANFANGSMONAT? (1=JAN ...)";M:44 M1M122710> 1060T I1M:Z$(61):I^ 1090f :~ 10:Q$30)Q4$:800 FK1090" ::10:Q$29(Z$(61)))Q4$" ";Z$(61), (39,(173)):46 (9,3);"LETZTE EINTRAGUNGEN: "@ (17,3);"SUMME:"J (18,3);"PLAN :"PT ZK$(F):7;(4,3);ZK$"."Z$(F)" "_^ J1AU(F)h Z$(F)Z$(10(F1)51)2950r ZG$(J)| 5;(6,3);ZK$"."ZG$"."Z$(10(F1)5J)LE$  22,23,0,39 K15 E$(N(352(F1)25(J1)5K))  500 (8K,23);LE$5 (8K,32(E$));E$< K\ (17,10);LE$:(18,10);LE$v E$(N(11(F1)5J)) 500 (17,18(E$));E$:E$(N(181(F1)5J)):500 (18,18(E$));E$ E$"":6:"BETRAG? (ENDE=ENTER)";E$:4 E$""3310/ 6:A$"J":"WERT KORREKT (J)/N:";A$:4@ A$"N"3070R& A$"J"3090v+ (E$)999999"ZU GROSS":3070~0 D1: 500D K14N N(352(F1)25(J1)5K)N(352(F1)25(J1)5K1)X Kb N(352(F1)25(J1)55)(E$)l K15&v E$(N(352(F1)25(J1)5K))/ 500J (8K,25);" "b (8K,32(E$));E$i K N(11(F1)5J)N(11(F1)5J)N(352(F1)25(J1)55) TN(11(F1)5J):900 (17,12);LE$ E$(N(11(F1)5J)) 500 (17,18(E$));E$ E$""" 3070) J3 2760L :10:Q$21)Q7$Q6$a (40,(173)):5u ::::Q2$:4 :"1 - VERGANGENER MONAT"* :"2 - ALLE VERGANGENEN MONATE "4 :"3 - MONAT X BIS MONAT Y"= 600> "FUNKTION?";F::3 H F1F33390$ R F3420,3430,3440< \ UGM1:OGM1:3470R f UG1:OGM1:3470 p (22,13);LE$:6:(23,0);"(X,Y<"(M)")" y 600 z "X, Y EINGEBEN:";UG,OG:700 UGOGOGM3440 :1060 I1UG M1$:I 1060 I1OG! M2$:I! IUGOG! :10 H! UGOGQ$21(M1$))Q7$Q6$" "M1$s! UGOGQ$20(M1$M2$))Q6$" VON ";! UGOGM1$;" BIS ";M2$! (40,(173))!1060!K1I!M3$:K!$7:"MONAT: ";M3$:4".:Q1$19)"PLAN"28)"IST"35)"DIFF""8(39,(173))""BJ1AO?"GTN(231(I1)10J):900`"LE$(N(231(I1)10J)):500v"VOP$(E$,(E$)1)"[TN(61(I1)10J):900"`E$(N(61(I1)10J)):500"jOS$(E$,(E$)1)"tE$(N(231(I1)10J)N(61(I1)10J)):500(#~(E$,1,1)"-"DI$(E$,(E$)1):DI$E$[#JAO(DI$,1,1)"-"DI$(DI$,(DI$)1):3740#JAO(DI$,1,1)"-"DI$"-"DI$#Z$(J)23(OP$));OP$31(OS$));#OS$39(DI$));DI$#J#SS0:SP0#K1AO1#SPSPN(231(I1)10K)$SSSSN(61(I1)10K) $K.$TSP:900<$TSS:900N$E$(SP):500Y$SP$E$k$E$(SS):500v$ SS$E$$SRN(61(I1)10AO)SS$TSR:900$E$(SR):500$(SR$E$$2(39,(173))$<"GEPLANTE "Q3$": "39(SP$))SP$%F"TATS. "Q3$" : "39(SS$))SS$U%PSR0"UEBERSCHUSS : "40(SR$))SR$}%ZSR0"DEFIZIT : ";%_40(SR$))(SR$,(SR$)1)%c600%d"ENTER";B:700:I%n1090%x:1060%I1M1%Z1$:I&10:Q$23)"JAHRES"Q5$&(39,(173)):4A&::Q5$" VON JANUAR BIS ";Z1$]&(26(Z1$),(173)):5k&:Q2$:4&::"1 - "Q6$" EINNAHMEN-AUSGABEN"&:"2 - AUFSUMMIEREN DER UNTERKATEGORIEN"&:"3 - ENDE"&600&"FUNKTION?";F:700'F1F34060'F4100,4430,1090I':10:Q$11)Q6$" EINNAHMEN-AUSGABEN"`'(39,(160)):4:'"MONAT"10)"AUSGABEN"20)"EINNAHMEN"30)"DIFFERENZ"'"(39,(173))',1060'6SA0:SE0:SD0'@I1M1'JZ4$:AM0'TJ1AO1(^AMAMN(61(I1)10J):J(cTAM:9009(hDIN(61(I1)10AO)AMG(mTDI:900Y(rE$(AM):500d(|Z1$E$(E$(N(61(I1)10AO)):500(Z2$E$(E$(DI):500(Z3$E$(Z4$10)8(Z1$));Z1$;11(Z2$));Z2$;(10(Z3$));Z3$(SASAAM)SESEN(61(I1)10AO)')SDSDDI:I5)TSA:900C)TSE:900Q)TSD:900c)(39,(173))u)E$(SA):500)Z1$E$)E$(SE):500)Z2$E$)E$(SD):500)Z3$E$)&:"SUMME"7)11(Z1$));Z1$;11(Z2$));Z2$;*010(Z3$));Z3$*:(39,(173))*C6000*D"ENTER";B:700:*E3960X*N:10:Q$23)"JAHRES"Q5$a*X800q*:FK3960}*:1060*I1M1*Z4$:I*10:"BUDGET"19)"SUMME UNTERKATEGORIE"*(39,(173)):5*:"JANUAR BIS ";Z4$:4+:Q1$;Z$(F):+S0+J1AU(F)9+TN(602(F1)5J):900Y+E$(N(602(F1)5J)):500r+SSN(602(F1)5J)+ Z$(10(F1)5J)30(E$))E$+J+TS:900+ (39,(173))+*E$(S):500+4"SUMME"30(E$))E$+>(39,(173))+G600,H"ENTER";B:700,I4430J,RN(352)M:N(1)AO:I110:N(1I)AU(I):IY,\D14790b,e600,f"HEUTIGES DATUM?";Z$(62):700,p:"HERAUSSCHREIBEN AUF KASSETTE":,z6:"BAND POSITIONIEREN UND STARTEN";B:4-::2:"NACH AUSSCHRIFT 'VERIFY' "'-"SOFORT N-TASTE BETAETIGEN":1;-"HAUSH.*1";Z$N-"HAUSH.*2";Nb-KS1D0:1090-:"HERAUSSCHREIBEN BEENDET":4800--:12)"AUF WIEDERSEHEN"-256:-(#ENDE BUDGET;Nb-KS1D0:1090-:"HERAUSSCHREIBEN BEEND