10 REM CASH
20 SCREEN 1, 0
30 COLOR 0, 0
40 LINE (0, 0)-(240, 180), , B
50 J = 4
55 dt = 1
60 Q = 1
70 K = .05
80 PSET (T, 180 - Q)
90 DM = J - K * m
100 m = m + DM * dt
110 T = T + dt
120 IF T < 240 GOTO 80
130 LOCATE 22, 2: PRINT "Cash.bas"
140 SLEEP: SLEEP: END