home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
DP Tool Club 15
/
CD_ASCQ_15_070894.iso
/
vrac
/
hqfax12.zip
/
EP2GRAFX.BAT
< prev
next >
Wrap
DOS Batch File
|
1993-10-29
|
7KB
|
156 lines
REM *********************************************************************/
REM */
REM SYSTEM : HQ-FAX, Uitilities */
REM COPYRIGHT : (c) 1993 HTF CONSULTING */
REM */
REM *********************************************************************/
REM */
REM BAT file name: EP2GRAFX.bat */
REM DESCRIPTION : This is the work-horse batch file which drives the */
REM conversion and view or send process for the Grp 3 */
REM FAX formats */
REM *********************************************************************/
REM
Rem - Documentname Fontname (Options )
Echo off
CLS
Echo *************************************************************************
Echo ***** HTF CONSULTING *****
Echo *** EPSON to Graphics Conversion Procedure ***
Echo ** Copyright (c) 1993 HTF Consulting **
Echo * *
if %1 == /FAX Echo * Convert EPSON file: '%2.ECL' to PCX in font '%3'
if %1 == /FAXVU Echo * Convert EPSON file: '%2.ECL' to PCX in font '%3'
if %1 == /PCX Echo * Convert EPSON file: '%2.ECL' to PCX in font '%3'
if %1 == /P&F Echo * Convert EPSON file: '%2.ECL' to PCX/FAX in font '%3'
if %1 == /P&F Echo * & Convert PCX file(s): '%2.P*' to Fax file(s) %2.F*
Echo * *
if not "%4" == "" Echo * Special options chosen are: %4 %5 %6 %7 %8 %9
if "%4" == "" Echo * No Special options chosen:
Echo * *
Echo * Available special options are: *
Echo * /CDB Convert Double-Print to BOLD *
Echo * /CDR Convert Double-Print to REVERSE-VIDEO *
if %1 == /PCX Echo * /COLRbf Assign (b)ACKGROUND & (f)OREGROUND colors in HEXADECIMAL *
if %1 == /P&F Echo * /COLRbf Assign (b)ACKGROUND & (f)OREGROUND colors in HEXADECIMAL *
Echo * /CONT Make 1 contiguous FAX/PCX file (else 1 per page) *
if %1 == /FAX Echo * /FHx Specify a Fax header format: x = {B, F, N, Q, R, U}
if %1 == /P&F Echo * /FHx Specify a Fax header format: x = {T, F, N, Q, R, U} *
Echo * /SEND Specify Send parameters; Ex: /SEND 999-8888 /TM09:00p *
Echo * (Send parameters must be last parameters on command line) *
Echo * /FORM Specify a Pre-printed form as a background of every page *
Echo * /LMddd Specify an EXTRA left margin in 100's per inch *
Echo * /LOGO Apply the image 'LOGO.PCX' to the top center of every page *
Echo * /PFxx Override the default page format (NA) : xx = {A3, A4, B4, NA}
Echo * /PPxx.yy Specify start(xx), end(yy) page numbers (xx,yy) = 01 - 99 *
REM Echo * /RMddd Specify a right margin in 100's per inch: will Right Justify*
Echo * /RVx Specify Reverse-Video trigger character: x = {*, ~, \, ^ } *
Echo ** **
Pause
if not exist %2.ECL goto Abend
if not exist %3.FNT goto Abend
if %1 == /FAX if exist %2.F0* erase %2.F0*
if %1 == /PCX if exist %2.P0* erase %2.P0*
if %1 == /PAF if exist %2.P0* erase %2.P0*
if %1 == /PAF if exist %2.F0* erase %2.F0*
Rem When we get here we're converting the efficient way using DOS Piping
CLS
Echo **************************************************************************
Echo *** Converting EPSON file %2.ECL to graphics images
Echo *** Approximate time required will be 1 minutes per full page **
Echo *** ( When run on a 16 Mhz AT 386/SX ) **
Echo *** **
Echo *** Approximate disk space required will be: **
Echo *** .05 Megabytes (50K) per page **
Echo *** In addition DOS will need space for a temp file of approximately **
Echo *** .55 Megabytes (500K) per page **
Echo *** **
Echo **************************************************************************
Echo Working .....
if not %1 == /FAX if not %1 == FAXVU goto PCXprep
ECL2pxls.exe %2 %3 EP2grafx EP2grafx %4 %5 %6 %7 %8 %9
if errorlevel 2 goto Abend
Pxls2fax.exe EP2grafx Ep2grafx %2
if errorlevel 2 goto Abend
goto Display
:PCXprep
if %1 == /P&F goto P&F
ECL2pxls.exe %2 %3 Ep2grafx stdout %4 %5 %6 %7 %8 %9 | Pxls2pcx.exe EP2grafx stdin %2
if errorlevel 2 goto Abend
if exist %2.P01 if not exist %2.P02 rename %2.P01 %2.PCX
goto Display
:P&F
ECL2pxls.exe %2 %3 EP2grafx stdout %4 %5 %6 %7 %8 %9 | Pxls2pcx.exe EP2grafx stdin %2
if errorlevel 2 goto Abend
Echo - Ready to Edit PCX file(s) %2.p* and convert to FAX files %2.F*
Pause
Call PCX2FAX3.BAT %2 %4 %5 %6 %7 %8 %9
:Display
if %1 == /FAXVU Call viewfax3.bat %2 %4 %5 %6 %7 %8 %9
if %1 == /PCX Call viewpcx.bat %2 /h %4 %5 %6 %7 %8 %9
:Dial
REM - Call the Sendfax.bat file to issue a DOS command line send
if "%9" == "" goto Lk_eight
if %8 == /SEND Call Sendfax.bat %2 %9
:Lk_eight
if "%8" == "" goto Lk_seven
if %7 == /SEND Call Sendfax.bat %2 %8 %9
goto quit
:Lk_seven
if "%7" == "" goto Lk_six
if %6 == /SEND Call Sendfax.bat %2 %7 %8 %9
goto quit
:Lk_six
if "%6" == "" goto Lk_five
if %5 == /SEND Call Sendfax.bat %2 %6 %7 %8 %9
goto quit
:Lk_five
if "%5" == "" goto Lk_quit
if %4 == /SEND Call Sendfax.bat %2 %5 %6 %7 %8
Rem - C'est fini
Echo ***
Echo *** Successful end of job
Echo ***
goto quit
:Abend
if not errorlevel 2 CLS
Type Bell.txt
Echo **************************************************************************
Echo *** *
Echo *** ep2grafx.bat: Abnormal end of job: *
Echo *** Source document %2.ECL, Font table %3.FNT
Echo *** *
Echo **************************************************************************
Echo *
if not exist %2.ECL Echo *** EPSON file %2.ECL not found
if exist %3.FNT goto quit
Echo *** %3.FNT - File not found
Echo ***
Echo *** Chosen font not available - Available Fonts are listed below:
dir *.fnt /w
Echo ***
Echo *** The 'A' suffixes are for Alternate Fonts (Elite pitch)
Pause
:quit
Echo on
Rem - chdir c:\