procedure(instMode(inst) let( (mode) if(equal(inst~>master~>mode "r") then printf("Instance %s is in read only mode.\n" inst~>cellName) else mode = t) mode ); end of let ); end of instMode
↧