C02/test/echo.c02

/****************************************************
 * ECHO - Test/Demo program for C02 Standard Header *
 *        Echos typed keys to screen                *
 *        RETURN/ENTER key Moves to New Line        *
 *        BACKSPACE/DELETE key Deletes to Left      *
 *        ESCAPE/STOP key Ends Program              *
 ****************************************************/
 
//Specify System Header using -H option

char key;  //Key value

main:
  putstr("TYPE KEYS TO ECHO"); newlin();
  putstr("ESCAPE/STOP TO END"); newlin();
  while() {
    key = getchr();
    select (key) {
      case #DELKEY: delchr(); 
      case #RTNKEY: newlin();
      case #ESCKEY: goto exit;
      default: putchr(key);
    }
  }