1
0
mirror of https://github.com/RevCurtisP/C02.git synced 2024-11-24 15:31:17 +00:00
C02/work/loops.c02
2018-08-11 00:18:23 -04:00

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;