home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Simtel MSDOS - Coast to Coast
/
simteldosarchivecoasttocoast.iso
/
pcmag
/
vol5n13.zip
/
DCRUNCH.BAT
next >
Wrap
DOS Batch File
|
1987-12-13
|
1KB
|
28 lines
ECHO OFF
REM dCRUNCH.BAT Speeds dBASE routines. Calls dSTRIP.COM
IF %1/==/ GOTO noparm
IF NOT EXIST dstrip.com GOTO nocom
IF EXIST %1.prg GOTO strip
ECHO -----
ECHO File %1.PRG not found.
IF EXIST %1 ECHO Please specify the file without .PRG extension.
GOTO noparm
:strip
IF NOT EXIST %1.prk GOTO work
ECHO -----
ECHO A back-up file %1.PRK already exists and will be overwritten.
ECHO Hit CTRL-BREAK followed by Y to interupt or
PAUSE
DEL %1.prk
:work
ECHO Streamlining %1.prg. Original version is saved as %1.prk
REN %1.prg %1.prk
dstrip <%1.prk >%1.prg
GOTO end
:noparm
ECHO FORMAT: DCRUNCH [d:][path]filename (omit ".prg")
GOTO end
:nocom
ECHO File DSTRIP.COM not found.
:end