TYPEDEF MyLong AS QUAD

TYPE Pair
    left AS MyLong
    right AS MyLong
END TYPE

FUNCTION main() AS LONG
    DIM values(3) AS MyLong
    DIM p AS MyLong PTR
    DIM pair AS Pair

    values(0) = 10
    values(1) = 20
    pair.left = values(0)
    pair.right = values(1)

    p = VARPTR(values(0))
    @p = @p + 5
    p = p + 1
    @p = @p + 1

    IF pair.right > pair.left THEN
        main = 0
    ELSE
        main = 1
    END IF
END FUNCTION
