home *** CD-ROM | disk | FTP | other *** search
- cls
- echo off
- cls
- if not exist dbase.exe goto wrong
- if not exist dbase.cac goto wrong
-
- if %1x==x goto useage
- if %1==off goto off
- if %1==OFF goto off
- if %1==ext goto extended
- if %1==EXT goto extended
- if %1==lim goto expanded
- if %1==LIM goto expanded
- goto useage
-
- :off
- if not exist dbase1.exe goto OFFDONE
- del dbcache.ovl >nul
- copy dbase1.exe dbase.exe>nul
- del dbase1.exe >nul
- :OFFDONE
- echo dBASE caching is OFF.
- goto out
-
- :extended
- copy ext.ovl dbcache.ovl >nul
- if exist dbase1.exe goto EXTDONE
- copy dbase.exe dbase1.exe >nul
- copy dbase.cac dbase.exe >nul
- :EXTDONE
- echo Extended caching for dBASE is ON.
- goto out
-
- :expanded
- copy exp.ovl dbcache.ovl >nul
- if exist dbase1.exe goto EXPDONE
- copy dbase.exe dbase1.exe >nul
- copy dbase.cac dbase.exe >nul
- :EXPDONE
- echo Expanded caching for dBASE is ON.
- goto out
-
- :wrong
- echo Please run CACHEDB from your dBASE IV's directory.
- echo dBase IV's caching configuration did not change.
- goto out
-
- :useage
- echo To change your dBASE IV caching configuration ...
- echo Type: CACHEDB [TYPE]
- echo Possible choices for TYPE are:
- echo off ........ Turns caching off
- echo ext ........ Extended caching on
- echo lim ........ Expanded caching on
-
- :out
-