#{ NEST0 -- Test error types from nested scripts. procedure nest0 (type) int type { prompt = "Error test code: " } begin # dummy space # dummy space # dummy space # dummy space errtype (type) end