IDENTIFICATION DIVISION.
PROGRAM-ID. FONTS-TEST.
AUTHOR. JP.
DATA DIVISION.
    WORKING-STORAGE SECTION.
        01 TEST-FONTS.
        05 TEST-FONTS-TABLE OCCURS 5 TIMES INDEXED BY I.
        10 FONT-NAME PIC X(50).
        10 FONT-SIZE PIC 9(5).
        01 MENTIONED-FONTS OCCURS 5 TIMES INDEXED BY J.
        05 MF-NAME PIC X(50).
        05 MF-SIZE PIC 9(5).
PROCEDURE DIVISION.
    MOVE "Verdana" TO FONT-NAME(1).
    MOVE 10 TO FONT-SIZE(1).
    MOVE "Verdana" TO FONT-NAME(2).
    MOVE 10 TO FONT-SIZE(2).
    MOVE "Verdana" TO FONT-NAME(3).
    MOVE 8 TO FONT-SIZE(3).
    MOVE "Fixedsys" TO FONT-NAME(4).
    MOVE 8 TO FONT-SIZE(4).
    MOVE "Courier New" TO FONT-NAME(5).
    MOVE 10 TO FONT-SIZE(5).

    PERFORM VARYING I FROM 1 BY 1 UNTIL I IS GREATER THAN 5
    SET J TO 1
    SEARCH MENTIONED-FONTS

    AT END DISPLAY FONT-NAME(I) " " FONT-SIZE(I)
    MOVE FONT-NAME(I) TO MF-NAME(I)
    MOVE FONT-SIZE(I) TO MF-SIZE(I)

    WHEN FONT-NAME(I) EQUALS MF-NAME(J) AND FONT-SIZE(I) EQUALS MF-SIZE(J)
    CONTINUE
    END-SEARCH

    END-PERFORM.
STOP RUN.