' MacroName: AddALA
' MacroDescription: Insert ALA diacritics into CLSI records 
'                   where you want, rather than always at the 
'                   beginning of the line.
' Macro written by: Joel Hahn, Niles Public Library District

Sub main

Dim CS as Session
Set CS=CurrentSession

Dim Diacrit$(65)
Diacrit$(0) = "Acute"
Diacrit$(1) = "AE-ligature, lowercase"
Diacrit$(2) = "AE-ligature, uppercase"
Diacrit$(3) = "Alif"
Diacrit$(4) = "Alpha"
Diacrit$(5) = "Ayn"
Diacrit$(6) = "Breve"
Diacrit$(7) = "British pound"
Diacrit$(8) = "Beta"
Diacrit$(9) = "Candrabindu"
Diacrit$(10) = "Cedilla"
Diacrit$(11) = "Cedilla, inverted"
Diacrit$(12) = "Circle above"
Diacrit$(13) = "Circle below"
Diacrit$(14) = "Circumflex/caret, non-spacing"
Diacrit$(15) = "Copyright"
Diacrit$(16) = "D-slash, lowercase"
Diacrit$(17) = "Dot above"
Diacrit$(18) = "Dot below"
Diacrit$(19) = "Dot in center"
Diacrit$(20) = "Double dot above"
Diacrit$(21) = "Double dot below"
Diacrit$(22) = "Double underscore"
Diacrit$(23) = "Double acute"
Diacrit$(24) = "Double tilde, left"
Diacrit$(25) = "Double tilde, right"
Diacrit$(26) = "Eth, lowercase"
Diacrit$(27) = "Eth, uppercase"
Diacrit$(28) = "Exclamation point, inverted"
Diacrit$(29) = "Gamma"
Diacrit$(30) = "Grave"
Diacrit$(31) = "Hacek"
Diacrit$(32) = "High comma, centered"
Diacrit$(33) = "High comma, off-center"
Diacrit$(34) = "Hook, left"
Diacrit$(35) = "Hook, right"
Diacrit$(36) = "L-script"
Diacrit$(37) = "L-slash, lowercase"
Diacrit$(38) = "L-slash, uppercase"
Diacrit$(39) = "Ligature, left"
Diacrit$(40) = "Ligature, right"
Diacrit$(41) = "Macron"
Diacrit$(42) = "Miagkii Znak"
Diacrit$(43) = "Musical flat"
Diacrit$(44) = "Musical sharp"
Diacrit$(45) = "O-hook, lowercase"
Diacrit$(46) = "O-hook, uppercase"
Diacrit$(47) = "O-slash, lowercase"
Diacrit$(48) = "O-slash, uppercase"
Diacrit$(49) = "OE-ligature, lowercase"
Diacrit$(50) = "OE-ligature, uppercase"
Diacrit$(51) = "Patent"
Diacrit$(52) = "Plus/minus"
Diacrit$(53) = "Question mark, inverted"
Diacrit$(54) = "Question mark, pseudo"
Diacrit$(55) = "Registered trademark"
Diacrit$(56) = "Thorn, lowercase"
Diacrit$(57) = "Thorn, uppercase"
Diacrit$(58) = "Tilde, non-spacing"
Diacrit$(59) = "Turkish i w/o dot"
Diacrit$(60) = "Tverdyi znak"
Diacrit$(61) = "U-hook, lowercase"
Diacrit$(62) = "U-hook, uppercase"
Diacrit$(63) = "Umlaut"
Diacrit$(64) = "Underscore, non-spacing"
Diacrit$(65) = "Upadhmaniya"

Begin Dialog newdlg 154, 52, "Add Diacritics"
   DropListBox  5, 5, 88, 85, Diacrit$, .Diacrits
   OkButton  100, 5, 50, 14
   CancelButton  100, 25, 50, 14
End Dialog

Dim ALA as newdlg
a=Dialog(ALA)
If a=0 Then Goto Done

