!       filename FOOTLINE  11/07/93
VAR thickness
VAR separation
VAR defaultSeparation
MACRO FootnoteSeparator
        CancelDefinedBlock
        StyleCreateVariation
        SET AttributeUnderline TO TRUE
        GET "How thick should the footnote separator line be?  Enter the number of points. Default is   1 pt" TOVALUE thickness
        ParagraphDown
        SET a TO StylePointSize
        SET b TO StylePointSize
        SET c TO StyleLeading
        ParagraphUp
        GET "How many points between the line and the first footnote's text?  Default is footnote pointsize - 2" TOVALUE separation
                IF separation = 0 THEN
                        SET defaultSeparation TO a - 2pt
                        SET defaultSeparation TO -defaultSeparation
                ELSE
                        SET separation TO -separation
                END IF
        IF thickness = 0 THEN
                SET UnderlineSize TO 1
        ELSE
                SET UnderlineSize TO thickness
        END IF
        IF separation = 0 THEN
                SET UnderlinePosition TO defaultSeparation
        ELSE
                SET UnderlinePosition TO separation
        END IF
        SET StylePointSize TO b
        SET StyleLeading TO c
        StyleApplyVariation
        MSG "Place your cursor where you want the separator line to END, and press the space bar."
        DefineRight
        CursorLeft
END MACRO
