REM  *****  BASIC  *****

REM macro fyrir LibreOffice

sub conv_latin2greek_gk

REM v. 120513
REM Hakon Gudbjartsson & Gudbjartur Kristofersson
REM args1(16).Value = 1024 gerir greinarmun a litlum og storum staf
REM args1(16).Value = 1280 gerir ekki greinarmun a litlum og storum staf
REM Mac flytilykill Shift Cmd H
rem ----------------------------------------------------------------------
rem define variables
dim document   as object
dim dispatcher as object
rem ----------------------------------------------------------------------
rem get access to the document
document   = ThisComponent.CurrentController.Frame
dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")

rem ----------------------------------------------------------------------
dim args1(18) as new com.sun.star.beans.PropertyValue
REM
REM naestu 2 linur tharf ad stilla eftir fjoelda
dim finna(1 To 294) As String
dim breyta(1 To 294) As String

Rem  ALFA <A
finna(1) = CHR$(&H003C) & CHR$(&H0041)
breyta(1) = CHR$(&H0391)

Rem ALFA  CL VRACHYI <4A
finna(2) =  CHR$(&H003C) & CHR$(&H0034) & CHR$(&H0041)
breyta(2) = CHR$(&H1FB8)

Rem ALFA  CL + VARIA <;A
finna(3) =  CHR$(&H003C) & CHR$(&H003B) & CHR$(&H0041)
breyta(3) = CHR$(&H1FBA)

Rem ALFA  CL + TONOS <'A
finna(4) =  CHR$(&H003C) & CHR$(&H0027) & CHR$(&H0041)
breyta(4) = CHR$(&H0386)

Rem ALFA  CL + PSILI + VARIA + PROSGEGRAMMENI <,;3A
finna(5) =  CHR$(&H003C) & CHR$(&H002C) & CHR$(&H003B) & CHR$(&H0033) & CHR$(&H0041)
breyta(5) = CHR$(&H1F8A)

Rem ALFA  CL + PSILI + VARIA <,;A
finna(6) =  CHR$(&H003C) & CHR$(&H002C) & CHR$(&H003B) & CHR$(&H0041)
breyta(6) = CHR$(&H1F0A)

Rem ALFA  CL + PSILI + PROSGEGRAMMENII  <,2A
finna(7) =  CHR$(&H003C) & CHR$(&H002C) & CHR$(&H0032) & CHR$(&H0041)
breyta(7) = CHR$(&H1F88)

Rem ALFA  CL + PSILI + PERISPOMENI + PROSGEGRAMMENI  <,~3A
finna(8) =  CHR$(&H003C) & CHR$(&H002C) & CHR$(&H007E) & CHR$(&H0033) & CHR$(&H0041)
breyta(8) = CHR$(&H1F8E)

Rem ALFA CL + PSILI + PERISPOMENI <,~A
finna(9) = CHR$(&H003C) & CHR$(&H002C) & CHR$(&H007E) & CHR$(&H0041)
breyta(9) = CHR$(&H1F0E)

Rem ALFA  CL + PSILI + OXIA + PROSGEGRAMMENI  <,#3A
finna(10) =  CHR$(&H003C) & CHR$(&H002C) & CHR$(&H0023) & CHR$(&H0033) & CHR$(&H0041)
breyta(10) = CHR$(&H1F8C)

Rem ALFA + PSILI + OXIA <,#A
finna(11) = CHR$(&H003C) & CHR$(&H002C) & CHR$(&H0023) & CHR$(&H0041)
breyta(11) = CHR$(&H1F0C)

Rem  ALFA + PSILI <,A
finna(12) = CHR$(&H003C) & CHR$(&H002C) & CHR$(&H0041)  
breyta(12) = CHR$(&H1F08)

Rem ALFA  CL + PROSGEGRAMMENI  <3A
finna(13) =  CHR$(&H003C) & CHR$(&H0033) & CHR$(&H0041)
breyta(13) = CHR$(&H1FBC)

Rem  ALFA + OXIA <#A
finna(14) = CHR$(&H003C) & CHR$(&H0023) & CHR$(&H0041)
breyta(14) = CHR$(&H1FBB)

Rem ALFA  CL + MACRON  <5A
finna(15) =  CHR$(&H003C) & CHR$(&H0035) & CHR$(&H0041)
breyta(15) = CHR$(&H1FB9)

Rem ALFA  CL + DASIA + VARIA + PROSGEGRAMMENIA <!;3A
finna(16) =  CHR$(&H003C) & CHR$(&H0021) &CHR$(&H003B) & CHR$(&H0033) & CHR$(&H0041)
breyta(16) = CHR$(&H1F8B)

Rem ALFA  CL + DASIA + VARIA <!~3A
finna(17) =  CHR$(&H003C) & CHR$(&H0021) &CHR$(&H003B) & CHR$(&H0041)
breyta(17) = CHR$(&H1F0B)

Rem ALFA  CL + DASIA + PROSGEGRAMMENI <!~3A
finna(18) =  CHR$(&H003C) & CHR$(&H0021) & CHR$(&H0033) & CHR$(&H0041)
breyta(18) = CHR$(&H1F89)

Rem ALFA  CL + DASIA + PERISPOMENI + PROSGEGRAMMENI <!~3A
finna(19) =  CHR$(&H003C) & CHR$(&H0021) & CHR$(&H007E) & CHR$(&H0033) & CHR$(&H0041)
breyta(19) = CHR$(&H1F8F)

Rem ALFA  CL + + DASIA + PERISPOMENI <!~A
finna(20) =  CHR$(&H003C) & CHR$(&H0021) & CHR$(&H007E) & CHR$(&H0041)
breyta(20) = CHR$(&H1F0F)

Rem ALFA  CL + DASIA + OXIA + PROSGEGRAMMENI <!#3A
finna(21) =  CHR$(&H003C) & CHR$(&H0021) & CHR$(&H0023) & CHR$(&H0033) & CHR$(&H0041)
breyta(21) = CHR$(&H1F8D)

Rem ALFA + DASIA + OXIA <!#A
finna(22) = CHR$(&H003C) & CHR$(&H0021) & CHR$(&H0023) & CHR$(&H0041)
breyta(22) = CHR$(&H1F0D)

Rem ALFA  CL + DASIA <!A
finna(23) =  CHR$(&H003C) & CHR$(&H0021) & CHR$(&H0041)
breyta(23) = CHR$(&H1F09)

Rem ALFA  CL + PSILI + VARIA + YPOGEGRAMMENI <,;2a
finna(24) =  CHR$(&H003C) & CHR$(&H002C) & CHR$(&H003B) & CHR$(&H0032) & CHR$(&H0061)
breyta(24) = CHR$(&H1F82)

Rem alfa <a
finna(25) = CHR$(&H003C) & CHR$(&H0061)
breyta(25) = CHR$(&H03B1)

Rem alfa + OXIA + YPOGEGRAMMENI <2a
finna(26) = CHR$(&H003C) & CHR$(&H0032) & CHR$(&H0061)
breyta(26) = CHR$(&H1FB3)

Rem ALFA  SL + VARIA + VRACHYI <4a
finna(27) =  CHR$(&H003C) & CHR$(&H0034) & CHR$(&H0061)
breyta(27) = CHR$(&H1FB0)

Rem ALFA  SL + VARIA + YPOGEGRAMMENI <;2a
finna(28) =  CHR$(&H003C) & CHR$(&H003B) & CHR$(&H0032) & CHR$(&H0061)
breyta(28) = CHR$(&H1FB2)

Rem alfa + VARIA <;a
finna(29) = CHR$(&H003C) & CHR$(&H003B) & CHR$(&H0061)
breyta(29) = CHR$(&H1F70)

Rem ALFA  SL + TONOS <'a
finna(30) =  CHR$(&H003C) & CHR$(&H0027) & CHR$(&H0061)
breyta(30) = CHR$(&H03AC)

Rem ALFA  SL + PSILI + YPOGEGRAMMENI <,2a
finna(31) =  CHR$(&H003C) & CHR$(&H002C) & CHR$(&H0032) & CHR$(&H0061)
breyta(31) = CHR$(&H1F80)

