/*      CALL VpWindow window,'SETPOS',wina,winb,winx,winy
      CALL VpItem window,1000,'SETITEMPOS',0,0,imgx,imgy
      CALL VpWindow window,'SETTITLE','Viewer  'name
      rc=stream(picture,'c','close')
    END
    ELSE
        DO
          /*   If the file does not exist   */
          CALL VpWindow window,'SETTITLE','Viewer  Sorry!'
          Call VpWindow window,'SETPOS', wina, winb, wina+205, winb+255
          CALL VpItem window,1001,'SHOW'          
        END
        
CALL VpNotify window,'VIEWERRETURN' */

