10  REM  IBM
20  REM  MONEYGRO: Money-driven growth
30  SCREEN 1, 0: COLOR 15, 0
40 CLS
50  LINE (0, 0)-(319, 180), 3, B
60 REM STARTING QUANTITIES
70 E = 1
80 A = .2
90  REM  COEFFICIENTS
100 K0 = 3.7
110 K1 = .0133
120 K2 = .033
130 REM SCALING FACTORS
140 M0 = 100
150 A0 = 1
160 DT = 1
170 T0 = .5
180  REM  PLOTTING
190  PSET (T * T0, 180 - A * A0), 1
200  PSET (T * T0, 180 - M * M0), 2
210  REM  EQUATIONS
220 M = K1 * A
230 DA = K0 * E * M - K2 * A
240 A = A + DA * DT
250 T = T + DT
260  IF T * T0 < 319 GOTO 180
270  LOCATE 2, 2: PRINT "Moneygro.bas": SLEEP: SLEEP
280 END