mirror of
https://github.com/RevCurtisP/C02.git
synced 2024-06-08 06:29:32 +00:00
19 lines
223 B
Plaintext
19 lines
223 B
Plaintext
|
/* C02 Apple II Test Program */
|
||
|
|
|
||
|
|
#include <appl2std.h02>
|
||
|
|
|
||
|
|
char c;
|
||
|
|
|
||
|
|
main:
|
||
|
|
|
||
|
|
loop:
|
||
|
|
c = plkey();
|
||
|
|
if (!c) goto loop;
|
||
|
|
newlin();
|
||
|
|
prbyte(c);
|
||
|
|
prchr(' ');
|
||
|
|
echo(c);
|
||
|
|
prchr(' ');
|
||
|
|
prchr(c);
|
||
|
|
goto loop;
|