1
0
mirror of https://github.com/RevCurtisP/C02.git synced 2024-11-25 06:31:25 +00:00
C02/apple1/rndtest.c02
2018-01-28 14:52:58 -05:00

26 lines
423 B
Plaintext

/************************************************
* 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;