/* $VER: ScanImage.rexx 1.0 for Finalwriter © by Jochen Grus (02.08.96) */

OPTIONS RESULTS

options failat 25     /* ScanToDisk returns 0 or 20 */

ram:ScanImage

ok=1
call SCAN()           /* Scans the image into a temporary file */
call IMPORTGRAPHIC()  /* Loads Image into Finalwriter */
call DELETEFILE()     /* Removes temporary image file */

EXIT



SCAN:
/* Scans the image into a temporary file using the program "ScanToDisk". */
  if not 1=open('path','ENV:ScanQuix/Path','READ') then do
    ok=0
    return
  end

  pragma('DIRECTORY',READLN('path'))
  address command 'ScanQuix3/ScanToDisk FILE=ram:ScanImage TRUECOLOR NOICONS NOGUI PUBSCREEN=FinalWriterPubScreen'
  if RC>=5 then do
    ok=0
    return
  end

return



IMPORTGRAPHIC:
/* Loads the image into Finalwriter */
  if ok=0 then
    return

  'insertimage ram:ScanImage'

return



DELETEFILE:
/* removes temporary file */
  address command 'delete ram:ScanImage'


return