10 REM ibm
20 REM buypower:energy determined prices
30 CLS
40 SCREEN 1, 0: COLOR 15, 0
50 LINE (0, 0)-(319, 180), 3, B
60 f = 100
70 j = 1
80 pw = .01
90 q = .01
100 m = 2
110 k0 = .02
120 k1 = .00041
130 k2 = .00066
140 k3 = .005
150 k4 = .07
160 k5 = .05
170 dt = .1
180 t0 = .5
190 q0 = 1
200 f0 = 1.6
210 p0 = 3
220 r = j / (1 + k1 * f * q + k0 * q)
230 p = k3 * r * f * q + k4 * r * q + pw
240 pr = 100 / p
250 df = -k2 * f * r * q
260 dq = p - k5 * q
270 q = q + dq * dt
280 f = f + df * dt
290 PSET (t * t0, 180 - p * p0), 1
300 PSET (t * t0, 180 - q * q0), 1
310 PSET (t * t0, 180 - pr), 3
320 PSET (t * t0, 180 - f * f0), 2
330 t = t + dt
340 IF t * t0 < 319 GOTO 220
350  LOCATE 2, 2: PRINT "Buypower.bas": SLEEP: SLEEP
360 END