1  REM  Arthur3: consumer preference of 5%
10 INPUT N: REM number of adopters
20 SCREEN 11: WINDOW (-2, 0)-(N, 100): CLS
22 LINE (-2, 50)-(N, 50)
23 RANDOMIZE TIMER

25 FOR J = 1 TO 10
40      AR = .8: BS = .8
41      BR = .2: SA = .2
42      r = .01: s = .01
43      NA = 1: NB = 1
50      FOR I = 1 TO N
70              CHOICE = RND
90              IF CHOICE < .5 GOTO 100 ELSE GOTO 125
100             RETURNA = AR + r * NA: RETURNB = BR + r * NB
110             IF RETURNA > .95 * RETURNB THEN NA = NA + 1 ELSE NB = NB + 1
120             GOTO 140
125             RETURNA = SA + s * NA: RETURNB = BS + s * NB
130             IF RETURNB > .95 * RETURNA THEN NB = NB + 1 ELSE NA = NA + 1
140             X = NA + NB: Y = 100 * NA / X
150             PSET (X, Y)
160     NEXT I
165 NEXT J

170 END