home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Fuji Wa La Te I Ka - Hyakunin Isshu Karuta
/
KARUTA.bin
/
wins
/
library2.dir
/
00118_Field_118.txt
< prev
next >
Wrap
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