/*
    $VER: FW2STFax.rexx 1.1 (06.05.97)

    by Simone Tellini with the help of Achim Klopsch
    New features added by Stefano Guarnieri
*/

/* Switch Off TurboPrint before Fax   */
/* Uncomment next line if you are a TurboPrint user; see also below */

/* ADDRESS COMMAND 'TURBOPrint:NoTurbo' */

/* Read Density */

'GetGfxPrintPrefs Density'

prefs = result

initiation = run "STFax:STFax"

IF ~show('P','STFAX.1') THEN DO

    /*  If STFAX was not started   */

    ADDRESS COMMAND initiation
    ADDRESS COMMAND "SYS:RexxC/WaitForPort STFAX.1"
END

'GFXPRINTPREFS Density 7' 

/* this command sets the paper feed to continuous */

'GetPrintSetup FEED'
pagemode = result

'PRINTSETUP FEED CONTINUOUS PAGES ALL'

ADDRESS 'STFAX.1' 'PRTDRIVER ON'

CALL ToCover

'PRINT'

'GFXPRINTPREFS density' prefs
'PrintSetup FEED' pagemode

ADDRESS 'STFAX.1' 'PRTDRIVER OFF'

/* uncomment next line if you are a TurboPrint user */

/* ADDRESS COMMAND 'TurboPrint:TurboPrefs -q' */

EXIT


ToCover:
   OPTIONS Results
   GETSECTIONLIST
   list = Result
   IF INDEX(list,"Fax_Cover")=0 THEN NOP
   ELSE
      DO
         GOTOSECTION Fax_Cover
         MOVETOLINE 1 0
         UPDATEDATE
         UPDATETIME
      END
   RETURN