5 CLS
10 REM  CHAOS PROGRAM  ORDER OUT OF CHAOS
20 REM
30 DIM XC(6),YC(6)
40 DATA 0,199.99, 0,199.99, 639.99,199.99, 639.99,199.99, 319.99,0, 319.99,0
50 FOR N=1 TO 6
60 READ XC(N),YC(N)
65 NEXT N
70 SCREEN 2
80 XL=XC(1)
90 YL=YC(1)
100 FOR N=1 TO 32000
110 D=INT(1+RND*6)
120 X=(XL+XC(D))/2
130 Y=(YL+YC(D))/2
140 PSET(X,Y)
150 XL=X
160 YL=Y
170 NEXT N
180 END
 