
zoom=VpImgEdt(window, 'IMAGE', 'GETZOOM')

/* 1 means selected, 2 means not selected. */
if VpIsSelected(window,'MENU_VIEW_ZOOM_OUT') then select 
      when zoom>65536 then zoom=zoom-65535  /*   100% */
      when zoom>19661 then zoom=zoom- 6554  /*    30% */
      when zoom> 8192 then zoom=zoom- 3277  /*  12.5% */
      otherwise zoom=zoom-655
      end /* select */
   
else select
   when zoom>=65536 then zoom=zoom+65535 /*   100% */
   when zoom>=19661 then zoom=zoom+6554  /*    30% */
   when zoom>= 8192 then zoom=zoom+3277  /*  12.5% */
   otherwise zoom=zoom+655
      end /* select */

/* Set zoom level  Image Editor */
CALL VpImgEdt window, 'IMAGE', 'SETZOOM', zoom

return 1



