DOMACI UCETNI  "DOMACI UCETNI": GC @/@:CSE$"O5C2D1A4F1B2G3D1E3": CSE$6([GC], ,"DOMACI",@,,62[GC],\,"UCETNI",@,, < GCF ;:pP"TENTO PROGRAM VAM BUDE POMAHAT" :"PRI SLEDOVANI A VYHODNOCOVANI" :"VASI FINANCNI AGENDY V RUZNYCH""Z"OBORECH VASI CINNOSTI"::Pd "VSECHNY UDAJE BUDETE MIT UCHOVANY"::"NA KAZETE A KDYKOLIV JE MUZETE"$n"VYVOLAT,DOPLNIT NEBO ZMENIT"9x"POSTUPUJTE PODLE INSTRUKCI V PROGRAMU":@:# "N ""(XXXX) : ";DT A(A)(HA)H,T(0,p),S(p),DA$(p) " N = N "%" O = D ": " *N *"UF$:UF$"" UF$"N" UF$"O" : , -" V 15 ":A$:%"M 8 ""p, :"- .-"6DA$()A$:Ap:B$:"N:";B$,:"N :";:"";DA$(A):DA$(A)(DA$(A),):"::"U :";GH$","VEDENI UCTU CISLO:";GH$-6"====================================="&@"D = 1"$J"D = 2"$T"D = 3"$^"D = 4"$h"D = 5"$r"K = 6"|V:V |V , , ,, , V@ ,  NH:"P : ";: N:" '-'."$" : -400"#ASDH:(x):(A)(A@) >"": ,8:" POKRACOVANI 'W' KONEC='E'""V : ";A/""IpBA$DA$(I):A$;();"(";T(A,I);")";( );"= ";%A$:B$(A$,):B$"W" &B$"E":Ip::%W:B$"+"WT(A,I)T(A,I)(A$)W &I::<0 P,A,N,P,P,E,T,O.-: T,R,S,P,PD S,O,RNX$"":A:A NX"000000"bY$:Y$"" %lX$X$Y$:Y$;:(X$)  v X() b(X$) XA(X$):%"";( );" D I S P L A Y "."======================================"*"P = 1"("P = 2"("G = 3"!A:A , , .,   6"P : ";: N:MA:SGSL(A)(A@) :" M, ...."7Ip:S(I):I:I0: IM R?"M ";I;" /";DT;(();" C % P "% "";();"";(h);"".*""44J:();"";(h);"":.>""4H""'RX:Y:Jp\S(J)S(J)T(I,J)fSGSGT(I,J):IM "pJXXT(I,J):YYS(J)8zA$DA$(J):A$;();"= ";T(I,J);( );S(J); S(J)XX: %S()XX: "XXA(HS(J)S())(x);XXJ:IMIC"ZUSTATEK = ";A(XT(I,));( );A(YS());'YS()AX: %S()AX: +AXA(H(YS())S())!ATA(H(YS()))(x);AX7"POHYB = ";A(X);( );A(Y):TAB(31);AT("KONECNE VYUCTOVANI = ";A(SG)-"= 'SPACE' K = 'E'";A$:A$"" A$"E"I0:I: $I:.:Jp:""M8A$DA$(J):"PREHLED POLOZKY ";A$;();DT:A:B:S.B"======================================"OL(0);" M";( );" C";(p);"% P ":Q( )DV"":I:();"";(h);"":: ,Q0`A$""j"":A$:"M:";WtI0:(@(I));I;" =";:AAT(I,J):SST(I,)~T(I,J)BBASX: SXA(HAS);(0);T(I,J);( );A(A);(p);SX:I:A$'BDD:GF: +(SB)DD:FG: +DDA(H(AB)(SB)):GFA(AB)1" P = ";( );GF;(p);DD." ='SPACE' K='E'"A$:A$"" A$"E"Jp:J: J::JpFA$DA$(J):" GRAFICKY DIAGRAM PRO ";A$;();DT:S@. "======================================"" (* = )"4M:I0:Q(T(I,J)):MQMQ/(I: ,:(S);"M "2 ,W<I0:Z( (T(I,J))M): ,S: PRINT" ";I+1;FFOP@P(T(I,J)) nZS,d"*":FOPn>xS,p,(S)@,p(Z),FOP3"1 2 3 4 5 6 7 8 9 10 11 12"KSS@:I:"":,8:"='SPACE' K='E'"A$:A$"" A$"E"Jp J:," V 000"." M- 'R'"AV$:AV$"" AV$"R"   &" STISKNETE * P L A Y * !!"#AVp:TDA$(AV):TDT:TSL:TGH$&I0:JpTT(I,J):J,I:"+," V 000".6" M- 'W'"@AV$:AV$"" @JAV$"W" ^ T @2^" STISKNETE * R E C O R D. P L A Y *!!"h "DOMACI UCETNI"#rAVp:TDA$(AV):|TDT:TSL:TGH$&I0:JpTT(I,J):J,I:+" V 000"." M- 'V'"AV$:AV$"" AV$"V"   '" STISKNETE * P L A Y *!!":.AVp:TFF$:FF$DA$(AV) :AVTA:ADT :TA:ASL :TAV$:AV$GH$ :&I0:JpTA:AT(I,J) :&J,I::"OK !!"0"ABCDEFG":":"*** POZOR DATA-ERROR ***"#DAp:(x)::HNAH::A:"M ? (A/N)"XF$:F$"" XbF$"A" lF$"N"  v X'" C ? (A/N)"F$:F$"" F$"A" ^ HG@;[HG], ,"NASHLEDANOU",@,0,HG!"C1F3G2B2A3D1A1":;: