home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Fuji Wa La Te I Ka - Hyakunin Isshu Karuta
/
KARUTA.bin
/
wins
/
roudoku.dir
/
00096_Script_GENRE
< prev
next >
Wrap
Text File
|
1995-11-10
|
1KB
|
39 lines
ON genre
put "" into field "KEYSELECT"
put (clickon()-10) into vSp
--Jenre " ┼@ " ╟├Γ├╟╒α╗Γè╟├φá╟╦╟╝╟▌┼B
if vSp = 1 then put "Φt" into vP
else
if vSp = 2 then put "Γâ" into vP
else
if vSp = 3 then put "ΦH" into vP
else
if vSp = 4 then put "∞~" into vP
else
if vSp = 5 then put "≤ê" into vP
else
if vSp = 6 then put "≤▌" into vP
else
if vSp = 7 then put "≤ú∩á" into vP
else
if vSp = 8 then put "╟¬╟├δ║" into vP
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 GenreSong
put line integer(GenreSong) 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