option autorun on
Option explicit
option default NONE
dim s1$="start-"
dim s2$="-end"
dim integer maxtemp=144
dim b$,t$
b$=s1$+outtemp$(maxtemp)+s2$
print b$
sendtext b$ 'this works OK
t$=outtemp$(maxtemp)
sendtext s1$+t$+s2$ 'this works OK
sendText s1$+outtemp$(maxtemp)+s2$ 'this fails
'
function outtemp$(t as integer)
outtemp$=str$(t)
end function
'

sub SendText(a$)
local c$
c$=STR$(len(a$))
print c$
end sub