       10 // FUNC sample program
       20 //
       30 f#:=0; g:=0
       40 sys assert, aap=1
       50 sys assert, aap#=2
       60 sys assert, f#=0 and g=0
       70 //
       80 PRINT "Ok"
       90 //
      100 FUNC aap CLOSED
      110   f#:=1
      120   RETURN f#
      130 ENDFUNC
      140 //
      150 FUNC aap# CLOSED
      160   g:=2
      170   RETURN g
      180 ENDFUNC
