右下がりになってしまいます
どこがおかしいんでしょう?
dim black,32*24 dim d,32*24 buffer 1,32,24 mes "ABCD" gsel 0 x=20 objsize x,x,x pos 0,0 repeat ginfo_winx/x repeat ginfo_winy/x no++ chkbox "",d(no) loop s++ pos x*s,0 loop repeat 32*24 gsel 1 pget cx,cy r=ginfo_r g=ginfo_g b=ginfo_b nn++ if r=0&(g=0)&(b=0) :black(nn)=1 if cy>24 :cx++ :cy=0 cy++ loop gsel 0 repeat if black(f)=1 :objprm f,1 f++ if f>=24*32 :stop wait 1 loop