dim id(1,1)
id()=1.0,0.0,0.0,1.0
dim chromosome{(10) codon(1,1)}
for codon%=0 to 10
chromosome{(codon%)}.codon()=id()
next
DIM id(1,1)
id() = 1.0,0.0,0.0,1.0
DIM chromosome(10)
FOR codon% = 0 TO 10
PROCdeclarearray(chromosome(codon%))
NEXT
FOR codon% = 0 TO 10
PROCassignarray(chromosome(codon%), id())
NEXT
FOR codon% = 0 TO 10
PROCprintarray(chromosome(codon%))
NEXT
END
DEF PROCdeclarearray(RETURN codon())
DIM codon(1,1)
ENDPROC
DEF PROCassignarray(RETURN codon(), id())
codon() = id()
ENDPROC
DEF PROCprintarray(RETURN codon())
PRINT codon(0,0) codon(0,1) codon(1,0) codon(1,1)
ENDPROC