![]() |
<< Index >> |
FutureBasic |
write dynamic | statement | |
|
write dynamic deviceID, arrayName
dim as FSSpec fs
dim as long j
dynamic myAry(_maxLong ) as long
fn FSMakeFSSpec ( system ( _aplVRefNum ), system ( _aplParID ), "Test" , @fs )
for j = 0 to 9
myAry(j) = j
next
open "O" , 1, @fs
write dynamic 1, myAry
close 1
kill dynamic myAry
open "I" , 1, @fs
read dynamic 1, myAry
close 1
for j = 0 to 9
print myAry(j)
next
FSpDelete ( fs )
See also
dynamic;
read dynamic