by@k_hanazuki
AC
953ms
>>SOURCE FORMAT IS FREE id division.program-id.a. data division.working-storage section. 1 s pic x(50). 1 p pic x(50). 1 t pic 99. 1 k pic 99. procedure division. accept s. inspect s tallying t for leading " ". begin. display s. accept p. move 0 to k. inspect p tallying k for all " ". if k = 50 then go to begin end-if. string p(1 : t) "T" into s. inspect s replacing all " " by "*" after initial "K" before initial "T". display s.
T K
T T T T T T T T T T T T T T T T T T K***********T
/tmp/code.cbl:19: warning: line not terminated by a newline