18 lines
280 B
Text
18 lines
280 B
Text
10 GRAPHICS 7+16
|
|
20 W=159:H=95:W2=79
|
|
30 X=INT(W*RND(0))
|
|
40 Y=INT(H*RND(0))
|
|
50 FOR I=1 TO 5000
|
|
60 V=INT(3*RND(0))+1
|
|
70 GOTO 100*V
|
|
100 X=X/2:Y=Y/2
|
|
110 GOTO 500
|
|
200 X=W2+(W2-X)/2
|
|
210 Y=H-(H-Y)/2
|
|
220 GOTO 500
|
|
300 X=W-(W-X)/2
|
|
310 Y=Y/2
|
|
500 COLOR V
|
|
510 PLOT X,Y
|
|
520 NEXT I
|
|
530 GOTO 530
|