home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Windows Shareware GOLD
/
NuclearComputingVol3No1.cdr
/
other
/
f1238
/
symbats.mac
< prev
next >
Wrap
Text File
|
1990-12-26
|
3KB
|
106 lines
Sub MAIN
X$ = Font$()
Size = FontSize()
Again:
Begin Dialog UserDialog 510, 135
GroupBox 8, 6, 410, 120, "Choose a Symbol or Dingbat to Insert"
OptionGroup .Choice
OptionButton 16, 20, 90, 18, "Bu&llet"
OptionButton 16, 40, 90, 18, "C&opyright"
OptionButton 16, 60, 90, 18, "&Registered"
OptionButton 16, 80, 90, 18, "Trademar&k"
OptionButton 16, 100, 90, 18, "Arro&w"
OptionButton 126, 20, 90, 18, "&Alpha"
OptionButton 126, 40, 90, 18, "&Beta"
OptionButton 126, 60, 90, 18, "&Gamma"
OptionButton 126, 80, 90, 18, "&Delta"
OptionButton 126, 100, 90, 18, "P&hi"
OptionButton 216, 20, 70, 18, "&Pi"
OptionButton 216, 40, 70, 18, "Ps&i"
OptionButton 216, 60, 70, 18, "&Sigma"
OptionButton 216, 80, 70, 18, "&Tau"
OptionButton 216, 100, 70, 18, "O&mega"
OptionButton 300, 33,100, 18, "S&ymbol"
OptionButton 300, 53,100, 18, "&ZapfDingbat"
Text 305, 75, 40, 10, "AS&CII:"
TextBox 350, 73, 32, 15, .SymChar
Text 305, 104, 40, 12, "Poi&nt:"
TextBox 350, 102, 32, 15, .Point
GroupBox 295, 20, 110, 75, "Other"
OKButton 425, 35, 68, 21
CancelButton 425, 62, 68, 21
End Dialog
Dim dlg As UserDialog
On Error Goto Bye
dlg.Point = Mid$(Str$(FontSize()), 2)
Dialog dlg
On Error Goto Bye
If(dlg.Choice > 14 And Val(dlg.SymChar) = 0) Then
MsgBox "Enter The ASCII Code for The Character", "Insert Symbols and ZapfDingbats", 48
Goto Again
End If
If(dlg.Choice < 15 And Val(dlg.SymChar) <> 0) Then
MsgBox "Select Either Symbol or ZapfDingbat", "Insert Symbols and ZapfDingbats", 48
Goto Again
End If
FontSize Val(dlg.Point)
Select Case dlg.Choice
Case 0
Font "Symbol"
Insert Chr$(183)
Case 1
Font "Symbol"
Insert Chr$(227)
Case 2
Font "Symbol"
Insert Chr$(226)
Case 3
Font "Symbol"
Insert Chr$(228)
Case 4
Font "ZapfDingbats"
Insert Chr$(234)
Case 5
Font "Symbol"
Insert Chr$(97)
Case 6
Font "Symbol"
Insert Chr$(98)
Case 7
Font "Symbol"
Insert Chr$(103)
Case 8
Font "Symbol"
Insert Chr$(100)
Case 9
Font "Symbol"
Insert Chr$(106)
Case 10
Font "Symbol"
Insert Chr$(112)
Case 11
Font "Symbol"
Insert Chr$(121)
Case 12
Font "Symbol"
Insert Chr$(115)
Case 13
Font "Symbol"
Insert Chr$(116)
Case 14
Font "Symbol"
Insert Chr$(119)
Case 15
Font "Symbol"
Insert Chr$(Val(dlg.SymChar))
Case 16
Font "ZapfDingbats"
Insert Chr$(Val(dlg.SymChar))
Case Else
Goto Bye
End Select
Bye:
FontSize Size
Font X$
End Sub