read_image (Image, 'fabrik')
* 循环画框 左键开始画 中间键结束
while (1)
get_mbutton (3600, dummy, dummy, Button)
if(Button != 2 and Button != 4)
* 循环画框
draw_rectangle1 (3600, Row1, Column1, Row2, Column2)
elseif(Button == 2)
return ()
else
draw_rectangle1 (3600, Row1, Column1, Row2, Column2)
endif
endwhile
)
