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.".
Note that non-ascii characters in the above source code will be escaped (such as \x9f).