function putphoto(area) {
/* AREA = 0 --> Create The Four For The Index */
/* AREA = 1 --> Photography - New Forest */
/* AREA = 2 --> Photography - Landscapes */
/* AREA = 3 --> Photography - Places     */
/* AREA = 4 --> Photography - People     */
/* AREA = 5 --> Abba        - Artwork    */
/* AREA = 6 --> Abba        - Records    */
/* AREA = 7 --> Abba        - Events     */
/* AREA = 8 --> Records     - Pic Discs  */
/* AREA = 9 --> Games       - Chips      */ /* if add more - add classtouse entry */

/* OPERATION = 0 --> Thumbnails */
/* OPERATION = 1 --> Single picture, large for page itself */
/* OPERATION = 2 --> Previous picture, small (for top right of page) */
/* OPERATION = 3 --> Next picture, small     (for top right of page) */

/* PHOTONUM  = n --> Start point for Thumbnails, or base for Single/Prev/Next picture */

/* Define arrays used */
/* ------------------ */

   var startofset = new Array();
   var endofset   = new Array();
   var picname    = new Array();
   var pictitle   = new Array();
   var picstyle   = new Array();
   var picdesc    = new Array();
   var picnum     = new Array();
   var picnumpos  = new Array();
   var classtouse = new Array();
   var classtouse = new Array();
   var widthneeded;
   var pixperline;
   var i;
   var n;
   var noofsets;
   var noofchoices;    /* No of landscapes could be chosen for index page */

/* Constants */
/* --------- */

   quot = '"';
   lnds = 1; /* Landscape */
   port = 2; /* Porttrait */
   sqre = 3  /* square    */
   udef = 0; /* Undefined */
   pixperline = 7; /* how many pictures per line across */

/* Initialise arrays of picture details */
/* ------------------------------------ */
   classtouse[1]="HD1";
   classtouse[2]="HD1";
   classtouse[3]="HD1";
   classtouse[4]="HD1";
   classtouse[5]="HD2";
   classtouse[6]="HD2";
   classtouse[7]="HD2";
   classtouse[8]="HD3";
   classtouse[9]="HD4";

/* Note pictures should be in "images" folder and thumbnails in "thumbs" folder */

   n=0;
   m=0;
   noofchoices=0;

/* Photography - New Forest */
/* ------------------------ */
   if (area==1) {noofsets=0; n=0; pixperline=4;};
   noofsets=noofsets+1; startofset[noofsets]=n+1;
   n=n+1; picname[n]="phnf-deer1468.jpg"; pictitle[n]="Deer in New Forest"; picstyle[n]=lnds;
   n=n+1; picname[n]="phnf-deeratsunset1576.jpg"; pictitle[n]="Deer in New Forest"; picstyle[n]=lnds;
   n=n+1; picname[n]="phnf-deerD0560.jpg"; pictitle[n]="Deer in New Forest"; picstyle[n]=lnds; 
   n=n+1; picname[n]="phnf-horseD0388.jpg"; pictitle[n]="Horse in New Forest"; picstyle[n]=lnds;
   n=n+1; picname[n]="phnf-horseD1014.jpg"; pictitle[n]="Horse at sunset"; picstyle[n]=lnds; 
   n=n+1; picname[n]="phnf-horses9265.jpg"; pictitle[n]="Horses on moorland"; picstyle[n]=lnds;
   n=n+1; picname[n]="phnf-horsesenset1663.jpg"; pictitle[n]="Horse at sunset"; picstyle[n]=lnds;
   n=n+1; picname[n]="phnf-house9064.jpg"; pictitle[n]="Many lovely houses in New Forest"; picstyle[n]=lnds;
   n=n+1; picname[n]="phnf-landscape8815.jpg"; pictitle[n]="New Forest in sunshine"; picstyle[n]=lnds;
   n=n+1; picname[n]="phnf-path9107.jpg"; pictitle[n]="Path in New Forest"; picstyle[n]=lnds;
   n=n+1; picname[n]="phnf-ponyD0245.jpg"; pictitle[n]="Young pony in New Forest"; picstyle[n]=lnds;
   n=n+1; picname[n]="phnf-running horse8925.jpg"; pictitle[n]="Horse runs to help out its mate"; picstyle[n]=lnds;
   n=n+1; picname[n]="phnf-sevendeer1485.jpg"; pictitle[n]="Family of Deer"; picstyle[n]=lnds;
   n=n+1; picname[n]="phnf-sunset9680.jpg"; pictitle[n]="Sunset through the trees"; picstyle[n]=lnds;
   n=n+1; picname[n]="phnf-sunset9734.jpg"; pictitle[n]="Sunset in New Forest"; picstyle[n]=lnds;
   n=n+1; picname[n]="phnf-sunset9766.jpg"; pictitle[n]="Sunset in New Forest"; picstyle[n]=lnds;
   n=n+1; picname[n]="phnf-whitehorse1300.jpg"; pictitle[n]="White horse in New Forest"; picstyle[n]=lnds;
   endofset[noofsets]=n;

   if (area==2) {noofsets=0; n=0; pixperline=4;};
   noofsets=noofsets+1; startofset[noofsets]=n+1;
   n=n+1; picname[n]="phls-valleyoffire4555.jpg";      pictitle[n]="Valley of Fire";                     picstyle[n]=lnds;
   n=n+1; picname[n]="phls-waterfall.jpg";             pictitle[n]="Waterfall in New South Wales";                     picstyle[n]=port;
   endofset[noofsets]=n;

   if (area==3) {noofsets=0; n=0; pixperline=4;};
   noofsets=noofsets+1; startofset[noofsets]=n+1;
   n=n+1; picname[n]="phpl-aysgarthfalls9518.jpg";     pictitle[n]="Aysgarth Falls";                     picstyle[n]=lnds; 
   n=n+1; picname[n]="phpl-boltonabbey8964.jpg";      pictitle[n]="Bolton Abbey";                   picstyle[n]=lnds;
   n=n+1; picname[n]="phpl-ingletonfalls9138.jpg";      pictitle[n]="Ingleton Waterfalls";                   picstyle[n]=port;
   n=n+1; picname[n]="phpl-keukenhof8721.jpg";      pictitle[n]="Keukenhof";                   picstyle[n]=port;
   n=n+1; picname[n]="phpl-keukenhof8771.jpg";      pictitle[n]="Keukenhof";                   picstyle[n]=lnds;
   n=n+1; picname[n]="phpl-keukenhof8791.jpg";      pictitle[n]="Keukenhof";                   picstyle[n]=lnds;
   n=n+1; picname[n]="phpl-keukenhof8809.jpg";      pictitle[n]="Keukenhof";                   picstyle[n]=lnds;
   n=n+1; picname[n]="phpl-keukenhof8818.jpg";      pictitle[n]="Keukenhof";                   picstyle[n]=lnds;
   n=n+1; picname[n]="phpl-lasvegas4484.jpg";      pictitle[n]="Las Vegas strip - near Excalibur";                   picstyle[n]=lnds;
   n=n+1; picname[n]="phpl-lewesfireworks2010D3284.jpg";      pictitle[n]="Lewes, Sussex - annual fireworks (2010)";                   picstyle[n]=lnds; 
   n=n+1; picname[n]="phpl-pragueatchristmas8361.jpg";      pictitle[n]="Prague's Christmas in snow";                   picstyle[n]=lnds; 
   n=n+1; picname[n]="phpl-praguesnow8402.jpg";      pictitle[n]="Prague's shopping centre in snow";                   picstyle[n]=lnds; 
   n=n+1; picname[n]="phpl-riverwyebenchD2771.jpg";      pictitle[n]="View over River Wye valley";                   picstyle[n]=lnds; 
   n=n+1; picname[n]="phpl-sculptures5140.jpg";      pictitle[n]="Scultptures NSW";                   picstyle[n]=lnds; 
   n=n+1; picname[n]="phpl-watersmeet7969.jpg";      pictitle[n]="Watersmeet in Devon";                   picstyle[n]=lnds;
   n=n+1; picname[n]="phpl-winchestercathedral3527.jpg";      pictitle[n]="Winchester Cathedral";                   picstyle[n]=port;
   n=n+1; picname[n]="phpl-yorkshiredales9078.jpg";      pictitle[n]="Yorkshire Dales";                   picstyle[n]=lnds;
   n=n+1; picname[n]="phpl-yorkshiredales9385.jpg";      pictitle[n]="Yorkshire Dales";                   picstyle[n]=port;
   n=n+1; picname[n]="phpl-yorkshiredales9656.jpg";      pictitle[n]="Yorkshire Dales";                   picstyle[n]=lnds;
   endofset[noofsets]=n;

   if (area==4) {noofsets=0; n=0; pixperline=4;};
   noofsets=noofsets+1; startofset[noofsets]=n+1;
   n=n+1; picname[n]="phpe-hampshirecricketD2189.jpg";  pictitle[n]="Cricket at Rose Bowl";                   picstyle[n]=lnds;
   n=n+1; picname[n]="phpe-weisbadenchess.jpg";         pictitle[n]="Playing chess in the park";                   picstyle[n]=port;
   n=n+1; picname[n]="phpe-pokergirls3cards13ac.jpg";      pictitle[n]="Girls play poker";                   picstyle[n]=lnds;
   n=n+1; picname[n]="phpe-saintsmanuF0135.jpg";      pictitle[n]="Saints vs Manchester United in FA Cup";                   picstyle[n]=lnds;
   n=n+1; picname[n]="phpe-saintspompey1855.jpg";      pictitle[n]="Saints vs Pompey";                   picstyle[n]=lnds; 
   endofset[noofsets]=n;

   if (area==5) {noofsets=0; n=0; pixperline=4;};
   noofsets=noofsets+1; startofset[noofsets]=n+1;
   n=n+1; picname[n]="abph-art-AF02-newforest.jpg";    pictitle[n]="Agnetha in New Forest";                        picstyle[n]=lnds;
   n=n+1; picname[n]="abph-art-AF45-sweet-shop.jpg";   pictitle[n]="Agnetha at oldest sweet shop in England";      picstyle[n]=lnds;
   n=n+1; picname[n]="abph-art-AF48- sydney.jpg";      pictitle[n]="Agnetha visits Sydney just after sunset";      picstyle[n]=lnds;
   n=n+1; picname[n]="abph-art-AF-blickling.jpg";      pictitle[n]="Agnetha in front of Blickling gardens";        picstyle[n]=lnds;
   n=n+1; picname[n]="abph-art-aysgarthfalls.jpg";     pictitle[n]="Abba at Aysgarth Falls Yorkshire";             picstyle[n]=lnds;
   n=n+1; picname[n]="abph-art-autumnnewforest.jpg";   pictitle[n]="Abba‘s Ring Ring Outfit";                picstyle[n]=lnds;
   n=n+1; picname[n]="abph-art-daffodilsdeer.jpg";     pictitle[n]="Abba with some Welsh deer";                    picstyle[n]=lnds;
   n=n+1; picname[n]="abph-art-dublinbar.jpg";         pictitle[n]="Abba girls visit Temple Bar, Dublin";          picstyle[n]=lnds;
   n=n+1; picname[n]="abph-art-ingletonfalls.jpg";     pictitle[n]="Abba in front of Ingleton Falls";              picstyle[n]=lnds;
   n=n+1; picname[n]="abph-art-intermezzosunset.jpg";  pictitle[n]="Abba against autumn sunset";                   picstyle[n]=lnds;
   n=n+1; picname[n]="abph-art-keukenhof.jpg";         pictitle[n]="Abba visit Keukenhof in spring";               picstyle[n]=lnds;
   n=n+1; picname[n]="abph-art-margateboat.jpg";       pictitle[n]="Abba on board large ship rigging";             picstyle[n]=lnds;
   n=n+1; picname[n]="abph-art-newforest.jpg";         pictitle[n]="Abba standing in the shadows";                 picstyle[n]=lnds;
   n=n+1; picname[n]="abph-art-newforestjeans.jpg";    pictitle[n]="Abba standing in New Forest";                  picstyle[n]=lnds;
   n=n+1; picname[n]="abph-art-newforestsunset.jpg";   pictitle[n]="Abba White suits against sunset";              picstyle[n]=lnds;
   n=n+1; picname[n]="abph-art-newforestwalk.jpg";     pictitle[n]="Abba resting in New Forest";                   picstyle[n]=lnds;
   n=n+1; picname[n]="abph-art-NISteps.jpg";           pictitle[n]="Abba on Giants Causeway";                      picstyle[n]=lnds;
   n=n+1; picname[n]="abph-art-pinksunset.jpg";        pictitle[n]="Abba in pink";                                 picstyle[n]=lnds;
   n=n+1; picname[n]="abph-art-riverwye.jpg";          pictitle[n]="Abba near Wye Valley";                         picstyle[n]=lnds;
   n=n+1; picname[n]="abph-art-tinternstation.jpg";    pictitle[n]="Abba at Tintern Station";                      picstyle[n]=lnds;
   n=n+1; picname[n]="abph-art-valleyoffire.jpg";      pictitle[n]="Abba in Valley of Fire, Nevada";               picstyle[n]=lnds;
   n=n+1; picname[n]="abph-art-viennasnow.jpg";        pictitle[n]="Abba in Vienna during December";               picstyle[n]=lnds;
   n=n+1; picname[n]="abph-art-violets.jpg";           pictitle[n]="Abba relax in field";                          picstyle[n]=lnds;
   n=n+1; picname[n]="abph-art-AB45-outback.jpg";      pictitle[n]="Abba in Australian Outback";                   picstyle[n]=lnds;
   n=n+1; picname[n]="abph-art-violetsindublin.jpg";   pictitle[n]="Abba in Dublin‘s park";                  picstyle[n]=lnds;
   endofset[noofsets]=n;

   if (area==7) {noofsets=0; n=0; pixperline=4;};
   noofsets=noofsets+1; startofset[noofsets]=n+1;
   n=n+1; picname[n]="abev-abbaworld0042.jpg"; pictitle[n]="AbbaWorld - Waterloo room"; picstyle[n]=lnds;
   n=n+1; picname[n]="abev-abbaworld7821.jpg"; pictitle[n]="AbbaWorld - Frida and Agnetha before Abba"; picstyle[n]=lnds;
   n=n+1; picname[n]="abev-abbaworld8069.jpg"; pictitle[n]="AbbaWorld - Costumes room"; picstyle[n]=lnds;
   n=n+1; picname[n]="abev-abbaworld8091.jpg"; pictitle[n]="AbbaWorld - Wall of pictures"; picstyle[n]=lnds;
   n=n+1; picname[n]="abev-abbaworld8575.jpg"; pictitle[n]="AbbaWorld - Bjorn Ulvaeus at London gala evening"; picstyle[n]=lnds;
   n=n+1; picname[n]="abev-abbaworld8596.jpg"; pictitle[n]="AbbaWorld - Annifrid Lyngstad and Bjorn Ulvaeus arrive"; picstyle[n]=lnds;
   n=n+1; picname[n]="abev-gyorabbaworld(8024).jpg"; pictitle[n]="AbbaWorld - snowing outside Gyor"; picstyle[n]=lnds;
   endofset[noofsets]=n;

   if (area==8) {noofsets=0; n=0; pixperline=4;};
   noofsets=noofsets+1; startofset[noofsets]=n+1;
   n=n+1; picname[n]="rxpd-abba06.jpg"; pictitle[n]="Abba  SLIPPING THROUGH MY FINGERS"; picstyle[n]=sqre;
   n=n+1; picname[n]="rxpd-carspicturedisc.jpg"; pictitle[n]="Cars  MY BEST FRIEND'S GIRL"; picstyle[n]=sqre;
   endofset[noofsets]=n;

   if (area==9) {noofsets=0; n=0; pixperline=4;};
   noofsets=noofsets+1; startofset[noofsets]=n+1;
   n=n+1; picname[n]="ch_gr100a.jpg"; pictitle[n]="Grosvenor £100"; picstyle[n]=sqre;
   n=n+1; picname[n]="ch_lw5aug97.jpg"; pictitle[n]="Grosvenor £5 from Southampton"; picstyle[n]=sqre;
   n=n+1; picname[n]="gmch-0001.jpg"; pictitle[n]="One Euro chip from Monte Carlo"; picstyle[n]=sqre;
   n=n+1; picname[n]="gmch-0002.jpg"; pictitle[n]="Millennium chip from Colorado"; picstyle[n]=sqre;
   n=n+1; picname[n]="gmch-0003.jpg"; pictitle[n]="Promotional chip used when Super Pan 9 was introduced"; picstyle[n]=sqre;
   n=n+1; picname[n]="gmch-0004.jpg"; pictitle[n]="£2 metal chip celebrating the millennium"; picstyle[n]=sqre;
   n=n+1; picname[n]="gmch-0005.jpg"; pictitle[n]="Promotional chip from Stanleys for poker progressive"; picstyle[n]=sqre;
   n=n+1; picname[n]="gmch-0006.jpg"; pictitle[n]="Chip from Hard Rock Casino (London and Manchester)"; picstyle[n]=sqre;
   n=n+1; picname[n]="gmch-0007.jpg"; pictitle[n]="20p chip from the dice table at Victoria casino London"; picstyle[n]=sqre;
   n=n+1; picname[n]="gmch-0008.jpg"; pictitle[n]="Unusual denomination of $3 from Palace Station Las Vegas"; picstyle[n]=sqre;
   n=n+1; picname[n]="gmch-0009.jpg"; pictitle[n]="Set of chips featuring racing"; picstyle[n]=sqre;
   n=n+1; picname[n]="gmch-0010.jpg"; pictitle[n]="Annabelles Casino used to be a small chain, also in Swansea"; picstyle[n]=sqre;
   n=n+1; picname[n]="gmch-0011.jpg"; pictitle[n]="Belgian chip before the Euro"; picstyle[n]=sqre;
   n=n+1; picname[n]="gmch-0012.jpg"; pictitle[n]="German chip from roulette"; picstyle[n]=sqre;
   endofset[noofsets]=n;

   for (i=1; i<=n; i++)  /* create table with n columns */   
         {
         picdesc[i]=pictitle[i]; if (picstyle[i]==lnds) {noofchoices=noofchoices+1; picnumpos[noofchoices]=i;};
         };                            


   quot = '"';
   
   if (area==0) {
/* Select photos for the index */
/* --------------------------- */
   var today = new Date();
   var Year = today.getYear();
   Year = Year % 100;
   var Mnth = today.getMonth();
   var Days = today.getDate();
   var Hour = today.getHours();
   var Mins = today.getMinutes();
   var Secs = today.getSeconds();
   var Msec = today.getMilliseconds();
   YR2 = Year % 10 + 1; YR1 = (Year - YR2 + 1)/10 + 1; 
   MN2 = Mnth % 10 + 1; MN1 = (Mnth - MN2 + 1)/10 + 1; 
   DY2 = Days % 10 + 1; DY1 = (Days - DY2 + 1)/10 + 1; 
   HR2 = Hour % 10 + 1; HR1 = (Hour - HR2 + 1)/10 + 1; 
   MN2 = Mins % 10 + 1; MN1 = (Mins - MN2 + 1)/10 + 1; 
   SC2 = Secs % 10 + 1; SC1 = (Secs - SC2 + 1)/10 + 1;
   MS3 = Msec % 10 + 1; MS2 = (Msec % 100 / 10)+1; MS1 = Msec-100*(MS3-1)-10*(MS2-1);

/* select different pictures - so pick one - swap it with last entry - and reduce noofchoices by 1 */
   n = (Year + Mnth + Days + Hour + Mins + Secs + Msec) % noofchoices + 1;
   picnum[1] = picnumpos[n]; picnumpos[n]=picnumpos[noofchoices]; noofchoices=noofchoices-1;
   n = (Year + 2*Mnth + 3*Days + 7*Hour + 11*Mins + 13*Secs + 17*Msec) % noofchoices + 1;
   picnum[2] = picnumpos[n]; picnumpos[n]=picnumpos[noofchoices]; noofchoices=noofchoices-1;
   n = (Year + 3*Mnth + 7*Days + 5*Hour + 17*Mins + 13*Secs + 11*Msec) % noofchoices + 1;
   picnum[3] = picnumpos[n]; picnumpos[n]=picnumpos[noofchoices]; noofchoices=noofchoices-1;
   n = (Year + 5*Mnth + 3*Days + 2*Hour + 5*Mins + 4*Secs + Msec) % noofchoices + 1;
   picnum[4] = picnumpos[n]; picnumpos[n]=picnumpos[noofchoices]; noofchoices=noofchoices-1;

   line="<TABLE $HEIGHT=409 WIDTH=100% CELLPADDING=0 CELLSPACING=0 VALIGN=TOP><!using HEIGHT centres the text vertically>"; document.write(line);
   line="      <TR><! line>"; document.write(line);
   line="            <TD></TD>"; document.write(line);
   line="            <TD COLSPAN=7><TABLE WIDTH=100% CELLSPACING=0 CELLPADDING=0 BORDER=0><TR><TD HEIGHT=2 BGCOLOR="+quot+"#002040"+quot+"></TD></TR></TABLE></TD>"; document.write(line);
   line="            <TD></TD>"; document.write(line);
   line="            </TR>"; document.write(line);
   line="         <TR><! line>"; document.write(line);
   line="            <TD COLSPAN=9 BGCOLOR="+quot+"#250808"+quot+"><CENTER><A CLASS="+quot+"TX9"+quot+">Some of my photographs</A></CENTER></TD>"; document.write(line);
   line="            </TR>"; document.write(line);
   line="         <TR><! line>"; document.write(line);
   line="            <TD></TD>"; document.write(line);
   line="            <TD COLSPAN=7><TABLE WIDTH=100% CELLSPACING=0 CELLPADDING=0 BORDER=0><TR><TD HEIGHT=2 BGCOLOR="+quot+"#002040"+quot+"></TD></TR></TABLE></TD>"; document.write(line);
   line="            <TD></TD>"; document.write(line);
   line="            </TR>"; document.write(line);
   line="         <TR>"; document.write(line);
   line="            <TD WIDTH=5></TD>"; document.write(line);
   line="            <TD WIDTH=49% COLSPAN=3 BGCOLOR="+quot+"#401010"+quot+"><CENTER><A CLASS="+quot+"HD1"+quot+">"+picdesc[picnum[1]]+"</A></CENTER></TD>"; document.write(line);
   line="            <TD WIDTH=5></TD>"; document.write(line);
   line="            <TD WIDTH=49% COLSPAN=3 BGCOLOR="+quot+"#401010"+quot+"><CENTER><A CLASS="+quot+"HD1"+quot+">"+picdesc[picnum[2]]+"</A></CENTER></TD>"; document.write(line);
   line="            <TD WIDTH=5></TD>"; document.write(line);
   line="            </TR>"; document.write(line);
   line="         <TR>"; document.write(line);
   line="            <TD WIDTH=5></TD>"; document.write(line);
   line="            <TD COLSPAN=3 ALIGN=CENTER><IMG SRC="+quot+"images/"+picname[picnum[1]]+quot+" WIDTH=100%></TD>"; document.write(line);
   line="            <TD WIDTH=5></TD>"; document.write(line);
   line="            <TD COLSPAN=3 ALIGN=CENTER><IMG SRC="+quot+"images/"+picname[picnum[2]]+quot+" WIDTH=100%></TD>"; document.write(line);
   line="            <TD WIDTH=5></TD>"; document.write(line);
   line="            </TR>"; document.write(line);
   line="          <TR><! line>"; document.write(line);
   line="            <TD></TD>"; document.write(line);
   line="            <TD COLSPAN=7><TABLE WIDTH=100% CELLSPACING=0 CELLPADDING=0 BORDER=0><TR><TD HEIGHT=2 BGCOLOR="+quot+"#002040"+quot+"></TD></TR></TABLE></TD>"; document.write(line);
   line="            <TD></TD>"; document.write(line);
   line="            </TR>"; document.write(line);
   line="         <TR>"; document.write(line);
   line="            <TD WIDTH=5></TD>"; document.write(line);
   line="            <TD WIDTH=49% COLSPAN=3 BGCOLOR="+quot+"#401010"+quot+"><CENTER><A CLASS="+quot+"HD1"+quot+">"+picdesc[picnum[3]]+"</A></CENTER></TD>"; document.write(line);
   line="            <TD WIDTH=5></TD>"; document.write(line);
   line="            <TD WIDTH=49% COLSPAN=3 BGCOLOR="+quot+"#401010"+quot+"><CENTER><A CLASS="+quot+"HD1"+quot+">"+picdesc[picnum[4]]+"</A></CENTER></TD>"; document.write(line);
   line="            <TD WIDTH=5></TD>"; document.write(line);
   line="            </TR>"; document.write(line);
   line="         <TR>"; document.write(line);
   line="            <TD WIDTH=5></TD>"; document.write(line);
   line="            <TD COLSPAN=3 ALIGN=CENTER><IMG SRC="+quot+"images/"+picname[picnum[3]]+quot+" WIDTH=100%></TD>"; document.write(line);
   line="            <TD WIDTH=5></TD>"; document.write(line);
   line="            <TD COLSPAN=3 ALIGN=CENTER><IMG SRC="+quot+"images/"+picname[picnum[4]]+quot+" WIDTH=100%></TD>"; document.write(line);
   line="            <TD WIDTH=5></TD>"; document.write(line);
   line="            </TR>"; document.write(line);
   line="          <TR><! line>"; document.write(line);
   line="            <TD></TD>"; document.write(line);
   line="            <TD COLSPAN=7><TABLE WIDTH=100% CELLSPACING=0 CELLPADDING=0 BORDER=0><TR><TD HEIGHT=2 BGCOLOR="+quot+"#002040"+quot+"></TD></TR></TABLE></TD>"; document.write(line);
   line="            <TD></TD>"; document.write(line);
   line="            </TR>"; document.write(line);
   line="         </TABLE>"; document.write(line);
   }; /* End of If AREA=0 */

   if (area>0) {
/* Create page for appropriate area */
/* -------------------------------- */
      line="<TABLE WIDTH=100% CELLPADDING=0 CELLSPACING=2 VALIGN=TOP>"; document.write(line);
      line="   <TR><! empty line>";
      widthneeded="WIDTH=10%";
      if (pixperline==7) {widthneeded="WIDTH=14%"};
      if (pixperline==6) {widthneeded="WIDTH=16%"};
      if (pixperline==5) {widthneeded="WIDTH=19%"};
      if (pixperline==4) {widthneeded="WIDTH=24%"};
      if (pixperline==3) {widthneeded="WIDTH=32%"};
      if (pixperline==2) {widthneeded="WIDTH=48%"};
      for (i=1; i<=pixperline; i++)  /* create table with n columns */   
         {
         line=line+"<TD "+widthneeded+"></TD>";
         };                            
      line=line+"</TR>";document.write(line);
      n=0;
      photoline="<TR><! both together>";
      for (i=1; i<=endofset[1]; i++)
         { /* work through each picture */   
         widthneeded="WIDTH=100%";
         if (picstyle[i]==port) {widthneeded="WIDTH=50%"};
         /* Assume if disc, then all are discs */
         photoline=photoline+"<TD VALIGN=TOP ALIGN=CENTER><div id="+quot+"photoline"+quot+"><A HREF="+quot+"images/"+picname[i]+quot+" CLASS="+quot+classtouse[area]+quot+">"+picdesc[i];
         photoline=photoline+"<BR>"; /* Caters for short titles and portrait pictures */
         photoline=photoline+"<IMG SRC="+quot+"images/"+picname[i]+quot+" "+widthneeded+"></div></A></TD>";
         n=n+1; if (n==pixperline) { /* if reached and of line, put this out */
            photoline=photoline+"</TR>";
            document.write(photoline);
            photoline="<TR>";
            n=0;
            };
         };   
      if (n>0) { /* if any pictures left to write, flush line */
         photoline=photoline+"</TR>";
         document.write(photoline);
         };                         
      line="         </TABLE>"; document.write(line);
      }; /* End of AREA>0 e.g. Abba Artwork */
 
   return true; 
  
   };