R)RVB BASIC-MIX28 :5:5:8::(0,0);" ":1100hA1$"KLEINCOMPUTER robotron KC85/1 & KC87"{A3$"R+BUDGET"(A4$"HAUSHALTSBUDGET"2(5,2);A1$<(9,16);A3$F(12,12);A4$P(17,27);">ENTER<"Zյ(13)90 1010 II1(E$)$(E$,II,1)"."540,II5570T(E$,II2,1)""E$E$"0"x&(E$,II3,1)""E$(E$,II2)~0:E$E$".00"DX22,23,0,39:6::4: (39,(160)):3*:"KATEGORIEAUSWAHL":44::K1AO:6)K10)Z$(K):K!>6)K10)"ENDE":6008H"KATEGORIE?";F:4IRF1FK840O\c(T)999999q::8:2(22,0);"WERT GROESSER 999999-->PROGRAMMABBRUCH":4810N(652),Z$(62) L$" ":LE$(15," "):D0:KS0Q$"BUDGET":Q1$"KATEGORIE ":Q2$"FUNKTIONSAUSWAHL"U Q3$"MONATSAUSGABEN":Q4$"ERFASSUNG":Q5$"AUSWERTUNG"y Q6$"VERGLEICH":Q7$"PLAN-IST-"WOHNUNG/HAUS,WIRTSCHAFTSGELD,KLEIDUNG,KFZ,TASCHENGELD,HOBBYREGELM. AUSGABEN,LASTER,VERSCHIEDENES,EINKOMMEN6$JANUAR,FEBRUAR,MAERZ,APRIL,MAI,JUNI,JULI,AUGUST,SEPTEMBER,OKTOBERN. NOVEMBER,DEZEMBERV8Z0dB1:1::vL2:Q$23)Q2$V(39,(250)):4`6,23,6,39:"1 SPEZIFIKATION":j"2 "Q4$" "Q3$:t"3 EINZEL"Q5$" VON MONATEN": ~"4 "Q5$" AB JAHRESBEGINN": "5 ENDE"& 600@ "FUNKTION ?";F:700 R F1F51170` F11280n F51890} Z01280 :Q$"DATEI VON BAND LESEN": 6:"BAND POSITIONIEREN UND STARTEN";B:4 "R#BUDGEZ";Z$ "R#BUDGEN";N Z1) AON(1):MN(352):I110:AU(I)N(1I):8 F21890H M131290 600:A$"J":"NEUES JAHR BEGINNEN (J)/N:";A$:KS0:700 A$"J"1370 A$"N"1090:1285  "DER AKTUELLE MONAT IST "; 2:Z$(61):4: (Z$(62)"""LETZTE EINGABEN AM "* 2Z$(62)"":Z$(62);"."3 ;600\ <A$"N":"NEUER MONAT J/(N):";A$:700n F A$"N"1890 PA$"J"1340 ZD1::2:"BITTE WARTEN":4 [M131380 \M0 ]I12181:N(I)0:I:I232652:N(I)0:I:1500 dI1AO:N(61(M1)10I)0:N(231(M1)10I)0- nJ1AU(I)c xN(61(M1)10I)N(61(M1)10I)N(11(I1)5J) N(231(M1)10I)N(231(M1)10I)N(181(I1)5J) N(602(I1)5J)N(602(I1)5J)N(11(I1)5J) N(11(I1)5J)0 J:I I1AO  J1AU(I) K159 N(352(I1)25(J1)5K)0F K:J:I] (0,0);LE$:A$"J"n M121509 600:A$"J":"JAHRESSTATISTIK ABSPEICHERN (J)/N:";A$ M13:A$"N"1090KS1:D1:4690 600 A$"J":"ALTE PLANWERTE UEBERNEHMEN (J)/N:";A$700#A$"J"18405A$"N"1500R2:Q$28)"PLAN AENDERN"g(39,(250)):4s"I1AO,4,23,0,39:6A0:Q1$;:3:Z$(I);30);:4:"PLAN - ALT"@:J1AU(I)J8:J;".";Z$(10(I1)5J);T4:37((N(181(I1)5J))));N(181(I1)5J):"^J+h600Pr6:"KATEGORIE? (0=KEINE)";NR:4h|NR0NRAU(I)1650xNR01800A04,23,0,39:18304,23,0,39:Q1$;:3:Z$(I);30);:4:"PLAN - NEU":J1AU(I)8:J;".";Z$(10(I1)5J);44:37((N(181(I1)5J))));N(181(I1)5J)=:JF600oA$"J":"ALLES KORREKT (J)/N:";A$:44,23,0,39:A$"N"1580A$"J"17504,23,0,39:18306:"NEUER PLANWERT?";E$:4:500:N(181(I1)5NR)(E$)% N(181(I1)5NR)999999"ZU GROSS":1800-A171650>&IH01060R:MM1]DI1MiNZ$(61)pXIbF1900,2760,3330,3960,4690l1040v:Z1:D1"ES WERDEN HAUPTKATEGORIEN VORGESCHLAGEN""DIESE KOENNEN BESTAETIGT, GEAENDERT"$"ODER UEBERSPRUNGEN WERDEN."<3::"UEBERBLICK:"N(28,(160))[:I19wZ$(I):I;". ";Z$(I):I4::"ALS LETZTE "Q1$"WIRD AUTOMATISCH""DAS EINKOMMEN ANGEFUEGT."600"ENTER";B:700J0:I19:"VORSCHLAG "Q1$;Z$(I)>A$"J":6:"AUFNEHMEN (J)/N:";A$:4O A$"N"2120aA$"J"2050k JJ1{*Z$(J)Z$(I)4Q1$;J;" :";Z$(J)>2210HA$"J":6:"UMBENENNEN (J)/N:";A$:4RA$"N"2200\A$"J"2120fJJ1!p6:"NEUER NAME? (MAX 15 BUCHST.)";Z$(J):4Jz(Z$(J))15"NAME ZU LANG!!":2160`Q1$;J;" :";Z$(J)j2210|"GESTRICHEN"I:"DAS "A4$" UNTERTEILT""SICH IN FOLGENDE HAUPTKATEGORIEN:"3:I1J::I;Z$(I):I 600A$"J":"ALLES KORREKT (J)/N:";A$:700 /A$"N"2020AA$"J"2250P:Z$(J1)kIJ210:Z$(I)LE$:IvAOJ1 I110 J15 Z$(10(I1)5J)LE$$ J:I. 22,23,0,398 I1AOB (O,O);"ZU JEDER HAUPT"Q1$"KOENNEN BIS".L (2,0);"ZU 5 UNTERKATEGORIEN GEWAEHLT WERDEN"DV (5,3);(30," ")Y` 3;(5,3);Z$(I)ej AU(I)0pt J15~ 6:"UNTERKAT.-NAME? (ENDE=ENTER)";Z$(10(I1)5J):4 (Z$(10(I1)5J))15"ZU LANG (MAX. 15 BST.)":2430 Z$(10(I1)5J)LE$2530 AU(I)AU(I)1: 8;(6J,5);Z$(10(I1)5J)Q (6J,23);"PLAN:" 6:"MONATSPLANWERT?";E$:4:500:N(181(I1)5J)(E$) N(181(I1)5J)999999"ZU GROSS":2490 (6J,38(E$));E$ J 2580 Z$(10(I1)51)LE$2580  Z$(10(I1)51)Z$(I). AU(I)1:j 6:"MONATSPLANWERT?";E$:4:500:N(181(I1)51)(E$) N(181(I1)51)999999"ZU GROSS":2560 (7,5);"PLAN: ",E$ 6:A$"J":"ALLES KORREKT (J)/N:";A$:4: II712( (II,1);(39," ") 2 II< A$"J"2690.F A$"N"2580=P J1AU(I)TZ N(181(I1)5J)0md Z$(10(I1)5J)LE$tn J~x 2370 I  6:"ANFANGSMONAT? (1=JAN ...)";M:4 M1M122710 1060 I1M:Z$(61):I 1090 : 2:Q$30)Q4$:800 FK1090J" ::2:Q$29(Z$(61)))Q4$" ";Z$(61)_, (39,(160)):46 (9,3);"LETZTE EINTRAGUNGEN: "@ (17,3);"SUMME:"J (18,3);"PLAN :"T ZK$(F):3;(4,3);ZK$"."Z$(F)" "^ J1AU(F)h Z$(F)Z$(10(F1)51)2950r ZG$(J)S| 8;(6,3);ZK$"."ZG$"."Z$(10(F1)5J)LE$ c 22,23,0,39n K15 E$(N(352(F1)25(J1)5K)) 500 (8K,23);LE$ (8K,32(E$));E$ K (17,10);LE$:(18,10);LE$ E$(N(11(F1)5J)) 500C (17,18(E$));E$:E$(N(181(F1)5J)):500Z (18,18(E$));E$ E$"":6:"BETRAG? (ENDE=ENTER)";E$:4 E$""3310 6:A$"J":"WERT KORREKT (J)/N:";A$:4 A$"N"3070& A$"J"3090+ (E$)999999"ZU GROSS":30700 D1: 500#D K14]N N(352(F1)25(J1)5K)N(352(F1)25(J1)5K1)dX Kb N(352(F1)25(J1)55)(E$)l K15v E$(N(352(F1)25(J1)5K)) 500 (8K,25);" " (8K,32(E$));E$ K8 N(11(F1)5J)N(11(F1)5J)N(352(F1)25(J1)55)S TN(11(F1)5J):900e (17,12);LE$ E$(N(11(F1)5J)) 500 (17,18(E$));E$ E$"" 3070 J 2760 :2:Q$21)Q7$Q6$ (40,(160)):3 ::::Q2$:4$ :"1 - VERGANGENER MONAT"J* :"2 - ALLE VERGANGENEN MONATE "k4 :"3 - MONAT X BIS MONAT Y"t= 600> "FUNKTION?";F::3H F1F33390R F3420,3430,3440\ UGM1:OGM1:3470f UG1:OGM1:3470 p (22,13);LE$:6:(23,0);"(X,Y<"(M)")" y 600; z "X, Y EINGEBEN:";UG,OG:700Q UGOGOGM3440] :1060i I1UGu M1$:I 1060 I1OG M2$:I IUGOG :2 UGOGQ$21(M1$))Q7$Q6$" "M1$! UGOGQ$20(M1$M2$))Q6$" VON ";! UGOGM1$;" BIS ";M2$0! (40,(160)):!1060E!K1IQ!M3$:Kj!$3:"MONAT: ";M3$:4!.:Q1$19)"PLAN"28)"IST"35)"DIFF"!8(39,(158))!BJ1AO!GTN(231(I1)10J):900!LE$(N(231(I1)10J)):500"VOP$(E$,(E$)1) "[TN(61(I1)10J):900@"`E$(N(61(I1)10J)):500V"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$5#Z$(J)23(OP$));OP$31(OS$));M#OS$39(DI$));DI$T#Jb#SS0:SP0p#K1AO1#SPSPN(231(I1)10K)#SSSSN(61(I1)10K)#K#TSP:900#TSS:900#E$(SP):500#SP$E$#E$(SS):500$ SS$E$ $SRN(61(I1)10AO)SS.$TSR:900@$E$(SR):500K$(SR$E$]$2(39,(160))$<"GEPLANTE "Q3$": "39(SP$))SP$$F"TATS. "Q3$" : "39(SS$))SS$$PSR0"UEBERSCHUSS : "40(SR$))SR$ %ZSR0"DEFIZIT : ";+%_40(SR$))(SR$,(SR$)1)4%c600K%d"ENTER";B:700:IU%n1090a%x:1060n%I1M1z%Z1$:I%2:Q$23)"JAHRES"Q5$%(39,(160)):4%::Q5$" VON JANUAR BIS ";Z1$%(26(Z1$),(238)):3%:Q2$:4"&::"1 - "Q6$" EINNAHMEN-AUSGABEN"P&:"2 - AUFSUMMIEREN DER UNTERKATEGORIEN"b&:"3 - ENDE"k&600&"FUNKTION?";F:700&F1F34070&F4100,4430,1090&:2:Q$11)Q6$" EINNAHMEN-AUSGABEN"&(39,(160)):4:%'"MONAT"10)"AUSGABEN"20)"EINNAHMEN"30)"DIFFERENZ"7'"(39,(238))A',1060T'6SA0:SE0:SD0a'@I1M1o'JZ4$:AM0}'TJ1AO1'^AMAMN(61(I1)10J):J'cTAM:900'hDIN(61(I1)10AO)AM'mTDI:900'rE$(AM):500'|Z1$E$(E$(N(61(I1)10AO)):500(Z2$E$.(E$(DI):5009(Z3$E$e(Z4$10)8(Z1$));Z1$;11(Z2$));Z2$;z(10(Z3$));Z3$(SASAAM(SESEN(61(I1)10AO)(SDSDDI:I(TSA:900(TSE:900(TSD:900((39,(238)))E$(SA):500 )Z1$E$)E$(SE):500))Z2$E$;)E$(SD):500F)Z3$E$x)&:"SUMME"7)11(Z1$));Z1$;11(Z2$));Z2$;)010(Z3$));Z3$):(39,(182)))C600)D"ENTER";B:700)E3960)N:2:Q$23)"JAHRES"Q5$)X800):FK3960*:1060*I1M1!*Z4$:IL*2:"BUDGET"19)"SUMME UNTERKATEGORIE"a*(39,(160)):3}*:"JANUAR BIS ";Z4$:4*:Q1$;Z$(F):*S0*J1AU(F)*TN(602(F1)5J):900*E$(N(602(F1)5J)):500*SSN(602(F1)5J)+ Z$(10(F1)5J)30(E$))E$%+J2+TS:900D+ (39,(238))U+*E$(S):500n+4"SUMME"30(E$))E$+>(39,(182))+G600+H"ENTER";B:700+I4430+RN(352)M:N(1)AO:I110:N(1I)AU(I):I+\D14790+e600,f"HEUTIGES DATUM?";Z$(62):7007,p:"HERAUSSCHREIBEN AUF KASSETTE":e,z6:"BAND POSITIONIEREN UND STARTEN";B:4,::2:"NACH AUSSCHRIFT 'VERIFY'","SOFORT N-TASTE BETAETIGEN":1,"R#BUDGEZ";Z$,"R#BUDGEN";N,KS1D0:1090-:"HERAUSSCHREIBEN BEENDET":4800-5-:12)"AUF WIEDERSEHEN"@-256:Q-(#ENDE BUDGET;N,KS1D0:1090-:"HERAUSSCHREI