WORDP - PCWL103B.ZIP - LITEDISK.BAT

 
Output of file : LITEDISK.BAT contained in archive : PCWL103B.ZIP

echo off
rem :e :f 😮 :q
echo Making PC-Write Lite 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 .
rem getyn û gives error, rets 1 for:
rem 1. using DOS 3.0
rem 2. %1 not ends in \ or :
rem 3. under 40 bytes in environment
rem getym ðB0 rets 0 iff %%B = 0
rem getyn î f rets 0 iff file exists
rem getyn ö d rets 0 iff def drive not d
getyn ûL \%1
if errorlevel 1 goto z

set b=0
getyn Do you want to make backup copies of your Lite disks now?
if not errorlevel 1 goto g
set b=1
getyn Type Y to make 5.25 inch floppy disks, N to make 3.5 inch
if errorlevel 1 set b=2
getyn Do you have %b% blank, formatted disks ready, for backups?
if not errorlevel 1 goto z
getyn Does your computer have at least two floppy disk DRIVES?
if errorlevel 1 goto e
echo To make backups, please use the DOS command: DISKCOPY.
echo We won't make backups as part of this install process.
set b=0
goto g
:e
set d=%2
if %2x==x set d=B:
getyn ö %d%
if errorlevel 1 goto x
getyn Backups will be made on drive %d%, ok?
if not errorlevel 1 goto y

:g
echo .
set w=1
set t=%1
getyn Type Y if installing to hard disk, or N if to floppy disk
if errorlevel 1 goto h
getyn Do you have one blank, formatted disk for your work disk?
if not errorlevel 1 goto z
if %1x==x set t=B:
getyn ö %t%
if errorlevel 1 goto x
getyn Your work disk will be made on drive %t%, ok?
if not errorlevel 1 goto y
goto i

:h
set w=0
if not %1x==x goto c
getyn Your work directory will be C:\PCW\, ok? Type Y if unsure
if errorlevel 1 goto k
echo Enter command like LITEDISK 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
:c
getyn Your work directory will be %t%, ok?
if not errorlevel 1 goto z

:i
echo .
if exist lite.exe goto r
getyn Insert PC-Write Lite Program disk in default drive, type Y
if not errorlevel 1 goto z
goto i
:r
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 be 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 LITEDISK;
echo Check that %t% is big enough, not write-protected;
echo If %t% is directory, make sure it ends with a "\";
echo If it doesn't exist, use MKDIR %t% command WITHOUT
echo final "\" to create it; for example: MKDIR C:\PCW
goto z
:l
del %t%()
echo .
getyn Do you want the PC-Write Lite program? Type Y if unsure
if errorlevel 1 copy lite.exe %t%lite.exe
getyn Do you want the PC-Write Lite Help file? Type Y if unsure
if errorlevel 1 copy lite.hlp %t%lite.hlp
echo If you already have a Full PC-Write edit control file,
echo you don't need to make one now; that one will work OK.
getyn Do you want the Lite Edit Control File? Type Y if unsure
if not errorlevel 1 goto p
copy ed.def %t%ed.def
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 s
:d
getyn Is your keyboard sometimes incompatible? Type N if unsure
if not errorlevel 1 goto t
copy ed.spc %t%ed.def
echo The file ED.SPC has commands that may help.
:s
echo You need to substitute some keys, such as Ctl-V for
echo Scroll Lock. Type the file ED.DEF for a complete list
:t
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
getyn Do you want spell checking, as you type? Type N if unsure
if errorlevel 1 echo 400:361,321>>%t%ed.def
:p
echo .
getyn Do you want to have a "PIF" file for Windows or DesqView?
if errorlevel 1 copy lite.pif %t%lite.pif
echo The master word list is a large (110 KB) file used to check spelling.
echo Your computer must have at least 448 KB to use this master word list.
echo If you already have a Full PC-Write master word list, it will work OK.
getyn Do you want this master word list? Type Y if unsure.
if errorlevel 1 copy words.mas %t%words.mas

echo .
:n
if exist printer.exe goto m
getyn Do you have a copy of the PC-Write Lite Utility disk?
if errorlevel 1 goto a
echo Without the utility diskette, you can't print effects like
echo bold and underline, but you can edit and do basic printing.
goto z
:a
getyn Insert PC-Write Lite Utility diskette in default drive, type Y
if not errorlevel 1 goto z
goto n

:m
getyn Do you want the tutorial practice files? Type Y if unsure
if not errorlevel 1 goto q
echo on
copy *. %t%*.
echo off
:q
getyn Do you want the two print testing files? Type Y if unsure
if not errorlevel 1 goto b
copy chars.tst %t%chars.tst
copy print.tst %t%print.tst
:b
echo .
echo If you already have a Full PC-Write print control file,
echo you don't need to make one now; that one will work OK.
getyn Do you want to make a Print Control File? Type Y if unsure
if errorlevel 1 printer %t%pr.def
echo .
getyn ðB2
if not errorlevel 1 goto j
getyn Insert blank disk for Utility Disk backup in drive %d%, type Y.
if not errorlevel 1 goto j
echo on
copy *.* %d%
echo off
:j
echo .
echo Your PC-Write Lite Work Disk Is Now Complete
echo .
echo Leave the Utility disk in the default drive to
echo type and/or print the Tutorial and Quick Guide.
echo Then place all original and backup diskettes in a safe place.
set t=
set d=
set b=
set w=
getyn Do you want to type and/or print the Tutorial and Quick Guide?
if not errorlevel 1 goto z
echo Note: Type Ctl-C at any time to stop typing or printing.
getyn Do you want to see them on your screen?
if not errorlevel 1 goto w
typeman
:w
getyn Do you want to print the Tutorial and Quick Guide?
if not errorlevel 1 goto z
getyn Is your printer ready, with 92 pages of paper?
if not errorlevel 1 goto z
printman
goto z
😡
echo Cannot make work disk or backups on same drive that LITEDISK uses.
:y
echo Enter command like "LITEDISK C:\PCW\ A:" or "LITEDISK B: B:" where
echo first name is place for work disk, second is the drive for backups
:z
set t=
set d=
set b=
set w=