17 lines
274 B
Text
17 lines
274 B
Text
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;
|
|
]
|