INCARY
DEF INCARY _A[],_P,_LN,V
DIM P=MIN(MAX(_P,0),LEN(_A)1)
DIM LN=MIN(_LN,LEN(_A)P)
IF LN==0 THEN RETURN ENDIF
DIM A[0]:COPY A,_A,P,LN
ARYOP #AOPADD,A,A,V
COPY _A,P,A
END
Doesn't work on strings. Submitted
 Updated
 Categories
 Keywords

DEF INCARY _A[],_P,_LN,V
DIM P=MIN(MAX(_P,0),LEN(_A)1)
DIM LN=MIN(_LN,LEN(_A)P)
IF LN==0 THEN RETURN ENDIF
DIM A[0]:COPY A,_A,P,LN
ARYOP #AOPADD,A,A,V
COPY _A,P,A
END
Doesn't work on strings.
DEF ADDARR ARR[],VA,ST,EL DIM A[LEN(ARR)]:FILL A,VA,ST,EL ARYOP #AOPADD,ARR,ARR,A END