Crystalです。おそらくアプリのローディング画面を作るのでしょうか。
質問とは関係ないのですがwin10のクルクル回るやつも付けられるので良かったら使ってみてください。
screen 0,200,200
r1=30.0
r2=5
x0=100
y0=100
dim active,5
dim th,5
ncount=0
repeat
redraw 0
color 0,0,0
boxf
if ncount<100{
if cnt2/20 <= 5 : active(cnt2/20)=1
live=0
repeat 5
if active(cnt)=0 : continue
live=live+1 ; 丸を描いた回数をカウントする
if th(cnt)<700 {
c=cos(deg2rad(th(cnt)))
y=r1*c+y0
x=-r1*sin( deg2rad(th(cnt)) )+x0
color 192,192,192
circle x-r2,y-r2,x+r2,y+r2,1
th(cnt)=th(cnt)+(c+2)*(c+2)
} else {
active(cnt)=0
th(cnt)=0
}
loop
if live=0 : ncount=ncount+1 ;丸が全部消えてからのループ回数=時間をカウント
cnt2++
} else {
;次の回を開始
cnt2=0
ncount=0
}
redraw 1
await 10
loop