home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 5 Edit / 05-Edit.zip / scr-htm.zip / MACROS.ZIP / HTMLNOTE (.txt) < prev    next >
DeScribe Document  |  1995-11-11  |  27KB  |  144 lines

  1. DeScribe  Copyright DeScribe, Inc., 1988, 1989
  2. Letter
  3. <none>
  4. Env46
  5. <none>
  6. EnBrotherH
  7. BrotherH
  8. LASERJET
  9. Brother HL-630/631
  10. Brother HL-630/631
  11. Letter
  12. Letter
  13. Info 1
  14. Info 2
  15. Info 3
  16. Info 4
  17. Document
  18. Roman
  19. okman
  20. StickyNote
  21. Helvetica
  22. portional
  23. Bulleted List
  24. Numbered List
  25. .Hanging indent
  26. 1/2 inch over
  27. 1 inch over
  28. Indented
  29. paras
  30. Bibliography
  31. border
  32. quote
  33. ITC Bookman
  34. Heading One
  35. Helvetica
  36. portional
  37. Heading Three
  38. Heading Four
  39. Heading Two
  40. ocument
  41. Roman
  42. okman
  43. Frame 2
  44. Frame 2
  45. !============================================================
  46. !   Scribe-HTML 0.9
  47. !============================================================
  48. !                                     Copyright (c) 1995 by Mike Sosteric
  49. !============================================================
  50. !   Scribe-HTML 0.9
  51. !============================================================
  52. VAR SearchCount
  53. VAR NoteCount
  54. MACRO HTMLNOTE
  55. CursorHome
  56. REPEAT
  57. CursorRight
  58.             Exit When EndOfFrame
  59. If IsEffectSuperscript = TRUE THEN
  60. If NOT IsCharNumeric then
  61. EffectNone
  62. End If
  63. End If
  64. END REPEAT
  65. SET Searchcount to 0
  66. CursorHome
  67. REPEAT
  68.             CursorRight
  69. If IsEffectSuperScript  = TRUE THEN
  70. EffectNone
  71.                          PUT 
  72.  <A HREF=
  73.  Name=
  74. REPEAT
  75. CursorRight
  76. EXIT WHEN NOT IsEffectSuperscript
  77. END REPEAT
  78. ]</A> 
  79.               Set Searchcount TO Searchcount+1
  80. End IF
  81. EXIT WHEN EndOfFrame
  82. END REPEAT
  83. ! First Pass: Notes in Text
  84. Set SearchCount TO Searchcount/2
  85. Set NoteCount TO 0
  86. REPEAT
  87. CursorHome
  88. SearchClear
  89. Set SearchSearch1 TO 
  90. Set SearchIgnoreCase1 To False
  91. SearchForward
  92. PUT NoteCount
  93. SearchClear
  94. Set SearchSearch1 TO 
  95. Set SearchIgnoreCase1 To False
  96. SearchForward
  97. PUT NoteCount
  98. Set NoteCount To NoteCount + 1
  99. Exit When NoteCount = SearchCount
  100. END REPEAT
  101. ! Second Pass: Notes Section Proper
  102. Set NoteCount TO 0
  103. REPEAT
  104. CursorHome
  105. SearchClear
  106. Set SearchSearch1 TO 
  107. SearchForward
  108. PUT NoteCount
  109. SearchClear
  110. Set SearchSearch1 TO 
  111. Set SearchIgnoreCase1 To False
  112. SearchForward
  113. PUT NoteCount
  114. Set NoteCount To NoteCount + 1
  115. Exit When NoteCount = SearchCount
  116. END REPEAT
  117. END MACRO
  118.  Page: 
  119.  Page: 
  120.  Page: 
  121. DeScribe Glossary
  122. Create date
  123. Create time
  124. Document name
  125. File name
  126. Pages
  127. Pages (Alphabetic lower case)
  128. Pages (Alphabetic upper case)
  129. Pages (Roman lower case)
  130. Pages (Roman upper case)
  131. Print date
  132. Print time
  133. Revisions
  134. Save date
  135. Save time
  136. November 4, 1995
  137. 1:37 P.M.
  138. HTMLNOTE
  139. C:\DeScribe\Macros\HTMLNOTE
  140. November 11, 1995
  141. 2:31 P.M.
  142. November 11, 1995
  143. 2:31 P.M.
  144.