00100	BEGIN "LISTX"
00150	REQUIRE 50 NEW!ITEMS;
00200	INTEGER ITEMVAR IT;
00300	LIST L;
00400	INTERNAL LABEL LAB;
00500	
00600	IT←NEW(3);
00700	L←{{NEW,L,NEW}};
00800	LAB:	DATUM(IT)←LISTX(L,IT,1);
00850	OUTSTR(CVS(DATUM(IT)));
00900	END;