8. Write a program to delete some records from datafile "RECORD.DAT" which contains Name , Class, Roll Number of students :-

Ans :-


CLS
OPEN " RECORD.DAT" FOR INPUT AS #1
OPEN"NEWRECORD.DAT" FOR OUTPUT AS #2
A:
DO WHILE NOT  EOF(1)
INPUT #1,N$,C,R,S$
PRINT "NAME "; N$
PRINT "CLASS";C
PRINT "ROLL NUMBER ";R
PRINT "SECTION";S
INPUT "DO YOU WANT TO DELETE THIS RECORD (Y/N)  ";Y$
IF Y$  = "Y" THEN GO TO A:
ELSE
WRITE #2,N$,C,R,S$
END IF
LOOP
CLOSE #1
CLOSE #2
KILL "RECORD.DAT"
NAME " NEWRECORD.DAT" AS "RECORD.DAT"
END