/***********************************************************
endian.c -- エンディアンネス
***********************************************************/
#N88BASIC
Dim i As Long
i=1
If GetByte(VarPtr(i) As *Char) Then
print "little-endian"
else if (GetByte(VarPtr(i) As *Char) + (SizeOf(Long) - 1)) Then
print "big-endian"
else
print "不明"
End If