RosettaCodeData/Task/Host-introspection/Applesoft-BASIC/host-introspection.basic
2023-07-01 13:44:08 -04:00

12 lines
313 B
Text

1 DATA248,169,153,24,105,1,48
2 DATA6,24,251,144,2,251,56
3 DATA216,105,0,133,251,96
4 FOR I = 768 TO 787
5 READ B: POKE I,B: NEXT
6 CALL 768:M = PEEK (251)
7 PRINT " WORD SIZE: ";
8 IF NOT M THEN PRINT 8
9 M$ = "HYBRID 8/16"
10 IF M THEN PRINT M$
11 PRINT "ENDIANNESS: ";
12 PRINT "LITTLE-ENDIAN"