program-id.y.data division.working-storage section.
1 s pic x(6).
procedure division.accept s
if s<"I"display s"
Baka
Mou asobanai
Gomenne"else display"No. Everyone does.".