

	title " L[R[hmF"

*main

		pos 10,10
		color 255,255,255

		char = ""
		
		repeat 256
			getkey inta, cnt

			poke char,0,cnt
		
			if( inta == 1 ){
				mes " L[R[h[ " + cnt + " ]       8i [ $" + strf("%x ] ", cnt) + "     [ " + char + " ]"
			}
		loop
			
	
	redraw 1 : redraw 2 : color : boxf : await 30
    goto *main