home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 5 Edit / 05-Edit.zip / ftnote1.zip / FOOTTYPE < prev    next >
Text File  |  1993-11-07  |  898b  |  34 lines
  1. MACRO FootType           !  filename  FOOTTYPE    11/7/93
  2. CancelDefinedBlock
  3. SET a TO CursorLineNumber
  4. SET b TO CursorPosition
  5. CursorEnd
  6. SET c TO CursorLineNumber
  7. SET CursorPosition TO b
  8.         IF a = c THEN
  9.                 CursorEnd
  10.                 NewParagraph
  11.                 NewParagraph
  12.                 SET CursorPosition TO b
  13.                 MSG "Two new lines have been added to the end of the frame. Try it again."
  14.                 QUIT
  15.         ELSE
  16.         END IF
  17. EndNoteCreate
  18. SET d TO CursorPosition
  19. SET CursorPosition TO b 
  20. PUT " "
  21. SET CursorPosition TO d
  22. CursorWordEndRight
  23.         IF CursorColumn = 1 THEN
  24.         ELSE
  25.                 CursorBeginLine
  26.         END IF
  27. DefineToLineEnd                 
  28. StyleApplyNamed "Footnotes"
  29. CancelDefinedBlock
  30. CursorBeginLine
  31. CursorWordEndRight
  32. KeyTab
  33. SET StatusMessage TO "Enter the text of the footnote"
  34. END MACRO