'MacroName:Add007
'MacroDescription:Insert primary or secondary 007 tags to a record
'Macro Created by: Joel Hahn, Niles Public Library District
'   With much assistance from: Harvey Hahn, Arlington Heights Mem. Lib.
'Last updated: 21 March 2005

Dim AArr() As String
Dim BArr() As String
Dim DArr() As String
Dim EArr() As String
Dim FArr() As String
Dim GArr() As String
Dim HArr() As String
Dim IArr() As String
'Dim JArr() As String
Dim MArr() As String
Dim NArr() As String
Declare Function Fmt(id$, action%, supp&)
Declare Sub Frmt(Fm$)

sub main
On Error Goto ErrHand
Dim CS as Object
   On Error Resume Next
   Set CS  = GetObject(,"Connex.Client")
   On Error GoTo 0
   If CS  Is Nothing Then
      Set CS  = CreateObject("Connex.Client")
   End If

ReDim AArr(0 to 9)
AArr(0) = " "
AArr(1) = "a" : AArr(2) = "c" : AArr(3) = "d" : AArr(4) = "g"
AArr(5) = "h" : AArr(6) = "k" : AArr(7) = "m" : AArr(8) = "s"
AArr(9) = "v"
MainBox:
Begin Dialog Frmat 220, 70, .Fmt
Caption "007 Creation"
Text 10, 7, 16, 12, "$a", .texta
  DropListBox 10, 17, 19, 58, AArr(), .Type
Text 30, 7, 16, 12, "$b", .textb
  DropListBox 30, 17, 19, 58, BArr(), .b
Text 50, 7, 16, 12, "$d", .textd
  DropListBox 50, 17, 19, 58, DArr(), .d
Text 70, 7, 16, 12, "$e", .texte
  DropListBox 70, 17, 19, 58, EArr(), .e
Text 91, 7, 16, 12, "$f", .textf
  DropListBox 90, 17, 19, 58, FArr(), .f
Text 110, 7, 16, 12, "$g", .textg
  DropListBox 110, 17, 19, 58, GArr(), .g
Text 130, 7, 16, 12, "$h", .texth
  DropListBox 130, 17, 19, 58, HArr(), .h
Text 151, 7, 16, 12, "$i", .texti
  DropListBox 150, 17, 19, 58, IArr(), .i
Text 169, 7, 16, 12, "$m", .textm
  DropListBox 170, 17, 19, 58, MArr(), .m
Text 190, 7, 16, 12, "$n", .textn
  DropListBox 190, 17, 19, 58, NArr(), .n
OkButton 10, 40, 40, 20
CancelButton 60, 40, 40, 20
End Dialog
dim NChoice as Frmat
dialog NChoice

a$=AArr(NChoice.Type)
If a$=" " Then
  MsgBox "$a is a required field."
  Goto MainBox
End If
If Str(NChoice.b)<>-1 Then b$=BArr(NChoice.b)
  If b$="" Then b$=" "
If Str(NChoice.d)<>-1 Then d$=DArr(NChoice.d)
  If d$="" Then d$=" "
If Str(NChoice.e)<>-1 Then e$=EArr(NChoice.e)
  If e$="" Then e$=" "
If Str(NChoice.f)<>-1 Then f$=FArr(NChoice.f)
  If f$="" Then f$=" "
If Str(NChoice.g)<>-1 Then g$=GArr(NChoice.g)
  If g$="" Then g$=" "
If Str(NChoice.h)<>-1 Then h$=HArr(NChoice.h)
  If h$="" Then h$=" "
If Str(NChoice.i)<>-1 Then i$=IArr(NChoice.i)
  If i$="" Then i$=" "
'If Str(NChoice.j)<>-1 Then j$=JArr(NChoice.j)
  'If j$="" Then j$=" "
If Str(NChoice.m)<>-1 Then m$=MArr(NChoice.m)
  If m$="" Then m$=" "
If Str(NChoice.n)<>-1 Then n$=NArr(NChoice.n)
  If n$="" Then n$=" "

