--- /dev/null
+SCREEN 0\r
+COLOR 0,15\r
+GOTO pet\r
+\r
+pet:\r
+CLS\r
+LOCATE 10,5\r
+input "NORMA SPOTREBY = 8.2 => Enter; NEBO ZAPIS JINOU";S1\r
+IF S1=0 THEN S1= 8.2\r
+CLS\r
+LOCATE 10,5\r
+INPUT "POCET UJETYCH km OD ZACATKU MESICE";K\r
+CLS\r
+LOCATE 10,5\r
+INPUT "STAV BENZINU - BLOKY NA ZAC. DEKADY";B\r
+CLS\r
+LOCATE 10,5\r
+INPUT "STAV BENZINU - NADRZ NA ZAC. DEKADY";B4\r
+CLS\r
+LOCATE 10,5\r
+INPUT "CERPANE BLOKY OD ZAC. MESICE - SL.9";B1\r
+CLS\r
+LOCATE 10,5\r
+INPUT "STAV TACHOMETRU NA ZAC. DEKADY";O\r
+CLS\r
+PRINT SPC(32) "DEKADA"\r
+PRINT "==============================================================================="\r
+PRINT " SLOUPEC 6 ! SLOUPEC 7 ! SLOUPEC 9 ! BENZIN "\r
+PRINT " TACH.KONEC DNE ! KmDen KmCelk! ZAC DOPL CELK ! BLOKY NADRZ "\r
+PRINT "================================================================================"\r
+R=8:K2=0:B6=0\r
+FOR I =1 TO 9: R=R+1\r
+LOCATE 20,1\r
+PRINT\r
+LOCATE 20,1\r
+INPUT "UDEJ POCET UJETYCH km ZA DEN";K1\r
+IF K1=0 THEN konec\r
+K=K1+K:B5=B1+B5:A=(K1/100)*S1:A1=A-INT(A)\r
+IF A1< = .7 THEN raz\r
+IF A1> .7 THEN dva\r
+\r
+raz:\r
+B3=INT(A)\r
+GOTO tri\r
+\r
+dva:\r
+B3=INT(A)+1\r
+GOTO tri\r
+\r
+tri:\r
+LOCATE 20,1:PRINT" "\r
+LOCATE 20,1\r
+PRINT"SPOTREBA/NADRZ:";B3;"/";B4;"=>DOPLNENI NADRZE?":INPUT B2\r
+LOCATE 20,1:PRINT " "\r
+LOCATE 21,1:PRINT " "\r
+B4=B4-B3+B2:B=B-B2:B5=B1+B2\r
+O2=O+K1\r
+LOCATE R-2,9:PRINT O2\r
+LOCATE R-2,22:PRINT K1\r
+LOCATE R-2,30:PRINT K\r
+LOCATE R-2,39:PRINT B1\r
+LOCATE R-2,44:PRINT B2\r
+LOCATE R-2,49:PRINT B5\r
+LOCATE R-2,70:PRINT B4\r
+LOCATE R-2,62:PRINT B\r
+LOCATE R-2,20:PRINT "!"\r
+LOCATE R-2,36:PRINT "!"\r
+LOCATE R-2,58:PRINT "!"\r
+O=O2\r
+B1=B1+B2:K2=K2+K1:B6=B6+B3\r
+NEXT\r
+GOTO konec\r
+\r
+konec:\r
+S=S1*(K2/100)\r
+LOCATE 20,1:PRINT " NORMOVANA SPOTREBA:";S;" "\r
+\r
+LOCATE 20,30:PRINT" "\r
+\r
+LOCATE 21,2:PRINT"SKUTECNA SPOTREBA:";B6;" "\r
+LOCATE 22,2:PRINT"UJETE km V DEKADE:";K2;" "\r
+LOCATE 24,15\r
+INPUT "KONEC = Enter ; OPAKOVANI = 1 ";A\r
+IF A=1 GOTO pet\r
+ END\1a
\ No newline at end of file