1
0
mirror of https://github.com/RevCurtisP/C02.git synced 2024-11-18 21:07:28 +00:00
C02/apple1/strtest.c02
2018-01-28 14:52:58 -05:00

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;