mirror of https://github.com/RevCurtisP/C02.git
17 lines
333 B
Plaintext
17 lines
333 B
Plaintext
/***************************************
|
|
* ECHO - Demo program for the Apple 1 *
|
|
* Echos typed keys to display *
|
|
* ESC key aborts to monitor *
|
|
***************************************/
|
|
|
|
#include <vic20.h02>
|
|
|
|
char key; //Key value
|
|
|
|
main:
|
|
key = getkey();
|
|
if (key == 3) goto exit;
|
|
prchr(key);
|
|
goto main;
|
|
|