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