ECHO OFF
!\unsnap screen61.cmp /n2
sspeak
:MENU
!\unsnap screen61.cmp /n2
!\GET
IF ERRORLEVEL 59 IF NOT ERRORLEVEL 60 GOTO HELP
IF ERRORLEVEL 60 IF NOT ERRORLEVEL 61 GOTO WBASIC
IF ERRORLEVEL 61 IF NOT ERRORLEVEL 62 GOTO GAMES
IF ERRORLEVEL 62 IF NOT ERRORLEVEL 63 GOTO UTILS
IF ERRORLEVEL 63 IF NOT ERRORLEVEL 64 GOTO SHORTIES
IF ERRORLEVEL 64 IF NOT ERRORLEVEL 65 GOTO MAGAZINE
REM IF ERRORLEVEL 65 IF NOT ERRORLEVEL 66 GOTO WORDSTAR
IF ERRORLEVEL  1 IF NOT ERRORLEVEL  2 GOTO QUIT
GOTO MENU


:HELP
!\UNSNAP SCREEN61.CMP /N3
:HELP2
!\GET
IF ERRORLEVEL 28 IF NOT ERRORLEVEL 29 GOTO MENU
GOTO :HELP2


:WBASIC
!\UNSNAP SCREEN61.CMP /N4
:WBASIC2
!\GET
IF ERRORLEVEL 59 IF NOT ERRORLEVEL 60 GOTO WBASICHELP
IF ERRORLEVEL 60 IF NOT ERRORLEVEL 61 GOTO INSTALL
IF ERRORLEVEL 28 IF NOT ERRORLEVEL 29 GOTO MENU
GOTO WBASIC2

:INSTALL
CLS
ECHO Installing Aurora Basic files on drive C: in C:\WBASIC
ECHO This installation needs 900K of free disk space
ECHO To continue with installation press RETURN
ECHO Any other key takes you back to the Main Menu
!\GET
IF ERRORLEVEL 28 IF NOT ERRORLEVEL 29 GOTO RUNIT
GOTO MENU
:RUNIT
MD C:\WBASIC
C:
CD \WBASIC
A:\WBASIC\AURORA
A:
ECHO.
ECHO File installation is now complete (if no error messages)
ECHO.
ECHO The Aurora files have now been unarchived to C:\WBASIC.
ECHO However, you cannot run Aurora Basic until you complete 
ECHO the installation as detailed in the Aurora Basic tutorial.
ECHO To do this you must quit the SuperDisk
ECHO Press any key to continue
!\GET
GOTO MENU


:WBASICHELP
!\UNSNAP SCREEN61.CMP /N5
:WBH2
!\GET
IF ERRORLEVEL 28 IF NOT ERRORLEVEL 29 GOTO WBASIC
GOTO WBH2


:GAMES
!\UNSNAP SCREEN61.CMP /N6
:GAME2
!\GET
IF ERRORLEVEL 60 IF NOT ERRORLEVEL 61 GOTO ORBY
IF ERRORLEVEL 61 IF NOT ERRORLEVEL 62 GOTO SOLIT
IF ERRORLEVEL 28 IF NOT ERRORLEVEL 29 GOTO MENU 
GOTO GAME2

:ORBY
CD \GAMES
ORBY
CD\
!\UNSNAP SCREEN61.CMP /N2 
!\UNSNAP SCREEN61.CMP /N6
GOTO GAME2

:SOLIT
CD\GAMES
SOLIT2
CD\
!\UNSNAP SCREEN61.CMP /N2
!\UNSNAP SCREEN61.CMP /N6
GOTO GAME2

:UTILS
!\UNSNAP SCREEN61.CMP /N7
:UTIL2
!\GET
IF ERRORLEVEL 60 IF NOT ERRORLEVEL 61 GOTO BIG
IF ERRORLEVEL 28 IF NOT ERRORLEVEL 29 GOTO MENU 
GOTO UTIL2


:BIG
CD\UTILS
BIG BIG.DEM
CD\
!\UNSNAP SCREEN61.CMP /N2
!\UNSNAP SCREEN61.CMP /N7
GOTO UTIL2


:SHORTIES
!\UNSNAP SCREEN61.CMP /N8
:SHORT2
!\GET
IF ERRORLEVEL 60 IF NOT ERRORLEVEL 61 GOTO CHORD
IF ERRORLEVEL 61 IF NOT ERRORLEVEL 62 GOTO FCLS
IF ERRORLEVEL 28 IF NOT ERRORLEVEL 29 GOTO MENU
GOTO SHORT2

:CHORD
\SHORTIES\CHORD
!\UNSNAP SCREEN61.CMP /N2 
!\UNSNAP SCREEN61.CMP /N8
GOTO SHORT2

:FCLS
\SHORTIES\FCLS 3
!\UNSNAP SCREEN61.CMP /N2
!\UNSNAP SCREEN61.CMP /N8
GOTO SHORT2




:MAGAZINE
!\UNSNAP SCREEN61.CMP /N9
:MAG2
!\GET
IF ERRORLEVEL 28 IF NOT ERRORLEVEL 29 GOTO MENU
GOTO MAG2


:WORDSTAR
!\UNSNAP SCREEN61.CMP /N20
!\GET
IF ERRORLEVEL 60 IF NOT ERRORLEVEL 61 GOTO WORDRUN
IF ERRORLEVEL 28 IF NOT ERRORLEVEL 29 GOTO MENU

:WORDRUN
CD\WORDSTAR
WORDSTAR
CD\
GOTO MENU


:QUIT
CLS
echo Sound courtesy of Quantech 091-228 0513
echo.
ECHO Goodbye from SuperDisk 61