Sorry your browser is not supported!

Function LockArray( arrayPTR as integer )
    Global LockedArray as Integer
    LockedArray = arrayPTR
endFunction

Function UnlockArray()
    LockedArray = -1
endFunction

Function ArrayCount()
    if LockedArray=-1 then exitfunction
    size = get arrayPTR size(LockedArray)
endFunction size

Function ArrayInsertAtBottom( valueToAdd )
  if LockedArray=-1 then exitfunction 
  // <something to add a value to the bottom of the locked array>
endFunction

Ptr = get arrayptr( MyArray() )
unlink array MyArray()
link array MyArray(), AppendToArray( Ptr )

function AppendToArray( Ptr )
   local dim Temp()     ` Doesn't need to be of the same array type as the pointer
   link array Temp(), Ptr
   array insert at bottom Temp()
   Ptr = get arrayptr( Temp() )
   unlink array Temp()
endfunction Ptr