15 lines
250 B
Rexx
15 lines
250 B
Rexx
-- 8 Nov 2025
|
|
include Setting
|
|
|
|
say 'STRING LENGTH'
|
|
say version
|
|
say
|
|
a=''; b='A string'; c='José'; d=1/7
|
|
say 'String Length'
|
|
say Left(a,12) Length(a)
|
|
say Left(b,12) Length(b)
|
|
say Left(c,12) Length(c)
|
|
say Left(d,12) Length(d)
|
|
exit
|
|
|
|
include Abend
|