include "NSLog.incl"

select ( fn RunningApplicationExecutableArchitecture( fn RunningApplicationCurrentApplication ) )
  case NSBundleExecutableArchitectureI386
    NSLog(@"%@", @"i386 32-bit")

  case NSBundleExecutableArchitectureX86_64
    NSLog(@"%@", @"x86_64 64-bit")

  case NSBundleExecutableArchitecturePPC
    NSLog(@"%@", @"PPC 32-bit")

  case NSBundleExecutableArchitecturePPC64
    NSLog(@"%@", @"PPC64 64-bit")

  case NSBundleExecutableArchitectureARM64
    NSLog(@"%@", @"ARM64")

  case else
    NSLog(@"%@", @"Unknown")
end select

select ( fn CFByteOrderGetCurrent )
  case _CFByteOrderBigEndian
    NSLog(@"%@", @"Big Endian")
  case _CFByteOrderLittleEndian
    NSLog(@"%@", @"Little Endian")
  case _CFByteOrderUnknown
    NSLog(@"%@", @"endianness unknown")
end select

HandleEvents