52 lines
1.6 KiB
Rexx
52 lines
1.6 KiB
Rexx
-- 23 Aug 2025
|
|
include Setting
|
|
|
|
say 'LITERALS INTEGER'
|
|
say version
|
|
say
|
|
say 'The standard precision (numeric digits) is 9'
|
|
say
|
|
say 'Assigments are as string...'
|
|
a = 6666666666666; say a
|
|
say 'until you do a calculation'
|
|
say a/1
|
|
say
|
|
say 'Decimal...'
|
|
l = 8
|
|
a = 0123; say left(a,l) '=' a/1
|
|
a = 123; say left(a,l) '=' a/1
|
|
a = 123.; say left(a,l) '=' a/1
|
|
a = 123.0; say left(a,l) '=' a/1
|
|
a = "123"; say left(a,l) '=' a/1
|
|
a = '123'; say left(a,l) '=' a/1
|
|
a = ' 123 '; say left(a,l) '=' a/1
|
|
a = +123; say left(a,l) '=' a/1
|
|
a = '+123'; say left(a,l) '=' a/1
|
|
a = ' + 123 '; say left(a,l) '=' a/1
|
|
a = .0123E4; say left(a,l) '=' a/1
|
|
a = 12.3E1; say left(a,l) '=' a/1
|
|
a = '12.3e1'; say left(a,l) '=' a/1
|
|
a = 1230E-1; say left(a,l) '=' a/1
|
|
a = 1230E-01; say left(a,l) '=' a/1
|
|
say
|
|
say 'Hexadecimal...'
|
|
say 'Blanks to separate words and bytes are allowed'
|
|
l = 14
|
|
say left("'5a'x",l) '=' '5a'x
|
|
say left("'5A'x",l) '=' '5A'x
|
|
say left("'5A'X",l) '=' '5A'X
|
|
say left("'50515253'X",l) '=' '50515253'X
|
|
say left("'5051 5253'X",l) '=' '5051 5253'X
|
|
say left("'50 51 52 53'X",l) '=' '50 51 52 53'X
|
|
say
|
|
say 'Binary...'
|
|
say 'Blanks to highlight words, bytes and nibbles are allowed'
|
|
l = 42
|
|
say left("'1010000010100010101001001010011'B",l) '=' '1010000010100010101001001010011'B
|
|
say left("'01010000010100010101001001010011'B",l) '=' '01010000010100010101001001010011'B
|
|
say left("'0101000001010001 0101001001010011'B",l) '=' '0101000001010001 0101001001010011'B
|
|
say left("'01010000 01010001 01010010 01010011'B",l) '=' '01010000 01010001 01010010 01010011'B
|
|
say left("'0101 0000 0101 0001 0101 0010 0101 0011'B",l) '=' '0101 0000 0101 0001 0101 0010 0101 0011'B
|
|
exit
|
|
|
|
include Math
|