追記　木の生成をランダムにするには、FOR NEXTループで上のWOOD=RND(3)を木の本数だけ回せ(ループさせ)ればよい。 あとはIF文を使っての生成・・・かな？