##-
# Author: Brian Tiffin
# Dedicated to the public domain
#
# Date: September 2016
# Modified: 2016-10-03/22:53-0400
##+
#
# global.icn, demonstrate global variables
#
global var, other
procedure main()
    var := other := 42
    subproc()
    # var will be changed, other will not
    write(var)
    write(other)
end

# access the global "var", but create a local "other"
procedure subproc()
    local other
    write(var)
    var := 84
    other := 21
end