Borland TurboBASIC & TurboPASCAL stuff from 1998 when i started with programming...

[mirrors/Programs.git] / turbobasic / DEK.BAS

diff --git a/turbobasic/DEK.BAS b/turbobasic/DEK.BAS
new file mode 100755 (executable)
index 0000000..96abaa1
--- /dev/null
+++ b/turbobasic/DEK.BAS
@@ -0,0 +1,85 @@
+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