Category : Files from Magazines
Archive   : VOL10N12.ZIP
Filename : SUBSCR.WFW

 
Output of file : SUBSCR.WFW contained in archive : VOL10N12.ZIP
Sub MAIN
REM All macros must begin with Sub MAIN.
FormatDefineStyles StyleName$()
REM Define a new style based on the current style.
Dim dlg As FormatDefineStylesChar
REM Set the variable "dlg" as the current character style.
GetCurValues dlg
REM Store the current values of "dlg" in DialogRecord.
If SubScript() Then
REM If SubScript is on, then...
FormatCharacter .Points = dlg.Points, .Position = 0
REM Format the currently selected text to be set as defined
REM in "dlg".
Else
REM Otherwise...
FormatCharacter .Points = Val(dlg.Points) - 2, .Position = "-1.5pt"
REM Format the currently selected text to be two points
REM smaller than as defined in "dlg" and positioned 1.5 points
REM below the current baseline.
End If
End Sub


  3 Responses to “Category : Files from Magazines
Archive   : VOL10N12.ZIP
Filename : SUBSCR.WFW
”

  1. Daniel says:
    January 27, 2013 at 3:59 pm

    Very nice! Thank you for this wonderful archive. I wonder why I found it only now. Long live the BBS file archives!

  2. Joshie says:
    March 18, 2014 at 4:57 pm

    This is so awesome! 😀 I’d be cool if you could download an entire archive of this at once, though.

  3. DiskingRound says:
    January 14, 2015 at 10:57 pm

    But one thing that puzzles me is the “mtswslnkmcjklsdlsbdmMICROSOFT” string. There is an article about it here. It is definitely worth a read: http://www.os2museum.com/wp/mtswslnk/