### ##- # Author: Brian Tiffin # Dedicated to the public domain # # Date: September 2016 # Modified: 2016-10-03/23:20-0400 ##+ # # static.icn, demonstrate static variable declarations # procedure main() localproc() staticproc() write() localproc() staticproc() end # a is reset on each invocation procedure localproc() /a := "initial value" writes("enter localproc with a as ") write(image(a)) a := "new value" end # a is remembered across each invocation procedure staticproc() static a /a := "initial value" writes("enter staticproc with a as ") write(image(a)) a := "new value" end