QBASIC - File Handling

WAP to store roll num, name, grade, section, of 10 students in "stu.dat" data file.
cls
OPEN "Stu.dat" for OUTPUT AS #1
FOR I=1 TO 10
INPUT SRN
INPUT NA$
INPUT S$
WRITE #1, SRN, NA$, S$
NEXT I
CLOSE#1
END