$regfile = "M8def.dat "
$hwstack = 25
$swstack = 25
$framesize = 25
$crystal = 8000000
$baud = 38400

Config Submode = New

Declare Sub Teststr(b As Byte , Dl() As String)

Dim B As Byte
Dim I As Byte
Dim Bb As Byte
Dim Ar(20) As Byte

Dim Sar As String * 20                                      'strng array
Dim Dl As String * 20                                       'strng array

Sar = "TEST LIA"

'----------------------------------------------------------------------------------------------
Do
     Bb = 1
     Call Teststr(bb , Sar(1))
Loop
'----------------------------------------------------------------------------------------------
End
'----------------------------------------------------------------------------------------------

Sub Teststr(b As Byte , Dl() As String)
    Dl(b) = Dl(b) + "add"
End Sub