REM TANK.BAS ESTOQUE COM FONTE DE ENERGIA CONSTANTE
CLS :
SCREEN 1, 0: COLOR 0, 0:       REM TELA 1 TIPO CGA COM 320 X 200 PONTOS
LINE (0, 0)-(319, 180), 0, BF: REM TELA CINZA ESCURO
LINE (0, 0)-(319, 180), 1, B:  REM LINHA AZUL NA BORDA
Q = 10:                        REM ESTOQUE INICIAL
E = 30:                        REM FLUXO DE ENERGIA EXTERNA
K1 = .22:                      REM COEFICIENTE DE FLUXO DE ENERGIA EXTERNA
K2 = .05:                      REM COEFICIENTE DE FLUXO DO ESTOQUE INTERNO
DT = 1!:                       REM INTERVALO DE TEMPO
WHILE (T < 319):               REM TESTA CONDICAO TEMPO MENOR QUE 365
 Q = Q + K1 * E - K2 * Q:      REM CALCULA O VALOR DO ESTOQUE
 T = T + DT:                   REM INCREMENTA O TEMPO
 IF T >= 200 THEN E = 0:       REM NO TEMPO 200 O FLUXO EXTERNO PARA
 PSET (T, 180 - Q), 14:        REM COLOCA PONTO DE COR AMARELA
WEND
LOCATE 2, 2: PRINT "tank.bas"
SLEEP: SLEEP: REM ESPERA: END