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