dim s$(1):i=split("d sapporo iw morioka yag sendai mm maebashi toc utsunomiya bar mito oky shinjuku kan yokohama nas kofu ic nagoya ie tsu is kanazawa shig otsu hy kobe eh matsuyama kaga takamatsu ane matsue in naha",s$())
for i=ran(2)to 48input""p$:for j=1to 35if instr(p$,s$(j))?s$(j+1):goto 1
next:?p$
1next
Note that non-ascii characters in the above source code will be escaped (such as \x9f).