MACRO FootType           !  filename  FOOTTYPE    11/7/93
CancelDefinedBlock
SET a TO CursorLineNumber
SET b TO CursorPosition
CursorEnd
SET c TO CursorLineNumber
SET CursorPosition TO b
        IF a = c THEN
                CursorEnd
                NewParagraph
                NewParagraph
                SET CursorPosition TO b
                MSG "Two new lines have been added to the end of the frame. Try it again."
                QUIT
        ELSE
        END IF
EndNoteCreate
SET d TO CursorPosition
SET CursorPosition TO b 
PUT " "
SET CursorPosition TO d
CursorWordEndRight
        IF CursorColumn = 1 THEN
        ELSE
                CursorBeginLine
        END IF
DefineToLineEnd                 
StyleApplyNamed "Footnotes"
CancelDefinedBlock
CursorBeginLine
CursorWordEndRight
KeyTab
SET StatusMessage TO "Enter the text of the footnote"
END MACRO