10 REM IBM
20 REM PRODSALE: PRODUCTION ON RENEWABLE SOURCE
30 CLS
40 SCREEN 1, 0: COLOR 15, 0
50 LINE (0, 0)-(319, 180), 3, B
55 LINE (0, 90)-(319, 90), 3
60 J = 1: REM RENEWABLE SOURCES
70 P1 = 1: REM PRICE OF PRODUCT
80 P2 = .5: REM PRICE OF INPUTS
90 A = .1: REM ASSETS
100 M = 200: REM  MONEY
110 E = 100: REM  PURCHASED INPUTS
120 Y = 100: REM YIELD
130 A0 = 11
140 M0 = .07
150 T0 = 3
160 DT = .5
170 K1 = 9.000001E-02
180 K2 = .1
190 K3 = .002
200 K4 = .01
210 K5 = .1
220 K6 = 10
230 R = J / (1 + K1 * E * A)
240 E = K2 * M / P2
250 Y = K6 * R * E * A
260 DA = K3 * E - K4 * R * E * A - K5 * A
270 DM = P1 * Y - K2 * M
280 A = A + DA * DT
290 IF A < 0 THEN A = 0
300 M = M + DM * DT
310  PSET (T * T0, 90 - A * A0), 3
320  PSET (T * T0, 180 - M * M0), 1
330 T = T + DT
340  IF T * T0 < 319 GOTO 230
350 LOCATE 2, 2: PRINT "Prodsale.bas": SLEEP: SLEEP
360 END