// +----------------------------------------------+ //
// |  Copyright©2008, Steven Douglas Huddleston   | //
// |             All Rights Reserved              | //
// | No portion of this code can be copied, used, | //
// | published or reproduced in any way without   | //
// | the expressed written consent of the author. | //
// +----------------------------------------------+ //

var CURmusic = 0;
var MAXmusic = selectmusic(-1);  // Counts Total Number of Items

function getmusic(stype) {
     // ------------ //
     //  Initialize  //
     // ------------ //
     rectyp=1;                   // 0=Books 1=Music 2=Video
     FMT='CD';
     divdr='<br>';
     if (stype !== 0) {pauserec(0);}
     // ------------------ //
     //  Selection Engine  //
     // ------------------ //
     switch (stype) {
          case -1: if (CURmusic == 1) {CURmusic = MAXmusic;} else {CURmusic--;}; break; // Sequential Forward
          case  0: CURmusic = Math.ceil(Math.random() * MAXmusic); break;               // Random
          case  1: if (CURmusic == MAXmusic) {CURmusic = 1} else {CURmusic++;}; break;} // Sequential Backward

     if (stype !== 0) {status = 'Showing #' + CURmusic + ' of ' + MAXmusic;}

     selectmusic(CURmusic);
     }

// -------------------------------------------------------------- //
//  --- ITEM INVENTORY --- ITEM INVENTORY --- ITEM INVENTORY ---  //
// -------------------------------------------------------------- //

