home *** CD-ROM | disk | FTP | other *** search
- : WFW.BAT
- : Loads WFW if it exists; if not, installs it from floppy drive.
- : WFW installed on ramdisk, or on default if ramdisk absent.
-
- iff exist %_boot:\wfw\*.* then
- goto load_wfw
- else
- call rou ramdisk
- :: (rou --> ramdisk determines which drive is ramdrive. You must
- :: have ROU.BTM version 10 for this procedure.)
- if exist %ramd:\wfw\*.* goto load_wfw
- goto install
- endiff
-
- :load_wfw
- : Loads Word for Word; current version: 5.2 (November 20, 1993)
- iff exist %_boot:\wfw\*.* then
- %_boot:
- cd \wfw
- wfw.exe
- goto end
- elseiff exist %ramd:\wfw\*.* then
- %ramd:
- cd \wfw
- wfw.exe
- goto end
- endiff
- ;---------------------
- :install
- setlocal
- inkey /K"AB" Indicate drive with WFW zip archive: %%dr
-
- iff %ramd gt C then
- echo creating a WFW subdirectory on %ramd:, \WFW
- cdd %ramd:
- md \wfw ^ cd \wfw
- goto extract
- else
- echo creating a WFW subdirectory on %_boot:, \WFW
- md \wfw ^ cd \wfw
- goto extract
- endiff
-
- :extract
- cls
- echo.
- if not exist %dr:wfw.zip (echo No WFW.ZIP found on %@upper[%dr]:!^goto end)
- echo Unzipping WFW
- unzip %dr:wfw
- cdd %dr:
- endlocal
- ks "enter"^wfw.exe
-
- :end
- cd -
- quit