Seven$ = "007  " & a$
Seven$ = Seven$ & " " & Chr$(223) & "b " & b$
Seven$ = Seven$ & " " & Chr$(223) & "d "+d$
If e$<>" " Then Seven$ = Seven$ & " " & Chr$(223) & "e " & e$
If f$<>" " Then Seven$ = Seven$ & " " & Chr$(223) & "f " & f$
If (a$ = h and f$ <> " ") Then
 Seven$ = Seven$ & "---"
 Seven$ = Seven$ & " "
End If
If g$ <> " " Then Seven$ = Seven$ & " " & Chr$(223) & "g " & g$
If h$ <> " " Then Seven$ = Seven$ & " " & Chr$(223) & "h " & h$
If i$ <> " " Then Seven$ = Seven$ & " " & Chr$(223) & "i " & i$
'If j$ <> " " Then Seven$ = Seven$ & " " & Chr$(223) & "j " & j$
If m$ <> " " Then Seven$ = Seven$ & " " & Chr$(223) & "m " & m$
If n$ <> " " Then Seven$ = Seven$ & " " & Chr$(223) & "n " & n$

bool = CS.AddField(999, Seven$)
Goto Done

ErrHand:
  If Err=102 Then
    Resume Done
  Else
    MsgBox "Err(" & Err & ") in line " & Erl & ": " & Error$
    Resume Done
  End If

Done:
End Sub

Function Fmt( WhichControl$, action%, suppvalue& )
   Select Case action%
      Case 1
         'Set up initial values

      Case 2
         Select Case WhichControl$
            Case "Type"
               Fm$ = AArr( DlgValue("Type") )
               Call Frmt( Fm$ )
               Select Case Fm$
                Case " "
                Case "a"
                  DlgListBoxArray "b", BArr()
                  DlgListBoxArray "d", DArr()
                  DlgListBoxArray "e", EArr()
                  DlgListBoxArray "f", FArr()
                  DlgListBoxArray "g", GArr()
                  DlgListBoxArray "h", HArr()
                  DlgVisible "g", 1
                  DlgVisible "h", 1
                  DlgVisible "i", 0
                  DlgVisible "m", 0
                  DlgVisible "n", 0
                  DlgVisible "textg", 1
                  DlgVisible "texth", 1
                  DlgVisible "texti", 0
                  DlgVisible "textm", 0
                  DlgVisible "textn", 0
                Case "c","d","k" 
                  DlgListBoxArray "b", BArr()
                  DlgListBoxArray "d", DArr()
                  DlgListBoxArray "e", EArr()
                  DlgListBoxArray "f", FArr()
                  DlgVisible "g", 0
                  DlgVisible "h", 0
                  DlgVisible "i", 0
                  DlgVisible "m", 0
                  DlgVisible "n", 0
                  DlgVisible "textg", 0
                  DlgVisible "texth", 0
                  DlgVisible "texti", 0
                  DlgVisible "textm", 0
                  DlgVisible "textn", 0
                Case "g","m","v"
                  DlgListBoxArray "b", BArr()
                  DlgListBoxArray "d", DArr()
                  DlgListBoxArray "e", EArr()
                  DlgListBoxArray "f", FArr()
                  DlgListBoxArray "g", GArr()
                  DlgListBoxArray "h", HArr()
                  DlgListBoxArray "i", IArr()
                  DlgVisible "g", 1
                  DlgVisible "h", 1
                  DlgVisible "i", 1
                  DlgVisible "m", 0
                  DlgVisible "n", 0
                  DlgVisible "textg", 1
                  DlgVisible "texth", 1
                  DlgVisible "texti", 1
                  DlgVisible "textm", 0
                  DlgVisible "textn", 0
                Case "h"
                  DlgListBoxArray "b", BArr()
                  DlgListBoxArray "d", DArr()
                  DlgListBoxArray "e", EArr()
                  DlgListBoxArray "f", FArr()
                  DlgListBoxArray "g", GArr()
                  DlgListBoxArray "h", HArr()
                  DlgListBoxArray "i", IArr()
                  'DlgListBoxArray "j", JArr()
                  DlgVisible "g", 1
                  DlgVisible "h", 1
                  DlgVisible "i", 1
                  'DlgVisible "j", 1
                  DlgVisible "m", 0
                  DlgVisible "n", 0
                  DlgVisible "textg", 1
                  DlgVisible "texth", 1
                  DlgVisible "texti", 1
                  'DlgVisible "textj", 1
                  DlgVisible "textm", 0
                  DlgVisible "textn", 0
                Case "s"
                  DlgListBoxArray "b", BArr()
                  DlgListBoxArray "d", DArr()
                  DlgListBoxArray "e", EArr()
                  DlgListBoxArray "f", FArr()
                  DlgListBoxArray "g", GArr()
                  DlgListBoxArray "h", HArr()
                  DlgListBoxArray "i", IArr()
                  DlgListBoxArray "m", MArr()
                  DlgListBoxArray "n", NArr()
                  DlgVisible "g", 1
                  DlgVisible "h", 1
                  DlgVisible "i", 1
                  DlgVisible "m", 1
                  DlgVisible "n", 1
                  DlgVisible "textg", 1
                  DlgVisible "texth", 1
                  DlgVisible "texti", 1
                  DlgVisible "textm", 1
                  DlgVisible "textn", 1
               End Select
         End Select

      Case 3
      Case 4
      Case 5
   End Select
