28 lines
262 B
Text
28 lines
262 B
Text
DEFINT a-z
|
|
w=600:h=180:w2=300
|
|
x=w*RND:y=h*RND
|
|
|
|
FOR i=1 TO 32000
|
|
v=2*RND+1
|
|
ON v GOTO One, Two, Three
|
|
|
|
One:
|
|
x=x/2
|
|
y=y/2
|
|
GOTO Draw
|
|
|
|
Two:
|
|
x=w2+(w2-x)/2
|
|
y=h-(h-y)/2
|
|
GOTO Draw
|
|
|
|
Three:
|
|
x=w-(w-x)/2
|
|
y=y/2
|
|
|
|
Draw:
|
|
PSET (x,y),v
|
|
NEXT
|
|
|
|
loop:
|
|
GOTO loop
|