echo off
cls
echo If the the next screen show anything other than the PC FORMAT main menu
echo please ensure that you insert a line in your CONFIG.SYS file reading
echo DEVICE=C:\DOS\ANSI.SYS
echo to insert this line, please refer to your DOS manual's section on EDLIN.
pause
:start
type disk1.ans
getkey afx
if errorlevel 3 goto exit
if errorlevel 2 goto folder
if errorlevel 1 goto animation

:folder
cls
echo Please note: These files will later have to be copied into your
echo              Windows directory. For the time being, we shall place
echo              the files in a directory called PCF
pause
cls
echo Creating directory
md c:\pcf
echo Directory created
pause
cls
echo Copying compresses file
copy \windows\*.* c:\pcf
echo Compressed file copied to hard drive
pause
cls
type whatd.ans
getkey ab
if errorlevel 2 goto winb
if errorlevel 1 goto wina

:wina
cls
echo Restoring compressed file to normal size
c:
cd \pcf
folder
del folder.exe
Echo Compressed file restored to normal size
pause
cls
echo Please note:       Before you can use this program, you have to install
echo                    it in your Windows directory. Please refer to the
echo                    disk pages for information on how to do this.
pause
cls
a:
goto start

:winb
cls
echo Restoring compressed file to normal size
c:
cd \pcf
folder
del folder.exe
Echo Compressed file restored to normal size
pause
cls
echo Please note:       Before you can use this program, you have to install
echo                    it in your Windows directory. Please refer to the
echo                    disk pages for information on how to do this.
pause
cls
b:
goto start

:animation
cls
echo Creating directory
md c:\pcf
md c:\pcf\aaplay
md c:\pcf\aaplay\fli
echo Directories created
pause
cls
echo Copying compressed file
copy aaplay\fli.exe c:\pcf\aaplay\fli
echo Compressed file copied to hard drive
pause
cls
type whatd.ans
getkey ab
if errorlevel 2 goto bani
if errorlevel 1 goto aani

:aani
cls
Echo Restoring compressed file to normal size
c:
cd\pcf\aaplay\fli
fli
del fli.exe
echo Compressed file restored to normal size
pause
cls
a:
goto start

:bani
cls
Echo Restoring compressed file to normal size
c:
cd\pcf\aaplay\fli
fli
del fli.exe
echo Compressed file restored to normal size
pause
cls
b:
goto start

:exit
type goodbye.ans
getkey x
if errorlevel 1 goto quit
:quit
cls