REM ===================================================
REM Konvertor Yu slova za sve poznate kodne rasporede
REM Makro by Dragan Vracar, vracko@sezam.co.yu, 1995-96
REM ===================================================

Sub MAIN

Dim DroplistBox1$(10)
Dim DroplistBox2$(10)
Dim KonvertIz$(9)
Dim KonvertU$(9)
Dim My$(9)

My$(0) = "#$0" : My$(1) = "#$1" : My$(2) = "#$2" : My$(3) = "#$3"
My$(4) = "#$4" : My$(5) = "#$5" : My$(6) = "#$6" : My$(7) = "#$7"
My$(8) = "#$8" : My$(9) = "#$9"

S1250$      = "^0154^0240^0232^0230^0158^0138^0208^0200^0198^0142"
S852$       = "^0231^0208^0159^0134^0167^0230^0209^0172^0143^0166"
Yuscii$     = "^0123^0124^0126^0125^0096^0091^0092^0094^0093^0064"
Custom1$    = "^0035^0064^0091^0093^0092^0126^0094^0123^0125^0124"
Custom2$    = "^0132^0148^0129^0134^0130^0142^0153^0154^0143^0144"
Custom3$    = "^0171^0170^0166^0169^0172^0177^0176^0167^0168^0178"
Jus015$     = "^0171^0170^0168^0169^0172^0163^0162^0160^0161^0164"
MacCustom$  = "^0139^0207^0140^0150^0190^0204^0206^0129^0132^0174"
MacCustWin$ = "^0227^0240^0229^0241^0230^0195^0208^0197^0209^0198"
MojMikro$   = "^0169^0175^0167^0173^0171^0168^0174^0166^0172^0170"
Racunari$   = "^0171^0170^0166^0169^0172^0177^0176^0174^0175^0178"

DroplistBox1$(0) = "Yuscii"     : DroplistBox1$(1) = "1250"
DroplistBox1$(2) = "852"        : DroplistBox1$(3) = "Racunari"
DroplistBox1$(4) = "Custom1"    : DroplistBox1$(5) = "Custom2"
DroplistBox1$(6) = "Custom3"    : DroplistBox1$(7) = "JUS015"
DroplistBox1$(8) = "MacCustom"  : DroplistBox1$(9) = "MacCustWin"
DroplistBox1$(10) = "MojMikro"

DroplistBox2$(0) = "Yuscii"     : DroplistBox2$(1) = "1250"
DroplistBox2$(2) = "852"        : DroplistBox2$(3) = "Racunari"
DroplistBox2$(4) = "Custom1"    : DroplistBox2$(5) = "Custom2"
DroplistBox2$(6) = "Custom3"    : DroplistBox2$(7) = "JUS015"
DroplistBox2$(8) = "MacCustom"  : DroplistBox2$(9) = "MacCustWin"
DroplistBox2$(10) = "MojMikro"

Begin Dialog UserDialog 384, 196, "Yu Karakter Konvertor"
    DropListBox 201, 43, 160, 108, DropListBox1$(), .DropListBox1
    Text 39, 24, 96, 13, "Konvertuj iz:", .Text1
    Text 233, 24, 93, 13, "Konvertuj u:", .Text2
    Text 85, 100, 250, 13, "Makro by VRACKO@Sezam.Co.Yu", .Text3
    Text 157, 120, 200, 13, "(1995-96)", .Text4
    DropListBox 11, 44, 160, 108, DropListBox2$(), .DropListBox2
    OKButton 68, 167, 88, 21
    CancelButton 233, 167, 88, 21
End Dialog

Dim fdlg As FormatFont
a = 1
b = 1

ponovo:
Dim Dlg As UserDialog
If Dialog(Dlg) Then Goto pocni : Else Goto kraj :

pocni:
If Dlg.DropListBox2 = Dlg.DropListBox1 Then
    MsgBox " U oba slucaja si izabrao iste rasporede.", "Greska", 16
    Goto ponovo :