Select Case ALA.Diacrits
  Case 0
    CS.Send Chr(226) 'Acute
  Case 1
    CS.Send Chr(181) 'AE-ligature, lowercase
  Case 2
    CS.Send Chr(165) 'AE-ligature, uppercase
  Case 3
    CS.Send Chr(174) 'Alif
  Case 4
    CS.Send Chr(193) 'Alpha
  Case 5
    CS.Send Chr(176) 'Ayn
  Case 6
    CS.Send Chr(230) 'Breve
  Case 7
    CS.Send Chr(185) 'British pound
  Case 8
    CS.Send Chr(194) 'Beta
  Case 9
    CS.Send Chr(239) 'Candrabindu
  Case 10
    CS.Send Chr(240) 'Cedilla
  Case 11
    CS.Send Chr(248) 'Cedilla, inverted
  Case 12
    CS.Send Chr(234) 'Circle above
  Case 13
    CS.Send Chr(244) 'Circle below
  Case 14
    CS.Send Chr(227) 'Circumflex/caret, non-spacing
  Case 15
    CS.Send Chr(202) 'Copyright
  Case 16
    CS.Send Chr(179) 'D-slash, lowercase
  Case 17
    CS.Send Chr(231) 'Dot above
  Case 18
    CS.Send Chr(242) 'Dot below
  Case 19
    CS.Send Chr(168) 'Dot in center
  Case 20
    CS.Send Chr(232) 'Double dot above
  Case 21
    CS.Send Chr(243) 'Double dot below
  Case 22
    CS.Send Chr(245) 'Double underscore
  Case 23
    CS.Send Chr(238) 'Double Acute
  Case 24
    CS.Send Chr(250) 'Double tilde, left
  Case 25
    CS.Send Chr(251) 'Double tilde, right
  Case 26
    CS.Send Chr(186) 'Eth, lowercase
  Case 27
    CS.Send Chr(163) 'Eth, uppercase
  Case 28
    CS.Send Chr(201) 'Exclamation point, inverted
  Case 29
    CS.Send Chr(196) 'Gamma
  Case 30
    CS.Send Chr(225) 'Grave, non-spacing
  Case 31
    CS.Send Chr(233) 'Hacek
  Case 32
    CS.Send Chr(254) 'High comma, centered
  Case 33
    CS.Send Chr(237) 'High comma, off-center
  Case 34
    CS.Send Chr(247) 'Hook, left
  Case 35
    CS.Send Chr(241) 'Hook, right
  Case 36
    CS.Send Chr(190) 'L-script
  Case 37
    CS.Send Chr(177) 'L-slash, lowercase
  Case 38
    CS.Send Chr(161) 'L-slash, uppercase
  Case 39
    CS.Send Chr(235) 'Ligature, left
  Case 40
    CS.Send Chr(236) 'Ligature, right
  Case 41
    CS.Send Chr(229) 'Macron
  Case 42
    CS.Send Chr(167) 'Miagkii Znak
  Case 43
    CS.Send Chr(169) 'Musical flat
  Case 44
    CS.Send Chr(204) 'Musical sharp
  Case 45
    CS.Send Chr(188) 'O-hook, lowercase
  Case 46
    CS.Send Chr(172) 'O-hook, uppercase
  Case 47
    CS.Send Chr(178) 'O-slash, lowercase
  Case 48
    CS.Send Chr(162) 'O-slash, uppercase
  Case 49
    CS.Send Chr(182) 'OE-ligature, lowercase
  Case 50
    CS.Send Chr(166) 'OE-ligature, uppercase
  Case 51
    CS.Send Chr(203) 'Patent
  Case 52
    CS.Send Chr(171) 'Plus/minus
  Case 53
    CS.Send Chr(200) 'Question mark, inverted
  Case 54
    CS.Send Chr(224) 'Question mark, pseudo
  Case 55
    CS.Send Chr(170) 'Registered trademark
  Case 56
    CS.Send Chr(180) 'Thorn, lowercase
  Case 57
    CS.Send Chr(164) 'Thorn, uppercase
  Case 58
    CS.Send Chr(228) 'Tilde, non-spacing
  Case 59
    CS.Send Chr(184) 'Turkish i w/o dot
  Case 60
    CS.Send Chr(183) 'Tverdyi znak
  Case 61
    CS.Send Chr(189) 'U-hook, lowercase
  Case 62
    CS.Send Chr(173) 'U-hook, uppercase
  Case 63
    CS.Send Chr(232) 'Umlaut
  Case 64
    CS.Send Chr(246) 'Underscore, non-spacing
  Case 65
    CS.Send Chr(249) 'Upadhmaniya
End Select

Done:
End Sub