xNAME RNDLoop ::
	CK0
	CLEARLCD
	1
	%RANDOMIZE
	BEGIN
	CK0ATTNABORT
	%RAN
	a%>$
	DISPROW1
	AGAIN
;