Dec 052017
 
PC Magazine Listings - Volume 10 Number 7.
File VOL10N07.ZIP from The Programmer’s Corner in
Category Files from Magazines
PC Magazine Listings – Volume 10 Number 7.
File Name File Size Zip Size Zip Type
ATTRIB.TXT 2699 865 deflated
ECHO.PAS 3458 812 deflated
ECHODEMO.PAS 488 199 deflated
ENCORE.ZIP 12208 11925 deflated
ENVCHECK.BAT 1221 565 deflated
PALETTE.ZIP 22860 19485 deflated
SPEEDSAV.BAS 289 178 deflated
TBOOK.SCR 649 253 deflated
TILE.XLM 2755 1172 deflated
UNIQUE.ZIP 5142 4863 deflated

Download File VOL10N07.ZIP Here

Contents of the ATTRIB.TXT file


Sub MAIN

REM Check for attributes on. If on then turn them off. If none
are REM enabled, then enter a user dialog to enable desired
attributes.

REM Set Flags.

TRUE = 1
OFF = 0
Attribute = OFF

REM Check for Bold, Italic and Underline, then Superscript or
Subscript.

If Bold() = TRUE Then
Attribute = TRUE
Bold OFF
End If
If Italic() = TRUE Then
Attribute = TRUE
Italic OFF
End If
If Underline() = TRUE Then
Attribute = TRUE
Underline OFF
End If
If SuperScript() = TRUE Then
Attribute = TRUE
Size = FontSize()
FontSize(Size + 2)
SuperScript OFF
End If
If SubScript() = TRUE Then
Attribute = TRUE
Size = FontSize()
FontSize(Size + 2)
SubScript OFF
End If

REM If symbol font is active, return to Tms Rmn

If Font$() = "Symbol" Then
Attribute = TRUE
Font "Tms Rmn"
End If

REM If any attributes on, then exit without any user interaction.
Otherwise REM open a dialog box to permit the user to select the
appropriate attributes.

If Attribute = OFF Then
GetUserInput
Else
Print "Attributes returned to normal."
End If

End Sub

REM Subroutine for user dialog bos.

Sub GetUserInput

TRUE = 1
OFF = 0

REM Setup dialog box

Begin Dialog UserDialog 355, 120
Text 79, 2, 198, 12, "Select Text Attributes"
Text 15, 17, 90, 12, "Attributes"
CheckBox 20, 37, 54, 12, "Bol&d", .Bld
CheckBox 20, 52, 81, 12, "&Italics", .Ital
CheckBox 20, 67, 99, 12, "&Underline", .Under
Text 117, 17, 54, 12, "Style"
OptionGroup .Styl
OptionButton 122, 37, 72, 12, "&Normal"
OptionButton 122, 52, 117, 12, "Su&perscript"
OptionButton 122, 67, 99, 12, "Su&bscript"
Text 242, 17, 45, 12, "Font"
OptionGroup .Fnt
OptionButton 247, 37, 99, 12, "&Unchanged"
OptionButton 247, 52, 81, 12, "&Tms Rmn"
OptionButton 247, 67, 72, 12, "&Symbol"
OKButton 86, 90, 64, 18
CancelButton 186, 90, 64, 18
End Dialog

REM Do the interactions

Dim dlg As Dialog UserDialog
Dialog dlg

REM Process the results

If dlg.Bld = 1 Then Bold TRUE
If dlg.Ital = 1 Then Italic TRUE
If dlg.Under = 1 Then Underline TRUE
SuperScript OFF
SubScript OFF
If dlg.styl > 0 Then
If dlg.Styl = 1 Then
Size = FontSize()
FontSize(Size - 2)
SuperScript TRUE
Else
Size = FontSize()
FontSize(Size - 2)
SubScript TRUE
End If
End If
If dlg.Fnt > 0 Then
If dlg.Fnt = 1 Then
Font "Tms Rmn"
Else
Font "Symbol"
End If
End If

End Sub


 December 5, 2017  Add comments

Leave a Reply