OPEN "ADDRESS.DAT" FOR INPUT AS #1
CLS
WHILE NOT EOF (1)
INPUT #1, PE$, ADD$, AG, GEN$
GEN$ = UCASE$ (GEN$)
IF GEN$ = "FEMALE" THEN F = F + 1
IF GEN$ = "MALE" THEN M = M + 1
WEND
PRINT "THE NUMBER OF FEMALE:"; F
PRINT "THE NUMBER OF MALE:";M
CLOSE #1
END