1
0
mirror of https://github.com/RevCurtisP/C02.git synced 2024-11-24 15:31:17 +00:00
C02/apple1/rndtest.c02

26 lines
423 B
Plaintext
Raw Permalink Normal View History

2018-01-28 19:52:58 +00:00
/************************************************
* RNDTEST - Test Random Function in apple1.h02 *
************************************************/
#include <apple1.h02>
char c, i; //Index
char msg = "Press any key to start";
main:
i = 0;
print:
c = msg[i];
echo(c);
i++;
if (c <> 0) goto print;
echo($0D);
getkey();
random(count);
loop:
c = random(0);
prbyte(c);
echo(' ');
goto loop;