End Function


Sub Frmt(Fm$)

SelCase = Fm$ 'NChoice.Type
Select Case SelCase
 Case " "
   Goto DoIt
 Case "a"
   Goto Maps
 Case "c"
   Goto Comp
 Case "d"
   Goto Globe
 Case "g"
   Goto Proj
 Case "h"
   Goto Micro
 Case "k"
    Goto NProj
 Case "m"
   Goto Film
 Case "s"
   Goto Sound
 Case "v"
   Goto Video
End Select

Maps:
ReDim BArr(0 to 9)
BArr(0)=" " : BArr(1)="d" : BArr(2)="g" : BArr(3)="j" : BArr(4)="k"
BArr(5)="q" : BArr(6)="r" : BArr(7)="s" : BArr(8)="y" : BArr(9)="z"
  x=1 : BCh$=BArr(0)
  Do While x<=9 : BCh$=BCh$+Chr$(9)+BArr(x) : x=x+1 : Loop
ReDim DArr(0 to 2)
DArr(0)=" " : DArr(1)="a" : DArr(2)="c"
  x=1 : DCh$=DArr(0)
  Do While x<=2 : DCh$=DCh$+Chr$(9)+DArr(x) : x=x+1 : Loop
ReDim EArr(0 to 10)
EArr(0)=" " : EArr(1)="a" : EArr(2)="b" : EArr(3)="c" : EArr(4)="d"
EArr(5)="e" : EArr(6)="f" : EArr(7)="g" : EArr(8)="p" : EArr(9)="u"
EArr(10)="z"
  x=1 : ECh$=EArr(0)
  Do While x<=10 : ECh$=ECh$+Chr$(9)+EArr(x) : x=x+1 : Loop
ReDim FArr(0 to 4)
FArr(0)=" " : FArr(1)="f" : FArr(2)="n" : FArr(3)="u" : FArr(4)="z"
  x=1 : FCh$=FArr(0)
  Do While x<=4 : FCh$=FCh$+Chr$(9)+FArr(x) : x=x+1 : Loop
ReDim GArr(0 to 5)
GArr(0)=" " : GArr(1)="a" : GArr(2)="b" : GArr(3)="d" : GArr(4)="u"
GArr(5)="z"
  x=1 : GCh$=GArr(0)
  Do While x<=5 : GCh$=GCh$+Chr$(9)+GArr(x) : x=x+1 : Loop
ReDim HArr(0 to 4)
HArr(0)=" " : HArr(1)="a" : HArr(2)="b" : HArr(3)="m" : HArr(4)="n"
  x=1 : HCh$=HArr(0)
  Do While x<=4 : HCh$=HCh$+Chr$(9)+HArr(x) : x=x+1 : Loop
Goto DoIt

Comp:
ReDim BArr(0 to 11)
BArr(0)=" " : BArr(1)="a" : BArr(2)="b" : BArr(3)="c" : BArr(4)="f"
BArr(5)="h" : BArr(6)="j" : BArr(7)="m" : BArr(8)="o" : BArr(9)="r"
BArr(10)="u" : BArr(11)="z"
  x=1 : BCh$=BArr(0)
  Do While x<=11 : BCh$=BCh$+Chr$(9)+BArr(x) : x=x+1 : Loop
