Fuji Wa La Te I Ka - Hyakunin Isshu Karuta/KARUTA.bin/wins/waku.dir/00103_Script_103

Text File | 1995-11-10 | 313b | 16 lines

on mouseDown
  global gTEIKA2,gTEIKA,CUL
  if pushbutton() then
    if gTEIKA < 1000 then
      beep 1
      tell window "TOWN"
        put "≤°πç╟Ö∩sδ┤╟╡╟â╟«╟╦╟ï╟▌┼B" into field "SELECTview"
      end tell
    else
      set gTEIKA2 = -1000
      TEIKAX
      ADDCHIELIST
    end if
  end if

end