;    FILENAME: Xconvright.scp

;    REQUIRES: XtoILBM
;              DOSREQTOOLS
;              MAGIC USER INTERFACE (MUI)
;              MUINT
;              DOS 3.0
;              DATATYPES
;              VIEWTEK, MULTIVIEW OR ANOTHER VIEWER

;    OVERVIEW: CONVERTS THE PICTURE FILE IN THE RIGHT POPASL TO ILBM FORMAT.
;              THE CONVERTED FILE IS TO COPIED TO RAM: AND RENAMED WITH THE
;              EXTENSION ".ILBM"

;    NOTICE:   QUIT 0 IS REQUIRED TO EXIT THESE SCRIPTS
;--------------------------------------------------------------------------



FAILAT 21

;--------------------------------------------------------------------------
;              CHECK TO SEE IF A FILE WAS SELECTED
;--------------------------------------------------------------------------

equalsnull $rightname
if not warn

     XtoILBM $right RAM:$rightname

     if warn

          skip failed

     else
;--------------------------------------------------------------------------
;              CHANGE THE EXTENSION TO ".ILBM" AND 
;              STORE THE RESULT IN $TEMP
;--------------------------------------------------------------------------

          changeext >env:temp ram:$rightname ".ILBM"

;--------------------------------------------------------------------------
;              MAKE $LAST EQUAL TO $TEMP
;              $LAST IS NOW AVAILABLE TO OTHER SCRIPTS FOR
;              VIEWING, DELETEING AND COPYING
;--------------------------------------------------------------------------

          setenv last $temp

;--------------------------------------------------------------------------
;              CHANGE THE FILENAME IN RAM: TO REFLECT THE NEW EXTENSION
;--------------------------------------------------------------------------

          if not exists $temp
               rename ram:$rightname $temp
          endif

;--------------------------------------------------------------------------
;              CALL THE VIEWER TO DISPLAY THE PICTURE
;--------------------------------------------------------------------------

          $XTviewer $temp

          QUIT 0

     endif

endif


LAB FAILED

rtezrequest TITLE "System Error Advice:" BODY "The procedure you requested has failed.\nConvert $right to $temp n\n  Possibilities: \n1. The filetype is not supported by a datatype.\n2. The Viewing script is not available.\n3. The file is not a picture.\n4. Cosmic Interference" BUTTONTEXT "Continue" pos centerscr 
QUIT 0