function picdata(pictype, image, alt) 
{   
this.pictype = pictype
this.image = image   
this.alt = alt
}
var intNumAvailable = 109
var intNumRows = 3
var intNumCols = 3
var intNumRequired = intNumRows * intNumCols
var intChosen
var intNumFrom
intSubset = new Array(intNumRequired)
intRange = new Array(intNumAvailable)
typpicdata = new Array(intNumAvailable)
typpicdata[1] = new picdata(1,101,"Morris Dancers")
typpicdata[2] = new picdata(1,102,"Morris Dancers")
typpicdata[3] = new picdata(1,103,"Morris Dancers")
typpicdata[4] = new picdata(1,104,"Morris Dancer in the stocks")
typpicdata[5] = new picdata(1,105,"Morris Dancer in the stocks")
typpicdata[6] = new picdata(2,201,"Canal Bridge")
typpicdata[7] = new picdata(2,202,"Canal Boats")
typpicdata[8] = new picdata(2,203,"Canal Scene")
typpicdata[9] = new picdata(2,204,"Canal Bridge")
typpicdata[10] = new picdata(2,205,"Canal Boat")
typpicdata[11] = new picdata(2,206,"Canal Locks")
typpicdata[12] = new picdata(4,301,"Sun Behind a Cloud")
typpicdata[13] = new picdata(3,302,"Cumulus Cloud")
typpicdata[14] = new picdata(3,303,"Cloud at Sunset")
typpicdata[15] = new picdata(4,304,"Summer Solstice Sun Rise")
typpicdata[16] = new picdata(3,305,"Reflection in a Pond")
typpicdata[17] = new picdata(3,306,"Carpet of Daffodils")
typpicdata[18] = new picdata(3,307,"Reflections on my Car")
typpicdata[19] = new picdata(3,308,"Still Life - Fruit")
typpicdata[20] = new picdata(3,309,"Still Life - Fruit")
typpicdata[21] = new picdata(3,310,"Pipework at the Lloyds Building")
typpicdata[22] = new picdata(3,311,"Window Opening Rods")
typpicdata[23] = new picdata(3,312,"Silhouette in an Arch")
typpicdata[24] = new picdata(4,313,"Lake Through Trees")
typpicdata[25] = new picdata(4,314,"Autumn Leaves")
typpicdata[26] = new picdata(3,315,"Celery in Cheese Sauce")
typpicdata[27] = new picdata(3,316,"Sky and Clouds?")
typpicdata[28] = new picdata(3,317,"Bottle and Lamp")
typpicdata[29] = new picdata(4,318,"Contrails")
typpicdata[30] = new picdata(3,319,"Cumulus Cloud (from above)")
typpicdata[31] = new picdata(3,320,"Window Cleaner on a Plane")
typpicdata[32] = new picdata(3,321,"Storm Cell (from above)")
typpicdata[33] = new picdata(4,322,"London Sunset")
typpicdata[34] = new picdata(5,501,"Data Switch Wiring")
typpicdata[35] = new picdata(5,502,"Data Switch Wiring")
typpicdata[36] = new picdata(5,503,"Data Switch Wiring")
typpicdata[37] = new picdata(5,504,"Data Switch Wiring")
typpicdata[38] = new picdata(5,505,"Data Switch Cabinet")
typpicdata[39] = new picdata(5,506,"Data Switch Wiring")
typpicdata[40] = new picdata(5,507,"Data Switch Wiring")
typpicdata[41] = new picdata(5,508,"Data Switch Wiring")
typpicdata[42] = new picdata(5,509,"Data Switch Wiring")
typpicdata[43] = new picdata(6,601,"Concorde's Distinctive Nose")
typpicdata[44] = new picdata(6,602,"Crowd at Stonhenge, Summer Solstice")
typpicdata[45] = new picdata(4,603,"Candle")
typpicdata[46] = new picdata(6,604,"Live Journal T-shirt")
typpicdata[47] = new picdata(6,605,"Road Sign - Humps For n Yards")
typpicdata[48] = new picdata(6,606,"Good Bush, Bad Bush T-shirt")
typpicdata[49] = new picdata(6,607,"Concorde and Tow Truck")
typpicdata[50] = new picdata(6,608,"Peter's Pork Pie")
typpicdata[51] = new picdata(6,609,"Lights Through a Wet Windscreen")
typpicdata[52] = new picdata(3,323,"Snowy Trees (negative image)")
typpicdata[53] = new picdata(3,324,"Tree, wind bare branches")

typpicdata[54] = new picdata(2,207,"Swing Road Bridge")
typpicdata[55] = new picdata(2,208,"Boat Entering a Bridge")
typpicdata[56] = new picdata(2,209,"Boat Under a Bridge - not much room at the sides")
typpicdata[57] = new picdata(2,210,"The Boat Behind Us Entering a Bridge")
typpicdata[58] = new picdata(2,211,"Canal Reflection Under a Bridge")
typpicdata[59] = new picdata(2,212,"Reflections on a Canal")
typpicdata[60] = new picdata(2,213,"Reflections on a Canal")
typpicdata[61] = new picdata(2,214,"Two Swans on the Bank")
typpicdata[62] = new picdata(2,215,"A Heron on the Bank")
typpicdata[63] = new picdata(2,216,"Boat Waiting for the Harecastle Tunnel - the canal is orange 'cos of iron oxide in the water")
typpicdata[64] = new picdata(2,217,"Boat Waiting for the Harecastle Tunnel - negative image")
typpicdata[65] = new picdata(2,218,"Boat Waiting for the Harecastle Tunnel")
typpicdata[66] = new picdata(2,219,"Boat Coming the Other Way Inside the Harecastle Tunnel")
typpicdata[67] = new picdata(2,220,"Early Morning Canal Reflections")
typpicdata[68] = new picdata(2,221,"Canal Bridge and Reflection")
typpicdata[69] = new picdata(2,222,"Canal and Tree Reflection")
typpicdata[70] = new picdata(2,223,"Canal Locks")
typpicdata[71] = new picdata(6,610,"Waistcoats")

