%begin
%externalroutinespec prompt(%string(63) s)
%externalroutinespec xmode(%string(255) s)
%externalroutinespec terminate
%integer i,j
%integerarray line(1:80)

prompt(tostring(0))
xmode("NATIVE,-E")
j=0
%cycle
readch(i); 
%unless 'a'<=i<='z' %then printch(i) %else printch(i-'a'+'A')
printch('*');terminate
%if i=26 {^Z} %then xmode("MESSAGE,E") %AND %STOP
%if i=10 %start
    printch(13)
!    newline
    %cycle i=1,1,j
       printch(line(i))
    %repeat
    printch(13)
    newlines(2)
    j=0
%finishelse j=j+1 %and line(j)=i
%repeat
%endofprogram