          /*   If the file does not exist   */
          imgx=200
          imgy=224
          call fourcorners
          CALL VpItem window,1000,'SETITEMPOS',0,0,0,0
          CALL VpItem window,1001,'SETITEMPOS',0,0,imgx,imgy
          CALL VpWindow window,'SETPOS',wina,winb,winx,winy
          CALL VpWindow window,'SETTITLE','Viewer  Sorry!'
          CALL VpItem window,1001,'SHOW'