typpicdata[72] = new picdata(1,106,"Morris Dancers")
typpicdata[73] = new picdata(1,107,"Morris Dancers")
typpicdata[74] = new picdata(1,108,"Morris Dancers")
typpicdata[75] = new picdata(1,109,"Morris Dancers")
typpicdata[76] = new picdata(1,110,"Morris Dancers")
typpicdata[77] = new picdata(1,111,"Morris Dancers")
typpicdata[78] = new picdata(1,112,"Morris Dancers")
typpicdata[79] = new picdata(1,113,"Morris Dancers")
typpicdata[80] = new picdata(1,114,"Morris Dancers")
typpicdata[81] = new picdata(1,115,"Morris Dancers")

typpicdata[82] = new picdata(1,325,"Clouds")
typpicdata[83] = new picdata(1,326,"Clouds")
typpicdata[84] = new picdata(1,327,"Clouds")
typpicdata[85] = new picdata(1,328,"Oak leaves")
typpicdata[86] = new picdata(1,329,"River at Machen")
typpicdata[87] = new picdata(1,330,"River at Machen")

typpicdata[88] = new picdata(1,510,"Error Message")
typpicdata[89] = new picdata(1,511,"Laptop computer")
typpicdata[90] = new picdata(1,512,"Cables in a switch-box")
typpicdata[91] = new picdata(1,513,"Cables")
typpicdata[92] = new picdata(1,514,"Cables")
typpicdata[93] = new picdata(1,515,"Cables")

typpicdata[94] = new picdata(1,615,"Stonehenge")
typpicdata[95] = new picdata(1,616,"Stonehenge")
typpicdata[96] = new picdata(1,617,"Stonehenge")
typpicdata[97] = new picdata(1,618,"Stonehenge")
typpicdata[98] = new picdata(1,619,"Stonehenge")
typpicdata[99] = new picdata(1,620,"Stonehenge")
typpicdata[100] = new picdata(1,621,"Stonehenge")
typpicdata[101] = new picdata(1,622,"Stonehenge")
typpicdata[102] = new picdata(1,623,"Stonehenge")
typpicdata[103] = new picdata(1,624,"Stonehenge")
typpicdata[104] = new picdata(1,625,"Notice at work")
typpicdata[105] = new picdata(1,626,"Rain running off a tent")
typpicdata[106] = new picdata(1,627,"Reflection in a puddle")
typpicdata[107] = new picdata(1,628,"Faint rainbow in London")
typpicdata[108] = new picdata(1,629,"Biere Blonde - in my fridge")
typpicdata[109] = new picdata(1,630,"Footbridge at Machen")

for (var intCountA = 1; intCountA <= intNumAvailable ; intCountA++ )
{
  intRange[intCountA]=intCountA
}
for (var intCountB = 1; intCountB <= intNumRequired ; intCountB++ )
{
  if (intCountB <= 6)
  {
    for (var intCountZ = 1; intCountZ <= intNumAvailable ; intCountZ++ )
    {
      intChosen = Math.floor(Math.random()*intNumAvailable)+1
      if (typpicdata[intRange[intChosen]].pictype == intCountB) 
      {
        break;
      }
    }
  }
  else
  {
    intChosen = Math.floor(Math.random()*intNumAvailable)+1
  }
  var intCountD=1
  for (var intCountC = 1; intCountC <= intNumAvailable ; intCountC++ )
  {
    if (intCountC == intChosen)
    {
      intSubset[intCountB] = intRange[intCountC]
    }
    else
    {    
      intRange[intCountD] = intRange[intCountC]
      intCountD++
    }
  }
intNumAvailable--
}
intNumFrom = 1; document.write ("<table>")
for (var intCountRow = 1 ; intCountRow <= intNumRows ; intCountRow++ )
{
  document.write ("<tr>")
  for (var intCountCol = 1 ; intCountCol <= intNumCols ; intCountCol++ )
  {
    document.write ("<td width=200> <center>")
    document.write ("<img src=\"./images/basimage"+typpicdata[intSubset[intNumFrom]].image+".jpg\" ")
    document.write ("alt=\""+typpicdata[intSubset[intNumFrom]].alt+"\" ")
    document.write ("onmouseover=\"status = '"+typpicdata[intSubset[intNumFrom]].alt.replace("'","\\'")+"'\" ")
    document.write ("onmouseout=\"status = ' '\" ")
    document.write ("onclick=\"location.reload()\">")
    document.write ("<br />"+typpicdata[intSubset[intNumFrom]].image)
//  document.write ("<br />"+typpicdata[intSubset[intNumFrom]].alt.replace("'","''"))
//  document.write ("<br />onmouseover=\"status = '"+typpicdata[intSubset[intNumFrom]].alt.replace("'","\\'")+"'\" ")
    document.write ("</center></td>")
    intNumFrom++
  }
  document.write ("</tr>")
}
document.write ("</table>")