aparler/RosettaCodeData
1
0
Fork 0
Code Issues 12 Pull requests 3 Projects Releases Packages Wiki Activity Actions

Data update

Browse source
This commit is contained in:
Ingy döt Net 2026-04-30 12:34:36 -04:00
parent 4bb20c9b71
commit cbaf4c4b64
12390 changed files with 318560 additions and 27248 deletions
Download patch file Download diff file Expand all files Collapse all files

10
Task/String-length/OPL/string-length.opl Normal file
View file

@ -0,0 +1,10 @@
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