Return data to home history from a PRG

[compsystems]

Hello, sorry for my bad English

TI-BASIC have not RETURN CMD for a PRG, the following prg (copyto_h) written in ASM, http://www.ticalc.org/archives/files/fi ... 16366.html
returns a string or expr to HOME HISTORY from a PRG =)

Code: Tout sélectionner

prt2HOME()
Local titlereq,x,s1,s2
ClrHome
"Places a str the entry"→s1
"Places a str at the answer"→s2
"x"→titlereq
©4→x
Dialog
  Request titlereq,x
EndDlog
expr(x)→x
copyto_h("s1","s2")
copyto_h("titleReq","x")
EndPrgm

[compsystems]

In the current version, if an argument is a string that does not call a variable, the command does nothing =(

Someone can improve the asm code (Or someone has the contact of Samuel Stearley [Your email no longer exists] ), allowing arguments to be a simple string of text,

Thanks

Code: Tout sélectionner

...
copyto_h("x is ","x")

the first arg "x is " should put it in the history

Code: Tout sélectionner

Local titlereq,x,s1,s2
ClrHome
"Places a str the entry"→s1
"Places a str at the answer"→s2
"x"→titlereq
©4→x
Dialog
  Request titlereq,x
EndDlog
expr(x)→x
copyto_h("s1","s2")
copyto_h("titleReq","x")

copyto_h("x is ","x")  © does nothing =(

EndPrgm