DIMENSION ICHAR(7),ISW
 1	CALL WAND
	GO TO 1
	END