z=0
x=space()
Z=try()
@1,1 say Z
Function try
x="hello"
return
::procedure::
x1=0
x2=0
xs=0
@1,1 get x1
@2,1 get x2
read
xs=x1+x2
do shit with xs
waitwind wait...
procedure shit
parameter A
clear
@3,1 say *
@4,1 say A
endproc