home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
OS/2 Shareware BBS: 5 Edit
/
05-Edit.zip
/
scr-htm.zip
/
MACROS.ZIP
/
HTMLNOTE
(
.txt
)
< prev
next >
Wrap
DeScribe Document
|
1995-11-11
|
27KB
|
144 lines
DeScribe Copyright DeScribe, Inc., 1988, 1989
Letter
<none>
Env46
<none>
EnBrotherH
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
Frame 2
Frame 2
!============================================================
! Scribe-HTML 0.9
!============================================================
! Copyright (c) 1995 by Mike Sosteric
!============================================================
! Scribe-HTML 0.9
!============================================================
VAR SearchCount
VAR NoteCount
MACRO HTMLNOTE
CursorHome
REPEAT
CursorRight
Exit When EndOfFrame
If IsEffectSuperscript = TRUE THEN
If NOT IsCharNumeric then
EffectNone
End If
End If
END REPEAT
SET Searchcount to 0
CursorHome
REPEAT
CursorRight
If IsEffectSuperScript = TRUE THEN
EffectNone
PUT
<A HREF=
Name=
REPEAT
CursorRight
EXIT WHEN NOT IsEffectSuperscript
END REPEAT
]</A>
Set Searchcount TO Searchcount+1
End IF
EXIT WHEN EndOfFrame
END REPEAT
! First Pass: Notes in Text
Set SearchCount TO Searchcount/2
Set NoteCount TO 0
REPEAT
CursorHome
SearchClear
Set SearchSearch1 TO
Set SearchIgnoreCase1 To False
SearchForward
PUT NoteCount
SearchClear
Set SearchSearch1 TO
Set SearchIgnoreCase1 To False
SearchForward
PUT NoteCount
Set NoteCount To NoteCount + 1
Exit When NoteCount = SearchCount
END REPEAT
! Second Pass: Notes Section Proper
Set NoteCount TO 0
REPEAT
CursorHome
SearchClear
Set SearchSearch1 TO
SearchForward
PUT NoteCount
SearchClear
Set SearchSearch1 TO
Set SearchIgnoreCase1 To False
SearchForward
PUT NoteCount
Set NoteCount To NoteCount + 1
Exit When NoteCount = SearchCount
END REPEAT
END MACRO
Page:
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 4, 1995
1:37 P.M.
HTMLNOTE
C:\DeScribe\Macros\HTMLNOTE
November 11, 1995
2:31 P.M.
November 11, 1995
2:31 P.M.