WRITE "before: ",$NAMESPACE,! DO Test WRITE "after: ",$NAMESPACE,! QUIT Test NEW SET $NAMESPACE="USER" WRITE "testing: ",$NAMESPACE,! ; routine code QUIT