XProfan

saveJpg(string s,long x,y,xx,yy,qual){

    savebmp s+".$temp.bmp",x,y,xx,yy
    long h=create("hPic",-1,s+".$temp.bmp")
    SavePic s,h,qual
    deleteobject h
    h=assign(s+".$temp.bmp")
    erase h
    assign h,""

}