RosettaCodeData/Task/Arrays/OPL/arrays.opl

10 lines
285 B
Plaintext

PROC main:
REM Declare an integer array of 10 elements and a string array of 10 elements, each up to 12 characters long.
LOCAL array1%(10),array2$(10,12)
REM Array element count starts at 1.
array1%(1)=128
array2$(10)="Rosetta Code"
PRINT array1%(1),array2$(10)
GET
ENDP