17 lines
302 B
Text
17 lines
302 B
Text
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
|