[H@NON]

эм, как бы так:

Restore myData
Read height
Read width
For i = 1 to height
    For j = 1 to width
         Read num
         Select num
              case 0
                ;создать обычный блок
              case 1
                ;создать дерево
              case 2
                ;создать домик
              ...
         EndSelect
    Next
Next
.myData
Data 3, 9  ;это размеры поля
Data "2 0 0 1 1 1 0 0 2"
Data "0 0 0 3 3 3 0 0 0"
Data "1 0 0 1 1 1 0 0 1"