> 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

for(;;) {
　　printf("声優ﾊﾟﾝﾂ検索:);
　　gets(buf);
　　PantsuWait(TIME_PANTSU);
　　printf("\n%sはﾊﾟﾝﾂをはいていません.\n", buf);
}

参考：2020/07/24(金)22時20分11秒