home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 5 Edit / 05-Edit.zip / scr-htm.zip / MACROS.ZIP / HTMLH1 (.txt) < prev    next >
DeScribe Document  |  1995-11-11  |  23KB  |  120 lines
  1. DeScribe  Copyright DeScribe, Inc., 1988, 1989
  2. Letter
  3. <none>
  4.   <none>
  5. _BrotherH
  6. BrotherH
  7. LASERJET
  8. Brother HL-630/631
  9. Brother HL-630/631
  10. Letter
  11. Letter
  12. Info 1
  13. Info 2
  14. Info 3
  15. Info 4
  16. Document
  17. Roman
  18. okman
  19. StickyNote
  20. Helvetica
  21. portional
  22. Bulleted List
  23. Numbered List
  24. .Hanging indent
  25. 1/2 inch over
  26. 1 inch over
  27. Indented
  28. paras
  29. Bibliography
  30. border
  31. quote
  32. ITC Bookman
  33. Heading One
  34. Helvetica
  35. portional
  36. Heading Three
  37. Heading Four
  38. Heading Two
  39. ocument
  40. Roman
  41. okman
  42. ocument
  43. Roman
  44. okman
  45. ocument
  46. Roman
  47. okman
  48. Frame 2
  49. Frame 2
  50. !============================================================
  51. !   Scribe-HTML 0.9
  52. !============================================================
  53. !                                     Copyright (c) 1995 by Mike Sosteric
  54. !============================================================
  55. !   Scribe-HTML 0.9
  56. !============================================================
  57. VAR Position
  58. VAR TOP
  59. VAR BOTTOM
  60. MACRO HTMLH1
  61. Set InsertMode to True
  62. Set Position to CursorPosition
  63. If DefinedBlock THEN
  64. Set Top to FirstDefinedPosition
  65. Set Bottom to LastDefinedPosition
  66. PlayMacro 
  67. HTMLNOS
  68. CancelDefinedBlock
  69. Set CursorPosition to Bottom
  70. PlayMacro 
  71. HTMLCHAR
  72. </H1>
  73. Set CursorPosition to TOP
  74. ParagraphDown
  75. If NumberLineChars <> CursorColumn Then
  76. CursorEndLine
  77. End If
  78. <\H1>
  79. CursorBeginLIne
  80. If CursorCharacter = 
  81.  Then
  82. CursorRight
  83. End If
  84. REPEAT
  85. If CursorCharacter=
  86.  Then
  87. CursorRight
  88. End if
  89. Exit When CursorCharacter <>
  90. END REPEAT
  91. If IsCharAlpha Then
  92.    CursorDown
  93. End If
  94. END IF
  95. END MACRO
  96.  Page: 
  97. DeScribe Glossary
  98. Create date
  99. Create time
  100. Document name
  101. File name
  102. Pages
  103. Pages (Alphabetic lower case)
  104. Pages (Alphabetic upper case)
  105. Pages (Roman lower case)
  106. Pages (Roman upper case)
  107. Print date
  108. Print time
  109. Revisions
  110. Save date
  111. Save time
  112. November 3, 1995
  113. 8:44 A.M.
  114. HTMLH1
  115. C:\DeScribe\MACROS\HTMLH1
  116. November 11, 1995
  117. 6:29 P.M.
  118. November 11, 1995
  119. 6:29 P.M.
  120.