2  REM  IBM
3  REM  SLOWREN (Slowly renewable)
4  SCREEN 1, 0: COLOR 15, 0
5 CLS
6  LINE (0, 0)-(319, 180), 1, B
10 Q = 3
15 E0 = 1.2
20 K0 = .001
30 K1 = .001
40 K3 = .03
42 K4 = .01
45 J = 0
50 E = 159
60  PSET (T, 180 - Q), 2
70  PSET (T, 180 - E / E0), 3
80 DQ = K1 * E * Q - K3 * Q
90 DE = J - K0 * E * Q - K4 * E
92 E = E + DE
94 Q = Q + DQ
100 T = T + 1
110  IF T < 319 GOTO 60
115 LOCATE 2, 2: PRINT "Slowren.bas"
120 SLEEP: SLEEP
130 END