$regfile = "m128def.dat"
$sim                    ' Comment this out for real program
Dim p as byte
p=10
Dim  A as string * 16
A = "default string"
Dim B as string * 16
B = "123456789012345"
Declare sub read_token(pointer As byte, result As String, Abc As String)

sub read_token(pointer As byte, result As String, Abc As String)
   pointer = 2
   result  = "im changed"
   Abc = "changed too"
end sub


read_token(p, B , A)    ' <-----THIS LINE COMPILE ERROR
Print p
Print B
Print A

loop_forever:



goto loop_forever
end
 

Call Read_token(p , B , A)