home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Fuji Wa La Te I Ka - Hyakunin Isshu Karuta
/
KARUTA.bin
/
wins
/
roudoku.dir
/
00097_Script_WAKA
< prev
next >
Wrap
Text File
|
1995-11-10
|
1KB
|
45 lines
ON WAKA
put "" into field "KEYSELECT"
put (clickon()-10) into vSp
--Jenre " ┼@ " ╟├Γ├╟╒α╗Γè╟├φá╟╦╟╝╟▌┼B
if vSp = 1 then put "σ»τ╛ΦW" into vP
else
if vSp = 2 then put "σäδIΦW" into vP
else
if vSp = 3 then put "ΦEαéΦW" into vP
else
if vSp = 4 then put "σäΦEαéΦW" into vP
else
if vSp = 5 then put "πç≤tΦW" into vP
else
if vSp = 6 then put "ΘσΓæΦW" into vP
else
if vSp = 7 then put "Ω┴τ₧ΦW" into vP
else
if vSp = 8 then put "ΩVσ»τ╛ΦW" into vP
else
if vSp = 9 then put "ΩVφèδIΦW" into vP
else
if vSp = 10 then put "δ▒σäδIΦW" into vP
end if
end if
end if
end if
end if
end if
end if
end if
end if
put "╔W╔╔╔∞╔π" & "[" & vP &"]" &"╟├Γ├╟╒Θⁿ╟├φá╟╦╟╝╟▌┼B" into field "SELECTVIEW"
put "σⁿτªΩε"&& integer(the number of items in field vP) into field "SARCH"
repeat with t = 1 to (the number of items in field vP)
put item t of field vP into WAKASong
put line integer(WAKASong) of field "╔f┼[╔^╔x┼[╔X" into vT
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"
end repeat
updateStage
end