11 lines
381 B
Text
11 lines
381 B
Text
|
REM https://github.com/Eva-Broccoli/OPL-Rosetta-Code/blob/main/Strlngth.opl
|
||
|
|
REM Strings are stored with one character per byte, with a leading byte containing the string length, thus byte length is character length plus one byte.
|
||
|
|
PROC main:
|
||
|
|
LOCAL s$(100)
|
||
|
|
PRINT "Please enter a string."
|
||
|
|
INPUT s$
|
||
|
|
PRINT "Character length:",LEN(s$)
|
||
|
|
PRINT "Byte length:",LEN(s$)+1
|
||
|
|
GET
|
||
|
|
ENDP
|