tc=1
do whil tc=1
accept "請輸入妳要查詢的國家名稱：" to gj
use 金牌榜
loca for 國家=allt(gj)
if found()
stor 金牌數 to jps
stor 銀牌數 to yps
stor 銅牌數 to tps
use 國家
appe blan
repl 國家 with gj,金牌數 with jps,銀牌數 with yps,銅牌數 with tps,獎牌總數 with jps+yps+tps
list 國家,金牌數,銅牌數,獎牌總數 for 國家=gj
input "是否還要查找其它國家信息（1-是，0-否）" to tc
if tc<>1.and.tc<>0
messagebox("輸入無效，請重新輸入1或者是0！",0,"系統消息)
input "是否還要查找其它國家信息（1-是，0-否）" to tc
endi
else
messagebox("查無此國家，請重新輸入！",0,"系統消息)
endi
endd