'
' Number.AsPoint
'
' SELF: Number
' Returns: Point
'
' This script expresses any integer n in the
' form a + b*2^16 modulo 2^31-1 where a and 2b
' are both less than 2^16 and non-negative.
'
' ArcView 3.2a
' 4 Jan 2002, WAH @QD
' (c) 2002 Quantitative Decisions
' All rights reserved.
'
' Comments: ArcView will have precision problems for values of n
' that exceed 2^52.
'======================================================================'
m = 2^31-1
e = 2^16
n = SELF mod m
a = n mod e
b = (n/e).Floor
return a@b
' end of script