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