17 lines
253 B
Text
17 lines
253 B
Text
include c:\cxpl\codes; \intrinsic code declarations
|
|
|
|
proc OctOut(N); \Output N in octal
|
|
int N;
|
|
int R;
|
|
[R:= N&7;
|
|
N:= N>>3;
|
|
if N then OctOut(N);
|
|
ChOut(0, R+^0);
|
|
];
|
|
|
|
int I;
|
|
[I:= 0;
|
|
repeat OctOut(I); CrLf(0);
|
|
I:= I+1;
|
|
until KeyHit or I=0;
|
|
]
|