QBasic programs collection-Especially for SEE (Grade-10)
QBasic procedure based programming questions asked in Triton's model questions
QBasic programs [Triton's model set]
'q9(b) triton SEE model set set II
Open "record.dat" For Input As #11
Cls
c = 0
While Not EOF(11)
Input #11, sno, name$, address$, tel, email$
If LCase$(Right$(email$, 9)) = "yahoo.com" Then
c = c + 1
Print name$, address$, email$
End If
Wend
Print "total records having email is="; c
Close #11
End
