mirror of
https://github.com/RevCurtisP/C02.git
synced 2024-06-08 06:29:32 +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;
|