File Handling in Qbasic

QBasic Program display only the list of pass student

CLS
OPEN "RESLUT.TXT" FOR INPUT AS #1
PRINT "RN", "NAME", "ENGLISH","NEPALI", "MATHS"
WHILE NOT EOF (1)
INPUT#1, RN,N$,ENG,NEP,MAT
IF ENG>=40 AND NEP>=40 AND MAT>=40 THEN
PRINT RN, N$, ENG, NEP, MAT
END IF
WEND
CLOSE #1
END