Removed redundant, 3RD party or incompatible programs from main directory

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

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