ReDim DArr(0 to 7)
DArr(0)=" " : DArr(1)="a" : DArr(2)="c" : DArr(3)="g" : DArr(4)="m"
DArr(5)="n" : DArr(6)="u" : DArr(7)="z"
  x=1 : DCh$=DArr(0)
  Do While x<=7 : DCh$=DCh$+Chr$(9)+DArr(x) : x=x+1 : Loop
ReDim EArr(0 to 10)
EArr(0)=" " : EArr(1)="a" : EArr(2)="e" : EArr(3)="g" : EArr(4)="i"
EArr(5)="j" : EArr(6)="n" : EArr(7)="o" : EArr(8)="u" : EArr(9)="v"
EArr(10)="z"
  x=1 : ECh$=EArr(0)
  Do While x<=10 : ECh$=ECh$+Chr$(9)+EArr(x) : x=x+1 : Loop
ReDim FArr(0 to 2)
FArr(0)=" " : FArr(1)="a" : FArr(2)="u"
  x=1 : FCh$=FArr(0)
  Do While x<=2 : FCh$=FCh$+Chr$(9)+FArr(x) : x=x+1 : Loop
Goto DoIt

Globe:
ReDim BArr(0 to 4)
BArr(0)=" " : BArr(1)="a" : BArr(2)="b" : BArr(3)="c" : BArr(4)="z"
  x=1 : BCh$=BArr(0)
  Do While x<=4 : BCh$=BCh$+Chr$(9)+BArr(x) : x=x+1 : Loop
ReDim DArr(0 to 2)
DArr(0)=" " : DArr(1)="a" : DArr(2)="c"
  x=1 : DCh$=DArr(0)
  Do While x<=2 : DCh$=DCh$+Chr$(9)+DArr(x) : x=x+1 : Loop
ReDim EArr(0 to 10)
EArr(0)=" " : EArr(1)="a" : EArr(2)="b" : EArr(3)="c" : EArr(4)="d"
EArr(5)="e" : EArr(6)="f" : EArr(7)="g" : EArr(8)="p" : EArr(9)="u"
EArr(10)="z"
  x=1 : ECh$=EArr(0)
  Do While x<=10 : ECh$=ECh$+Chr$(9)+EArr(x) : x=x+1 : Loop
ReDim FArr(0 to 4)
FArr(0)=" " : FArr(1)="f" : FArr(2)="n" : FArr(3)="u" : FArr(4)="z"
  x=1 : FCh$=FArr(0)
  Do While x<=4 : FCh$=FCh$+Chr$(9)+FArr(x) : x=x+1 : Loop
Goto DoIt

Proj:
ReDim BArr(0 to 7)
BArr(0)=" " : BArr(1)="c" : BArr(2)="d" : BArr(3)="f" : BArr(4)="o"
BArr(5)="s" : BArr(6)="t" : BArr(7)="z"
  x=1 : BCh$=BArr(0)
  Do While x<=7 : BCh$=BCh$+Chr$(9)+BArr(x) : x=x+1 : Loop
ReDim DArr(0 to 8)
DArr(0)=" " : DArr(1)="a" : DArr(2)="b" : DArr(3)="c" : DArr(4)="h"
DArr(5)="m" : DArr(6)="n" : DArr(7)="u" : DArr(8)="z"
  x=1 : DCh$=DArr(0)
  Do While x<=8 : DCh$=DCh$+Chr$(9)+DArr(x) : x=x+1 : Loop
ReDim EArr(0 to 8)
EArr(0)=" " : EArr(1)="d" : EArr(2)="e" : EArr(3)="j" : EArr(4)="k"
EArr(5)="m" : EArr(6)="o" : EArr(7)="u" : EArr(8)="z"
  x=1 : ECh$=EArr(0)
  Do While x<=8 : ECh$=ECh$+Chr$(9)+EArr(x) : x=x+1 : Loop
ReDim FArr(0 to 3)
FArr(0)=" " : FArr(1)="a" : FArr(2)="b" : FArr(3)="u"
  x=1 : FCh$=FArr(0)
  Do While x<=3 : FCh$=FCh$+Chr$(9)+FArr(x) : x=x+1 : Loop
