mirror of https://github.com/RevCurtisP/C02.git
25 lines
716 B
Plaintext
25 lines
716 B
Plaintext
/****************************************************
|
|
* 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);
|
|
}
|
|
}
|