OPEN "CLASS.DAT" FOR APPEND AS #1
CLS
DO
INPUT "ENTER NAME:"; N$
INPUT "ENTER CLASS:"; CL
INPUT "ENTER ROLL NO:"; RO
INPUT "ENTER SECTION:"; SE$
WRITE #1, N$, CL, RO, SE$
INPUT "ADD MORE RECORDS (Y/N)"; YES$
LOOP WHILE UCASE$ (YES$) = "Y"
CLOSE #1
END