00100	BEGIN "TSTA"
00200	
00300	require 100 new!items;
00400	PROCEDURE PROC;
00500	OUTSTR("PROC");
00600	
00700	ITEMVAR PROCIT;
00800	
00900	PROCEDURE DOIT(PROCEDURE PROCA);
01000	ASSIGN(PROCIT,PROCA);
01100	
01200	PROCIT←NEW;
01300	DOIT(PROC);
01400	APPLY(DATUM(PROCIT));
01500	END;