home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
OS/2 Shareware BBS: 5 Edit
/
05-Edit.zip
/
scr-htm.zip
/
MACROS.ZIP
/
HTMLDIR
(
.txt
)
< prev
next >
Wrap
DeScribe Document
|
1995-11-11
|
25KB
|
127 lines
DeScribe Copyright DeScribe, Inc., 1988, 1989
Letter
<none>
<none>
BrotherH
BrotherH
LASERJET
Brother HL-630/631
Brother HL-630/631
Letter
Letter
Info 1
Info 2
Info 3
Info 4
Document
Roman
okman
StickyNote
Helvetica
portional
Bulleted List
Numbered List
.Hanging indent
1/2 inch over
1 inch over
Indented
paras
Bibliography
border
quote
ITC Bookman
Heading One
Helvetica
portional
Heading Three
Heading Four
Heading Two
ocument
Roman
okman
ocument
Roman
okman
Frame 2
Frame 2
!============================================================
! Scribe-HTML 0.9
!============================================================
! Copyright (c) 1995 by Mike Sosteric
!============================================================
! Scribe-HTML 0.9
!============================================================
VAR TOP
VAR BOTTOM
VAR LastLine
VAR FirstLIne
MACRO HTMLDIR
ClearClipBoard
Set InsertMode to True
IF DefinedBlock Then
Set Top to FirstDefinedPosition
Set Bottom to LastDefinedPosition
Set LastLine to LastDefinedLine
Set FirstLIne to FirstDefinedLine
CancelDefinedBlock
Set CursorLineNumber to LastLine
CursorEndLine
PlayMacro
HTMLCHAR
</DIR>
CursorLeft
REPEAT
REPEAT
CursorLeft
Exit When CursorCharacter = "
Exit When CursorPosition = top
Exit When CursorCharacter=
END REPEAT
CursorRight
PlayMacro
HTMLTABS
If CursorLineNumber =FirstLine Then
CursorBeginLine
PlayMacro
HTMLTABS
<DIR><li>
End If
CursorUp
Exit When CursorPosition <= Top
END REPEAT
Set CursorLineNumber to LastLine
CursorDown
ELSE
<DIR>
Newline
Newline
</DIR>
CursorUp
END IF
END MACRO
Page:
Page:
DeScribe Glossary
Create date
Create time
Document name
File name
Pages
Pages (Alphabetic lower case)
Pages (Alphabetic upper case)
Pages (Roman lower case)
Pages (Roman upper case)
Print date
Print time
Revisions
Save date
Save time
November 3, 1995
8:44 A.M.
HTMLDIR
C:\DeScribe\Macros\HTMLDIR
November 10, 1995
9:54 P.M.
November 11, 1995
1:34 P.M.