do
print "ｾｲﾕｳ ﾊﾟﾝﾃｨ ｹﾝｻｸ ﾌﾟﾛｸﾞﾗﾑ"
print "ｼﾗﾍﾞﾀｲ ｾｲﾕｳｦ ﾆｭｳﾘｮｸ ｼﾃｸﾀﾞｻｲ"
input seiyu$
call wait
print "ｹﾝｻｸﾁｭｳ";
for kensaku=0 to 30
call wait
print ".";
next kensaku
print
print seiyu$;"ﾊ ﾊﾟﾝﾃｨｦ ﾊｲﾃｲﾏｾﾝ"
loop
end
external sub wait
for a=1 to 1000
next a
end sub