Qbasic (Display Recorded Data)

Write a QBASIC program to display data from a sequential data file "info.dat" with field name Id, Name, Address, Post and salary.
OPEN "info.dat" FOR INPUT AS #1
CLS
While not EOF(1)
PRINT "Id", "Name", "Address", "Post", "Salary"
INPUT #1, ID, N$,A$,P$,S
PRINT ID, N$,A$,P$, S
CLOSE #1
END

Qbasic (Store Data)

OPEN "info.dat" FOR OUTPUT AS #1
CLS
TOP :
INPUT "Enter your Id"; ID
INPUT "Enter your Name "; Name$
INPUT "Enter your Address"; Ad$
INPUT "Enter your Post"; Po$
INPUT "Enter your Salary"; Sa
WRITE #1, ID, Name$,Ad$,Po$, Sa
INPUT "Do you want to enter next record (Y/N)"; y$
IF UCASE$(Y$)="Y" THEN GOTO TOP
CLOSE #1
END