ズンドコキヨシ

rem スンドコキヨシ
b$=""
e$="off"

cls

do

  a=rnd()*10

  if a > 5 then
    c$="ズン"
  else
    c$="ドコ"
  endif

  print c$;"　";

  b$=b$+c$

  if len(b$) > 10 then
    b$=right$(b$,10)
  endif

  if b$="ズンズンズンズンドコ" then
    print "キ・ヨ・シ！"
    e$="on"
  endif

until e$="on"

end