var1$ = "Global1"
      var2$ = "Global2"

      PRINT "Before function call:"
      PRINT "var1$ = """ var1$ """"
      PRINT "var2$ = """ var2$ """"

      PROCtestscope(var1$)
      PROCtestscope(var1$)

      PRINT "After function call:"
      PRINT "var1$ = """ var1$ """"
      PRINT "var2$ = """ var2$ """"
      END

      DEF PROCtestscope(var2$)
      PRINT "On entry to function:"
      PRINT "var1$ = """ var1$ """"
      PRINT "var2$ = """ var2$ """"

      LOCAL var1$
      PRIVATE var2$
      PRINT "After LOCAL/PRIVATE:"
      PRINT "var1$ = """ var1$ """"
      PRINT "var2$ = """ var2$ """"

      var1$ = "Local"
      var2$ = "Private"
      PRINT "After assignments:"
      PRINT "var1$ = """ var1$ """"
      PRINT "var2$ = """ var2$ """"

      ENDPROC