RUN VALTST (
	DO I=3,0,-1 (
		J=[I]
		IF J==0 BREAK
		IF J==1 THEN V=ASK 'ENTER A REAL VALUE ? '
		IF J==2 THEN V=ASK 'ENTER AN INTEGER VALUE ? '
		IF J==3 THEN V=ASK 'ENTER A STRING VALUE ? '
		V
		)
	)