echo off

type go.doc 
getyn Enter 'Y' (or 'y') if using hard drive.
if errorlevel 1 goto hard
echo ....
getyn Enter 'Y' (or 'y') if using 5 inch; 'N' for 3 inch floppies.
if errorlevel 1 goto flopF
if not errorlevel 1 goto flopTH

:flopF
set w=5¬
set n=3
goto a
:flopTH
set w=3«
set n=2
:a
if %1.==. goto b
set u=%1
goto start
:b
set u=B:
echo.
echo Your will need %n%, %w% inch, formatted floppy disks for the installation.
echo The destination drive will be %u%. If you want something else start again by
echo entering GO followed by the drive you want (D:, for example). Be sure you
echo have such a such a drive (D:) and that you follow the DOS syntax correctly.
echo.
getyn Enter Y if want to use %u%, otherwise N to start again. 
if errorlevel 1 goto start 

goto scram 

:hard
set w=hard
if %1.==. goto none  
set u=%1
goto start

:none
set u=C:\LQMATRIX
echo.
echo The default drive and directory will be %u%. If you want
echo something else start again by entering GO followed by the drive
echo and the directory you want, say D:\LQMTX. Be sure you have such 
echo a drive (D:) and that you follow the DOS syntax correctly.
echo If the directory already exists, ignore the DOS warning.
echo.

getyn Enter Y if want to use %u%, otherwise N to start again.
if not errorlevel 1 goto scram

:start
if "%w%"=="hard" md %u%
if "%w%"=="hard" goto skip
echo .....
rem disk 1. program and Wisan fonts 
echo Put a formatted %w% inch floppy in the %u% drive
pause
:skip
echo on
copy packing.lst %u%
echo off
echo unpacking the main programs
lqmtx442 /e%u% 
lqdwn /e%u%
echo unpacking the Wisan fonts 
lqrnw /e%u% 
if not "%w%"=="5¬" goto skip2
echo. 
rem disk 2  general and Hensel fonts 
echo Put a second %w% inch formatted floppy in the %u% drive
pause
echo.
lqdwn /e%u%
:skip2  
echo unpacking various useful fonts
lqfont /e%u%

if not "%w%"=="3«" goto skip3
echo. 
echo Put a second %w% inch formatted floppy in the %u% drive
pause
echo.
lqdwn /e%u%
:skip3

echo unpacking the Hensel fonts 
lqreh /e%u% 

if not "%w%"=="5¬" goto skip4
echo. 
echo Put a third %w% inch formatted floppy in the %u% drive
pause
echo.
lqdwn /e%u%
:skip4
echo unpacking the Chamberlain fonts
lqcrc /e%u%
echo unpacking the Documentation files
lqdoc /e%u% 
echo unpacking the Landscape printer
lands /e%u%
cls
echo ___________ 
echo. 
echo  All done! 
echo. 
echo. 
echo  To get a quick lesson on how to download a font insert the 
echo  documentation disk (#3), or go to the chosen directory on the hard 
echo  drive, and enter at the prompt: 
echo. 
echo.   type QUICKIE.DOC     -- for a screen display or 
echo.   copy QUICKIE.DOC prn -- for a print out. [Be sure printer is on]. 
echo. 
echo. 
echo  [Jimmy Paris Software ] 
echo. 
:scram