Create a data file to copy the records of all employee.

Solution:

CLS

OPEN "EMPLOYEE.DAT" FOR INPUT AS #1

OPEN "COPY.DAT" FOR OUTPUT AS #2



DO WHILE NOT EOF(1)

INPUT #1, EN$, EAD$, PH

WRITE #2, EN$, EAD$, PH

LOOP

CLOSE #1,#2

END

****************************