Declare Sub Test(ByVal s() as String)

dim x as string * 10
x = "Hallo"
call test(x)
end

Sub Test(ByVal s() as String)
   Print s
End sub

Local s as string * 10
s=""

$regfile = "m16def.dat"
$crystal = 4000000
$baud = 9600

$hwstack = 32
$swstack = 16
$framesize = 40

Declare Sub Test(Byval z as String)

dim x as string * 10
x = "Hallo"
call test(x)

Print x
Print Len(x)

End

Sub Test(Byval z as String)
   Print z ; " Herr Professor!"
   z = "abc"  
   ' Note that the maximal length of the variable z is 10 bytes.
   ' 10 bytes (11) of frame space are used for z, same size as variable x.
   Print z
   Print Len(z)
End sub
'-------