       10 // NAME test program
       20 //
       30 a$:="Visser"
       40 aap(naam$+" "+a$)
       50 PRINT "Ok"
       60 //
       70 PROC aap(NAME fullname$)
       80   naam$:="Jos"
       90   SYS assert, fullname$=r$
      100   naam$:="Patrick"
      110   SYS assert, fullname$=r$
      120   naam$:="Piet"
      130   SYS assert, fullname$=r$
      140   naam$:="Yvonne"
      150   olifant("The name is "+fullname$)
      160 ENDPROC aap
      170 //
      180 PROC olifant(NAME f$) CLOSED
      190   naam$:="Tosca"
      200   SYS assert, f$=r$  // Remember, NAMEs are evaluated IN THEIR CALLING ENVIRONMENT!
      210 ENDPROC olifant
      220 //
      230 FUNC r$
      240   READ x$
      250   RETURN x$
      260 ENDFUNC r$
      270 //
      280 DATA "Jos Visser", "Patrick Visser", "Piet Visser", "The name is Yvonne Visser"
