home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 5 Edit / 05-Edit.zip / scr-htm.zip / MACROS.ZIP / HTML (.txt) < prev    next >
DeScribe Document  |  1995-11-10  |  23KB  |  124 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 HTML
  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. </HTML>
  73. Set CursorPosition to TOP
  74. <HTML>
  75. ParagraphDown
  76. If NumberLineChars <> CursorColumn Then
  77. CursorEndLine
  78. End If
  79. <\HTML>
  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. <HTML>
  93. If IsCharAlpha Then
  94.    CursorDown
  95. NewLine
  96. NewLine
  97. CursorUp
  98. End If
  99. END IF
  100. END MACRO
  101.  Page: 
  102. DeScribe Glossary
  103. Create date
  104. Create time
  105. Document name
  106. File name
  107. Pages
  108. Pages (Alphabetic lower case)
  109. Pages (Alphabetic upper case)
  110. Pages (Roman lower case)
  111. Pages (Roman upper case)
  112. Print date
  113. Print time
  114. Revisions
  115. Save date
  116. Save time
  117. November 3, 1995
  118. 8:44 A.M.
  119. C:\DeScribe\Macros\HTML
  120. November 10, 1995
  121. 3:02 P.M.
  122. November 10, 1995
  123. 3:06 P.M.
  124.