148. Qbasic sequential file handling store Name, Address and Salary of employees

148.A sequential data file “RECORD.DAT” and store Name, Address and Salary of employees. WAP to add some more records in the data file “RECODR.DAT”. Program should terminate with user choice.

OPEN “RECORD.DAT” FOR APPEND AS #1

DO

CLS

INPUT “ENTER NAME”; N$

INPUT “ENTER MARKS IN ENGLISH”; E

INPUT “ENTER MARKS IN NEPALI”; N

INPUT “ENTER MARKS IN COMPUTER”; C

WRITE #1, N$, E, N, C

INPUT “DO YOU WANT TO CONTINUE”; CH$

LOOP WHILE UCASE$(CH$) = “Y”

CLOSE #1

END