I made in Old Petitcom.
ACLS
? "Language? A=Japanese B=English
WAIT 30:L=-1
REPEAT
B=BUTTON()
IF B==#A THEN L=0
IF B==#B THEN L=1
UNTIL L!=-1
IF L==0 THEN ? "Nihongo Mihon 1
IF L==1 THEN ? "English Sample 1
A$="Nihongo Mihon 2":IF L THEN A$="English Sample 2
? A$