*
*  SHOUT - echo all keypresses in uppercase
*
TOUPPER EQU     $000992

SHOUT   ORG     $8000
        
LOOP    TRAP	#0		;read key
       	JSR	TOUPPER		;upcase it
	TRAP	#1		;print it
        BRA     LOOP
	END	SHOUT