@echo off cls set VCAUTO= set VCPATH=%@search[4DVCCHK.BTM] iff "%VCPATH" EQ "" then echo Cannot locate 4DVCCHK.BTM echo This file needs to either be in your current directory echo (%_CWD) echo or in one of the directories specified in your PATH Environment Variable. set VCPATH= quit else call 4DVCCHK.BTM endiff :VCENTRY iff "%VCAUTO" NE "" then set VCAUTO= cls quit endiff drawbox 00 00 24 79 0 bri whi on blu fill blu drawbox 00 16 10 63 2 bri whi on red fill red scrput 01 18 bri whi on red ` ÜÛÛ ÛÛßßßßßÛÜ ÛÛ ÛÛ ÜÛßßßßÛÜ ` scrput 02 18 bri whi on red ` ÜÛßÛÛ ÛÛ ÛÛ ÛÛ ÛÛ ÛÛ ßÛ` scrput 03 18 bri whi on red ` ÜÛß ÛÛ ÛÛ ÛÛ ÛÛ ÛÛ ÛÛ ` scrput 04 18 bri whi on red `ÜÛß ÛÛ ÛÛ ÛÛ ÛÛ ÛÛ ÛÛ ` scrput 05 18 bri whi on red `ÛÛÜÜÜÜÜÛÛÜÜ ÛÛ ÛÛ ÛÛ ÛÛ ÛÛ ` scrput 06 18 bri whi on red ` ÛÛ ÛÛ ÛÛ ÛÛÛÛ ÛÛ ÜÛ` scrput 07 18 bri whi on red ` ÛÛ ÛÛÜÜÜÜÜÛß ÛÛ ßÛÜÜÜÜÛß ` scrput 09 34 bri whi on red Version 2.30 drawbox 01 00 09 15 4 yel on bla fill bla scrput 02 06 bri yel on bla 4DOS scrput 03 05 bri yel on bla Version scrput 04 05 bri yel on bla Control scrput 05 02 yel on bla A Poor-Man's scrput 06 05 yel on bla Version scrput 07 05 yel on bla Control scrput 08 05 yel on bla System drawbox 01 64 09 79 4 yel on bla fill bla scrput 02 66 bri yel on bla Released to scrput 03 65 bri yel on bla Public-Domain scrput 05 67 bri yel on bla 10/22/90 scrput 07 66 yel on bla by Ric Naff scrput 08 66 yel on bla Dallas, TX drawbox 11 15 22 64 4 bri whi on blu fill blu scrput 12 17 bri whi on blu A Add files to Version-Control Archive scrput 14 17 bri whi on blu X Xtract files from Version-Control Archive scrput 15 21 whi on blu (This will create/overlay existing files) scrput 17 17 bri whi on blu E Erase files in Version-Control Archive scrput 19 17 bri whi on blu I Information about 4DVC scrput 21 28 whi on blu Just press ENTER to quit drawhline 20 15 50 2 bri whi on blu drawvline 11 19 10 2 bri whi on blu drawhline 13 15 50 1 bri whi on blu drawhline 16 15 50 1 bri whi on blu drawhline 18 15 50 1 bri whi on blu scrput 23 29 bri whi on red Your Choice (A X E I)? :VCTOP screen 23 51 iff "%1" NE "" then set VCRESP=%1 shift set VCAUTO=X else inkey /W180 %%VCRESP endiff iff "%VCRESP" EQ "" then cls quit endiff set VCRESP=%@upper[%VCRESP] if "%VCRESP" EQ "A" goto VCADD if "%VCRESP" EQ "X" goto VCXTR if "%VCRESP" EQ "E" goto VCDEL if "%VCRESP" EQ "I" goto VCINQ if "%VCRESP" EQ "" quit set VCAUTO= shift %# goto VCTOP :VCADD unset VCRESP cls drawbox 00 00 24 79 0 bri whi on blu fill blu scrput 01 00 bri whi on red ` ADD file(s) to an archive. ` scrput 02 01 bri whi on blu Enter File-Specs for SELECT or press ENTER to accept defaults: scrput 03 00 whi on blu [ ] scrput 05 00 whi on blu Example: *.C *.H *.MAK *.BAT *.BTM scrput 06 00 whi on blu The above will SELECT all files that end in C, H, MAK, BAT, and BTM. scrput 07 00 whi on blu You will then be given a 4DOS SELECT screen to individually mark those files scrput 08 00 whi on blu which you actually want to archive. scrput 10 00 whi on blu Defaults: scrput 11 00 whi on blu *.C?? *.H?? *.ASM *.PAS *.COB *.FOR *.BAT *.BTM *.MAK *.DOC *.DAT screen 03 01 ` ` screen 03 01 iff "%1" NE "" then set VCRESP=%1& shift %# else input /W180 %%VCRESP endiff iff "%VCRESP" EQ "" then call 4DVCBKUP *.C?? *.H?? *.ASM *.PAS *.COB *.FOR *.BAT *.BTM *.MAK *.DOC *.DAT else call 4DVCBKUP %VCRESP endiff goto VCENTRY :VCXTR unset VCRESP cls drawbox 00 00 24 79 0 bri whi on blu fill blu scrput 01 00 bri whi on red ` XTRACT file(s) from an archive. ` scrput 02 01 bri whi on blu Enter File-Specs for SELECT or press ENTER to accept defaults: scrput 03 00 whi on blu [ ] scrput 05 00 whi on blu Example: C H MAK scrput 06 00 whi on blu The above will SELECT archive files 4DVCC.ZIP 4DVCH.ZIP and 4DVCMAK.ZIP. scrput 07 00 whi on blu You will then be given a 4DOS SELECT screen to individually mark those files scrput 08 00 whi on blu which you actually want to extract from the archive files. scrput 10 00 whi on blu Defaults: scrput 11 00 whi on blu C?? H?? ASM PAS COB FOR BAT BTM MAK DOC DAT scrput 13 00 bri whi on red ` CAUTION: During the extraction process, any existing file will be overlaid by ` scrput 14 00 bri whi on red ` the extracted file. Also, files are extracted in the order processed by the ` scrput 15 00 bri whi on red ` 4DOS SELECT statement, so if more than one file of the same name is extracted, ` scrput 16 00 bri whi on red ` only the last one extracted will be 'current'. ` screen 03 01 ` ` screen 03 01 iff "%1" NE "" then set VCRESP=%1& shift %# else input /W180 %%VCRESP endiff iff "%VCRESP" EQ "" then call 4DVCXTRC C?? H?? ASM PAS COB FOR BAT BTM MAK DOC DAT else call 4DVCXTRC %VCRESP endiff goto VCENTRY :VCDEL unset VCRESP cls drawbox 00 00 24 79 0 bri whi on blu fill blu scrput 01 00 bri whi on red ` ERASE file(s) in an archive. ` scrput 02 01 bri whi on blu Enter File-Specs for SELECT or press ENTER to accept defaults: scrput 03 00 whi on blu [ ] scrput 05 00 whi on blu Example: C H MAK scrput 06 00 whi on blu The above will SELECT archive files 4DVCC.ZIP 4DVCH.ZIP and 4DVCMAK.ZIP. scrput 07 00 whi on blu You will then be given a 4DOS SELECT screen to individually mark those files scrput 08 00 whi on blu which you actually want to remove from the archive files. scrput 10 00 whi on blu Defaults: scrput 11 00 whi on blu C?? H?? ASM PAS COB FOR BAT BTM MAK DOC DAT screen 03 01 ` ` screen 03 01 iff "%1" NE "" then set VCRESP=%1& shift %# else input /W180 %%VCRESP endiff iff "%VCRESP" EQ "" then call 4DVCDLET C?? H?? ASM PAS COB FOR BAT BTM MAK DOC DAT else call 4DVCDLET %VCRESP endiff goto VCENTRY :VCINQ if "%1" NE "" shift %# set VCPATH=%@search[4DVCREAD.ME] iff "%VCPATH" NE "" then list %VCPATH set VCPATH= goto VCENTRY else cls echo  echo Cannot locate 4DVCREAD.ME in your PATH Environment Variable. echo It, and all other 4DVC*.BTM files need to be in a directory which echo is included in your PATH environment variable. quit endiff