PUJCKA   "AHOJ"   "CRT:M1"" X1    ,F,X1, ( X1-$2 X2   < ,F,X2,G F X2K"P Y1 G  Z ,F,,Y1 d Y1i#n Y2G   x ,F,,Y2 Y2: [],z,>,"AHOJ",,, @% "O2G3E3R0F3D3G5D7R0G3+C3R0G3" "E3R0F3+C3R0G7"X ,F,X2,G   PUJCKA U AR 9/85   #,::z: R "POSTUP SPLACENI PUJCKY"""  P ` C,P,R1=(P/1200),R=U(R1*C), R2=(R^2),U=C*R1,Z=POMOCNA PRO TISK I;  :' P P N C* * 12*100 12*100 A.= 'u:' P N 1+ -1 12*100 ' P$"VYSE PUJCKY[KCS]"*U$"UROKOVA SAZBA[%]"4M$"POCET OBDOBI[MES]"$>N$"NESPRAVNA HODNOTA,ZNOVU!!!";H ,p,"ZADEJTE HODNOTY",,,R@,`:P$;:CS\C@,`:N$:z:@,`: ( ):z: Rf@,:U$;:PSpP@,:N$:z:@,: ( ):z: fz@,0:M$;:ASA@,0:N$:z:@,0: ( ):z: z N(A): V R1PRR1 R2RN UCR10A(UR2(R2)H}p)H"POSTUP SPLACENI PUJCKY"  P$;C U$;P M$;N  "MIN.SPLATKA";A :zJ "PORADOVE CISLO ZBYVA ZAPLATIT MESICE KCS"$ . I8 ZC:B (@);I;:" ######.##";ZL QZ:ZZRAV Z "-B": t ` II j B !t D(IAQ)C:"UROK CELKEM";D~ "NOVE ZADANI (A-N)";:A$ A$"A" : H "  ,p,, " ,l,,"6 T$" ZE ZADANYCH HODNOT VYSE PUJCKY(C) "< T$T$" UROKOVE SAZBY(P) A POCTU OBDOBI-MESICU(N)"^ T$T$" PROGRAM VYPOCTE POSTUP SPLACENI A VYTISKNE CASOVOU TABULKU HODNOT ZUSTATKU": T$T$" MIN. SPLATKA JE ZAOKROUHLENA NA 50 KCS"P T$(T$,)(T$,):,: (T$,);:OO O8  :  :,1 V:S:U:X :Yp/ V`:SV:XX:YY  C [@]X,Y,"",S,V,U&( H :[]X,Y,"",S,V,U2 UU< U@U F C: V!P [@]X,Y,"",S,V,Z @d A1$ "O3#F6#C4#D6#F4#C6"n A2$ "O2#F6#C4#D6#F4#C6"x A1$;A2$1 V:S:U:Xp:Yp6 V`:SV:XX`:YY  C [@]X,Y,"",S,V,U% H :[]X,Y,"",S,V,U UU U@U C: V! [@]X,Y,"",S,V, A3$ "O2#D6#F4#G6#A4#D6" A4$ "O3#D6#F4#G6#A4#D6" A3$;A4$1 V:S:U:Xp:Yp6 V`:SV:XX:YY  C [@]X,Y,"",S,V,U%" H :[]X,Y,"",S,V,U, UU6 U@U @ C: V6E [@]X@,Y,"",S,V,!J [@]X,Y,"",S,V,T A5$ "O3B6#D4R0#D6B4R0B6"^ A6$ "O2B6#D4R0#D6B4R0B6"h A5$;A6$1r V:S:U:Xp:Yp6| V`:SV:XX0:YY  C [@]X,Y,"",S,V,U% H :[]X,Y,"",S,V,U UU U@U C: V! [@]X,Y,"",S,V, A7$ "O2#D4#C4#A6" A8$ "O3#D4#C4#A6" A7$;A8$1 V:S:U:Xp:Yp6 V`:SV:XX@:YY  C [@]X,Y,"",S,V,U$ H:[]X,Y,"",S,V,U UU& U@U 0 C: V=5 [@]X,Y ,"{",S,V,!: [@]X,Y,"",S,V,; A7$;A8$c< V:S:U:X:Yp:V` :SV:YY :C= [@]X,Y,"P",S,V,U$> H:[]X,Y,"P",S,V,U$? UU:U@ U @ C: V!A [@]X,Y,"P",S,V,D A9$ "O2#D4#C4#A6"N A10$ "O3#D4#C4#A6"!X A9$;A10$ : ,Ab ,@: ""Al ,0: ""v A12$ "O3C1D1E1F1G1A1B1" A13$ "O2C1D1E1F1G1A1B1" ` :A12$;A13$ A14$ "O3+C1B1A1G1F1E1D1C1" A15$ "O2+C1B1A1G1F1E1D1C1"2  :A14$;A15$:A12$;A13$:A14$;A15$ A14$;A15$:A12$;A13$ X1  Y1   ,4,X1,Y1 Y1 A14$;A15$ X1 X1  Y1G> ,>,X1,Y1 Y1 X1: * :'OPONA'4 I M> [@]I,,I,G:[]I,,I,G:IH "CRT:M1": XR "CRT M3": I @:,I:,I:@,I:HI\ J @:,I:,:@,:zJf ,:,I:@,:@,I: zup ,:,I:@,:,:,:@,I:z:J,I z *  ,,#,t, ,:[@] ,,P:[P,