ECHO OFF
:MENU
!\58 1
!\GET
IF ERRORLEVEL 59 IF NOT ERRORLEVEL 60 GOTO HELP
IF ERRORLEVEL 60 IF NOT ERRORLEVEL 61 GOTO FEAT
IF ERRORLEVEL 61 IF NOT ERRORLEVEL 62 GOTO GAME
IF ERRORLEVEL 62 IF NOT ERRORLEVEL 63 GOTO UTIL
IF ERRORLEVEL 63 IF NOT ERRORLEVEL 64 GOTO MAGA
IF ERRORLEVEL 64 IF NOT ERRORLEVEL 65 GOTO SHOR
IF ERRORLEVEL  1 IF NOT ERRORLEVEL  2 GOTO QUIT
GOTO MENU


:HELP
FOR %%A IN (1 2) DO !\58 %%A
:HELP2
!\GET
IF ERRORLEVEL 75 IF NOT ERRORLEVEL 76 GOTO SHOR
IF ERRORLEVEL 77 IF NOT ERRORLEVEL 78 GOTO FEAT
IF ERRORLEVEL 28 IF NOT ERRORLEVEL 29 GOTO MENU
GOTO HELP2


:FEAT
FOR %%A IN (1 3) DO !\58 %%A
:FEAT2
!\GET
IF ERRORLEVEL 75 IF NOT ERRORLEVEL 76 GOTO HELP
IF ERRORLEVEL 77 IF NOT ERRORLEVEL 78 GOTO GAME
IF ERRORLEVEL 62 IF NOT ERRORLEVEL 63 GOTO FEAT4
IF ERRORLEVEL 63 IF NOT ERRORLEVEL 64 GOTO FEAT5
IF ERRORLEVEL 64 IF NOT ERRORLEVEL 65 GOTO FEAT6
IF ERRORLEVEL 65 IF NOT ERRORLEVEL 66 GOTO FEAT7
IF ERRORLEVEL 66 IF NOT ERRORLEVEL 67 GOTO FEAT8
IF ERRORLEVEL 67 IF NOT ERRORLEVEL 68 GOTO FEAT9
IF ERRORLEVEL 68 IF NOT ERRORLEVEL 69 GOTO MENU
IF ERRORLEVEL  1 IF NOT ERRORLEVEL  2 GOTO MENU
GOTO FEAT2
:FEAT4
CLS
ECHO expanding ALITEZIP onto B:
ALITE\ALITEZIP B:\
GOTO FEAT11
:FEAT5
MD C:\ALITE
CLS
ECHO expanding ALITEZIP into directory C:\ALITE
ALITE\ALITEZIP C:\ALITE
GOTO FEAT11
:FEAT6
MD D:\ALITE
CLS
ECHO expanding ALITEZIP into directory D:\ALITE
ALITE\ALITEZIP D:\ALITE
GOTO FEAT11
:FEAT7
CLS
ECHO expanding ALITEMAN onto B:
ALITE\ALITEMAN B:\
GOTO FEAT11
:FEAT8
MD C:\ALITE
CLS
ECHO expanding ALITEMAN into directory C:\ALITE
ALITE\ALITEMAN C:\ALITE
GOTO FEAT11
:FEAT9
MD D:\ALITE
CLS
ECHO expanding ALITEMAN into directory D:\ALITE
ALITE\ALITEMAN D:\ALITE
:FEAT11
ECHO FINISHED - note any irregularities, and then proceed.
ECHO (press any key)
!\GET
GOTO FEAT


:GAME
FOR %%A IN (1 4) DO  !\58 %%A
:GAME2
!\GET
IF ERRORLEVEL 75 IF NOT ERRORLEVEL 76 GOTO FEAT
IF ERRORLEVEL 77 IF NOT ERRORLEVEL 78 GOTO UTIL
IF ERRORLEVEL 65 IF NOT ERRORLEVEL 66 GOTO GAMER
IF ERRORLEVEL 66 IF NOT ERRORLEVEL 67 GOTO GAMEP
IF ERRORLEVEL 28 IF NOT ERRORLEVEL 29 GOTO MENU
IF ERRORLEVEL  1 IF NOT ERRORLEVEL  2 GOTO MENU
GOTO GAME2
:GAMER
!\PLWAIT
!\PBS-VIEW GAMES\FELIX.DOC
GOTO GAME
:GAMEP
!\PLWAIT
GAMES\FELIX
GOTO GAME

