perm filename TSTA.SAI[CMU,AIL] blob sn#117882 filedate 1974-08-31 generic text, type T, neo UTF8
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;