5  C@C@ ! A@o!#a@o@dHf n|x / X$@ @@[00010! REPLACE KSTATH00020;! This program prints the hex value for the kestroke typed.00100 X$=KSTAT$$00110(X$<>"" , UNHEX$(X$)00120,100