20 lines
407 B
Text
20 lines
407 B
Text
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
|