mirror of https://github.com/RevCurtisP/C02.git
16 lines
293 B
Plaintext
16 lines
293 B
Plaintext
/*********************************************
|
|
* STRTEST - Test Library string.h for Apple *
|
|
*********************************************/
|
|
|
|
#include <apple1.h02>
|
|
#include <string.h02>
|
|
|
|
char key; //Key value
|
|
|
|
main:
|
|
key = getkey();
|
|
if (key == 155) goto exit;
|
|
echo(key);
|
|
goto main;
|
|
|