/*******************************************************
 * ECHOHEX - Test/Demo program for C02 Standard Header *
 *        Displays ASCII Code of Typed Keys to Screen  *
 *        ESCAPE/STOP key Ends Program                 *
 *******************************************************/
 
//Specify System Header using -H option

char key;  //Key value

main:
  while() {
    key = rdkey();
    prbyte(key);
    prchr(' ');
    if (key==#ESCKEY) goto exit;
  }