home *** CD-ROM | disk | FTP | other *** search
- 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
-