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