ECHO OFF
SUPPORT\UNSNAP SUPPORT\SCREENS /N14
SUPPORT\WELCOME
:MENU
SUPPORT\UNSNAP SUPPORT\SCREENS /N14
SUPPORT\GET
IF ERRORLEVEL 51 GOTO MENU
IF ERRORLEVEL 50 GOTO MAGNEWS   rem M   *
IF ERRORLEVEL 36 GOTO MENU
IF ERRORLEVEL 35 GOTO HELPS     rem H   *
IF ERRORLEVEL 34 GOTO GAMES     rem G   *
IF ERRORLEVEL 33 GOTO MENU
IF ERRORLEVEL 32 GOTO DGEDIT    rem D   *
IF ERRORLEVEL 31 GOTO SHORT     rem S   *
IF ERRORLEVEL 23 GOTO MENU
IF ERRORLEVEL 22 GOTO UTILS     rem U   *
IF ERRORLEVEL 2  GOTO MENU
IF ERRORLEVEL 1  GOTO QUITS     rem ESC *
GOTO MENU

:MAGNEWS
SUPPORT\UNSNAP SUPPORT\SCREENS /N3
SUPPORT\GET
IF ERRORLEVEL 68 GOTO MAGNEWS
IF ERRORLEVEL 67 GOTO MENU      rem F9 - out
IF ERRORLEVEL 60 GOTO MAGNEWS
IF NOT ERRORLEVEL 59 GOTO MAGNEWS
SUPPORT\PLWAIT
FOR %%A IN (MAGAZINE\SD*.COM) DO %%A
SUPPORT\UNSNAP SUPPORT\SCREENS /N14
GOTO MAGNEWS

:HESHOW
SUPPORT\F1HELP
:HELPS
IF EXIST     EXTRA.BAT SUPPORT\UNSNAP SUPPORT\SCREENS /N1
IF NOT EXIST EXTRA.BAT SUPPORT\UNSNAP SUPPORT\SCREENS /N2
SUPPORT\GET
IF ERRORLEVEL 68 GOTO HELPS
IF ERRORLEVEL 67 GOTO MENU      rem F9 - out
IF ERRORLEVEL 61 GOTO HELPS
IF ERRORLEVEL 60 GOTO EXTRA
IF ERRORLEVEL 59 GOTO HESHOW    rem F1 - show
GOTO MENU
:EXTRA
IF EXIST EXTRA.BAT EXTRA
GOTO MENU

:GAMES0
SUPPORT\UNSNAP SUPPORT\SCREENS /N14
:GAMES
SUPPORT\UNSNAP SUPPORT\SCREENS /N10
:GAMES2
SUPPORT\GET
IF ERRORLEVEL 68 GOTO GAMES
IF ERRORLEVEL 67 GOTO MENU      rem F9 - out
IF ERRORLEVEL 62 GOTO GAMES
IF ERRORLEVEL 61 GOTO GRENJU    rem F3
IF ERRORLEVEL 60 GOTO GQLIFE    rem F2
IF NOT ERRORLEVEL 59 GOTO GAMES
GAMES\SDQLIFE
GOTO GAMES2
:GQLIFE
GAMES\QLIFE
GOTO GAMES0
:GRENJU
CD GAMES
RENJU
CD ..
GOTO GAMES0

:SHORT
SUPPORT\UNSNAP SUPPORT\SCREENS /N5
SUPPORT\GET
IF ERRORLEVEL 68 GOTO SHORT
IF ERRORLEVEL 67 GOTO MENU      rem F9 - out
IF ERRORLEVEL 60 GOTO SHORT
IF NOT ERRORLEVEL 59 GOTO SHORT rem F1 - show
SUPPORT\PLWAIT
SHORTIES\BELL
SHORTIES\SDBELL
SHORTIES\BELL
FOR %%A IN (SHORTIES\SDL*.COM) DO %%A
SUPPORT\UNSNAP SUPPORT\SCREENS /N14
GOTO SHORT

:UTILS
SUPPORT\UNSNAP SUPPORT\SCREENS /N6
SUPPORT\GET
IF ERRORLEVEL 68 GOTO UTILS
IF ERRORLEVEL 67 GOTO MENU      rem F9 - out
IF ERRORLEVEL 60 GOTO UTILS
IF NOT ERRORLEVEL 59 GOTO UTILS rem F1 - show
SUPPORT\PLWAIT
FOR %%A IN (UTILS\SD*.COM) DO %%A
SUPPORT\UNSNAP SUPPORT\SCREENS /N14
GOTO UTILS

:WKSHOP
SUPPORT\UNSNAP SUPPORT\SCREENS /N7
SUPPORT\GET
IF ERRORLEVEL 68 GOTO WKSHOP
IF ERRORLEVEL 67 GOTO MENU      rem F9 - out
IF ERRORLEVEL 60 GOTO WKSHOP
IF NOT ERRORLEVEL 59 GOTO WKSHOP rem F1 - show
SUPPORT\PLWAIT
FOR %%A IN (WORKSHOP\SD*.COM) DO %%A
SUPPORT\UNSNAP SUPPORT\SCREENS /N14
GOTO WKSHOP

:DGEDIT
SUPPORT\UNSNAP SUPPORT\SCREENS /N13
SUPPORT\GET
IF ERRORLEVEL 68 GOTO DGEDIT
IF ERRORLEVEL 67 GOTO MENU      rem F9 - out
IF ERRORLEVEL 62 GOTO DGEDIT
IF ERRORLEVEL 61 GOTO DGETOB    rem F3
IF ERRORLEVEL 60 GOTO DGETOA    rem F2
IF NOT ERRORLEVEL 59 GOTO DGEDIT
CLS
MD C:\DGEDIT
DGEDIT\DGEDIT C:\DGEDIT
GOTO DGENDED
:DGETOA
CLS
DGEDIT\DGEDIT A:\
GOTO DGENDED
:DGETOB
CLS
DGEDIT\DGEDIT B:\
:DGENDED
SUPPORT\UNSNAP SUPPORT\SCREENS /N14
SUPPORT\UNSNAP SUPPORT\SCREENS /N12
SUPPORT\GET
GOTO MENU

:QUITS
SUPPORT\UNSNAP SUPPORT\SCREENS /N4
SUPPORT\GET
IF ERRORLEVEL 50 GOTO QUITS
IF ERRORLEVEL 49 GOTO MENU      rem N - no
IF ERRORLEVEL 22 GOTO QUITS
IF NOT ERRORLEVEL 21 GOTO QUITS
CLS