mirror of
https://github.com/RevCurtisP/C02.git
synced 2024-12-01 14:51:52 +00:00
26 lines
423 B
Plaintext
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;
|
||
|
|