Code: Select all
Structure a
*a
b.l
endstructure
dim defile.a(10)
defile\a=nextpackfile()
defile\b=packfilesize()
createfile(0,"bob.txt")
writedata(defile\a,defile\b)
closefile(0)

Code: Select all
Structure a
*a
b.l
endstructure
dim defile.a(10)
defile\a=nextpackfile()
defile\b=packfilesize()
createfile(0,"bob.txt")
writedata(defile\a,defile\b)
closefile(0)

Code: Select all
Structure ByteArray
b.b[0]
EndStructure
Structure Data
*data.ByteArray
EndStructure
*x.Data = AllocateMemory(100)
*x\data\b[0] = 0