Rem ALFA  SL + PSILI + VARIA <,;a
finna(32) =  CHR$(&H003C) & CHR$(&H002C) & CHR$(&H003B) & CHR$(&H0061)
breyta(32) = CHR$(&H1F02)

Rem ALFA  SL + PSILI + PERISPOMENI + PROSGEGRAMMENI  <,~2a
finna(33) =  CHR$(&H003C) & CHR$(&H002C) & CHR$(&H007E) & CHR$(&H0032) & CHR$(&H0061)
breyta(33) = CHR$(&H1F86)

Rem alfa + OXIA + PSILI + PERISPOMENI <,~a
finna(34) = CHR$(&H003C) & CHR$(&H002C) & CHR$(&H007E) &  CHR$(&H0061)  
breyta(34) = CHR$(&H1F06)

Rem ALFA  SL + PSILI + OXIA + PROSGEGRAMMENI  <,#2a
finna(35) =  CHR$(&H003C) & CHR$(&H002C) & CHR$(&H0023) & CHR$(&H0032) & CHR$(&H0061)
breyta(35) = CHR$(&H1F84)

Rem alfa + PSILI + OXIA <,#a
finna(36) = CHR$(&H003C) & CHR$(&H002C) & CHR$(&H0023) & CHR$(&H0061)
breyta(36) = CHR$(&H1F04)

Rem alfa + PSIL <,a
finna(37) = CHR$(&H003C) & CHR$(&H002C) & CHR$(&H0061)
breyta(37) = CHR$(&H1F00)

Rem alfa + PERISPOMENI + YPOGEGRAMMENI <~2a
finna(38) = CHR$(&H003C) & CHR$(&H007E) & CHR$(&H0032) & CHR$(&H0061)
breyta(38) = CHR$(&H1FB7)

Rem ALFA  SL + PERISPOMENI  <~a
finna(39) =  CHR$(&H003C) & CHR$(&H007E) & CHR$(&H0061)
breyta(39) = CHR$(&H1FB6)

Rem alfa + OXIA + YPOGEGRAMMENI <#2a
finna(40) = CHR$(&H003C) & CHR$(&H0023) & CHR$(&H0032) &  CHR$(&H0061)
breyta(40) = CHR$(&H1FB4)

Rem alfa + OXIA <#a
finna(41) = CHR$(&H003C) & CHR$(&H0023) & CHR$(&H0061)
breyta(41) = CHR$(&H1F71)

Rem ALFA  SL + MACRON  <5a
finna(42) =  CHR$(&H003C) & CHR$(&H0035) & CHR$(&H0061)
breyta(42) = CHR$(&H1FB1)

Rem ALFA  SL + DASIA + YPOGEGRAMMENI  <!2a
finna(43) =  CHR$(&H003C) & CHR$(&H0021) & CHR$(&H0032) & CHR$(&H0061)
breyta(43) = CHR$(&H1F81)

Rem ALFA  SL + DASIA + VARIA + YPOGEGRAMMENI  <!;2a
finna(44) =  CHR$(&H003C) & CHR$(&H0021) &CHR$(&H003B) & CHR$(&H0032) & CHR$(&H0061)
breyta(44) = CHR$(&H1F83)

Rem ALFA  SL + DASIA + VARIA <!~3a
finna(45) =  CHR$(&H003C) & CHR$(&H0021) &CHR$(&H003B) & CHR$(&H0061)
breyta(45) = CHR$(&H1F03)

Rem ALFA  SL + DASIA + PERISPOMENI + YPOGEGRAMMENI <!~2a
finna(46) =  CHR$(&H003C) & CHR$(&H0021) & CHR$(&H007E) & CHR$(&H0032) & CHR$(&H0061)
breyta(46) = CHR$(&H1F87)

Rem Alfa  SL + + DASIA + PERISPOMENI <!~a
finna(47) =  CHR$(&H003C) & CHR$(&H0021) & CHR$(&H007E) & CHR$(&H0061)
breyta(47) = CHR$(&H1F07)

Rem Alfa  SL + DASIA + OXIA + PROSGEGRAMMENI <!#2a
finna(48) =  CHR$(&H003C) & CHR$(&H0021) & CHR$(&H0023) & CHR$(&H0032) & CHR$(&H0061)
breyta(48) = CHR$(&H1F85)

Rem alfa + DASIA + OXIA <!#a
finna(49) = CHR$(&H003C) & CHR$(&H0021) & CHR$(&H0023) & CHR$(&H0061)
breyta(49) = CHR$(&H1F05)

Rem alfa  SL + DASIA <!a 
finna(50) =  CHR$(&H003C) & CHR$(&H0021) & CHR$(&H0061)
breyta(50) = CHR$(&H1F01)

Rem BETA CL <B
finna(51) = CHR$(&H003C) & CHR$(&H0042)
breyta(51) = CHR$(&H0392)

Rem Beta SL <b
finna(52) = CHR$(&H003C) & CHR$(&H0062)
breyta(52) = CHR$(&H03B2)