:UTIL
FOR %%A IN (1 5) DO !\58 %%A
:UTIL2
!\GET
IF ERRORLEVEL 75 IF NOT ERRORLEVEL 76 GOTO GAME
IF ERRORLEVEL 77 IF NOT ERRORLEVEL 78 GOTO MAGA
IF ERRORLEVEL 65 IF NOT ERRORLEVEL 66 GOTO UTILR
IF ERRORLEVEL 66 IF NOT ERRORLEVEL 67 GOTO UTILP
IF ERRORLEVEL 28 IF NOT ERRORLEVEL 29 GOTO MENU
IF ERRORLEVEL  1 IF NOT ERRORLEVEL  2 GOTO MENU
GOTO UTIL2
:UTILR
!\PLWAIT
!\PBS-VIEW INDEX\INDEX.DOC
GOTO UTIL
:UTILP
!\PLWAIT
CD INDEX
INDEX
CD ..
GOTO UTIL

:MAGA
FOR %%A IN (1 6) DO !\58 %%A
:MAGA2
!\GET
IF ERRORLEVEL 75 IF NOT ERRORLEVEL 76 GOTO UTIL
IF ERRORLEVEL 77 IF NOT ERRORLEVEL 78 GOTO SHOR
IF ERRORLEVEL  1 IF NOT ERRORLEVEL  2 GOTO MENU
IF ERRORLEVEL 28 IF NOT ERRORLEVEL 29 GOTO MENU
GOTO MAGA2

:SHOR
FOR %%A IN (1 7) DO !\58 %%A
:SHOR2
!\GET
IF ERRORLEVEL 75 IF NOT ERRORLEVEL 76 GOTO MAGA
IF ERRORLEVEL 77 IF NOT ERRORLEVEL 78 GOTO HELP
IF ERRORLEVEL 65 IF NOT ERRORLEVEL 66 GOTO SHORP
IF ERRORLEVEL 66 IF NOT ERRORLEVEL 67 GOTO SHORC
IF ERRORLEVEL 67 IF NOT ERRORLEVEL 68 GOTO SHORU
IF ERRORLEVEL 68 IF NOT ERRORLEVEL 69 GOTO SHORD
IF ERRORLEVEL 28 IF NOT ERRORLEVEL 29 GOTO MENU
IF ERRORLEVEL  1 IF NOT ERRORLEVEL  2 GOTO MENU
GOTO SHOR2
:SHORP
!\PLWAIT
!\PBS-VIEW SHORTIES\SHORTIES.DOC
GOTO SHOR
:SHORC
!\PLWAIT
CLS
SHORTIES\CLOCK	This line can say anything - but for now PRESS ANY KEY
GOTO SHOR
:SHORU
SHORTIES\SOUND 3000 1 40 3000
GOTO SHOR2
:SHORD
SHORTIES\SOUND 1 3000 40 3000
GOTO SHOR2


:QUIT
IF EXIST EXTRA.BAT !\58 9
IF NOT EXIST EXTRA.BAT !\58 8
:QUIT2
!\GET
IF ERRORLEVEL 21 IF NOT ERRORLEVEL 22 GOTO QUITD
IF ERRORLEVEL 49 IF NOT ERRORLEVEL 50 GOTO MENU
IF ERRORLEVEL 45 IF NOT ERRORLEVEL 46 IF EXIST EXTRA.BAT EXTRA
IF ERRORLEVEL  1 IF NOT ERRORLEVEL  2 GOTO MENU
GOTO QUIT2
:QUITD
CLS
ECHO GOODBYE from SuperDisk 58 (July 1991)