QB Program to read ten different names and print all names starting with “A” or “B” or “M”. (Use READ – DATA statement)

Linear Program

Cls
For i = 1 To 10
Read naam$
pc$ = UCase$(Left$(naam$, 1))
If pc$ = "A" Or pc$ = "B" Or pc$ = "M" Then
Print naam$
End If
Next
Data "RAM","Shyam","Mahesh","mohan","Bikram"
Data "Anil","GOPAL","Ganesh","Rohan","Sita"
End

---