100 PROGRAM "ChaosGam.bas"
110 RANDOMIZE
120 GRAPHICS HIRES 4
130 LET X=RND(800):LET Y=RND(600)
140 FOR I=1 TO 20000
150   LET VERTEX=RND(3)
160   SELECT CASE VERTEX
170   CASE 0
180     LET X=X/2
190     LET Y=Y/2
200   CASE 1
210     LET X=400+(400-X)/2
220     LET Y=600-(600-Y)/2
230   CASE 2
240     LET X=800-(800-X)/2
250     LET Y=Y/2
260   END SELECT
270   SET INK VERTEX+1
280   PLOT X,Y
290 NEXT