15 lines
264 B
Text
15 lines
264 B
Text
10 LET X=RND*46
|
|
20 LET Y=RND*40
|
|
30 FOR I=1 TO 5000
|
|
40 LET VERTEX=INT (RND*3)
|
|
50 GOTO 60+VERTEX*30
|
|
60 LET X=X/2
|
|
70 LET Y=Y/2
|
|
80 GOTO 140
|
|
90 LET X=23+(23-X)/2
|
|
100 LET Y=40-(40-Y)/2
|
|
110 GOTO 140
|
|
120 LET X=46-(46-X)/2
|
|
130 LET Y=Y/2
|
|
140 PLOT X,42-Y
|
|
150 NEXT I
|