ON STRIG(0) GOSUB Apress: STRIG(0) ON
		ON STRIG(2) GOSUB Xpress: STRIG(2) ON
		ON STRIG(4) GOSUB Bpress: STRIG(4) ON
		ON STRIG(6) GOSUB Ypress: STRIG(6) ON

		DIM lastPress AS STRING

		lastPress = "/"
		CLS
		DO
			LOCATE 1, 1
			PRINT "lastPress: " + lastPress
			PRINT "(press escape key to quit)"
		LOOP UNTIL (INKEY$ = CHR$(27))
	 
		STRIG(0) OFF
		STRIG(2) OFF
		STRIG(4) OFF
		STRIG(6) OFF

		END

		Apress:
			lastPress = "A"
			RETURN

		Bpress:
			lastPress = "B"
			RETURN

		Xpress:
			lastPress = "X"
			RETURN

		Ypress:
			lastPress = "Y"
			RETURN