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