home *** CD-ROM | disk | FTP | other *** search
/ Windows Shareware GOLD / NuclearComputingVol3No1.cdr / _bbs3 / f1238.zip / SYMBATS.MAC < prev    next >
Text File  |  1990-12-26  |  3KB  |  106 lines
  1. Sub MAIN
  2. X$ = Font$()
  3. Size = FontSize()
  4. Again:
  5. Begin Dialog UserDialog 510, 135
  6.     GroupBox 8, 6, 410, 120, "Choose a Symbol or Dingbat to Insert"
  7.     OptionGroup .Choice
  8.     OptionButton   16,  20, 90, 18, "Bu&llet"
  9.     OptionButton   16,  40, 90, 18, "C&opyright"
  10.     OptionButton   16,  60, 90, 18, "&Registered"
  11.     OptionButton   16,  80, 90, 18, "Trademar&k"
  12.     OptionButton   16, 100, 90, 18, "Arro&w"
  13.     OptionButton  126,  20, 90, 18, "&Alpha"
  14.     OptionButton  126,  40, 90, 18, "&Beta"
  15.     OptionButton  126,  60, 90, 18, "&Gamma"
  16.     OptionButton  126,  80, 90, 18, "&Delta"
  17.     OptionButton  126, 100, 90, 18, "P&hi"
  18.     OptionButton  216,  20, 70, 18, "&Pi"
  19.     OptionButton  216,  40, 70, 18, "Ps&i"
  20.     OptionButton  216,  60, 70, 18, "&Sigma"
  21.     OptionButton  216,  80, 70, 18, "&Tau"
  22.     OptionButton  216, 100, 70, 18, "O&mega"
  23.     OptionButton  300,  33,100, 18, "S&ymbol"
  24.     OptionButton  300,  53,100, 18, "&ZapfDingbat"
  25.     Text 305, 75, 40, 10, "AS&CII:"
  26.     TextBox 350,  73, 32, 15, .SymChar
  27.      Text 305, 104, 40, 12, "Poi&nt:"
  28.     TextBox 350, 102, 32, 15, .Point
  29.     GroupBox 295, 20, 110, 75, "Other"
  30.     OKButton 425, 35, 68, 21
  31.     CancelButton 425, 62, 68, 21
  32. End Dialog
  33. Dim dlg As UserDialog
  34. On Error Goto Bye
  35. dlg.Point = Mid$(Str$(FontSize()), 2)
  36. Dialog dlg
  37. On Error Goto Bye
  38. If(dlg.Choice > 14 And Val(dlg.SymChar) = 0) Then
  39. MsgBox "Enter The ASCII Code for The Character", "Insert Symbols and ZapfDingbats", 48
  40. Goto Again
  41. End If
  42. If(dlg.Choice < 15 And Val(dlg.SymChar) <> 0) Then
  43. MsgBox "Select Either Symbol or ZapfDingbat", "Insert Symbols and ZapfDingbats", 48
  44. Goto Again
  45. End If
  46. FontSize Val(dlg.Point)
  47. Select Case dlg.Choice
  48.     Case 0
  49.         Font "Symbol"
  50.         Insert Chr$(183)
  51.     Case 1
  52.         Font "Symbol"
  53.         Insert Chr$(227)
  54.     Case 2
  55.         Font "Symbol"
  56.         Insert Chr$(226)
  57.     Case 3
  58.         Font "Symbol"
  59.         Insert Chr$(228)
  60.     Case 4
  61.         Font "ZapfDingbats"
  62.         Insert Chr$(234)
  63.     Case 5
  64.         Font "Symbol"
  65.         Insert Chr$(97)
  66.     Case 6
  67.         Font "Symbol"
  68.         Insert Chr$(98)
  69.     Case 7
  70.         Font "Symbol"
  71.         Insert Chr$(103)
  72.     Case 8
  73.         Font "Symbol"
  74.         Insert Chr$(100)
  75.     Case 9
  76.         Font "Symbol"
  77.         Insert Chr$(106)
  78.     Case 10
  79.         Font "Symbol"
  80.         Insert Chr$(112)
  81.     Case 11
  82.         Font "Symbol"
  83.         Insert Chr$(121)
  84.     Case 12
  85.         Font "Symbol"
  86.         Insert Chr$(115)
  87.     Case 13
  88.         Font "Symbol"
  89.         Insert Chr$(116)
  90.     Case 14
  91.         Font "Symbol"
  92.         Insert Chr$(119)
  93.     Case 15
  94.         Font "Symbol"
  95.         Insert Chr$(Val(dlg.SymChar))
  96.     Case 16
  97.         Font "ZapfDingbats"
  98.         Insert Chr$(Val(dlg.SymChar))
  99.     Case Else
  100.         Goto Bye
  101. End Select
  102. Bye:
  103. FontSize Size
  104. Font X$
  105. End Sub
  106.