'% filename "t.exe"
'uses rtl64

/*
subroutines are normally located inside a function or procedure,
then they have access to all the local and static variables.
*/

function f(int a)as int
  int b

  gosub g when a>0
  return b
  '
  g:
  b=a/2
  ret
  '
end function

print f( 42)
print f(-42)


