%BEGIN
%EXTERNALROUTINESPEC TERMINATE
%EXTERNALROUTINESPEC PROMPT(%STRING (17) S)
%OWNSTRING(1) N="A"
%INTEGER I,J,K
CHARNO(N,1)=0
PROMPT(N)
%CYCLE
READCH(I)
PRINTCH(I)
TERMINATE
%REPEAT
%ENDOFPROGRAM