ReDim GArr(0 to 11)
GArr(0)=" " : GArr(1)="a" : GArr(2)="b" : GArr(3)="c" : GArr(4)="d"
GArr(5)="e" : GArr(6)="f" : GArr(7)="g" : GArr(8)="h" : GArr(9)="i"
GArr(10)="u" : GArr(11)="z"
  x=1 : GCh$=GArr(0)
  Do While x<=11 : GCh$=GCh$+Chr$(9)+GArr(x) : x=x+1 : Loop
ReDim HArr(0 to 16)
HArr(0)=" " : HArr(1)="a" : HArr(2)="b" : HArr(3)="c" : HArr(4)="d"
HArr(5)="e" : HArr(6)="f" : HArr(7)="g" : HArr(8)="j" : HArr(9)="k"
HArr(10)="t" : HArr(11)="u" : HArr(12)="v" : HArr(13)="w"
HArr(14)="x" : HArr(15)="y" : HArr(16)="z"
  x=1 : HCh$=HArr(0)
  Do While x<=16 : HCh$=HCh$+Chr$(9)+HArr(x) : x=x+1 : Loop
ReDim IArr(0 to 9)
IArr(0)=" " : IArr(1)="c" : IArr(2)="d" : IArr(3)="e" : IArr(4)="h"
IArr(5)="j" : IArr(6)="k" : IArr(7)="m" : IArr(8)="u" : IArr(9)="z"
  x=1 : ICh$=IArr(0)
  Do While x<=9 : ICh$=ICh$+Chr$(9)+IArr(x) : x=x+1 : Loop
Goto DoIt

Micro:
ReDim BArr(0 to 8)
BArr(0)=" " : BArr(1)="a" : BArr(2)="b" : BArr(3)="c" : BArr(4)="d"
BArr(5)="e" : BArr(6)="f" : BArr(7)="g" : BArr(8)="z"
  x=1 : BCh$=BArr(0)
  Do While x<=8 : BCh$=BCh$+Chr$(9)+BArr(x) : x=x+1 : Loop
ReDim DArr(0 to 4)
DArr(0)=" " : DArr(1)="a" : DArr(2)="b" : DArr(3)="m" : DArr(4)="u"
  x=1 : DCh$=DArr(0)
  Do While x<=4 : DCh$=DCh$+Chr$(9)+DArr(x) : x=x+1 : Loop
ReDim EArr(0 to 11)
EArr(0)=" " : EArr(1)="a" : EArr(2)="d" : EArr(3)="f" : EArr(4)="g"
EArr(5)="h" : EArr(6)="l" : EArr(7)="m" : EArr(8)="o" : EArr(9)="p"
EArr(10)="u" : EArr(11)="z"
  x=1 : ECh$=EArr(0)
  Do While x<=11 : ECh$=ECh$+Chr$(9)+EArr(x) : x=x+1 : Loop
ReDim FArr(0 to 7)
FArr(0)=" " : FArr(1)="a" : FArr(2)="b" : FArr(3)="c" : FArr(4)="d"
FArr(5)="e" : FArr(6)="u" : FArr(7)="v"
  x=1 : FCh$=FArr(0)
  Do While x<=7 : FCh$=FCh$+Chr$(9)+FArr(x) : x=x+1 : Loop
ReDim GArr(0 to 5)
GArr(0)=" " : GArr(1)="b" : GArr(2)="c" : GArr(3)="m" : GArr(4)="u"
GArr(5)="z"
  x=1 : GCh$=GArr(0)
  Do While x<=5 : GCh$=GCh$+Chr$(9)+GArr(x) : x=x+1 : Loop
ReDim HArr(0 to 7)
HArr(0)=" " : HArr(1)="a" : HArr(2)="b" : HArr(3)="c" : HArr(4)="m"
HArr(5)="n" : HArr(6)="u" : HArr(7)="z"
  x=1 : HCh$=HArr(0)
  Do While x<=7 : HCh$=HCh$+Chr$(9)+HArr(x) : x=x+1 : Loop
ReDim IArr(0 to 5)
IArr(0)=" " : IArr(1)="a" : IArr(2)="b" : IArr(3)="c" : IArr(4)="m"
IArr(5)="u"
  x=1 : ICh$=IArr(0)
  Do While x<=5 : ICh$=ICh$+Chr$(9)+IArr(x) : x=x+1 : Loop
