home *** CD-ROM | disk | FTP | other *** search
/ Fuji Wa La Te I Ka - Hyakunin Isshu Karuta / KARUTA.bin / wins / library.dir / 00236_Script_WAKA < prev    next >
Text File  |  1995-11-13  |  1KB  |  45 lines
  1. ON WAKA
  2.   put "" into field "KEYSELECT"
  3.   put (clickon()-10) into vSp
  4.   --Jenre " ┼@ " ╟├Γ├╟╒α╗Γè╟├φá╟╦╟╝╟▌┼B
  5.   if vSp = 1 then put "σ»τ╛ΦW" into vP 
  6.   else 
  7.     if vSp = 2 then put "σäδIΦW" into vP 
  8.     else
  9.       if vSp = 3 then put "ΦEαéΦW" into vP
  10.       else
  11.         if vSp = 4 then put "σäΦEαéΦW" into vP  
  12.         else 
  13.           if vSp = 5 then put "πç≤tΦW" into vP 
  14.           else 
  15.             if vSp = 6 then put "ΘσΓæΦW" into vP 
  16.             else
  17.               if vSp = 7 then put "Ω┴τ₧ΦW" into vP
  18.               else
  19.                 if vSp = 8 then put "ΩVσ»τ╛ΦW" into vP  
  20.                 else
  21.                   if vSp = 9 then put "ΩVφèδIΦW" into vP
  22.                   else
  23.                     if vSp = 10 then put "δ▒σäδIΦW" into vP  
  24.                   end if
  25.                 end if
  26.               end if
  27.             end if
  28.           end if
  29.         end if
  30.       end if
  31.     end if
  32.   end if
  33.   
  34.   
  35.   
  36.   put "╔W╔╔╔∞╔π" & "[" & vP &"]" &"╟├Γ├╟╒Θⁿ╟├φá╟╦╟╝╟▌┼B" into field "SELECTVIEW" 
  37.   put "σⁿτªΩε"&&  integer(the number of items in  field vP) into field "SARCH"
  38.   repeat with t = (the number of items in field vP) down to 1
  39.     put item t of field vP  into WAKASong
  40.     put line integer(WAKASong) of field "╔f┼[╔^╔x┼[╔X" into vT
  41.     put item 1 of vT &&  item 5 of vT &&"[" && item 2 of vT &"]" & RETURN &"         " &  "[" & item 3 of vT && item 4 of vT &"]" & RETURN  before field "KEYSELECT"
  42.   end repeat
  43.   updateStage
  44. end
  45.