create cursor myScores (id i, score1 c(1),score2 c(1),score3 c(1),score4 c(1)) for ix = 1 to 250 insert into myScores values (ix, ; iif(int(rand()*100)%2=0,'F','P'), ; iif(int(rand()*100)%2=0,'F','P'), ; iif(int(rand()*100)%2=0,'F','P'), ; iif(int(rand()*100)%2=0,'F','P')) endfor browse title 'All' copy to mytext.txt type SDF create cursor myPassed (id i,scores c(4)) append from myText.Txt for at('F',scores)=0 type SDF brow title 'Passed' lnPassed = reccount('myPassed') lnTotal = reccount('myScores') lnPassedPct = lnPassed/lnTotal*100 lnFailedPct = (lnTotal-lnPassed)/lnTotal*100 ? "Passed % :",lnPassedPct, " Failed % :",lnFailedPctCetin