function selectmusic(X) {I=0;

I++; if (X == I) {lnktxt='Children of the Sun' + divdr + 'Billy Thorpe';
                  szw='159'; szh='160';
                  asinid='B0000026AK';
                  return;}

I++; if (X == I) {lnktxt='Legend' + divdr + 'Bob Marley';
                  szw='160'; szh='160';
                  asinid='B0000669JL';
                  return;}

I++; if (X == I) {lnktxt='Against the Wind' + divdr + 'Bob Seger';
                  szw='160'; szh='160';
                  asinid='B00009QGDD';
                  return;}

I++; if (X == I) {lnktxt='Creedence Clearwater Revival' + divdr + 'Box Set';
                  szw='160'; szh='100';
                  asinid='B00005OM4K';
                  return;}

I++; if (X == I) {lnktxt='Love Over Gold' + divdr + 'Dire Straits';
                  szw='160'; szh='159';
                  asinid='B00004Y6NU';
                  return;}

I++; if (X == I) {lnktxt='Eagles Live';
                  szw='160'; szh='136';
                  asinid='B000002GXJ';
                  return;}

I++; if (X == I) {lnktxt='Out Of The Blue' + divdr + 'Electric Light Orchestra';
                  szw='160'; szh='160';
                  asinid='B0000025DV';
                  return;}

I++; if (X == I) {lnktxt='Emerson Lake & Palmer' + divdr + 'Works Vol. 1';
                  szw='160'; szh='159';
                  asinid='B0000033P4';
                  return;}

I++; if (X == I) {lnktxt='Just One Night' + divdr + 'Eric Clapton';
                  szw='160'; szh='160';
                  asinid='B000002G8L';
                  return;}

I++; if (X == I) {lnktxt='The Inter-Galactic' + divdr + 'Touring Band';
                  szw='160'; szh='160';
                  asinid='B00006IRLP';
                  return;}

I++; if (X == I) {lnktxt='In-A-Gadda-Da-Vida' + divdr + 'Iron Butterfly';
                  szw='160'; szh='145';
                  asinid='B0000033OB';
                  return;}

I++; if (X == I) {lnktxt='Running on Empty' + divdr + 'Jackson Browne';
                  szw='160'; szh='159';
                  asinid='B000002GW5';
                  return;}

I++; if (X == I) {lnktxt='Jesus Christ Superstar' + divdr + 'Original Recording Remastered';
                  szw='160'; szh='140';
                  asinid='B000BSM27U';
                  return;}
                  
I++; if (X == I) {lnktxt='Jesus Christ Superstar' + divdr + 'Motion Picture Soundtrack';
                  szw='160'; szh='160';
                  asinid='B0000062Y2';
                  return;}
                  
I++; if (X == I) {lnktxt='The Broadsword and the Beast' + divdr + 'Jetho Tull';
                  szw='159'; szh='160';
                  asinid='B000008H1S';
                  return;}

I++; if (X == I) {lnktxt='Songs From the Wood' + divdr + 'Jethro Tull';
                  szw='160'; szh='160';
                  asinid='B00008G9JN';
                  return;}

I++; if (X == I) {lnktxt='Leftoverture' + divdr + 'Kansas';
                  szw='160'; szh='160';
                  asinid='B00005JA2B';
                  return;}

I++; if (X == I) {lnktxt='Point Of Know Return' + divdr + 'Kansas';
                  szw='160'; szh='160';
                  asinid='B00005Y1M3';
                  return;}

I++; if (X == I) {lnktxt='Lynyrd Skynyrd' + divdr + 'Box Set';
                  szw='160'; szh='159';
                  asinid='B000002OHV';
                  return;}

I++; if (X == I) {lnktxt='M&eacute;xico Sinf&oacute;nico' + divdr + 'Huapango Moncayo';
                  szw='130'; szh='130';
                  asinid='B00000JC7T';
                  return;}

I++; if (X == I) {lnktxt='Dark Side of the Moon' + divdr + 'Pink Floyd';
                  szw='160'; szh='159';
                  asinid='B00008CLOA';
                  return;}

I++; if (X == I) {lnktxt='Pulse' + divdr + 'Pink Floyd';
                  szw='130'; szh='130';
                  asinid='B000008QMN';
                  return;}

I++; if (X == I) {lnktxt='The Wall' + divdr + 'Pink Floyd';
                  szw='160'; szh='141';
                  asinid='B000006TRV';
                  return;}

I++; if (X == I) {lnktxt='Wish You Were Here' + divdr + 'Pink Floyd';
                  szw='160'; szh='141';
                  asinid='B000024D4S';
                  return;}

I++; if (X == I) {lnktxt='Inner Secrets' + divdr + 'Santana';
                  szw='160'; szh='160';
                  asinid='B00004XPTT';
                  return;}

I++; if (X == I) {lnktxt='Oneness' + divdr + 'Santana';
                  szw='160'; szh='160';
                  asinid='B000007VCO';
                  return;}

I++; if (X == I) {lnktxt='Book of Dreams' + divdr + 'Steve Miller Band';
                  szw='160'; szh='160';
                  asinid='B00000DQT1';
                  return;}

I++; if (X == I) {lnktxt='Fly Like an Eagle' + divdr + 'Steve Miller Band';
                  szw='138'; szh='160';
                  asinid='B000007SIJ';
                  return;}

I++; if (X == I) {lnktxt='Pieces of Eight' + divdr + 'Styx';
                  szw='159'; szh='160';
                  asinid='B000002GBB';
                  return;}

I++; if (X == I) {lnktxt='Who Are You' + divdr + 'The Who';
                  szw='160'; szh='159';
                  asinid='B000002P2V';
                  return;}

I++; if (X == I) {lnktxt='Yes Album' + divdr + 'Yes';
                  szw='160'; szh='160';
                  asinid='B00007KWHN';
                  return;}

I++; if (X == I) {lnktxt='Fragile' + divdr + 'Yes';
                  szw='160'; szh='160';
                  asinid='B00007KWHP';
                  return;}

I++; if (X == I) {lnktxt='Close to the Edge' + divdr + 'Yes';
                  szw='160'; szh='142';
                  asinid='B00007LTI9';
                  return;}

I++; if (X == I) {lnktxt='Tales From Topographic' + divdr + 'Oceans (Remastered)';
                  szw='160'; szh='143';
                  asinid='B00007LTIA';
                  return;}

if (X == -1) return I;}