include c:\cxpl\codes;          \intrinsic code declarations

proc BinOut(N);                 \Output N in binary
int N;
int R;
[R:= N&1;
N:= N>>1;
if N then BinOut(N);
ChOut(0, R+^0);
];

int I;
[I:= 0;
repeat  BinOut(I); CrLf(0);
        I:= I+1;
until   KeyHit or I=0;
]