MATH ADD in(), num ,out()

This adds the value 'num' to every element of the matrix in() and puts the
answer in out(). Works for arrays of any dimensionality of both integer and
float and can convert between. Setting num to 0 is optimised and is a fast way
of copying an entire array. in() and out() can be the same array.

Array ADD in$(), Str$, out$()

asadasfsd_asdasasf

Option Explicit

Sub AddArrVal(byref arr%() As integer)
 Local i As integer
 For i=1 To Bound(arr%())
   arr%(i) = arr%(i) + 3
 Next
End Sub

Dim MyArr%(10) As integer
Dim MyAr2%(10) As integer
Dim i% As integer

For i=1 To Bound(MyArr%())
 MyArr%(i) = i
Next
For i=1 To Bound(MyAr2%())
 MyAr2%(i) = i + 2
Next
AddArrVal(MyArr%())
AddArrVal(MyAr2%())
Print "Works as expected:"
For i=1 To Bound(MyArr%())
 Print MyArr%(i),
Next
Print
For i=1 To Bound(MyAr2%())
 Print MyAr2%(i),
Next
Print

Print "Fails as expected:"
Dim MyA2%(10,10) As integer
AddArrVal(MyA2%(1,))

End

Saved 596 bytes
> run
Works as expected:
4       5       6       7       8       9       10      11      12      13
6       7       8       9       10      11      12      13      14      15
Fails as expected:
[34] AddArrVal(MyA2%(1,))
Error : Dimensions
>

Option Explicit

Sub Add2nDimArrVal(byref arr%() As integer, byref ix%() As integer)
 Local i As integer, nD As Integer = 0, nDims As integer = 0
 Local ptr As integer

 i = 1
 Do
   nD = Bound(arr%(), i)
   If nD <> 0 Then
     nDims = nDims + 1 : i = i + 1
   EndIf
 Loop Until nD = 0

 'Print nDims

 For i=1 To Bound(arr%(), nDims)
   Select Case nDims
   Case 1
     ptr = Peek(VARADDR arr%(i))
   Case 2
     ptr = Peek(VARADDR arr%(ix%(1), i))
   Case 3
     ptr = Peek(VARADDR arr%(ix%(1), ix%(2), i))
   End Select
   ' Print ptr,
   Poke integer ptr, (Peek(integer ptr) + 3)
 Next
 Print
End Sub

Dim i As integer, j As integer
Const MyAD% = 2 ' nDims of MyA2%
Dim MyA2%(10,10) As integer
Dim MyAI%(MyAD%) As integer

Print "Works as hoped: :-D"

' Set index values of all dimensions before last dim:
MyAI%(1) = 5 ' : MyAI%(MyAD%) = 0

For j=1 To Bound(MyA2%(),1)
 For i=1 To Bound(MyA2%(),MyAD%)
   If j = MyAI%(1) Then
     MyA2%(j, i) = i + 10
   Else
     MyA2%(j, i) = 0
   EndIf
 Next
Next

Add2nDimArrVal(MyA2%(), MyAI%())

For i=1 To Bound(MyA2%(),MyAD%)
 Print MyA2%(MyAI%(1), i),
Next
Print

End

> run
Works as hoped: :-D

14      15      16      17      18      19      20      21      22      23
>

> option list
PicoMite MMBasic RP2040 Edition V6.00.02RC18
OPTION SYSTEM SPI GP6,GP3,GP4
OPTION COLOURCODE ON
OPTION CPUSPEED (KHz) 252000
OPTION LCDPANEL CONSOLE
OPTION DISPLAY 20, 40
OPTION LCDPANEL ILI9341, RLANDSCAPE,GP2,GP1,GP0
OPTION TOUCH GP5,GP7
GUI CALIBRATE 0, 407, 267, 897, 677
OPTION SDCARD GP22
OPTION AUDIO GP20,GP21', ON PWM CHANNEL 2
OPTION MODBUFF ENABLE  192
OPTION PLATFORM Game*Mite

> list "wtf.bas"
Print de_format$("rtrue")
Function de_format$(a$)
 Local p, s$
 s$ = " "
 p = Len(a$) + 1
 Print "'" a$ "'"
 Print "'" s$ "'"
 Print p
 Cat s$, Left$(a$, p - 1)
 de_format$ = s$
End Function

> run "wtf.bas"
'rtrue'
' '
6
[10] Cat s$, Left$(a$, p - 1)
Error : String too long