'ReDim JArr(0 to 11)
'JArr(0)=" " : JArr(1)="a" : JArr(2)="b" : JArr(3)="c" : JArr(4)="m"
'JArr(5)="u" : JArr(6)="a" : JArr(7)="b" : JArr(8)="c" : JArr(9)="m"
'JArr(10)="c" : JArr(11)="m"
'  x=1 : JCh$=JArr(0)
'  Do While x<=11 : JCh$=JCh$+Chr$(9)+JArr(x) : x=x+1 : Loop
Goto DoIt

NProj:
ReDim BArr(0 to 12)
BArr(0)=" " : BArr(1)="c" : BArr(2)="d" : BArr(3)="e" : BArr(4)="f"
BArr(5)="g" : BArr(6)="h" : BArr(7)="i" : BArr(8)="j" : BArr(9)="l"
BArr(10)="n" : BArr(11)="o" : BArr(12)="z"
  x=1 : BCh$=BArr(0)
  Do While x<=12 : BCh$=BCh$+Chr$(9)+BArr(x) : x=x+1 : Loop
ReDim DArr(0 to 7)
DArr(0)=" " : DArr(1)="a" : DArr(2)="b" : DArr(3)="c" : DArr(4)="h"
DArr(5)="m" : DArr(6)="u" : DArr(7)="z"
  x=1 : DCh$=DArr(0)
  Do While x<=7 : DCh$=DCh$+Chr$(9)+DArr(x) : x=x+1 : Loop
ReDim EArr(0 to 17)
EArr(0)=" " : EArr(1)="a" : EArr(2)="b" : EArr(3)="c" : EArr(4)="d"
EArr(5)="e" : EArr(6)="f" : EArr(7)="g" : EArr(8)="h" : EArr(9)="m"
EArr(10)="o" : EArr(11)="p" : EArr(12)="q" : EArr(13)="r"
EArr(14)="s" : EArr(15)="t" : EArr(16)="u" : EArr(17)="z"
  x=1 : ECh$=EArr(0)
  Do While x<=17 : ECh$=ECh$+Chr$(9)+EArr(x) : x=x+1 : Loop
ReDim FArr(0 to 17)
FArr(0)=" " : FArr(1)="a" : FArr(2)="b" : FArr(3)="c" : FArr(4)="d"
FArr(5)="e" : FArr(6)="f" : FArr(7)="g" : FArr(8)="h" : FArr(9)="m"
FArr(10)="o" : FArr(11)="p" : FArr(12)="q" : FArr(13)="r"
FArr(14)="s" : FArr(15)="t" : FArr(16)="u" : FArr(17)="z"
  x=1 : FCh$=FArr(0)
  Do While x<=17 : FCh$=FCh$+Chr$(9)+FArr(x) : x=x+1 : Loop
Goto DoIt

Film:
ReDim BArr(0 to 4)
BArr(0)=" " : BArr(1)="c" : BArr(2)="f" : BArr(3)="r" : BArr(4)="a"
  x=1 : BCh$=BArr(0)
  Do While x<=4 : BCh$=BCh$+Chr$(9)+BArr(x) : x=x+1 : Loop
ReDim DArr(0 to 7)
DArr(0)=" " : DArr(1)="b" : DArr(2)="c" : DArr(3)="h" : DArr(4)="m"
DArr(5)="n" : DArr(6)="u" : DArr(7)="z"
  x=1 : DCh$=DArr(0)
  Do While x<=7 : DCh$=DCh$+Chr$(9)+DArr(x) : x=x+1 : Loop
ReDim EArr(0 to 8)
EArr(0)=" " : EArr(1)="a" : EArr(2)="b" : EArr(3)="c" : EArr(4)="d"
EArr(5)="e" : EArr(6)="f" : EArr(7)="u" : EArr(8)="z"
  x=1 : ECh$=EArr(0)
  Do While x<=8 : ECh$=ECh$+Chr$(9)+EArr(x) : x=x+1 : Loop
ReDim FArr(0 to 3)
FArr(0)=" " : FArr(1)="a" : FArr(2)="b" : FArr(3)="u"
  x=1 : FCh$=FArr(0)
  Do While x<=3 : FCh$=FCh$+Chr$(9)+FArr(x) : x=x+1 : Loop
