home *** CD-ROM | disk | FTP | other *** search
/ Fuji Wa La Te I Ka - Hyakunin Isshu Karuta / KARUTA.bin / wins / library.dir / 00235_Script_GENRE < prev    next >
Text File  |  1995-11-13  |  1KB  |  39 lines

  1. ON genre
  2.   put "" into field "KEYSELECT"
  3.   put (clickon()-10) into vSp
  4.   --Jenre " ┼@ " ╟├Γ├╟╒α╗Γè╟├φá╟╦╟╝╟▌┼B
  5.   if vSp = 1 then put "Φt" into vP 
  6.   else 
  7.     if vSp = 2 then put "Γâ" into vP 
  8.     else
  9.       if vSp = 3 then put "ΦH" into vP
  10.       else
  11.         if vSp = 4 then put "∞~" into vP  
  12.         else 
  13.           if vSp = 5 then put "≤ê" into vP 
  14.           else 
  15.             if vSp = 6 then put "≤▌" into vP 
  16.             else
  17.               if vSp = 7 then put "≤ú∩á" into vP
  18.               else
  19.                 if vSp = 8 then put "╟¬╟├δ║" into vP  
  20.               end if
  21.             end if
  22.           end if
  23.         end if
  24.       end if
  25.     end if
  26.   end if
  27.   
  28.   
  29.   
  30.   put "╔W╔╔╔∞╔π" & "[" & vP &"]" &"╟├Γ├╟╒Θⁿ╟├φá╟╦╟╝╟▌┼B" into field "SELECTVIEW" 
  31.   put "σⁿτªΩε"&&  integer(the number of items in  field vP) into field "SARCH"
  32.   repeat with t = (the number of items in field vP) down to 1
  33.     put item t of field vP  into GenreSong
  34.     put line integer(GenreSong) of field "╔f┼[╔^╔x┼[╔X" into vT
  35.     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"
  36.   end repeat
  37.   updateStage
  38. end
  39.