1  REM the standard model, but r and s linked to the respective
2  REM technologies and not to the adopter types
10 INPUT N                                   ' 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 15
40     AR = .8: BR = .2
41     SA = .2: BS = .8
42     NA = 1: NB = 1
43     s = .01: r = .01
50     FOR I = 1 TO N
70         CHOICE = RND
90         IF CHOICE < .5 GOTO 125
100             RETURNA = AR + r * NA: RETURNB = BR + s * NB
120             GOTO 130
125             RETURNA = SA + r * NA: RETURNB = BS + s * NB
130        IF RETURNA > RETURNB THEN NA = NA + 1 ELSE NB = NB + 1
140        X = NA + NB: Y = 100 * NA / X
150        PSET (X, Y)
160    NEXT I
170 NEXT J

180 END