プラネタリウム

soft1("Exit")
w=width
h=height
for(i=0;i<100;++i){
x[i]=abs(rand%w)
y[i]=abs(rand%h)
s[i]=abs(rand%3)+1
}
label l
if(input(0)==131072){end}
lock()
col(0) frect(0,0,w,h)
for(i=0;i<100;++i){
p=s[i]
col(-1) frect(x[i],y[i],p,p)
x[i]=x[i]+s[i]
if(x[i]>w){x[i]=0}
}
unlock(1)
sleep(1)
goto "l"