type data uzorak1 as string uzorak2 as string uzorak3 as string uzorak4 as string end type podaci as data dim SnimiMatrica (endRed,brojDanauMjesecu,brojUzoraka) for red=1 to endRed for dana=1 to brojDanauMjesecu SnimiMatrica(red,dana,1)=podaci.uzorak1 SnimiMatrica(red,dana,2)=podaci.uzorak2 SnimiMatrica(red,dana,3)=podaci.uzorak3 SnimiMatrica(red,dana,4)=podaci.uzorak4 next dana next red open imeFajla For Binary Lock Read Write As #1 Put #1, , SnimiMatrica close #1