data "Dark", "Greening", "Darkening", "Forbidden", "Gracious"
data "Elven", "Elder", "Mythical", "Growth", "Feeding", "Blue"
data "Carpenters", "Neutral", "Deep", "Nesting", "Golden"
data "Pixie", "Ogre", "Land of", "Nether", "Null", "Wide"
data "Twisted", "Wild", "Dreaming", "Lost", "Dew", "Redding"
data "Ascii", "Ansi", "Bearly", "Starless", "Hollow"
data "Darken", "Cloaked", "Black", "Greying", "Misty"
data "Mystic", "Infested", "Sacred", "Underland"
data "Fey", "High", "False", "Fast Food", "Woodpecker"
data "Holly", "Back", "Box", "Moaning", "Whispering"
data "Over", "Thru the", "Knot", "First", "More"
data "Fire", "Trespass", "Waiting", "Trek", "Treasure"
data "Peach", "Minstrel", "Fort", "Blooded", "Chartless"
data "Wave", "Formidable", "Forgiven", "Forgotten"
data "Forever", "Sparse", "Deformed", "Outgrown"
data "Greedy", "Great", "Virgin", "Walden", "Variant"
data "Median", "Lilliputian", "Guardian", "Gateway"
data "Giant", "Draconian", "Dionysian", "Custodian"
data "Deviant", "Defiant", "Duel", "Lair", "Fair"
data "Raven", "Bluebird", "Blackbird", "Birthplace"
data "Twilight", "Midnight", "Woefull", "Wishful"
data "Watching", "Plentiful", "Lawful", "Fruitful"
data "More-n-More"
data "xyz"

data "Waters", "Ocean", "Sea", "Pools", "Bay", "Seaway"
data "Deep", "Seaside", "Shore", "Coast", "Surf", "Swell"
data "Waves", "Deep", "Seaport"
data "xyz"

dim Name$(200) 
dim Plain$(50)

n=0
while (Name$(n)<>"xyz")
 n=n+1
 read Name$(n)
wend
Name$(n)="Flatest"

f=0
while (Plain$(f)<>"xyz") 
 f=f+1
 read Plain$(f)
wend
Plain$(f)="Plain"

for i = 1 to 50
 print "  "+Name$(ran(n)+1) +" "+ Plain$(ran(f)+1)
next i