home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 5 Edit / 05-Edit.zip / scr-htm.zip / MACROS.ZIP / HTMLH5 (.txt) < prev    next >
DeScribe Document  |  1995-11-10  |  23KB  |  121 lines
  1. DeScribe  Copyright DeScribe, Inc., 1988, 1989
  2. Letter
  3. <none>
  4. Env78
  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. ocument
  44. Roman
  45. okman
  46. ocument
  47. Roman
  48. okman
  49. Frame 2
  50. Frame 2
  51. !============================================================
  52. !   Scribe-HTML 0.9
  53. !============================================================
  54. !                                     Copyright (c) 1995 by Mike Sosteric
  55. !============================================================
  56. !   Scribe-HTML 0.9
  57. !============================================================
  58. VAR Position
  59. VAR TOP
  60. VAR BOTTOM
  61. MACRO HTMLH5
  62. Set InsertMode to True
  63. Set Position to CursorPosition
  64. If DefinedBlock THEN
  65. Set Top to FirstDefinedPosition
  66. Set Bottom to LastDefinedPosition
  67. PlayMacro 
  68. HTMLNOS
  69. CancelDefinedBlock
  70. Set CursorPosition to Bottom
  71. PlayMacro 
  72. HTMLCHAR
  73. </H5>
  74. Set CursorPosition to TOP
  75. ParagraphDown
  76. If NumberLineChars <> CursorColumn Then
  77. CursorEndLine
  78. End If
  79. <\H5>
  80. CursorBeginLIne
  81. If CursorCharacter = 
  82.  Then
  83. CursorRight
  84. End If
  85. REPEAT
  86. If CursorCharacter=
  87.  Then
  88. CursorRight
  89. End if
  90. Exit When CursorCharacter <>
  91. END REPEAT
  92. If IsCharAlpha Then
  93.    CursorDown
  94. End If
  95. END IF
  96. END MACRO
  97.  Page: 
  98. DeScribe Glossary
  99. Create date
  100. Create time
  101. Document name
  102. File name
  103. Pages
  104. Pages (Alphabetic lower case)
  105. Pages (Alphabetic upper case)
  106. Pages (Roman lower case)
  107. Pages (Roman upper case)
  108. Print date
  109. Print time
  110. Revisions
  111. Save date
  112. Save time
  113. November 3, 1995
  114. 8:44 A.M.
  115. HTMLH5
  116. C:\DeScribe\Macros\HTMLH5
  117. November 10, 1995
  118. 3:00 P.M.
  119. November 10, 1995
  120. 3:00 P.M.
  121.