XProfan

 {$cleq}
windowstyle 80
window maxx,maxy
drawinvrec1(hdc,100,100,40,20)
drawinvrec1(hdc,106,106,40,20)
drawinvrec2(100,200,40,20)
drawinvrec2(106,206,40,20)
waitinput
end

nProc drawinvrec1(long dc,x,y,xx,yy){

    long mem=dim(16)
    long mem&,0=x,y,xx+x,yy+y
    drawFocusRect(dc,mem)
    dispose(mem)

}

drawinvrec2(long x,y,xx,yy){

    copybmp x,y - xx,1 > x,y;4
    copybmp x,(y+yy-1) - xx,1 > x,(y+yy-1);4
    copybmp x,y+1 - 1,(yy-2) > x,y+1;4
    copybmp (x+xx-1),y+1 - 1,(yy-2) > (x+xx-1),y+1;4

}