Fuji Wa La Te I Ka - Hyakunin Isshu Karuta/KARUTA.bin/wins/library.dir/00118_Field_118.txt

Text File | 1995-11-13 | 499b | 14 lines

return the number of items in T_list
end
put field"ƒf[ƒ^ƒx[ƒX" into karutaDB
if sentakusi = 2 then
set CT = 0
put "ŒŸõ”" && CT into field "SARCH"
repeat with n = 1 to 100
put line n of karutaDB into checkLine
if Item sentakusi of checkLine starts kasira then
set CT = CT + 1
put Item 1 of checkLine && Item sentakusi of checkLine & RETURN & "@@@@" & Item 5 of checkLine & RETURN after field"output"
put "ŒŸõ”" && CT into field "SARCH"
end if
end repeat