! Array bilden, 3x3 Werte
  *DIM,tt,ARRAY,6,6
! Datei "Datei.txt" auslesen und in Array schreiben
  *VREAD,tt,Datei,txt,,JIK,6,6,,
  (6F1.0)

/prep7

*do,i,1,6
*do,j,1,6
param=tt(i,j)           
*if, param,eq,1,then
WPLANE,1,i,j,0,i+1,j,0,i,j+1,0 
!* Verschiebt WP an die Koordinaten i,j,Z=0, die Vektoren 1,0,0 und 0,1,0 definieren die Ebene
BLC5,0,0,1,1
!* Erzuegt fläche (1x1)
*else
*endif
*enddo
*enddo