echo off if exist 1st_noel.ply goto playsngs cls if "%1"=="PC" goto makepc if "%1"=="pc" goto makepc if "%1"=="XT" goto makext if "%1"=="xt" goto makext if "%1"=="AT" goto makeat if "%1"=="at" goto makeat if "%1"=="286" goto make286 if "%1"=="386" goto make386 goto noparam :makepc echo Compiling all songs... Please wait (Ctrl-C aborts)... for %%a in (1ST_NOEL BLUES FURELISE HOUSERIS INVENT03 INVENT04 INVENT08) do makepoly %%a /541 >nul echo Halfway done... for %%a in (INVENT13 INVENT14 PACHCAN RONDOCAR STLOUIS TRIPTEST MALAGUEN COME_ALL) do makepoly %%a /541 >nul echo. echo Press any key when ready to start the music... pause >nul goto playsngs :makext echo Compiling all songs... Please wait (Ctrl-C aborts)... for %%a in (1ST_NOEL BLUES FURELISE HOUSERIS INVENT03 INVENT04 INVENT08) do makepoly %%a >nul echo Halfway done... for %%a in (INVENT13 INVENT14 PACHCAN RONDOCAR STLOUIS TRIPTEST MALAGUEN COME_ALL) do makepoly %%a >nul echo. echo Press any key when ready to start the music... pause >nul goto playsngs :makeat echo Compiling all songs... Please wait (Ctrl-C aborts)... for %%a in (1ST_NOEL BLUES FURELISE HOUSERIS INVENT03 INVENT04 INVENT08) do makepoly %%a /251 >nul echo Halfway done... for %%a in (INVENT13 INVENT14 PACHCAN RONDOCAR STLOUIS TRIPTEST MALAGUEN COME_ALL) do makepoly %%a /251 >nul echo. echo Press any key when ready to start the music... pause >nul goto playsngs :make286 echo Compiling all songs... Please wait (Ctrl-C aborts)... for %%a in (1ST_NOEL BLUES FURELISE HOUSERIS INVENT03 INVENT04 INVENT08) do makepoly %%a /189 >nul echo Halfway done... for %%a in (INVENT13 INVENT14 PACHCAN RONDOCAR STLOUIS MALAGUEN COME_ALL) do makepoly %%a /189 >nul echo. echo Press any key when ready to start the music... pause >nul goto playsngs :make386 echo Compiling all songs... Please wait (Ctrl-C aborts)... for %%a in (1ST_NOEL BLUES FURELISE HOUSERIS INVENT03 INVENT04 INVENT08) do makepoly %%a /137 >nul echo Halfway done... for %%a in (INVENT13 INVENT14 PACHCAN RONDOCAR STLOUIS MALAGUEN COME_ALL) do makepoly %%a /137 >nul echo. echo Press any key when ready to start the music... pause >nul goto playsngs :playsngs rem To remonve any song from playing, delete its block from this file: cls echo The First Noel -- Traditional echo (Any key goes to next song, Ctrl-C stops batch file) playkb 1st_noel /s cls echo Funky Blues Jam -- I'm embarassed to say I wrote it echo 1. some walking bass blues echo 2. imitation In The Mood (big band) blues echo 3. variation on 2 echo 4. imitation Mississippi guitar strummin' blues echo 5. 4 with a cheap guitar solo echo (Any key goes to next song, Ctrl-C stops batch file) playkb blues /s cls echo Fur Elise -- Ludwig Van Beethoven echo (Any key goes to next song, Ctrl-C stops batch file) playkb furelise /s cls echo House of The Rising Sun -- (Just a little arppeggiation) echo (Any key goes to next song, Ctrl-C stops batch file) playkb houseris /s cls echo Here are some Two Part Inventions by J. S. Bach: echo [These pieces courtesy Richard Pierce; Howdy, Richard!] echo (Any key goes to next song, Ctrl-C stops batch file) echo Invention 03 playkb invent03 /s echo Invention 04 playkb invent04 /s echo Invention 08 -- a more famous one playkb invent08 /s echo Invention 13 -- the most famous one! playkb invent13 /s echo Invention 14 -- the last one (whew!) playkb invent14 /s cls echo Pachelbel's Canon -- Simplified for piano echo (Any key goes to next song, Ctrl-C stops batch file) playkb pachcan /s cls echo Carulli's Rondo for the Classical Guitar echo [Pieces written for the Guitar are well suited for three voice music] echo (Any key goes to next song, Ctrl-C stops batch file) playkb rondocar /s cls echo St. Louis Blues -- W. C. Handy echo [Upbeat blues/ragtime also sounds good on your PC] echo (Any key goes to next song, Ctrl-C stops batch file) playkb stlouis /s cls echo Malague¤a -- for piano by Isaac Alb‚niz echo (Any key goes to next song, Ctrl-C stops batch file) playkb malaguen /s cls echo O Come All Ye Faithful -- Traditional echo [Happy Christmas!] echo (Any key goes to next song, Ctrl-C stops batch file) playkb come_all /s goto playsngs :noparam echo PLAYALL.BAT -- Jukebox program that plays all the .SNG files echo included with the Polyphonic Music 1.20 package echo. echo Usage: playall [computer_type] echo. echo Where: [computer_type] = PC, XT, AT, 286, 386 echo (use the 286 & 386 for speed-up boards as well) echo.