echo off
if %1x==x goto MENU
if exist %1.exe goto CHOOSER
goto %1
:DISK
:1
2p-inv1
3p-inv1
allemand
wtc-1st
if (%1)==(1) goto FINIS
:2
2p-inv2
3p-inv2
bourree
wtc-2nd
if (%1)==(2) goto FINIS
:3
2p-inv3
3p-inv3
courante
wtc-3rd
goto FINIS
:INVENTIONS
2p-inv1
2p-inv2
2p-inv3
3p-inv1
3p-inv2
3p-inv3
goto FINIS
:ABC
allemand
bourree
courante
goto FINIS
:CLAVIER
wtc-1st
wtc-2nd
wtc-3rd
goto FINIS
:DOS
REM  PLAYBACH DOS plays all music files in DOS order.  That is:
REM  This option will play all .EXE files in the same directory.
REM  Use this option WITH CARE in directories containing non-music EXE files.
for %%B IN (*.exe) DO %%B
goto FINIS
:CHOOSER
%1
SHIFT
if %1c==c goto FINIS
goto CHOOSER
:MENU
cls
echo   ÿ
echo    PIANOMAN GOES BACH ===============================================
echo  ÿ
echo     Directions for using the PLAYBACH command.  Enter:
echo    ÿ
echo     þ  PLAYBACH DISK  To play all twelve selections (about 28 minutes).
echo  ÿ
echo     þ  PLAYBACH 1   ³ To play one two part invention, one three part
echo        PLAYBACH 2   ³ invention, one dance piece and one selection 
echo        PLAYBACH 3   ³ from the Well Tempered Clavier.
echo    ÿ
echo     þ  PLAYBACH INVENTIONS - for all inventions one after the other.
echo        PLAYBACH ABC        - for the Allemande, Bourr‚e and Courante.
echo        PLAYBACH CLAVIER    - for the Preludes and Fugues from the
echo                              Well Tempered Clavier.
echo  ÿ
echo     You may also use PLAYBACH to specify your own combinations (including
echo     other music files in the same directory):
echo  ÿ
echo         PLAYBACH  [musicname1] [musicname2] [musicname3] . . .
echo  ÿ
echo    PRESS F3 NOW, THEN ENTER YOUR CHOICE ==================================
echo  ÿ
goto END
:FINIS
cls
echo  ÿ
echo  ÿ            How was the concert?  Drop me a line --
echo  ÿ
echo  ÿ
echo               ðððððð    Nancy Moran                   ðððððð
echo               ðððððð    607 Park Avenue               ðððððð
echo               ðððððð    Baltimore, Maryland  21201    ðððððð
echo  ÿ
echo  ÿ
:END