Rem CHI  CL <C
finna(53) = CHR$(&H003C) & CHR$(&H0043
breyta(53) = CHR$(&H03A7)

Rem Chi SL <c
finna(54) = CHR$(&H003C) & CHR$(&H0063)
breyta(54) = CHR$(&H03C7)

Rem DELTA CL <D
finna(55) = CHR$(&H003C) & CHR$(&H0044)
breyta(55) = CHR$(&H0394)

Rem Delta SL <d
finna(56) = CHR$(&H003C) & CHR$(&H0064)
breyta(56) = CHR$(&H03B4)

Rem CAPITAL LETTER EPSILON + VARIA <;E
finna(57) = CHR$(&H003C) & CHR$(&H003B) & CHR$(&H0045)
breyta(57) = CHR$(&H1FC8)

Rem CAPITAL LETTER EPSILON + TONOS <'E
finna(58) = CHR$(&H003C) & CHR$(&H0027) & CHR$(&H0045)
breyta(58) = CHR$(&H0388)

Rem CAPITAL LETTER EPSILON + PSILI + VARIA <,;E
finna(59) = CHR$(&H003C) & CHR$(&H002C) & CHR$(&H003B) & CHR$(&H0045)
breyta(59) = CHR$(&H1F1A)

Rem CAPITAL LETTER EPSILON + PSILI + OXIA <,#E
finna(60) = CHR$(&H003C) & CHR$(&H002C) & CHR$(&H0023) & CHR$(&H0045)
breyta(60) = CHR$(&H1F1C)

Rem CAPITAL LETTER EPSILON + PSILI <,E
finna(61) = CHR$(&H003C) & CHR$(&H002C) & CHR$(&H0045) 
breyta(61) = CHR$(&H1F18)

Rem EPSILON CL + OXIA <#E
finna(62) =  CHR$(&H003C) & CHR$(&H0023) & CHR$(&H0045)
breyta(62) = CHR$(&H1FC9)

Rem CAPITAL LETTER EPSILON + DASIA + VARIA <!;E
finna(63) = CHR$(&H003C) & CHR$(&H0021) & CHR$(&H003B) & CHR$(&H0045)
breyta(63) = CHR$(&H1F1B)

Rem CAPITAL LETTER EPSILON + DASIA + OXIA <!#E
finna(64) = CHR$(&H003C) & CHR$(&H0021) & CHR$(&H0023) & CHR$(&H0045)
breyta(64) = CHR$(&H1F1D)

Rem CAPITAL LETTER EPSILON + DASIA <!E
finna(65) = CHR$(&H003C) & CHR$(&H0021) & CHR$(&H0045)
breyta(65) = CHR$(&H1F19)

Rem CAPITAL LETTER EPSILON <E
finna(66) = CHR$(&H003C) & CHR$(&H0045)
breyta(66) = CHR$(&H0395)

Rem Epsilon SL <e
finna(67) = CHR$(&H003C) & CHR$(&H0065)
breyta(67) = CHR$(&H03B5)

Rem Epsilon SL + VARIA <;e
finna(68) = CHR$(&H003C) & CHR$(&H003B) & CHR$(&H0065) 
breyta(68) = CHR$(&H1F72)

Rem Epsilon SL + TONOS <'e
finna(69) = CHR$(&H003C) & CHR$(&H0027) & CHR$(&H0065)
breyta(69) = CHR$(&H03AD)

Rem Epsilon SL + PSILI + VARIA <,;e
finna(70) = CHR$(&H003C) & CHR$(&H002C) & CHR$(&H003B) & CHR$(&H0065)
breyta(70) = CHR$(&H1F12)

Rem Epsilon SL + PSILI + OXIA <,#e
finna(71) = CHR$(&H003C) & CHR$(&H002C) &  CHR$(&H0023) & CHR$(&H0065)
breyta(71) = CHR$(&H1F14)

Rem Epsilon SL + PSILI <,e
finna(72) = CHR$(&H003C) & CHR$(&H002C) & CHR$(&H0065)
breyta(72) = CHR$(&H1F10)

Rem Epsilon SL + OXIA <#e
finna(73) = CHR$(&H003C) & CHR$(&H0023) & CHR$(&H0065) 
breyta(73) = CHR$(&H1F73)

Rem Epsilon SL + DASIA + VARIA <!;e
finna(74) = CHR$(&H003C) & CHR$(&H0021) & CHR$(&H003B) & CHR$(&H0065)
breyta(74) = CHR$(&H1F13)

Rem Epsilon SL + DASIA + OXIA <!#e
finna(75) = CHR$(&H003C) & CHR$(&H0021) & CHR$(&H0023) & CHR$(&H0065)
breyta(75) = CHR$(&H1F15)

Rem Epsilon SL + DASIA <!e
finna(76) = CHR$(&H003C) & CHR$(&H0021) & CHR$(&H0065)
breyta(76) = CHR$(&H1F11)

Rem PHI CL <F
finna(77) = CHR$(&H003C) & CHR$(&H0046)
breyta(77) = CHR$(&H03A6)

Rem Phi SL <f
finna(78) = CHR$(&H003C) & CHR$(&H0066)
breyta(78) = CHR$(&H03C6)

Rem DIGAMMA CL <1G
finna(79) = CHR$(&H003C) & CHR$(&H0031) & CHR$(&H0047)
breyta(79) = CHR$(&H03DC)

Rem Digamma SL <1g
finna(80) = CHR$(&H003C) & CHR$(&H0031) & CHR$(&H0067)
breyta(80) = CHR$(&H03DD)

Rem GAMMA CL <G
finna(81) = CHR$(&H003C) & CHR$(&H0047) 
breyta(81) = CHR$(&H0393)

Rem Gamma SL <g
finna(82) = CHR$(&H003C) & CHR$(&H0067)
breyta(82) = CHR$(&H03B3)

Rem ETA CL + PSILI + PROSGEGRAMMENI <,3H
finna(83) = CHR$(&H003C) & CHR$(&H002C) & CHR$(&H0033) & CHR$(&H0048)
breyta(83) = CHR$(&H1F98)

Rem ETA CL <H
finna(84) = CHR$(&H003C) & CHR$(&H0048)
breyta(84) = CHR$(&H0397)

Rem ETA CL + DASIA + OXIA + PROSGEGRAMMENI <!#3H
finna(85) = CHR$(&H003C) & CHR$(&H0021) & CHR$(&H0023) & CHR$(&H0033) & CHR$(&H0048)
breyta(85) = CHR$(&H1F9D)

Rem ETA CL  + VARIA <;H
finna(86) = CHR$(&H003C) & CHR$(&H003B) & CHR$(&H0048)
breyta(86) = CHR$(&H1FCA)

Rem ETA CL  + TONOS <'H
finna(87) = CHR$(&H003C) & CHR$(&H0027) & CHR$(&H0048)
breyta(87) = CHR$(&H0389)

Rem ETA CL + PSILI + VARIA + PROSGEGRAMMENI <,;3H
finna(88) = CHR$(&H003C) & CHR$(&H002C) & CHR$(&H003B) & CHR$(&H0033) & CHR$(&H0048)
breyta(88) = CHR$(&H1F9A)

Rem ETA CL + PSILI + OXIA <,;H
finna(89) = CHR$(&H003C) & CHR$(&H002C) & CHR$(&H003B) & CHR$(&H0048)
breyta(89) = CHR$(&H1F2A)

Rem ETA CL + PSILI + PERISPOMENI + PROSGEGRAMMENI <,~3H
finna(90) = CHR$(&H003C) & CHR$(&H002C) & CHR$(&H007E) & CHR$(&H0033) & CHR$(&H0048)
breyta(90) = CHR$(&H1F9E)

Rem ETA CL + PSILI + PERISPOMEN <,~H
finna(91) = CHR$(&H003C) & CHR$(&H002C) & CHR$(&H007E) & CHR$(&H0048)
breyta(91) = CHR$(&H1F2E)

Rem ETA CL + PSILI + OXIA + PROSGEGRAMMENI <,#3H
finna(92) = CHR$(&H003C) & CHR$(&H002C) & CHR$(&H0023) & CHR$(&H0033) & CHR$(&H0048)
breyta(92) = CHR$(&H1F9C)

Rem ETA CL + PSILI + OXIA  <,#H
finna(93) = CHR$(&H003C) & CHR$(&H002C) & CHR$(&H0023) & CHR$(&H0048)
breyta(93) = CHR$(&H1F2C)

Rem ETA CL + PSILI <,H
finna(94) = CHR$(&H003C) & CHR$(&H002C) & CHR$(&H0048)
breyta(94) = CHR$(&H1F28)

Rem ETA CL  + PROSGEGRAMMENI <3H
finna(95) = CHR$(&H003C) & CHR$(&H0033) & CHR$(&H0048
breyta(95) = CHR$(&H1FCC)

Rem OMEGA CL + OXIA <#H
finna(96) =  CHR$(&H003C) & CHR$(&H0023) & CHR$(&H0048)
breyta(96) = CHR$(&H1FCB)

Rem ETA CL  + DASIA + VARIA + PROSGEGRAMMENI <!;3H
finna(97) = CHR$(&H003C) & CHR$(&H0021) & CHR$(&H003B) & CHR$(&H0033) & CHR$(&H0048)
breyta(97) = CHR$(&H1F9B)

Rem ETA CL  + DASIA + VARIA <!;H
finna(98) = CHR$(&H003C) & CHR$(&H0021) & CHR$(&H003B) & CHR$(&H0048)
breyta(98) = CHR$(&H1F2B)

Rem ETA CL  + DASIA + PROSGEGRAMMENI <!3H
finna(99) = CHR$(&H003C) & CHR$(&H0021) & CHR$(&H0033) & CHR$(&H0048) 
breyta(99) = CHR$(&H1F99)

Rem ETA CL  + DASIA + PERISPOMENI + PROSGEGRAMMENI <!~3H
finna(100) = CHR$(&H003C) & CHR$(&H0021) & CHR$(&H007E) & CHR$(&H0033) & CHR$(&H0048)
breyta(100) = CHR$(&H1F9F)

Rem ETA CL  + DASIA + PERISPOMEN <!~H
finna(101) = CHR$(&H003C) & CHR$(&H0021) & CHR$(&H007E) & CHR$(&H0048)
breyta(101) = CHR$(&H1F2F)

Rem ETA CL + DASIA + OXIA <!'H
finna(102) = CHR$(&H003C) & CHR$(&H0021) & CHR$(&H0027) & CHR$(&H0048)
breyta(102) = CHR$(&H1F2D)

Rem ETA CL + DASIA <!H
finna(103) = CHR$(&H003C) & CHR$(&H0021) & CHR$(&H0048)
breyta(103) = CHR$(&H1F29)

Rem SL Eta + YPOGEGRAMMENI <2h
finna(104) = CHR$(&H003C) & CHR$(&H0032) & CHR$(&H0068)
breyta(104) = CHR$(&H1FC3)

Rem SL Eta <h
finna(105) = CHR$(&H003C) & CHR$(&H0068)
breyta(105) = CHR$(&H03B7)

Rem SL Eta + VARIA + YPOGEGRAMMENI <;2h
finna(106) = CHR$(&H003C) & CHR$(&H003B) & CHR$(&H0032) & CHR$(&H0068)
breyta(106) = CHR$(&H1FC2)

Rem SL Eta + VARIA <;h
finna(107) = CHR$(&H003C) & CHR$(&H003B) & CHR$(&H0068)
breyta(107) = CHR$(&H1F74)

Rem SL Eta + TONOS <'h
finna(108) = CHR$(&H003C) & CHR$(&H0027) & CHR$(&H0068)
breyta(108) = CHR$(&H03AE)

Rem SL Eta + PSILI + YPOGEGRAMMENI <,2h
finna(109) = CHR$(&H003C) & CHR$(&H002C) & CHR$(&H0032) & CHR$(&H0068)
breyta(109) = CHR$(&H1F90)

Rem SL Eta + PSILI + VARIA + YPOGEGRAMMEN <,;2h
finna(110) = CHR$(&H003C) & CHR$(&H002C) & CHR$(&H003B) & CHR$(&H0032) & CHR$(&H0068)
breyta(110) = CHR$(&H1F92)

Rem SL Eta + PSILI + VARIA <,;h
finna(111) = CHR$(&H003C) & CHR$(&H002C) & CHR$(&H003B) & CHR$(&H0068)
breyta(111) = CHR$(&H1F22)

Rem SL Eta + PSILI + PERISPOMENI + YPOGEGRAMMENI <,~2h
finna(112) = CHR$(&H003C) & CHR$(&H002C) & CHR$(&H007E) & CHR$(&H0032) & CHR$(&H0068)
breyta(112) = CHR$(&H1F96)

Rem SL Eta + PSILI + PERISPOMENI <,~h
finna(113) = CHR$(&H003C) & CHR$(&H002C) & CHR$(&H007E) & CHR$(&H0068)
breyta(113) = CHR$(&H1F26)

Rem SL Eta + PSILI + OXIA + YPOGEGRAMMENI <,#2h
finna(114) = CHR$(&H003C) & CHR$(&H002C) &  CHR$(&H0023) & CHR$(&H0032) & CHR$(&H0068)
breyta(114) = CHR$(&H1F94)

Rem SL Eta + PSILI + OXIA <,#h
finna(115) = CHR$(&H003C) & CHR$(&H002C) & CHR$(&H0023) & CHR$(&H0068)
breyta(115) = CHR$(&H1F24)

Rem SL Eta + PSILI <,h
finna(116) = CHR$(&H003C) & CHR$(&H002C)  & CHR$(&H0068)
breyta(116) = CHR$(&H1F20)

Rem SL Eta + PERISPOMENI + YPOGEGRAMMENI <~2h
finna(117) = CHR$(&H003C) & CHR$(&H007E) & CHR$(&H0032) & CHR$(&H0068)
breyta(117) = CHR$(&H1FC7)

Rem SL Eta + PERISPOMENI <~h
finna(118) =  CHR$(&H003C) & CHR$(&H007E) & CHR$(&H0068) 
breyta(118) = CHR$(&H1FC6)

Rem SL Eta + OXIA + YPOGEGRAMMENI <#2h
finna(119) = CHR$(&H003C) & CHR$(&H0023) & CHR$(&H0032) & CHR$(&H0068)
breyta(119) = CHR$(&H1FC4)

Rem SL Eta + OXIA <#h
finna(120) =  CHR$(&H003C) &  CHR$(&H0023) & CHR$(&H0068)
breyta(120) = CHR$(&H1F75)

Rem SL Eta + DASIA + YPOGEGRAMMEN <!2h
finna(121) = CHR$(&H003C) & CHR$(&H0021) & CHR$(&H0032) & CHR$(&H0068)
breyta(121) = CHR$(&H1F91)

Rem SL Eta + DASIA + VARIA + YPOGEGRAMMENI <!;2h
finna(122) = CHR$(&H003C) & CHR$(&H0021) & CHR$(&H003B) & CHR$(&H0032) & CHR$(&H0068)
breyta(122) = CHR$(&H1F93)

Rem SL Eta + DASIA + VARIA <!;h
finna(123) = CHR$(&H003C) & CHR$(&H0021) & CHR$(&H003B) & CHR$(&H0068)
breyta(123) = CHR$(&H1F23)

Rem SL Eta + DASIA + PERISPOMENI + YPOGEGRAMMENI <!~h
finna(124) = CHR$(&H003C) & CHR$(&H0021) & CHR$(&H007E) & CHR$(&H0068)
breyta(124) = CHR$(&H1F97)

Rem SL Eta + DASIA + PERISPOMEN <,~h
finna(125) = CHR$(&H003C) & CHR$(&H002C) & CHR$(&H007E) & CHR$(&H0068)
breyta(125) = CHR$(&H1F27)

Rem SL Eta + DASIA + OXIA + YPOGEGRAMMENI <!'2h
finna(126) = CHR$(&H003C) & CHR$(&H0021) & CHR$(&H0027) & CHR$(&H0032) & CHR$(&H0068)
breyta(126) = CHR$(&H1F95)

Rem SL Eta + DASIA + OXIA <!'h
finna(127) = CHR$(&H003C) & CHR$(&H0021) & CHR$(&H0027) & CHR$(&H0068)
breyta(127) = CHR$(&H1F25)

Rem SL Eta + DASIA <!h
finna(128) = CHR$(&H003C) & CHR$(&H0021) & CHR$(&H0068)
breyta(128) = CHR$(&H1F21)

Rem IOTA CL <I
finna(129) = CHR$(&H003C) & CHR$(&H0049)
breyta(129) = CHR$(&H0399) 

Rem IOTA CL + VRACHY <4I
finna(130) = CHR$(&H003C) & CHR$(&H0034) & CHR$(&H0049)
breyta(130) = CHR$(&H1FD8)

Rem IOTA CL + VARIA <;I
finna(131) = CHR$(&H003C) & CHR$(&H003B) & CHR$(&H0049)
breyta(131) = CHR$(&H1FDA)

Rem IOTA CL + TONOS <'I
finna(132) = CHR$(&H003C) & CHR$(&H0027) & CHR$(&H0049)
breyta(132) = CHR$(&H038A)

Rem IOTA CL + PSILI + VARIA <,;I
finna(133) = CHR$(&H003C) & CHR$(&H002C) & CHR$(&H003B) & CHR$(&H0049)
breyta(133) = CHR$(&H1F3A)

Rem IOTA CL + PSILI + PERISPOMENI <,~I
finna(134) = CHR$(&H003C) & CHR$(&H002C) & CHR$(&H007E) & CHR$(&H0049)
breyta(134) = CHR$(&H1F3E)

Rem IOTA CL + PSILI + OXIA <,#I
finna(135) = CHR$(&H003C) & CHR$(&H002C) & CHR$(&H0023) & CHR$(&H0049)
breyta(135) = CHR$(&H1F3C)

Rem IOTA CL + PSILI <,I
finna(136) = CHR$(&H003C) & CHR$(&H002C) & CHR$(&H0049)
breyta(136) = CHR$(&H1F38)

Rem IOTA CL + OXIA <#I
finna(137) =  CHR$(&H003C) & CHR$(&H0023) & CHR$(&H0049)
breyta(137) = CHR$(&H1FDB)

Rem IOTA CL + MACRON <5I
finna(138) = CHR$(&H003C) & CHR$(&H0035) & CHR$(&H0049)
breyta(138) = CHR$(&H1FD9)

Rem IOTA CL + DIALYTIKA <:I
finna(139) = CHR$(&H003C) & CHR$(&H003A) & CHR$(&H0049)
breyta(139) = CHR$(&H03AA)

Rem IOTA CL + DASIA + VARIA <!;I
finna(140) = CHR$(&H003C) & CHR$(&H0021) & CHR$(&H003B) & CHR$(&H0049)
breyta(140) = CHR$(&H1F3B)

Rem IOTA CL + DASIA + PERISPOMENI <!~I
finna(141) = CHR$(&H003C) & CHR$(&H0021) & CHR$(&H007E) & CHR$(&H0049) 
breyta(141) = CHR$(&H1F3F)

Rem IOTA CL + DASIA + OXIA <!#I
finna(142) = CHR$(&H003C) & CHR$(&H0021) & CHR$(&H0023) & CHR$(&H0049)
breyta(142) = CHR$(&H1F3D)

Rem IOTA CL + DASIA <!I
finna(143) = CHR$(&H003C) & CHR$(&H0021) & CHR$(&H0049)
breyta(143) = CHR$(&H1F39)

Rem Iota SL <i
finna(144) = CHR$(&H003C) & CHR$(&H0069)
breyta(144) = CHR$(&H03B9)

Rem Iota SL + VRACHY <4i
finna(145) = CHR$(&H003C) & CHR$(&H0034) & CHR$(&H0069)
breyta(145) = CHR$(&H1FD0)

Rem Iota SL + VARIA <;i
finna(146) = CHR$(&H003C) & CHR$(&H003B) & CHR$(&H0069)
breyta(146) = CHR$(&H1F76)

Rem Iota SL + TONOS <'i
finna(147) = CHR$(&H003C) & CHR$(&H0027) & CHR$(&H0069)
breyta(147) = CHR$(&H03AF)

Rem Iota SL + DIALYTIKA + VARIA <:;i
finna(148) = CHR$(&H003C) & CHR$(&H003A) & CHR$(&H003B) & CHR$(&H0069) 
breyta(148) = CHR$(&H1FD2)

Rem Iota SL + PSILI + VARIA <,;i
finna(149) = CHR$(&H003C) & CHR$(&H002C) & CHR$(&H003B) & CHR$(&H0069
breyta(149) = CHR$(&H1F32)

Rem Iota SL + PSILI + PERISPOMENI <,~i
finna(150) = CHR$(&H003C) & CHR$(&H002C) & CHR$(&H007E) & CHR$(&H0069
breyta(150) = CHR$(&H1F36)

Rem Iota SL + PSILI + OXIA <,#i
finna(151) = CHR$(&H003C) & CHR$(&H002C) & CHR$(&H0023) & CHR$(&H0069)
breyta(151) = CHR$(&H1F34)

Rem Iota SL + PSILI <,i
finna(152) = CHR$(&H003C) & CHR$(&H002C) & CHR$(&H0069)
breyta(152) = CHR$(&H1F30)

Rem Iota SL + PERISPOMENI <~i
finna(153) = CHR$(&H003C) & CHR$(&H007E) & CHR$(&H0069)
breyta(153) = CHR$(&H1FD6)

Rem Iota SL + OXIA <#i
finna(154) = CHR$(&H003C) & CHR$(&H0023) & CHR$(&H0069)
breyta(154) = CHR$(&H1F77)

Rem Iota SL + MACRON <5i
finna(155) = CHR$(&H003C) & CHR$(&H0035) & CHR$(&H0069)
breyta(155) = CHR$(&H1FD1)

Rem Iota SL + DIALYTIKA + TONOS <:'i
finna(156) = CHR$(&H003C) & CHR$(&H003A) & CHR$(&H0027) & CHR$(&H0069)
breyta(156) = CHR$(&H0390)

Rem Iota SL + DIALYTIKA + PERISPOMENI <:~i
finna(157) = CHR$(&H003C) & CHR$(&H003A) & CHR$(&H007E) & CHR$(&H0069) 
breyta(157) = CHR$(&H1FD7)

Rem Iota SL + DIALYTIKA + OXIA <:#i
finna(158) =  CHR$(&H003C) & CHR$(&H003A) & CHR$(&H0023) & CHR$(&H0069)
breyta(158) = CHR$(&H1FD3)

Rem Iota SL + DIALYTIKA <:i
finna(159) = CHR$(&H003C) & CHR$(&H003A) & CHR$(&H0069)
breyta(159) = CHR$(&H03CA)

Rem Iota SL + DASIA + VARIA <!;i
finna(160) = CHR$(&H003C) & CHR$(&H0021) & CHR$(&H003B) & CHR$(&H0069)
breyta(160) = CHR$(&H1F33)

Rem Iota SL + DASIA + PERISPOMENI <!~i
finna(161) = CHR$(&H003C) & CHR$(&H0021) & CHR$(&H007E) & CHR$(&H0069)
breyta(161) = CHR$(&H1F37)

Rem Iota SL + DASIA + OXIA <!#i
finna(162) = CHR$(&H003C) & CHR$(&H0021) & CHR$(&H0023) & CHR$(&H0069)
breyta(162) = CHR$(&H1F35)

Rem Iota SL + DASIA <!i
finna(163) = CHR$(&H003C) & CHR$(&H0021) & CHR$(&H0069
breyta(163) = CHR$(&H1F31)

Rem KAPPA CL <K
finna(164) = CHR$(&H003C) & CHR$(&H004B)
breyta(164) = CHR$(&H039A)

Rem Kappa  SL <k
finna(165) = CHR$(&H003C) & CHR$(&H006B)
breyta(165) = CHR$(&H03BA)

Rem LAMDA CL <L
finna(166) = CHR$(&H003C) & CHR$(&H004C)
breyta(166) = CHR$(&H039B)

Rem Lamda SL <l
finna(167) = CHR$(&H003C) & CHR$(&H006C)
breyta(167) = CHR$(&H03BB)

Rem MU CL <M
finna(168) = CHR$(&H003C) & CHR$(&H004D)
breyta(168) = CHR$(&H039C)

Rem Mu SL <m
finna(169) = CHR$(&H003C) & CHR$(&H006D)
breyta(169) = CHR$(&H03BC)

Rem NU CL <N
finna(170) = CHR$(&H003C) & CHR$(&H004E)
breyta(170) = CHR$(&H039D)

Rem Nu SL <n
finna(171) = CHR$(&H003C) & CHR$(&H006E)
breyta(171) = CHR$(&H03BD)

Rem OMICRON CL <O
finna(172) = CHR$(&H003C) & CHR$(&H004F)
breyta(172) = CHR$(&H039F)

Rem OMICRON CL + VARIA <;O
finna(173) = CHR$(&H003C) & CHR$(&H003B) & CHR$(&H004F)
breyta(173) = CHR$(&H1FF8)

Rem OMICRON CL + TONOS <'O
finna(174) = CHR$(&H003C) & CHR$(&H0027) & CHR$(&H004F)
breyta(174) = CHR$(&H038C)

Rem OMICRON CL + PSILI + VARIA <,;O
finna(175) = CHR$(&H003C) & CHR$(&H002C) & CHR$(&H003B) & CHR$(&H004F)
breyta(175) = CHR$(&H1F4A)

Rem OMICRON CL + PSILI + OXIA <,#O
finna(176) = CHR$(&H003C) & CHR$(&H002C) & CHR$(&H0023) & CHR$(&H004F)
breyta(176) = CHR$(&H1F4C)

Rem OMICRON CL + PSILI <,O
finna(177) = CHR$(&H003C) & CHR$(&H002C) & CHR$(&H004F)
breyta(177) = CHR$(&H1F48)

Rem OMEGA CL + OXIA <#O
finna(178) =  CHR$(&H003C) & CHR$(&H0023) & CHR$(&H004F)
breyta(178) = CHR$(&H1FF9)

Rem OMICRON CL + DASIA + VARIA <!;O
finna(179) = CHR$(&H003C) & CHR$(&H0021) & CHR$(&H003B) & CHR$(&H004F)
breyta(179) = CHR$(&H1F4B)

Rem OMICRON CL + DASIA + OXIA <!#O
finna(180) = CHR$(&H003C) & CHR$(&H0021) & CHR$(&H0023) & CHR$(&H004F)
breyta(180) = CHR$(&H1F4D)

Rem OMICRON CL + DASIA <!O
finna(181) =  CHR$(&H003C) & CHR$(&H0021) & CHR$(&H004F)
breyta(181) = CHR$(&H1F49)

Rem Omicron SL <o
finna(182) = CHR$(&H003C) & CHR$(&H006F) 
breyta(182) = CHR$(&H03BF)

Rem Omicron SL + VARIA <;o
finna(183) = CHR$(&H003C) & CHR$(&H003B) & CHR$(&H006F)
breyta(183) = CHR$(&H1F78)

Rem Omicron SL + TONOS <'o
finna(184) = CHR$(&H003C) & CHR$(&H0027) & CHR$(&H006F)
breyta(184) = CHR$(&H03CC)

Rem Omicron SL + PSILI + VARIA <,;o
finna(185) = CHR$(&H003C) & CHR$(&H002C) & CHR$(&H003B) & CHR$(&H006F)
breyta(185) = CHR$(&H1F42)

Rem Omicron SL + PSILI + OXIA <,#o
finna(186) = CHR$(&H003C) & CHR$(&H002C) & CHR$(&H0023) & CHR$(&H006F)
breyta(186) = CHR$(&H1F44)

Rem Omicron SL + PSIL <,o
finna(187) = CHR$(&H003C) & CHR$(&H002C) & CHR$(&H006F)
breyta(187) = CHR$(&H1F40)

Rem Omicron SL + OXIA <#o
finna(188) = CHR$(&H003C) & CHR$(&H0023) & CHR$(&H006F)
breyta(188) = CHR$(&H1F79)

Rem Omicron SL + DASIA + VARIA <!;o
finna(189) = CHR$(&H003C) & CHR$(&H0021) & CHR$(&H003B) & CHR$(&H006F)
breyta(189) = CHR$(&H1F43)

Rem Omicron SL + DASIA + OXIA <!#o
finna(190) = CHR$(&H003C) & CHR$(&H0021) & CHR$(&H0023) & CHR$(&H006F)
breyta(190) = CHR$(&H1F45)

Rem Omicron SL + DASIA <!o
finna(191) = CHR$(&H003C) & CHR$(&H0021) & CHR$(&H006F)
breyta(191) = CHR$(&H1F41)

Rem PI CL <P
finna(192) = CHR$(&H003C) & CHR$(&H0050)
breyta(192) = CHR$(&H03A0)

Rem Pi SL <p
finna(193) = CHR$(&H003C) & CHR$(&H0070)
breyta(193) = CHR$(&H03C0)

Rem THETA CL <Q
finna(194) = CHR$(&H003C) & CHR$(&H0051)
breyta(194) = CHR$(&H0398)

Rem Theta SL <q
finna(195) = CHR$(&H003C) & CHR$(&H0071)
breyta(195) = CHR$(&H03B8)

Rem RHO CL <R
finna(196) = CHR$(&H003C) & CHR$(&H0052) 
breyta(196) = CHR$(&H03A1)

Rem RHO CL + DASIA <!R
finna(197) = CHR$(&H003C) & CHR$(&H0021) & CHR$(&H0052)
breyta(197) = CHR$(&H1FEC)

Rem Rho SL <r
finna(198) = CHR$(&H003C) & CHR$(&H0072) 
breyta(198) = CHR$(&H03C1)

Rem Rho SL + PSILI <,r
finna(199) = CHR$(&H003C) & CHR$(&H002C) & CHR$(&H0072)
breyta(199) = CHR$(&H1FE4)

Rem Rho SL + DASIA <!r
finna(200) = CHR$(&H003C) & CHR$(&H0021) & CHR$(&H0072)
breyta(200) = CHR$(&H1FE5)

Rem SIGMA CL <S
finna(201) = CHR$(&H003C) & CHR$(&H0053)
breyta(201) = CHR$(&H03A3)

Rem Final Sigma SL <8s
finna(202) = CHR$(&H003C) & CHR$(&H0038) & CHR$(&H0073)
breyta(202) = CHR$(&H03C2)

Rem Sigma SL <s
finna(203) = CHR$(&H003C) & CHR$(&H0073)
breyta(203) = CHR$(&H03C3)

Rem TAU CL <T
finna(204) = CHR$(&H003C) & CHR$(&H0054)
breyta(204) = CHR$(&H03A4)

Rem Tau SL <t
finna(205) = CHR$(&H003C) & CHR$(&H0074)
breyta(205) = CHR$(&H03C4)

Rem UPSILON CL <U
finna(206) = CHR$(&H003C) & CHR$(&H0055)
breyta(206) = CHR$(&H03A5)

Rem UPSILON CL  + VRACHY <4U
finna(207) = CHR$(&H003C) & CHR$(&H0034) & CHR$(&H0055)
breyta(207) = CHR$(&H1FE8)

Rem UPSILON CL  + VARIA <;U
finna(208) = CHR$(&H003C) & CHR$(&H003B) & CHR$(&H0055)
breyta(208) = CHR$(&H1FEA)

Rem UPSILON CL  + TONOS <'U
finna(209) = CHR$(&H003C) & CHR$(&H0027) & CHR$(&H0055)
breyta(209) = CHR$(&H038E)

Rem Upsilon SL + OXIA <#U
finna(210) =  CHR$(&H003C) & CHR$(&H0023) & CHR$(&H0055)
breyta(210) = CHR$(&H1FEB)

Rem UPSILON CL  + MACRON <5U
finna(211) = CHR$(&H003C) & CHR$(&H0035) & CHR$(&H0055
breyta(211) = CHR$(&H1FE9)

Rem UPSILON CL  + DIALYTIKA <:U
finna(212) = CHR$(&H003C) & CHR$(&H003A) & CHR$(&H0055)
breyta(212) = CHR$(&H03AB)

Rem UPSILON CL + DASIA + VARIA <!;U
finna(213) = CHR$(&H003C) & CHR$(&H0021) & CHR$(&H003B) & CHR$(&H0055)
breyta(213) = CHR$(&H1F5B)

Rem UPSILON CL + DASIA + PERISPOMENI <!~U
finna(214) = CHR$(&H003C) & CHR$(&H0021) & CHR$(&H007E) & CHR$(&H0055)
breyta(214) = CHR$(&H1F5F)

Rem UPSILON CL + DASIA + OXIA <!#U
finna(215) = CHR$(&H003C) & CHR$(&H0021) & CHR$(&H0023) & CHR$(&H0055)
breyta(215) = CHR$(&H1F5D)

Rem UPSILON CL + DASIA <!U
finna(216) = CHR$(&H003C) & CHR$(&H0021) & CHR$(&H0055)
breyta(216) = CHR$(&H1F59)

Rem Upsilon SL <u
finna(217) = CHR$(&H003C) & CHR$(&H0075)
breyta(217) = CHR$(&H03C5)

Rem Upsilon SL + VRACHY <4u
finna(218) = CHR$(&H003C) & CHR$(&H0034) & CHR$(&H0075)
breyta(218) = CHR$(&H1FE0)

Rem Upsilon SL + VARIA <;u
finna(219) = CHR$(&H003C) & CHR$(&H003B) & CHR$(&H0075)
breyta(219) = CHR$(&H1F7A)

Rem Upsilon SL + TONOS <'u
finna(220) = CHR$(&H003C) & CHR$(&H0027) & CHR$(&H0075)
breyta(220) = CHR$(&H03CD)

Rem Upsilon SL + PSILI + VARIA <,;u
finna(221) = CHR$(&H003C) & CHR$(&H002C) & CHR$(&H003B) & CHR$(&H0075 
breyta(221) = CHR$(&H1F52)

Rem Upsilon SL + PSILI + PERISPOMENI <,~u
finna(222) = CHR$(&H003C) & CHR$(&H002C) & CHR$(&H007E) & CHR$(&H0075)
breyta(222) = CHR$(&H1F56)

Rem Upsilon SL + PSILI + OXIA <,#u
finna(223) = CHR$(&H003C) & CHR$(&H002C) & CHR$(&H0023) & CHR$(&H0075)
breyta(223) = CHR$(&H1F54)

Rem Upsilon SL + PSILI <,u
finna(224) = CHR$(&H003C) & CHR$(&H002C) & CHR$(&H0075)
breyta(224) = CHR$(&H1F50)

Rem Upsilon SL + PERISPOMENI <~u
finna(225) = CHR$(&H003C) & CHR$(&H007E) & CHR$(&H0075)
breyta(225) = CHR$(&H1FE6)

Rem Upsilon SL + OXIA <#u
finna(226) = CHR$(&H003C) & CHR$(&H0023) & CHR$(&H0075)
breyta(226) = CHR$(&H1F7B)

Rem Upsilon SL + MACRON <5u
finna(227) = CHR$(&H003C) & CHR$(&H0035) & CHR$(&H0075) 
breyta(227) = CHR$(&H1FE1)

Rem Upsilon SL + DIALYTIKA + VARIA <:;u
finna(228) = CHR$(&H003C) & CHR$(&H003A) & CHR$(&H003B)  & CHR$(&H0075)
breyta(228) = CHR$(&H1FE2)

Rem Upsilon SL + DIALYTIKA + TONOS <:'u
finna(229) = CHR$(&H003C) & CHR$(&H003A) & CHR$(&H0027) & CHR$(&H0075)
breyta(229) = CHR$(&H03B0)

Rem Upsilon SL + DIALYTIKA + PERISPOMEN <:~u
finna(230) = CHR$(&H003C) & CHR$(&H003A) & CHR$(&H007E) & CHR$(&H0075)
breyta(230) = CHR$(&H1FE7)

Rem Upsilon SL+ DIALYTIKA + OXIA <:#u
finna(231) =  CHR$(&H003C) & CHR$(&H003A) & CHR$(&H0023) & CHR$(&H0075)
breyta(231) = CHR$(&H1FE3)

Rem Upsilon SL + DIALYTIKA <:u
finna(232) = CHR$(&H003C) & CHR$(&H003A) & CHR$(&H0075)
breyta(232) = CHR$(&H03CB)

Rem Upsilon SL + DASIA + VARIA <!;u
finna(233) = CHR$(&H003C) & CHR$(&H0021) & CHR$(&H003B) & CHR$(&H0075)
breyta(233) = CHR$(&H1F53)

Rem Upsilon SL + DASIA + PERISPOMENI <!~u
finna(234) = CHR$(&H003C) & CHR$(&H0021) & CHR$(&H007E) & CHR$(&H0075)
breyta(234) = CHR$(&H1F57)

Rem Upsilon SL + DASIA + OXIA <!#u
finna(235) = CHR$(&H003C) & CHR$(&H0021) & CHR$(&H0023) & CHR$(&H0075)
breyta(235) = CHR$(&H1F55)

Rem Upsilon SL + DASIA <!u
finna(236) = CHR$(&H003C) & CHR$(&H0021) & CHR$(&H0075)
breyta(236) = CHR$(&H1F51)

Rem ARCHAIC KOPPA CL <8V
finna(237) = CHR$(&H003C) & CHR$(&H0038) & CHR$(&H0056)
breyta(237) = CHR$(&H03D8)

Rem Archaic Koppa SL <8v
finna(238) =  CHR$(&H003C) & CHR$(&H0038) & CHR$(&H0076)
breyta(238) = CHR$(&H03D9)

Rem KOPPA CL <V
finna(239) = CHR$(&H003C) & CHR$(&H0056)
breyta(239) = CHR$(&H03DE)

Rem Koppa SL <v
finna(240) = CHR$(&H003C) & CHR$(&H0076)
breyta(240) = CHR$(&H03DF)

Rem OMEGA CL <W
finna(241) = CHR$(&H003C) & CHR$(&H0057)
breyta(241) = CHR$(&H03A9)

Rem OMEGA CL + VARIA <;W
finna(242) = CHR$(&H003C) & CHR$(&H003B) & CHR$(&H0057)
breyta(242) = CHR$(&H1FFA)

Rem OMEGA CL + TONOS <'W
finna(243) = CHR$(&H003C) & CHR$(&H0027) & CHR$(&H0057)
breyta(243) = CHR$(&H038F)

Rem OMEGA CL + PSILI + VARIA + PROSGEGRAMMENI <,;3W
finna(244) = CHR$(&H003C) & CHR$(&H002C) & CHR$(&H003B) & CHR$(&H0033) & CHR$(&H0057)
breyta(244) = CHR$(&H1FAA)

Rem OMEGA CL + PSILI + VARIA <,;W
finna(245) = CHR$(&H003C) & CHR$(&H002C) & CHR$(&H003B) & CHR$(&H0057)
breyta(245) = CHR$(&H1F6A)

Rem OMEGA CL + PSILI + PROSGEGRAMMENI <,3W
finna(246) = CHR$(&H003C) & CHR$(&H002C) & CHR$(&H0033) & CHR$(&H0057)
breyta(246) = CHR$(&H1FA8)

Rem OMEGA CL + PSILI + PERISPOMENI + PROSGEGRAMMENI <,~3W
finna(247) = CHR$(&H003C) & CHR$(&H002C) & CHR$(&H007E) & CHR$(&H0033) & CHR$(&H0057)
breyta(247) = CHR$(&H1FAE)

Rem OMEGA CL + PSILI + PERISPOMENI <,~W
finna(248) = CHR$(&H003C) & CHR$(&H002C) & CHR$(&H007E) & CHR$(&H0057)
breyta(248) = CHR$(&H1F6E)

Rem OMEGA CL + PSILI + OXIA + PROSGEGRAMMENI <,#3W
finna(249) = CHR$(&H003C) & CHR$(&H002C) & CHR$(&H0023) & CHR$(&H0033) & CHR$(&H0057)
breyta(249) = CHR$(&H1FAC)

Rem OMEGA CL + PSILI + OXIA <,#W
finna(250) = CHR$(&H003C) & CHR$(&H002C) & CHR$(&H0023) & CHR$(&H0057)
breyta(250) = CHR$(&H1F6C)

Rem OMEGA CL + PSILI <,W
finna(251) = CHR$(&H003C) & CHR$(&H002C) & CHR$(&H0057)
breyta(251) = CHR$(&H1F68)

Rem OMEGA CL + PROSGEGRAMMENI <3W
finna(252) = CHR$(&H003C) & CHR$(&H0033) & CHR$(&H0057)
breyta(252) = CHR$(&H1FFC)

Rem OMEGA CL + OXIA <#W
finna(253) =  CHR$(&H003C) & CHR$(&H0023) & CHR$(&H0057)
breyta(253) = CHR$(&H1FFB)

Rem OMEGA CL + DASIA + VARIA + PROSGEGRAMMENI <!;3W
finna(254) = CHR$(&H003C) & CHR$(&H0021) & CHR$(&H003B) & CHR$(&H0033) & CHR$(&H0057)
breyta(254) = CHR$(&H1FAB)

Rem OMEGA CL + DASIA + VARIA <!;W
finna(255) =  CHR$(&H003C) & CHR$(&H0021) & CHR$(&H003B) & CHR$(&H0057)
breyta(255) = CHR$(&H1F6B)

Rem OMEGA CL + DASIA + PROSGEGRAMMENI <!3W
finna(256) = CHR$(&H003C) & CHR$(&H0021) & CHR$(&H0033) & CHR$(&H0057)
breyta(256) = CHR$(&H1FA9)

Rem OMEGA CL + DASIA + PERISPOMENI + PROSGEGRAMMENI <!~3W
finna(257) = CHR$(&H003C) & CHR$(&H0021) & CHR$(&H007E)  & CHR$(&H0033) & CHR$(&H0057)
breyta(257) = CHR$(&H1FAF)

Rem OMEGA CL + DASIA + PERISPOMENI <!~W
finna(258) = CHR$(&H003C) & CHR$(&H0021) & CHR$(&H007E) & CHR$(&H0057)
breyta(258) = CHR$(&H1F6F)

Rem OMEGA CL + DASIA + OXIA + PROSGEGRAMMENI <!#3W
finna(259) = CHR$(&H003C) & CHR$(&H0021) & CHR$(&H0023) & CHR$(&H0033) & CHR$(&H0057)
breyta(259) = CHR$(&H1FAD)

Rem OMEGA CL + DASIA + OXIA <!#W
finna(260) = CHR$(&H003C) & CHR$(&H0021) & CHR$(&H0023) & CHR$(&H0057)
breyta(260) = CHR$(&H1F6D)

Rem OMEGA CL + DASIA <!W
finna(261) = CHR$(&H003C) & CHR$(&H0021) & CHR$(&H0057)
breyta(261) = CHR$(&H1F69)

Rem Omega SL <w  
finna(262) = CHR$(&H003C) & CHR$(&H0077)
breyta(262) = CHR$(&H03C9)

Rem Omega SL + YPOGEGRAMMENI <2w
finna(263) = CHR$(&H003C) & CHR$(&H0032) & CHR$(&H0077)
breyta(263) = CHR$(&H1FF3)

Rem Omega SL + PERISPOMENI + YPOGEGRAMMENI <;2w
finna(264) = CHR$(&H003C) & CHR$(&H003B) & CHR$(&H0032) & CHR$(&H0077)
breyta(264) = CHR$(&H1FF2)

Rem Omega SL + VARIA <;w
finna(265) = CHR$(&H003C) & CHR$(&H003B) & CHR$(&H0077)
breyta(265) = CHR$(&H1F7C)

Rem Omega SL + TONOS <'w
finna(266) = CHR$(&H003C) & CHR$(&H0027) & CHR$(&H0077)
breyta(266) = CHR$(&H03CE)

Rem Omega SL + PSILI + YPOGEGRAMMENI <,2w
finna(267) = CHR$(&H003C) & CHR$(&H002C) & CHR$(&H0032) & CHR$(&H0077)
breyta(267) = CHR$(&H1FA0)

Rem Omega SL + PSILI + VARIA + YPOGEGRAMMENI <,;2w
finna(268) = CHR$(&H003C) & CHR$(&H002C) & CHR$(&H003B) & CHR$(&H0032) & CHR$(&H0077)
breyta(268) = CHR$(&H1FA2)

Rem Omega SL + PSILI + VARIA <,;w
finna(269) = CHR$(&H003C) & CHR$(&H002C) & CHR$(&H003B) & CHR$(&H0077)
breyta(269) = CHR$(&H1F62)

Rem Omega SL + PSILI + PERISPOMENI + YPOGEGRAM <,~2w
finna(270) = CHR$(&H003C) & CHR$(&H002C) & CHR$(&H007E) & CHR$(&H0032) & CHR$(&H0077)
breyta(270) = CHR$(&H1FA6)

Rem Omega SL + PSILI + PERISPOMENI <,~w
finna(271) = CHR$(&H003C) & CHR$(&H002C) & CHR$(&H007E) & CHR$(&H0077)
breyta(271) = CHR$(&H1F66)

Rem Omega SL + PSILI + OXIA + YPOGEGRAMMENI <,#2w
finna(272) = CHR$(&H003C) & CHR$(&H002C) & CHR$(&H0023) & CHR$(&H0032) & CHR$(&H0077) 
breyta(272) = CHR$(&H1FA4)

Rem Omega SL + PSILI + OXIA <,#w
finna(273) = CHR$(&H003C) & CHR$(&H002C) & CHR$(&H0023) & CHR$(&H0077)
breyta(273) = CHR$(&H1F64)

Rem Omega SL + PSILI <,w
finna(274) = CHR$(&H003C) & CHR$(&H002C) & CHR$(&H0077)
breyta(274) = CHR$(&H1F60)

Rem Omega SL PERISPOMENI + YPOGEGRAMMENI <~2w
finna(275) = CHR$(&H003C)  & CHR$(&H007E) & CHR$(&H0032) & CHR$(&H0077)
breyta(275) = CHR$(&H1FF7)

Rem Omega SL + PERISPOMENI <~w
finna(276) = CHR$(&H003C) & CHR$(&H007E) & CHR$(&H0077)
breyta(276) = CHR$(&H1FF6)

Rem Omega SL + OXIA + YPOGEGRAMMEN <#2w
finna(277) = CHR$(&H003C) & CHR$(&H0023) & CHR$(&H0032) & CHR$(&H0077)
breyta(277) = CHR$(&H1FF4)

Rem Omega SL + OXIA <#w
finna(278) = CHR$(&H003C) & CHR$(&H0023) & CHR$(&H0077)
breyta(278) = CHR$(&H1F7D)

Rem Omega SL + DASIA + YPOGEGRAMMENI <!2w
finna(279) = CHR$(&H003C) & CHR$(&H0021) & CHR$(&H0032) & CHR$(&H0077)
breyta(279) = CHR$(&H1FA1)

Rem Omega SL + DASIA + VARIA + YPOGEGRAMMENI <!;2w
finna(280) = CHR$(&H003C) & CHR$(&H0021) & CHR$(&H003B) & CHR$(&H0032) & CHR$(&H0077)
breyta(280) = CHR$(&H1FA3)

Rem Omega SL + DASIA + VARIA <!;w
finna(281) = CHR$(&H003C) & CHR$(&H0021) &  CHR$(&H003B) & CHR$(&H0077)
breyta(281) = CHR$(&H1F63)

Rem Omega SL + DASIA + PERISPOMENI + YPOGEGRAMMENI <!~2w
finna(282) = CHR$(&H003C) & CHR$(&H0021) & CHR$(&H007E) & CHR$(&H0032) & CHR$(&H0077)
breyta(282) = CHR$(&H1FA7)

Rem Omega SL + DASIA + PERISPOMENI <!~w
finna(283) = CHR$(&H003C) & CHR$(&H0021) & CHR$(&H007E) & CHR$(&H0077)
breyta(283) = CHR$(&H1F67)

Rem Omega SL + DASIA + OXIA + YPOGEGRAMMENI <!#2w
finna(284) = CHR$(&H003C) & CHR$(&H0021) & CHR$(&H0023) & CHR$(&H0032) & CHR$(&H0077)
breyta(284) = CHR$(&H1FA5)

Rem Omega SL + DASIA + OXIA <!#w
finna(285) = CHR$(&H003C) & CHR$(&H0021) & CHR$(&H0023) & CHR$(&H0077)
breyta(285) = CHR$(&H1F65)

Rem Omega SL + DASIA <!w
finna(286) = CHR$(&H003C) & CHR$(&H0021) & CHR$(&H0077)
breyta(286) = CHR$(&H1F61)

Rem XI  CL <X
finna(287) = CHR$(&H003C) & CHR$(&H0058)
breyta(287) = CHR$(&H039E)

Rem Xi SL <x
finna(288) = CHR$(&H003C) & CHR$(&H0078)
breyta(288) = CHR$(&H03BE)

Rem PSI  CL <Y
finna(289) = CHR$(&H003C) & CHR$(&H0059)
breyta(289) = CHR$(&H03A8)

Rem Psi SL <y
finna(290) = CHR$(&H003C) & CHR$(&H0079)
breyta(290) = CHR$(&H03C8)

Rem STIGMA CL <8Z
finna(291) = CHR$(&H003C) & CHR$(&H0038) & CHR$(&H005A)
breyta(291) = CHR$(&H03DA)

Rem Stigma SL <8z
finna(292) =  CHR$(&H003C) & CHR$(&H0038) & CHR$(&H007A)
breyta(292) = CHR$(&H03DB)

Rem ZETA CL <Z
finna(293) = CHR$(&H003C) & CHR$(&H005A)
breyta(293) = CHR$(&H0396)

Rem Zeta SL  <z
finna(294) = CHR$(&H003C) & CHR$(&H007A)
breyta(294) = CHR$(&H03B6)


dim I
For I = 1 To 294


args1(0).Name = "SearchItem.StyleFamily"
args1(0).Value = 2
args1(1).Name = "SearchItem.CellType"
args1(1).Value = 0
args1(2).Name = "SearchItem.RowDirection"
args1(2).Value = true
args1(3).Name = "SearchItem.AllTables"
args1(3).Value = false
args1(4).Name = "SearchItem.Backward"
args1(4).Value = false
args1(5).Name = "SearchItem.Pattern"
args1(5).Value = false
args1(6).Name = "SearchItem.Content"
args1(6).Value = false
args1(7).Name = "SearchItem.AsianOptions"
args1(7).Value = false
args1(8).Name = "SearchItem.AlgorithmType"
args1(8).Value = 1
args1(9).Name = "SearchItem.SearchFlags"
args1(9).Value = 65536
args1(10).Name = "SearchItem.SearchString"
args1(10).Value = finna(I)
args1(11).Name = "SearchItem.ReplaceString"
args1(11).Value = breyta(I)
args1(12).Name = "SearchItem.Locale"
args1(12).Value = 255
args1(13).Name = "SearchItem.ChangedChars"
args1(13).Value = 2
args1(14).Name = "SearchItem.DeletedChars"
args1(14).Value = 2
args1(15).Name = "SearchItem.InsertedChars"
args1(15).Value = 2
args1(16).Name = "SearchItem.TransliterateFlags"
args1(16).Value = 1024
args1(17).Name = "SearchItem.Command"
args1(17).Value = 3
args1(18).Name = "Quiet"
args1(18).Value = true

dispatcher.executeDispatch(document, ".uno:ExecuteSearch", "", 0, args1())


Next I

end sub