program-id.y.data division.working-storage section.
1 i pic 99.
1 s pic x(99).
procedure division.accept s.a.move 99 to i.b.if 0<>s(i:1)if i>1 add -1to i
go b.inspect s(i:)replacing all 0 by 1 1 by 0
display function trim(s)accept s
if 01111111<>s(9:)go a.display s(1:16)1.