// +----------------------------------------------+ //
// |  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 CURbook = 0;
var MAXbook = selectbook(-1);  // Counts Total Number of Items

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

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

     selectbook(CURbook);
     }

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

function selectbook(X) {I=0;

I++; if (X == I) {lnktxt='The Dragonriders of Pern' + divdr + 'By Anne McCaffrey';
                  szw='161'; szh='256';
                  asinid='0785729194';
                  return;}

I++; if (X == I) {lnktxt='Descarte\'s Error' + divdr + 'By Antonio Damasio';
                  szw='104'; szh='160';
                  asinid='014303622X';
                  return;}

I++; if (X == I) {lnktxt='Childhood\'s End' + divdr + 'By Arthur C. Clarke';
                  szw='107'; szh='160';
                  asinid='0345444051';
                  return;}

I++; if (X == I) {lnktxt='Atlas Shrugged' + divdr + 'By Ayn Rand';
                  szw='90'; szh='136';
                  asinid='0525934189';
                  return;}

I++; if (X == I) {lnktxt='The Fountainhead' + divdr + 'By Ayn Rand';
                  szw='94'; szh='140';
                  asinid='0452283760';
                  return;}

I++; if (X == I) {lnktxt='The Virtue of Selfishness' + divdr + 'By Ayn Rand';
                  szw='98'; szh='160';
                  asinid='0451163931';
                  return;}

I++; if (X == I) {lnktxt='Earth Abides' + divdr + 'By George R. Stewart';
                  szw='154'; szh='231';
                  asinid='0345487133';
                  return;}

I++; if (X == I) {lnktxt='The Shadow out of Time: (Corrected)' + divdr + 'By H. P. Lovecraft';
                  szw='154'; szh='240';
                  asinid='0967321530';
                  return;}

I++; if (X == I) {lnktxt='Moby Dick' + divdr + 'By Herman Melville';
                  szw='106'; szh='160';
                  asinid='0679600108';
                  return;}

I++; if (X == I) {lnktxt='Nightfall' + divdr + 'By Isaac Asimov';
                  szw='105'; szh='160';
                  asinid='0385263414';
                  return;}

I++; if (X == I) {lnktxt='The Positronic Man' + divdr + 'By Isaac Asimov';
                  szw='161'; szh='240';
                  asinid='0385263422';
                  return;}

I++; if (X == I) {lnktxt='Gulliver\'s Travels' + divdr + 'By Jonathan Swift';
                  szw='100'; szh='140';
                  asinid='0448060108';
                  return;}

I++; if (X == I) {lnktxt='The Road Less Traveled' + divdr + 'By M. Scott Peck, M.D.';
                  szw='88'; szh='140';
                  asinid='0743238257';
                  return;}

I++; if (X == I) {lnktxt='I Am Legend' + divdr + 'By Richard Matheson';
                  szw='91'; szh='140';
                  asinid='0613256182';
                  return;}

I++; if (X == I) {lnktxt='Treasure Island' + divdr + 'By Robert Louis Stevenson';
                  szw='123'; szh='160';
                  asinid='0684171600';
                  return;}

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