SuperStrict

Framework brl.blitz
Import brl.standardio

Local boo:Byte Ptr = MemAlloc(1)
Test(boo)
Print("foo")

Function Test:Byte Ptr(pointer:Byte Ptr)
    Local numeric:Long = Long(pointer)
    Return Byte Ptr(numeric)
End Function