Category : Word Processors
Archive   : PCWL103A.ZIP
Filename : LITEDISK.BAT

 
Output of file : LITEDISK.BAT contained in archive : PCWL103A.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=


  3 Responses to “Category : Word Processors
Archive   : PCWL103A.ZIP
Filename : LITEDISK.BAT

  1. Very nice! Thank you for this wonderful archive. I wonder why I found it only now. Long live the BBS file archives!

  2. This is so awesome! 😀 I’d be cool if you could download an entire archive of this at once, though.

  3. But one thing that puzzles me is the “mtswslnkmcjklsdlsbdmMICROSOFT” string. There is an article about it here. It is definitely worth a read: http://www.os2museum.com/wp/mtswslnk/