Chaos to Order experiment two.

Discuss whatever you want here--both QB and non-QB related. Anything from the DEF INT command to the meaning of life!

Moderators: Pete, Mods

Post Reply
frenchfry
Newbie
Posts: 4
Joined: Tue Aug 24, 2010 12:33 pm

Chaos to Order experiment two.

Post by frenchfry »

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
Post Reply