turbobasic/DEK.BAS

   1 SCREEN 0
   2 COLOR 0,15
   3 GOTO pet
   4
   5 pet:
   6 CLS
   7 LOCATE 10,5
   8 input "NORMA SPOTREBY = 8.2 => Enter; NEBO ZAPIS JINOU";S1
   9 IF S1=0 THEN S1= 8.2
  10 CLS
  11 LOCATE 10,5
  12 INPUT "POCET UJETYCH km OD ZACATKU MESICE";K
  13 CLS
  14 LOCATE 10,5
  15 INPUT "STAV BENZINU - BLOKY NA ZAC. DEKADY";B
  16 CLS
  17 LOCATE 10,5
  18 INPUT "STAV BENZINU -  NADRZ NA ZAC. DEKADY";B4
  19 CLS
  20 LOCATE 10,5
  21 INPUT "CERPANE BLOKY  OD ZAC. MESICE - SL.9";B1
  22 CLS
  23 LOCATE 10,5
  24 INPUT "STAV TACHOMETRU NA ZAC. DEKADY";O
  25 CLS
  26 PRINT SPC(32) "DEKADA"
  27 PRINT "==============================================================================="
  28 PRINT "       SLOUPEC 6   !   SLOUPEC 7   !      SLOUPEC 9      !      BENZIN     "
  29 PRINT "   TACH.KONEC DNE  ! KmDen   KmCelk! ZAC  DOPL  CELK     !  BLOKY   NADRZ   "
  30 PRINT "================================================================================"
  31 R=8:K2=0:B6=0
  32 FOR I =1 TO 9: R=R+1
  33 LOCATE 20,1
  34 PRINT
  35 LOCATE 20,1
  36 INPUT "UDEJ POCET UJETYCH km ZA DEN";K1
  37 IF K1=0 THEN konec
  38 K=K1+K:B5=B1+B5:A=(K1/100)*S1:A1=A-INT(A)
  39 IF A1< = .7 THEN raz
  40 IF A1> .7 THEN dva
  41
  42 raz:
  43 B3=INT(A)
  44 GOTO tri
  45
  46 dva:
  47 B3=INT(A)+1
  48 GOTO tri
  49
  50 tri:
  51 LOCATE 20,1:PRINT"                                                            "
  52 LOCATE 20,1
  53 PRINT"SPOTREBA/NADRZ:";B3;"/";B4;"=>DOPLNENI NADRZE?":INPUT B2
  54 LOCATE 20,1:PRINT "                                                           "
  55 LOCATE 21,1:PRINT "                                                           "
  56 B4=B4-B3+B2:B=B-B2:B5=B1+B2
  57 O2=O+K1
  58 LOCATE R-2,9:PRINT O2
  59 LOCATE R-2,22:PRINT K1
  60 LOCATE R-2,30:PRINT K
  61 LOCATE R-2,39:PRINT B1
  62 LOCATE R-2,44:PRINT B2
  63 LOCATE R-2,49:PRINT B5
  64 LOCATE R-2,70:PRINT B4
  65 LOCATE R-2,62:PRINT B
  66 LOCATE R-2,20:PRINT "!"
  67 LOCATE R-2,36:PRINT "!"
  68 LOCATE R-2,58:PRINT "!"
  69 O=O2
  70 B1=B1+B2:K2=K2+K1:B6=B6+B3
  71 NEXT
  72 GOTO konec
  73
  74 konec:
  75 S=S1*(K2/100)
  76 LOCATE 20,1:PRINT " NORMOVANA SPOTREBA:";S;"                "
  77
  78 LOCATE 20,30:PRINT"                    "
  79
  80 LOCATE 21,2:PRINT"SKUTECNA SPOTREBA:";B6;"                                      "
  81 LOCATE 22,2:PRINT"UJETE km V DEKADE:";K2;"                                      "
  82 LOCATE 24,15
  83 INPUT "KONEC = Enter ; OPAKOVANI = 1  ";A
  84 IF A=1 GOTO pet
  85    END\1a