perm filename TSTGO.SAI[DOC,AIL] blob sn#059707 filedate 1973-08-27 generic text, type T, neo UTF8
COMMENT ⊗   VALID 00002 PAGES 
RECORD PAGE   DESCRIPTION
 00001 00001
 00002 00002	BEGIN "TSTGO"
 00003 ENDMK
⊗;
BEGIN "TSTGO"
	PROCEDURE FOOBAR;
	BEGIN "FOOBAR"
		LABEL ERR;
		SIMPLE PROCEDURE S1;
		BEGIN GO TO ERR END;
		PROCEDURE S2;
		BEGIN INTEGER ARRAY F[1:1];
			S1;
		END;
		S2;
ERR:
	END "FOOBAR";
	FOOBAR;
	OUTSTR("MUMBLE");
END;