A data file 'salary.doc' has 100 records that contain employee's name, address, post & salary. Print the number of records where salary >= 2000.

                       OPEN "salary.doc" FOR INPUT AS #1

      CLS

      PRINT "Name", "Address", "Post", "Salary"

      DO WHILE NOT EOF (1)

      INPUT #1, n$, a$, p$, s

      IF s >= 2000 THEN PRINT n$, a$, p$, s

      LOOP

      CLOSE #1

      END