Time for an 2014 update…

Task/Scope-modifiers/BASIC/scope-modifiers-2.basic

@@ -0,0 +1,33 @@
+      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