1
0
mirror of https://github.com/RevCurtisP/C02.git synced 2024-11-22 01:31:33 +00:00
C02/work/loops.c02

15 lines
289 B
Plaintext
Raw Normal View History

2018-07-30 02:49:44 +00:00
/*****************************
* 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;