ReDim GArr(0 to 11)
GArr(0)=" " : GArr(1)="a" : GArr(2)="b" : GArr(3)="c" : GArr(4)="d"
GArr(5)="e" : GArr(6)="f" : GArr(7)="g" : GArr(8)="h" : GArr(9)="i"
GArr(10)="u" : GArr(11)="z"
  x=1 : GCh$=GArr(0)
  Do While x<=11 : GCh$=GCh$+Chr$(9)+GArr(x) : x=x+1 : Loop
ReDim HArr(0 to 9)
HArr(0)=" " : HArr(1)="a" : HArr(2)="b" : HArr(3)="c" : HArr(4)="d"
HArr(5)="e" : HArr(6)="f" : HArr(7)="g" : HArr(8)="u" : HArr(9)="z"
  x=1 : HCh$=HArr(0)
  Do While x<=9 : HCh$=HCh$+Chr$(9)+HArr(x) : x=x+1 : Loop
ReDim IArr(0 to 7)
IArr(0)=" " : IArr(1)="k" : IArr(2)="m" : IArr(3)="n" : IArr(4)="q"
IArr(5)="s" : IArr(6)="u" : IArr(7)="z"
  x=1 : ICh$=IArr(0)
  Do While x<=7 : ICh$=ICh$+Chr$(9)+IArr(x) : x=x+1 : Loop
Goto DoIt

Sound:
ReDim BArr(0 to 9)
BArr(0)=" " : BArr(1)="d" : BArr(2)="e" : BArr(3)="g" : BArr(4)="i"
BArr(5)="q" : BArr(6)="s" : BArr(7)="t" : BArr(8)="w" : BArr(9)="z"
  x=1 : BCh$=BArr(0)
  Do While x<=9 : BCh$=BCh$+Chr$(9)+BArr(x) : x=x+1 : Loop
ReDim DArr(0 to 16)
DArr(0)=" " : DArr(1)="a" : DArr(2)="b" : DArr(3)="c" : DArr(4)="d"
DArr(5)="e" : DArr(6)="f" : DArr(7)="h" : DArr(8)="i" : DArr(9)="k"
DArr(10)="l" : DArr(11)="m" : DArr(12)="o" : DArr(13)="p"
DArr(14)="r" : DArr(15)="u" : DArr(16)="z"
  x=1 : DCh$=DArr(0)
  Do While x<=16 : DCh$=DCh$+Chr$(9)+DArr(x) : x=x+1 : Loop 
ReDim EArr(0 to 5)
EArr(0)=" " : EArr(1)="m" : EArr(2)="q" : EArr(3)="s" : EArr(4)="u"
EArr(5)="z"
  x=1 : ECh$=EArr(0)
  Do While x<=5 : ECh$=ECh$+Chr$(9)+EArr(x) : x=x+1 : Loop
ReDim FArr(0 to 5)
FArr(0)=" " : FArr(1)="m" : FArr(2)="n" : FArr(3)="s" : FArr(4)="u"
FArr(5)="z"
  x=1 : FCh$=FArr(0)
  Do While x<=5 : FCh$=FCh$+Chr$(9)+FArr(x) : x=x+1 : Loop
ReDim GArr(0 to 13)
GArr(0)=" " : GArr(1)="a" : GArr(2)="b" : GArr(3)="c" : GArr(4)="d"
GArr(5)="e" : GArr(6)="f" : GArr(7)="g" : GArr(8)="j" : GArr(9)="o"
GArr(10)="s" : GArr(11)="n" : GArr(12)="u" : GArr(13)="z"
  x=1 : GCh$=GArr(0)
  Do While x<=13 : GCh$=GCh$+Chr$(9)+GArr(x) : x=x+1 : Loop
ReDim HArr(0 to 7)
HArr(0)=" " : HArr(1)="l" : HArr(2)="m" : HArr(3)="n" : HArr(4)="o"
HArr(5)="p" : HArr(6)="u" : HArr(7)="z"
  x=1 : HCh$=HArr(0)
  Do While x<=7 : HCh$=HCh$+Chr$(9)+HArr(x) : x=x+1 : Loop
ReDim IArr(0 to 9)
IArr(0)=" " : IArr(1)="a" : IArr(2)="b" : IArr(3)="c" : IArr(4)="d"
IArr(5)="e" : IArr(6)="f" : IArr(7)="n" : IArr(8)="u" : IArr(9)="z"
  x=1 : ICh$=IArr(0)
  Do While x<=9 : ICh$=ICh$+Chr$(9)+IArr(x) : x=x+1 : Loop
