-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