2 CLS
3 REM IBM
4 REM SALTMRSH, Salt marsh & input rhythm
5 SCREEN 1, 0
10 COLOR 15, 0
12 LINE (0, 0)-(319, 180), 3, B
15 LINE (0, 50)-(319, 50)
20 LINE (0, 30)-(319, 30)
23 LINE (0, 70)-(319, 70)
24 LINE (0, 90)-(319, 90)
25 I0 = 200
30 M = 7
35 N = 6.5
37 E0 = .2
38 J0 = .002
40 Q1 = .2
50 Q2 = 10
55 Q3 = 500
60 J = .02
70 E = 1
75 P1 = .05
77 P2 = 30
80 P3 = 30
100 K0 = 20
110 K1 = .02
120 K2 = .0004
130 K3 = .0000004
140 K4 = .05
150 K5 = .00002
160 K6 = .00004
161 K7 = .0036
162 K8 = 6.000001E-04
163 K9 = 3.2E-09
165 I = 2000 + (1 + SIN(T / 58)) * 2000
166 J = .02 * (1 + COS(T / 58))
167 E = 2 + SIN(T / 27)
170 R = I / (1 + K0 * Q1)
180 D1 = J - K5 * Q1 * R + K3 * Q2 + K9 * Q3 - K4 * Q1 * E
190 D2 = K1 * Q1 * R - K7 * Q2 - K2 * Q2
195 D3 = K7 * Q2 - K8 * Q3 - K6 * Q3 * E
200 Q1 = Q1 + M * D1
205 IF Q1 < .01 THEN Q1 = .01
210 Q2 = Q2 + M * D2
215 Q3 = Q3 + M * D3
230 PSET (T / N, 90 - Q1 / P1), 3
235 PSET (T / N, 70 - J / J0), 3
250 PSET (T / N, 180 - (Q2 / P2)), 1
253 PSET (T / N, 30 - I / I0), 3
257 PSET (T / N, 180 - (Q3 / P3)), 2
259 PSET (T / N, 50 - E / E0), 3
260 T = T + M
270 IF (T / N) < 319 GOTO 165
280 LOCATE 15, 2: PRINT "Saltmrsh.bas"
285 SLEEP: SLEEP: END