PRACHY  *** PRACHY ***$ 13.10.1987 BY PETR OTRADOVSKY)(Z$"":I:Z$Z$"":I72:Z$: "PROGRAM * PRACHY * UMOZNUJE TYTO FUNKCE:" < Z$:1F "(1) VYPOCET NEJMENSI MOZNE SPLATKY DLUHU"+P " VYPIS POSTUPU SPLACENI DLUHU":$Z "(2) VYPIS POSTUPU SPORENI"_ " Z A D E J :"d " FUNKCI (1 NEBO 2) : "nQQx A: A x$ (A) (A) d H A  ): "CHYBNE ZADANI !!!...ZNOVU"::) " VYSKA PUJCKY V KCS = "; B B   B    ' " UROKOVA SAZBA V % = ";" U, U J 6 @ 'J " NA ROKY,MESICE (R,M) = "; T R,M$^ (R) (M) rh MR  r | JD@RMR1URR1 U  CBD   R2RD ZBR1CZR2(R2)6 "NEJMENSI MOZNA SPLATKA KCS = ";:"#####.##";C' "TVOJE MESICNI SPLATKA KCS = "; S S 0 & '0 "DATUM PRVNI SPLATKY (MM,RR)= "; D K,L&N:@,: ,0X " * T A B U L K A S P L A C E N I * "b:0l "POR.CISLO DATUM ZBYVA SPLATIT",v "MESICE KCS"KK IXBZ$ (`)X  H X      (`);X  H X   K Tp:  T`8 QQQQ: QQ@ ;:QQ:""2 I;(T);K" /"L;(X);: "#######.##";X  A H* ID R 4XXRS > R HXXRSRII\KK fHHSp K@  z  KLL HHX  Z$8 "CELKEM JSI ZAPLATIL KCS : ";: "#######.##";H9 "UROKY JSI ZAPLATIL KCS : ";: "#######.##";HBF "UROKY JSI ZAPLATIL % : ";: "#######.##";(HB)H(B)  ) " MESICNI SPORENI V KCS = "; S S      + " DATUM ZACATKU SPORENI (MM,RR) = "; . K,L&8:@,: ,/B " * * P O S T U P S P O R E N I * *"LV/` "POR.CISLO DATUM CELKEM",j "MESICE KCS" t Z$~XS I   ID     Z$7 "CELKEM JSI USETRIL KCS : ";: "#######.##";X9 "CELKEM JSI VYDELAL KCS : ";: "#######.##";XH1 " NOVE ZADANI ? ANO / NE = A / N"; A$: A$""  A$"A" : 2 ::/p"J-A, 100 G,"-z"