1 CLS
2 REM IBM PC
3 CLS
4 REM EXCLUS:COMPETITIVE EXCLUSION
5 SCREEN 1, 0: COLOR 15, 0
6 LINE (0, 0)-(319, 180), 3, B
10 I = 5
20 Q = 8
30 Q2 = 8
40 K1 = .08
50 K2 = .04
60 K3 = .05
70 K4 = .05
80 K5 = 9.000001E-02
90 K6 = .05
95 K7 = .003
97 K8 = .003
100 IF X = 1 THEN PSET (2 * Q, 180 - 2 * Q2): GOTO 130
105 PSET (T, 180 - Q), 1
110 IF Q > 179 THEN Q = 179
120 PSET (T, 180 - Q2), 2
130 R = I / (1 + K1 * Q + K2 * Q2)
140  IF R < 0 THEN R = 0
150 D1 = K5 * R * Q - K3 * Q
160 D2 = K6 * R * Q2 - K4 * Q2
162 Q = Q + D1
165 Q2 = Q2 + D2
170 T = T + 1
180  IF T < 319 GOTO 100
190 LOCATE 2, 2: PRINT "Exclus.bas"
200  SLEEP: SLEEP: END
210 X = 1
215 T = 1
217 CLS
220  GOTO 5