1input""a$\x0d b$=" nakamaga popopopo-n"\x0d if a$="konnichiwa"?a$;:?"n":goto 1\x0d if a$="arigatou"?a$;:?"sagi":goto 1\x0d if a$="konbanwa"?a$;:?"ni":goto 1\x0d if a$="sayounara"?"sayonaraion":goto 1\x0d if a$="mahouno"?"tanoshii";:?b$:goto 1\x0d if a$="kotobade"goto 1\x0d if a$="ohayou"?a$;:?"nagi":goto 1\x0d if a$="itadakimasu"?"itadakimausu":goto 1\x0d if a$="ittekimasu"?a$;:?"kanku":goto 1\x0d if a$="tadaima"?a$;:?"nbou":goto 1\x0d if a$="gochisousama"?a$;:?"usu":goto 1\x0d if a$="oyasuminasai"?a$:goto 1\x0d if a$="sutekina"?"yukaina";:?b$:goto 1\x0d end
Note that non-ascii characters in the above source code will be escaped (such as \x9f).