ReDim MArr(0 to 11)
MArr(0)=" " : MArr(1)="a" : MArr(2)="b" : MArr(3)="c" : MArr(4)="d"
MArr(5)="e" : MArr(6)="f" : MArr(7)="g" : MArr(8)="h" : MArr(9)="n"
MArr(10)="u" : MArr(11)="z"
  x=1 : MCh$=MArr(0)
  Do While x<=11 : MCh$=MCh$+Chr$(9)+MArr(x) : x=x+1 : Loop
ReDim NArr(0 to 7)
NArr(0)=" " : NArr(1)="a" : NArr(2)="b" : NArr(3)="c" : NArr(4)="d"
NArr(5)="e" : NArr(6)="u" : NArr(7)="z"
  x=1 : NCh$=NArr(0)
  Do While x<=7 : NCh$=NCh$+Chr$(9)+NArr(x) : x=x+1 : Loop
Goto DoIt

Video:
ReDim BArr(0 to 5)
BArr(0)=" " : BArr(1)="c" : BArr(2)="d" : BArr(3)="f" : BArr(4)="r"
BArr(5)="z"
  x=1 : BCh$=BArr(0)
  Do While x<=5 : BCh$=BCh$+Chr$(9)+BArr(x) : x=x+1 : Loop
ReDim DArr(0 to 7)
DArr(0)=" " : DArr(1)="a" : DArr(2)="b" : DArr(3)="c" : DArr(4)="m"
DArr(5)="n" : DArr(6)="u" : DArr(7)="z"
  x=1 : DCh$=DArr(0)
  Do While x<=7 : DCh$=DCh$+Chr$(9)+DArr(x) : x=x+1 : Loop
ReDim EArr(0 to 19)
EArr(0)=" " : EArr(1)="a" : EArr(2)="b" : EArr(3)="c" : EArr(4)="d"
EArr(5)="e" : EArr(6)="f" : EArr(7)="g" : EArr(8)="h" : EArr(9)="i"
EArr(10)="j" : EArr(11)="k" : EArr(12)="m" : EArr(13)="n"
EArr(14)="o" : EArr(15)="p" : EArr(16)="q" : EArr(17)="u"
EArr(18)="v" : EArr(19)="z"
  x=1 : ECh$=EArr(0)
  Do While x<=18 : ECh$=ECh$+Chr$(9)+EArr(x) : x=x+1 : Loop
ReDim FArr(0 to 3)
FArr(0)=" " : FArr(1)="a" : FArr(2)="b" : FArr(3)="u"
  x=1 : FCh$=FArr(0)
  Do While x<=3 : FCh$=FCh$+Chr$(9)+FArr(x) : x=x+1 : Loop
ReDim GArr(0 to 11)
GArr(0)=" " : GArr(1)="a" : GArr(2)="b" : GArr(3)="c" : GArr(4)="d"
GArr(5)="e" : GArr(6)="f" : GArr(7)="g" : GArr(8)="h" : GArr(9)="i"
GArr(10)="u" : GArr(11)="z"
  x=1 : GCh$=GArr(0)
  Do While x<=11 : GCh$=GCh$+Chr$(9)+GArr(x) : x=x+1 : Loop
ReDim HArr(0 to 8)
HArr(0)=" " : HArr(1)="a" : HArr(2)="m" : HArr(3)="o" : HArr(4)="p"
HArr(5)="q" : HArr(6)="r" : HArr(7)="u" : HArr(8)="z"
  x=1 : HCh$=HArr(0)
  Do While x<=8 : HCh$=HCh$+Chr$(9)+HArr(x) : x=x+1 : Loop
ReDim IArr(0 to 7)
IArr(0)=" " : IArr(1)="k" : IArr(2)="m" : IArr(3)="n" : IArr(4)="q"
IArr(5)="s" : IArr(6)="u" : IArr(7)="z"
  x=1 : ICh$=IArr(0)
  Do While x<=7 : ICh$=ICh$+Chr$(9)+IArr(x) : x=x+1 : Loop
Goto DoIt

Doit:
end sub