echo off
set pg=
if %1x==x goto MENU
if exist %1.exe goto CHOOSER
goto %1
:DISK
set pg=bq
:DIVERTI
diverti1
diverti2
diverti3
diverti4
if %pg%!==bq! goto kpebach
goto FINIS
:KPEBACH
kpebach
if %pg%!==bq! goto scarlat
goto FINIS
:SCARLAT
scarlat1
scarlat6
scarlat7
if %pg%!==bq! goto zwei
goto FINIS
:ZWEI
zwei-one
zwei-two
goto FINIS
:DOS
REM  PG-BAROQ DOS plays all music files in DOS order.  That is to say:
REM  This option will play all .EXE files in the same directory.
REM  Use this option WITH CARE in directories containing
REM  non-music EXE files.
for %%Q IN (*.exe) DO %%Q
goto FINIS
:CHOOSER
%1
SHIFT
if %1c==c goto FINIS
goto CHOOSER
:MENU
cls
echo   ÿ
echo  WELCOME TO PIANOMAN GOES BAROQUE =====================================
echo  ÿ
echo   The PG-BAROQ command lets you to play the files in the PIANOMAN GOES
echo   BAROQUE collection by composer, the entire disk or your own choice of
echo   individual files in the order you select.  Enter:
echo   ÿ
echo   þ  PG-BAROQ DISK     for the entire PG Baroque disk (about 32 minutes).
echo  ÿ
echo   þ  PG-BAROQ DIVERTI  for Georg Christoph Wagenseil's Divertimento.
echo      PG-BAROQ SCARLAT  for three sonatas by Domenico Scarlatti.
echo      PG-BAROQ KPEBACH  for "Rondo in B-flat" by K.P.E. Bach.
echo      PG-BAROQ ZWEI     for two fantasias by Georg Philipp Telemann.
echo    ÿ
echo    You may also use PG-BAROQ to specify your own combinations using 
echo    filenames (even other music files if they are in the same directory):
echo  ÿ
echo        PG-BAROQ  [filename1] [filename2] [filename3] . . .
echo  ÿ
echo        Example:  PG-BAROQ  diverti3 scarlat7 zwei-two wtc-2nd . . .
echo  ÿ
echo   PRESS F3 NOW, THEN ENTER YOUR CHOICE =================================
echo  ÿ
goto END
:FINIS
set pg=
cls
echo  ÿ
echo  ÿ
echo  ÿ
echo  ÿ
echo           How did you like Pianoman Goes Baroque?  
echo           Any comments?  Drop me a line -
echo  ÿ
echo  ÿ
echo               ðððððð    Nancy Moran                   ðððððð
echo               ðððððð    607 Park Avenue               ðððððð
echo               ðððððð    Baltimore, Maryland  21201    ðððððð
echo               ðððððð    U.S.A.                        ðððððð
echo  ÿ
echo  ÿ
:END