DIM P% 8
      !P% = -1
      I% = 0 : REPEAT I% += 1 : UNTIL P%?I%=0
      PRINT "Word size = " ; I% " bytes"
      !P% = 1
      IF P%?0 = 1 THEN PRINT "Little-endian"
      IF P%?(I%-1) = 1 THEN PRINT "Big-endian"