Print the word size and endianness of the host machine.

See also: Variable size/Get

Enumeration 
  #LittleEndian
  #BigEndian
EndEnumeration
 
ProcedureDLL EndianTest()
  Protected Endian = #LittleEndian
  Protected dummy.l= 'ABCD'
  If "A"=Chr(PeekA(@dummy))
    Endian=#BigEndian
  EndIf
  ProcedureReturn Endian  
EndProcedure
 
;- *** Start of test code
If OpenConsole()  
  PrintN("Your word size is "+Str(SizeOf(Integer)) +" bytes,")
  Select EndianTest()
    Case #LittleEndian
      PrintN("and you use Little Endian.")
    Default
      PrintN("and you use Big Endian.")
  EndSelect
EndIf