pkg/vocl/errtest/nest0.cl


1
2
3
4
5
6
7
8
9
10
11
12
13
14

#{  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