home *** CD-ROM | disk | FTP | other *** search
/ Fuji Wa La Te I Ka - Hyakunin Isshu Karuta / KARUTA.bin / wins / library.dir / 00188_Script_188 < prev    next >
Text File  |  1995-11-13  |  3KB  |  98 lines
  1. on TonoHimeBouzu
  2.   global THBlist
  3.   put [1:1,2:2,3:1,4:1,5:1,6:1,7:1,8:3,9:2,10:3,¼
  4.   11:1,12:3,13:1,14:1,15:1,16:1,17:1,18:1,19:2,20:1,¼
  5. 21:3, 22:1,23:1,24:1,25:1,26:1,27:1,28:1,29:1,30:1,¼
  6. 31:1,32:1,33:1,34:1,35:1,36:1,37:1,38:2,39:1,40:1,¼
  7. 41:1,42:1,43:1,44:1,45:1,46:1,47:3,48:1,49:1,50:1,¼
  8. 51:1,52:1,53:2,54:2,55:1,56:2,57:2,58:2,59:2,60:2,¼
  9. 61:2,62:2,63:1,64:1,65:2,66:3,67:2,68:1,69:3,70:3,¼
  10. 71:1,72:2,73:1,74:1,75:1,76:3,77:1,78:1,79:1,80:2,¼
  11. 81:1,82:3,83:1,84:1,85:3,86:3,87:3,88:2,89:2,90:2,¼
  12. 91:1,92:2,93:1,94:1,95:3,96:3,97:1,98:1,99:1,100:1] into THBlist
  13. end
  14.  
  15. on Tono
  16.   global THBlist
  17.   TonoHimeBouzu
  18.   put field"╔f┼[╔^╔x┼[╔X" into karutaDB
  19.   put "" into field "KEYSELECT"
  20.   put "" into x
  21.   repeat with v in THBlist
  22.     put v & "," after x
  23.   end repeat
  24.   put "" into T_list
  25.   repeat with n = 1 to 100
  26.     if item n of  X = 1 then put n & "," after T_list
  27.   end repeat
  28.   repeat with t = 1 to (the number of items in T_list) - 1
  29.     put item t of T_list  into T_menber
  30.     put line integer(T_menber) of karutaDB into vT
  31.     put item 1 of vT &&  item 5 of vT &&"[" && item 2 of vT &"]" & RETURN &"         " &  "[" & item 3 of vT && item 4 of vT &"]" & RETURN  ¼
  32. after field "KEYSELECT"
  33.   end repeat
  34.   updateStage
  35.   --return the number of items in T_list
  36.   
  37. end
  38.  
  39.  
  40. on HIME
  41.   global THBlist
  42.   TonoHimeBouzu
  43.   put field"╔f┼[╔^╔x┼[╔X" into karutaDB
  44.   put "" into field "KEYSELECT"
  45.   put "" into x
  46.   repeat with v in THBlist
  47.     put v & "," after x
  48.   end repeat
  49.   put "" into H_list
  50.   repeat with n = 1 to 100
  51.     if item n of  X = 2 then put n & "," after H_list
  52.   end repeat
  53.   repeat with t = 1 to (the number of items in H_list) - 1
  54.     put item t of H_list  into H_menber
  55.     put line integer(H_menber) of karutaDB into vT
  56.     put item 1 of vT &&  item 5 of vT &&"[" && item 2 of vT &"]" & RETURN &"         " &  "[" & item 3 of vT && item 4 of vT &"]" & RETURN  after field "KEYSELECT"
  57.   end repeat
  58.   updateStage
  59.   return  X
  60.   
  61. end
  62.  
  63. on THB vSp
  64.   global THBlist
  65.   TonoHimeBouzu
  66.   put field"╔f┼[╔^╔x┼[╔X" into karutaDB
  67.   put "" into field "KEYSELECT"
  68.   put "" into x
  69.   repeat with v in THBlist
  70.     put v & "," after x
  71.   end repeat
  72.   put "" into H_list
  73.   repeat with n = 1 to 100
  74.     if item n of  X = vSp then put n & "," after H_list
  75.   end repeat
  76.   
  77.   --τ╧Θô╟Ö " ∞a " ╟├Γ├╟╒α╗Γè╟├φá╟╦╟╝╟▌┼B
  78.   if vSp = 1 then put "∞a" into vP 
  79.   else 
  80.     if vSp = 2 then put "∩P" into vP 
  81.     else
  82.       if vSp = 3 then put "±VΘ┬" into vP 
  83.     end if
  84.   end if
  85.   put "τ╧Θô╟Ö" & "[" & vP &"]" &"╟├Γ├╟╒Θⁿ╟├φá╟╦╟╝╟▌┼B" into field "SELECTVIEW" 
  86.   put "σⁿτªΩε"&&  integer(the number of items in H_list) - 1 into field "SARCH"
  87.   repeat with t = (the number of items in H_list) - 1 down to 1 
  88.     put item t of H_list  into H_menber
  89.     put line integer(H_menber) of karutaDB into vT
  90.     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"
  91.   end repeat
  92.   updateStage
  93.   return  X
  94.   
  95. end
  96.  
  97.  
  98.