;rndを使わずに乱数を求める
y=240:repeat 640:x++:y=y+(x*x)^y+k:k=(k*(k+k)):y=y\480:pos x,y:mes "●":loop:stop