Chaos to Order experiment two.
Posted: Mon Aug 30, 2010 4:06 pm
1 CLS
5 SCREEN 12
6 c = 1: d = 1
10 RANDOMIZE TIMER
100 a = INT(RND(1) * 4) + 1
110 b = INT(RND(1) * 3) + 1
115 zz = INT(RND(1) * 5)
116 RANDOMIZE TIMER
120 IF a <> b THEN 200 ELSE 10
200 RANDOMIZE TIMER
500 IF a = 3 THEN c = c + 1
510 IF a = 2 THEN c = c - 1
520 IF b = 3 THEN d = d + 1
530 IF b = 2 THEN d = d - 1
600 PSET (400 + c, 300 + d), zz
1000 GOTO 10
5 SCREEN 12
6 c = 1: d = 1
10 RANDOMIZE TIMER
100 a = INT(RND(1) * 4) + 1
110 b = INT(RND(1) * 3) + 1
115 zz = INT(RND(1) * 5)
116 RANDOMIZE TIMER
120 IF a <> b THEN 200 ELSE 10
200 RANDOMIZE TIMER
500 IF a = 3 THEN c = c + 1
510 IF a = 2 THEN c = c - 1
520 IF b = 3 THEN d = d + 1
530 IF b = 2 THEN d = d - 1
600 PSET (400 + c, 300 + d), zz
1000 GOTO 10