DIM AS ANY ptr a

DIM AS short b = 5
DIM AS short c = 5

a = allocate(sizeof(short) * 2)
a = @b
'a[2] = @c

PRINT cast(short ptr, a)[0]
PRINT cast(short ptr, a)[2]

SLEEP()