Data update

2026-04-30 12:34:36 -04:00 · 2026-04-30 12:34:36 -04:00 · cbaf4c4b64
commit cbaf4c4b64
parent 4bb20c9b71
12390 changed files with 318560 additions and 27248 deletions
--- a/Task/Array-length/OPL/array-length.opl
+++ b/Task/Array-length/OPL/array-length.opl
@ -0,0 +1,17 @@
+REM https://github.com/Eva-Broccoli/OPL-Rosetta-Code/blob/main/Arraylen.opl
+PROC main:
+  LOCAL array$(2,6),i%
+  ONERR errhand
+  array${1}="apple"
+  array${2}="orange"
+  i%=1
+  WHILE 1
+    IF array$(i%)<>""
+      i%=i%+1
+    ENDIF
+  ENDWH
+errhand::
+  ONERR OFF
+  PRINT "Array length is",i%-1
+  GET
+ENDP