              
    
    winx=imgx+7
    winy=imgy+32 /*  47     */
    if posx=right 
        then
          do
            wina=scnx-winx
            winx=imgx+7
            if wina < 0 then wina=0
            if winx > scnx then winx=scnx
          end
      if posx=left 
        then
          do
            wina=0
            winx=imgx+7
            if winx > scnx then winx=scnx
          end
       
       if posy=top 
        then
          do
            winb=scny-winy
            winy=imgy+32             /*  47     */
            if winb < 0 then winb=0
            if winy > scny then winy=scny
          end
      if posy=bottom 
        then
          do
            winb=0
            winy=imgy+32                                                              /*  47     */
            if winy > scny then winy=scny
          end

