8 lines
198 B
Text
8 lines
198 B
Text
include c:\cxpl\codes; \intrinsic 'code' declarations
|
|
int K, N;
|
|
[N:= 0;
|
|
repeat K:= KeyHit; \counts up until a key is pressed
|
|
IntOut(0, N); ChOut(0, ^ );
|
|
N:= N+1;
|
|
until K;
|
|
]
|