|
include c:\cxpl\codes;
|
|
int I, C;
|
|
char IntermediateVariable;
|
|
[IntermediateVariable:= GetHp;
|
|
I:= 0;
|
|
repeat C:= ChIn(1);
|
|
IntermediateVariable(I):= C;
|
|
I:= I+1;
|
|
until C = $1A; \EOF
|
|
I:= 0;
|
|
repeat C:= IntermediateVariable(I);
|
|
I:= I+1;
|
|
ChOut(0, C);
|
|
until C = $1A; \EOF
|
|
]
|