/*
   $VER: ConvertAnyFile.rx V8.00 (22.7.98)
   © 1993-98 by Andreas R. Kleinert

   This script demonstrates loading, saving (converting) and
   displaying files by using SViewII's ARexxPort.

   USAGE: RX ConvertAnyFile InFile OutFile

*/

parse arg sourcefile destfile

sourcefile = strip(sourcefile)
destfile = strip(destfile)

address command

SViewII "-INSTALL_APPMENU=FALSE -INSTALL_APPICON=FALSE"

say ""
say "ARexx: SViewII has been started : Waiting a moment..."

wait 5

OPTIONS RESULTS
SIGNAL ON ERROR
SVIIPORT = 'SViewII.rx'
SVNGPORT = 'SViewNG.rx'
SVPORT   = 'SuperView.rx'

IF ~SHOW('P',SVPORT) THEN SVPORT = SVNGPORT
IF ~SHOW('P',SVPORT) THEN SVPORT = SVIIPORT
IF ~SHOW('P',SVPORT) THEN DO
  say "Could not locate ARexx port of SViewII !"
  CALL ErrorOut 0
END

ADDRESS VALUE SVPORT

say "ARexx: Loading a PCX Graphics via the LOAD command"
'LOAD='||sourcefile

say "ARexx: Saving Graphics as IFF ILBM"

'SAVE_TYPE=ILBM CmpByteRun1'
'SAVE='||destfile

address command wait 3

say "ARexx: Load this ILBM Gfx now for control"

'SHOW='||destfile

say "ARexx: O.K. : Let's quit !"

address command Wait 2

'QUIT'

CALL ErrorOut 0


/* Errorout procedure ----------------------- */

ErrorOut:
        PARSE ARG ExitCode

        EXIT ExitCode

  END