Endian Achitecture

[alexfish]

Hi All
'endian architecture

'endian.bac


FUNCTION ENDIAN()
LOCAL x = 1 TYPE unsigned int

char *c = (char*) &x
RETURN (int)*c
END FUNCTION

LOCAL endian
endian = ENDIAN()
IF endian THEN
PRINT "little endian"
ELSE
PRINT "big endian"
END IF

BR
Alex