Else
Select Case Dlg.DropListBox2
    Case 0
        For c = 0 To 9
            KonvertIz$(c) = Mid$(Yuscii$, a, 5) : a = a + 5
        Next
    Case 1
        For c = 0 To 9
            KonvertIz$(c) = Mid$(S1250$, a, 5) : a = a + 5
        Next
    Case 2
        For c = 0 To 9
            KonvertIz$(c) = Mid$(S852$, a, 5) : a = a + 5
        Next
    Case 3
        For c = 0 To 9
            KonvertIz$(c) = Mid$(Racunari$, a, 5) : a = a + 5
        Next
    Case 4
        For c = 0 To 9
            KonvertIz$(c) = Mid$(Custom1$, a, 5) : a = a + 5
        Next
    Case 5
        For c = 0 To 9
            KonvertIz$(c) = Mid$(Custom2$, a, 5) : a = a + 5
        Next
    Case 6
        For c = 0 To 9
            KonvertIz$(c) = Mid$(Custom3$, a, 5) : a = a + 5
        Next
    Case 7
        For c = 0 To 9
            KonvertIz$(c) = Mid$(JUS015$, a, 5) : a = a + 5
        Next
    Case 8
        For c = 0 To 9
            KonvertIz$(c) = Mid$(MacCustom$, a, 5) : a = a + 5
        Next
    Case 9
        For c = 0 To 9
            KonvertIz$(c) = Mid$(MacCustWin$, a, 5) : a = a + 5
        Next
    Case 10
        For c = 0 To 9
            KonvertIz$(c) = Mid$(MojMikro$, a, 5) : a = a + 5
        Next
    Case Else
        MAIN
End Select

Select Case Dlg.DropListBox1
    Case 0
        For d = 0 To 9
            KonvertU$(d) = Mid$(Yuscii$, b, 5) : b = b + 5
        Next
    Case 1
        For d = 0 To 9
            KonvertU$(d) = Mid$(S1250$, b, 5) : b = b + 5
        Next
    Case 2
        For d = 0 To 9
            KonvertU$(d) = Mid$(S852$, b, 5) : b = b + 5
        Next
    Case 3
        For d = 0 To 9
            KonvertU$(d) = Mid$(Racunari$, b, 5) : b = b + 5
        Next
    Case 4
        For d = 0 To 9
            KonvertU$(d) = Mid$(Custom1$, b, 5) : b = b + 5
        Next
    Case 5
        For d = 0 To 9
            KonvertU$(d) = Mid$(Custom2$, b, 5) : b = b + 5
        Next
    Case 6
        For d = 0 To 9
            KonvertU$(d) = Mid$(Custom3$, b, 5) : b = b + 5
        Next
    Case 7
        For d = 0 To 9
            KonvertU$(d) = Mid$(JUS015$, b, 5) : b = b + 5
        Next
    Case 8
        For d = 0 To 9
            KonvertU$(d) = Mid$(MacCustom$, b, 5) : b = b + 5
        Next
    Case 9
        For d = 0 To 9
            KonvertU$(d) = Mid$(MacCustWin$, b, 5) : b = b + 5
        Next
    Case 10
        For d = 0 To 9
            KonvertU$(d) = Mid$(MojMikro$, b, 5) : b = b + 5
        Next
Case Else
    MAIN
End Select

EditSelectAll
GetCurValues fdlg
x = Dialog(fdlg)
FormatFont fdlg

StartOfDocument
ScreenUpdating 0

For x = 0 To 9
    EditReplace .Find = KonvertIz$(x), .Replace = My$(x), \
        .MatchCase = 1, .ReplaceAll
    ToolsRevisions .MarkRevisions = 1 : ToolsRevisions .MarkRevisions = 0
Next

StartOfDocument

For x = 0 To 9
    EditReplace .Find = My$(x), .Replace = KonvertU$(x), \
        .MatchCase = 1, .ReplaceAll
    ToolsRevisions .MarkRevisions = 1 : ToolsRevisions .MarkRevisions = 0
Next

ScreenUpdating 1

kraj:
End Sub
REM ==================== KRAJ ====================