mirror of
https://github.com/RevCurtisP/C02.git
synced 2024-11-24 15:31:17 +00:00
15 lines
289 B
Plaintext
15 lines
289 B
Plaintext
|
/*****************************
|
||
|
* Test compilation of Loops *
|
||
|
*****************************/
|
||
|
|
||
|
#pragma padding 1
|
||
|
|
||
|
char c,i;
|
||
|
|
||
|
main:
|
||
|
whilei: i = 0; while (i < 10) i++;
|
||
|
while (i:+) i--;
|
||
|
dord: do {c = rdkey();} while (c=0);
|
||
|
for (i=1; i<9; i++) prchr(i);
|
||
|
goto exit;
|