dim as uinteger ptr la: la=allocate(2147483647): for s as integer = 0 to 2147483647: la[s]=0: next s: deallocate(la): end