/************************************************************************/
/* ScanQuix loader for Final Writer V                                   */
/* Scans an image                                                       */
/* © 1996 by Martin Wolf/Eternity Entertainment Software                */
/* $VER: Final Writer V Loader for ScanQuix 1.0 (20.06.96)              */
/************************************************************************/

OPTIONS RESULTS
OPTIONS FAILAT 25			/* ScanToDisk returns 0 or 20 	*/

tempfile='sys:FW_ScannedImage'

ok=1
LOCKGUI
call SCAN()           		/* Scans the image into a temporary file*/
call IMPORTGRAPHIC()  		/* Loads Image into DPaint 		*/
UNLOCKGUI
SCREENTOFRONT

call DELETEFILE()     		/* Removes temporary image file 	*/

EXIT


/************************************************************************/
/* Scannt das Bild mit "ScanToDisk" in ein temporäres File.             */

SCAN:
  if not 1=open('path','ENV:ScanQuix/Path','READ') then do
    ok=0
    return
  end

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

/************************************************************************/
/* Lädt das Bild in den FinalWriter                                     */

IMPORTGRAPHIC:
  if ok=0 then
    return
  STATUS PAGE
  i = result
  INSERTIMAGE tempfile POSITION i 0.5 1.5 20.0 26.5
  REDRAW

return

/************************************************************************/
/* Löschen des temporären Files						*/                                               */

DELETEFILE:
  address command 'delete >NIL: 'tempfile
return