mirror of
https://github.com/RevCurtisP/C02.git
synced 2024-11-22 16:34:15 +00:00
56 lines
1.7 KiB
Plaintext
56 lines
1.7 KiB
Plaintext
|
/**********************************************
|
||
|
|
* KEYDEFS - Test/Demo for keydefs.h02 module *
|
||
|
|
**********************************************/
|
||
|
|
|
||
|
|
//Specify System Header using -H option
|
||
|
|
#include <keydef.h02>
|
||
|
|
|
||
|
|
char key; //Key value
|
||
|
|
|
||
|
|
main:
|
||
|
|
putstr("PRESS KEYS TO SEE DEFINITIONS"); newlin();
|
||
|
|
while() {
|
||
|
|
key = getchr();
|
||
|
|
if (!key) continue;
|
||
|
|
select (key) {
|
||
|
|
case #KEYBCK: putstr("BACKSPACE");
|
||
|
|
case #KEYBRK: putstr("BREAK");
|
||
|
|
case #KEYCLR: putstr("CLEAR");
|
||
|
|
case #KEYCPY: putstr("COPY");
|
||
|
|
case #KEYDEL: putstr("DELETE");
|
||
|
|
case #KEYDN : putstr("DOWN");
|
||
|
|
case #KEYESC: putstr("ESCAPE");
|
||
|
|
case #KEYFN1: putstr("F1");
|
||
|
|
case #KEYFN2: putstr("F2");
|
||
|
|
case #KEYFN3: putstr("F3");
|
||
|
|
case #KEYFN4: putstr("F4");
|
||
|
|
case #KEYFN5: putstr("F5");
|
||
|
|
case #KEYFN6: putstr("F6");
|
||
|
|
case #KEYFN7: putstr("F7");
|
||
|
|
case #KEYFN8: putstr("F8");
|
||
|
|
case #KEYFN9: putstr("F9");
|
||
|
|
case #KEYFNA: putstr("F10");
|
||
|
|
case #KEYFNB: putstr("F11");
|
||
|
|
case #KEYFNC: putstr("F12");
|
||
|
|
case #KEYHLP: putstr("HELP");
|
||
|
|
case #KEYHOM: putstr("HOME");
|
||
|
|
case #KEYINS: putstr("INSERT");
|
||
|
|
case #KEYLFT: putstr("LEFT");
|
||
|
|
case #KEYRGT: putstr("RIGHT");
|
||
|
|
case #KEYRTN: putstr("RETURN");
|
||
|
|
case #KEYRTS: putstr("SHIFT-RETURN");
|
||
|
|
case #KEYRUN: putstr("RUN");
|
||
|
|
case #KEYRVF: putstr("RVS-OFF");
|
||
|
|
case #KEYRVS: putstr("RVS-ON");
|
||
|
|
case #KEYSPS: putstr("SHIFT-SPACE");
|
||
|
|
case #KEYTAB: putstr("TAB");
|
||
|
|
case #KEYTAS: putstr("SHIFT-TAB");
|
||
|
|
case #KEYUP : putstr("UP");
|
||
|
|
case ' ': putstr("SPACE");
|
||
|
|
default: if (key > ' ' and key <> #DELKEY) putchr(key);
|
||
|
|
}
|
||
|
|
putstr(" ["); prbyte(key); putstr("] ");
|
||
|
|
if (key == #ESCKEY) break;
|
||
|
|
}
|
||
|
|
goto exit;
|