QBASIC File Handling Read Data from Data File Example

Write a program to display all the records of data file STUDENT.DAT

CLS
OPEN "STUDENT.DAT" FOR INPUT AS #1
PRINT "Name", "Class", "Roll No", "Address"
DO WHILE NOT EOF(1)
INPUT #1, n$, c, r, a$
PRINT n$, c, r, a$
LOOP
CLOSE #1
END