REM The SELECT / CASE / ELSE / ENDSELECT construct allows easy input parsing

GLOBAL reply AS INTEGER

PRINT "\010\013Please enter your reply: "
DO
	reply = INKEY()
LOOP UNTIL reply <> -1

SELECT reply
	CASE 'Y'
		PRINT "\010\013Thank you, reply accepted"
	CASE 'y'
		PRINT "\010\013Thank you, reply accepted"
	CASE 'N'
		PRINT "\010\013Don't want to play ?, OK"
	CASE 'n'
		PRINT "\010\013Don't want to play ?, OK"
	CASE ELSE
		PRINT "\010\013Invalid Input"
ENDSELECT