##-
# Author: Brian Tiffin
# Dedicated to the public domain
#
# Date: August 2016
# Modified: 2016-10-03/23:23-0400
##+
#
# &trace, procedure tracing to given level
#         0 means no tracing, negative is effectively infinite levels
#         Unicon reads environment setting TRACE at startup
#         There is also a -t compiler option, setting trace to ...
#
procedure main()
    write("Initial &trace from -t: ", &trace)
    write("Setting to 3 for this example")

    &trace := 3
    write("main level: ", &level)
    second()
end

procedure second()
    write("second level: ", &level)
    third()
end

procedure third()
    write("third level: ", &level)
    fourth()
end

procedure fourth()
    write("fourth level: ", &level)
end