home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Garbo
/
Garbo.cdr
/
pc
/
editor
/
pcw303_2.lzh
/
WORKDISK.BAT
< prev
next >
Wrap
DOS Batch File
|
1989-09-27
|
6KB
|
206 lines
echo off
echo Making PC-Write Work Disk
echo This WON'T change CONFIG.SYS or AUTOEXEC.BAT files
echo CONFIG.SYS needs FILES=9 or more for some features
echo .
getyn √ \%1
if errorlevel 1 goto z
:c
set t=%1
set b=2
set w=1
getyn Type Y for 5.25 inch floppy disks, N for 3.5 inch
if not errorlevel 1 goto e
set b=3
set w=2
:e
getyn Do you want to do a backup of each PC-Write disk?
if errorlevel 1 goto f
set b=0
:f
getyn ≡B0
if errorlevel 1 goto g
getyn Do you have %b% blank, formatted disks for backups?
if not errorlevel 1 goto z
set d=%2
if %2x==x set d=B:
echo NOTE: If you have only one floppy drive, when we say "Insert disk for
echo backup in drive %d%", wait until DOS says "insert disk for drive %d%"
getyn Backups will be made on drive %d%, ok?
if errorlevel 1 goto g
echo Enter command like "WORKDISK C:\PCW\ A:" or "WORKDISK A: A:" where
echo first name is place for work disk, second is the drive for backups
goto z
:g
getyn Type Y if installing on hard disk, N if on floppy
echo .
if errorlevel 1 goto h
getyn Do you have %w% blank, formatted disks for work disks?
if not errorlevel 1 goto z
if %1x==x set t=B:
getyn Work disks will be made on drive %t%, ok?
if errorlevel 1 goto i
echo Enter command like WORKDISK A: to select drive
goto z
:h
set w=0
if not %1x==x goto j
getyn Work directory will be C:\PCW\, ok? Type Y if unsure
if errorlevel 1 goto k
echo Enter command like WORKDISK C:\PCW\ to select directory
goto z
:k
echo If C:\PCW\ exists, ignore "unable to create" message
echo on
mkdir C:\PCW
echo off
set t=c:\pcw\
goto i
:j
getyn Your work directory will be %t%, ok?
if not errorlevel 1 goto z
:i
echo .
:q
if exist ed.exe goto r
getyn Insert PC-Write Program disk in default drive, type Y
if not errorlevel 1 goto z
goto q
:r
getyn Do you want your registration number on the front screen?
if not errorlevel 1 goto s
echo Wait...
ed =
if errorlevel 1 goto r
:s
getyn Do you want your own special message on the front screen?
if not errorlevel 1 goto t
echo Wait...
ed +
if errorlevel 1 goto s
:t
getyn ≡B0
if errorlevel 1 goto u
getyn Insert blank disk for Program Disk backup in drive %d%, type Y
if not errorlevel 1 goto u
echo on
copy *.* %d%
echo off
:u
getyn ≡W0
if errorlevel 1 goto v
getyn Insert blank disk to become the Work Disk in drive %t%, type Y
if not errorlevel 1 goto z
:v
copy getyn.com %t%()
getyn ε %t%()
if errorlevel 1 goto l
echo Cannot copy files to %t%; have to cancel WORKDISK;
echo Check that %t% is big enough, not write-protected;
echo If %t% is directory, make sure it ends with a "\";
echo If %t% doesn't exist, use MKDIR %t% command WITHOUT
echo Final "\" to create it; for example: MKDIR C:\PCW
goto z
:l
if not exist () goto n
getyn ≡W0
if errorlevel 1 goto o
echo Default drive %t% is also your work disk drive
echo Run WORKDISK again, giving another drive
goto p
:o
echo Default directory %t% is also your work directory. Create
echo another work directory, and run WORKDISK giving this directory
:p
del %t%()
goto z
:n
del %t%()
echo .
getyn Do you want the main PC-Write program? Type Y if unsure
if errorlevel 1 copy ed.exe %t%ed.exe
getyn ε %t%pr.exe
if not errorlevel 1 goto w
getyn Your file PR.EXE is obsolete; delete it? Type Y if unsure
if errorlevel 1 del %t%pr.exe
:w
echo Old PC-Write's used PR command to print from DOS
echo Now the ED command with /P switch is used
echo The PR.BAT file lets you use a PR command
getyn Do you want to use this PR command? Type N if unsure
if not errorlevel 1 goto x
echo ED %%1 %%2 %%3 %%4 %%5 %%6 /P > %t%pr.bat
:x
echo .
set h=0
echo Main Help file has 45 help screens but takes 75K of disk space.
echo There are smaller beginner and advanced Help files available.
getyn Do you want this main PC-Write Help file? Type Y if unsure
if not errorlevel 1 goto b
copy ed.hlp %t%ed.hlp
set h=1
:b
if errorlevel 1 copy ed.hlp %t%ed.hlp
echo .
getyn Do you want to make an Edit Control File? Type Y if unsure
if not errorlevel 1 goto y
copy ed.def %t%ed.def
echo If have an extended keyboard (with F11, F12, middle keypad):
echo You can use F11, F12, and re-assign the middle keypad, if you type Y next,
echo but some computers "hang" when you load or exit PC-Write with this option;
echo then you must run WORKDISK again and type N at this prompt.
getyn Do you want to use extended keys? Type N if unsure
if not errorlevel 1 goto ke
echo &J:16>>%t%ed.def
:ke
getyn Do you have the old Tandy 1000 keyboard? Type N if unsure
if not errorlevel 1 goto d
copy ed.trs %t%ed.def
echo Old Tandy keyboards are not standard
goto kb
:d
getyn Is your keyboard sometimes incompatible? Type N if unsure
if not errorlevel 1 goto kc
copy ed.spc %t%ed.def
echo The file ED.SPC may help
:kb
echo You need to substitute some keys, such as Ctl-V for
echo Scroll Lock. Type the file ED.DEF for a complete list
:kc
getyn Do you want to edit on a color monitor ? Type N if unsure
if errorlevel 1 echo %%C>>%t%ed.def
getyn Do you want the three reminder lines on? Type Y if unsure
if errorlevel 1 echo %%M>>%t%ed.def
getyn Do you want automatic save every 5 min.? Type Y if unsure
if errorlevel 1 echo %%R] &R:5>>%t%ed.def
set m=0
echo Type N for default ruler margins, at columns 1 and 78.
echo To get 1 inch PRINT margins (ruler margins 1 and 65,
getyn and 1 inch extra left, top, bottom margins) type Y
if not errorlevel 1 goto y
set m=1
echo L---+---T1----+-T--2----T----3--T-+----4T---+---T5----+-T--6----R>>%t%ed.def
echo .X:10>>%t%ed.def
echo .XT:6>>%t%ed.def
echo .XB:6>>%t%ed.def
:y
if exist menuprt1.exe goto m
getyn Do you have a copy of the PC-Write Utility disk?
if errorlevel 1 goto a
echo Without a utility diskette, you can't use print
echo effects like bold and underline or use a mouse,
echo but you can edit and do basic printing.
goto z
:a
getyn Insert PC-Write Utility diskette in default drive, type Y
if not errorlevel 1 goto z
:m
WORKUTIL
:z
set t=
set d=
set b=
set w=
set h=
set m=