randomize

buffer 2,600,400
gosub*create_pset
buffer 3,600,400
gosub*create_pset

screen 0,600,400
color 255,255,255
repeat
tmp=(cnt\2)+2
redraw 2
boxf
gcopy tmp,0,0,600,400
redraw 1
await
loop

*create_pset
x=0:y=0
repeat 400
x=0
repeat 600
if rnd(2)==0{pset x,y}
x++
loop
y++
loop
return

超ﾘｱﾙ？？
何点くらい？