RosettaCodeData/Task/Host-introspection/BBC-BASIC/host-introspection.bbc
Ingy döt Net db842d013d A-M baby
2013-04-10 21:29:02 -07:00

7 lines
223 B
Text

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"