Reverse ASCII character map

FOR x=32TO 126
l x
?CHR$(x)
NEXT
DO
l ASC(INPUT$(1))
?"
LOOP
SUB l(x)
LOCATE x\16-1,2*(x MOD 16)+1
END SUB