10 REM 2source growth with
20 REM nonrenewable and nonrenewable sources
30 CLS
40 SCREEN 1, 0: COLOR 15, 0
50 LINE (0, 0)-(319, 180), 3, B
55 T = 0
60 Q = 1
70 J = 80
75 N = 150
80 K0 = .1
85 K3 = .002
90 K4 = .0007
92 K8 = .03
95 K7 = .0008
140 PSET (T, 180 - Q), 1
150 PSET (T, 180 - N), 2
160 JR = J / (1 + K0 * Q)
170 DN = -K4 * N * Q
175 DQ = K7 * N * Q + K3 * JR * Q - K8 * Q
182 Q = Q + DQ
185 N = N + DN
190 T = T + 1
200 IF T < 319 GOTO 140
210 LOCATE 2, 2: PRINT "Twosourc.bas"
220 SLEEP: SLEEP
230 END