|
OUTER
|
|
SET OUT=1,IN=0
|
|
WRITE "OUT = ",OUT,!
|
|
WRITE "IN = ",IN,!
|
|
DO INNER
|
|
WRITE:$DATA(OUT)=0 "OUT was destroyed",!
|
|
QUIT
|
|
INNER
|
|
WRITE "OUT (inner scope) = ",OUT,!
|
|
WRITE "IN (outer scope) = ",IN,!
|
|
NEW IN
|
|
SET IN=3.14
|
|
WRITE "IN (inner scope) = ",IN,!
|
|
KILL OUT
|
|
QUIT
|