Forth code to generate AD&D treasure: gems, jewels, scrolls, swords etc.