/***********************************************************
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