echo off
cd intro
scrdisp title
scrdisp apr1
:menu
cd ..\intro
scrdisp apr2
if errorlevel 193 goto menu
if errorlevel 192 goto F6
if errorlevel 191 goto F5
if errorlevel 190 goto F4
if errorlevel 189 goto F3
if errorlevel 188 goto F2
if errorlevel 187 goto F1
if errorlevel 28 goto menu
:F1
cd ..\wp
pctype read.me
goto menu
:F2
cd ..\database
pcbase
goto menu
:F3
cd ..\pascal
..\intro\scrdisp prep
if errorlevel 190 goto menu
if errorlevel 189 goto F6
if errorlevel 188 goto harddisk
if errorlevel 187 goto floppy
if errorlevel 28 goto menu
:harddisk
cls
c:
md \visible
a:
visible c:\visible
goto menu
:floppy
cls
visible b:
goto menu
:F4
cd ..\utils
tv tv.idx /r
goto menu
:F5
cd ..\shorties
cls
echo You're in the SHORTIES sub-directory.
:list
echo Here's the directory listing...
dir
goto end
:F6
cd ..\
cls
:end