' MacroName: Add007
' MacroDescription: Insert primary or secondary 007 tags to a
'                   record for sound cassettes (including BOTs),
'                   CD's, VHS videotapes, and CD-ROMs
' Created by: Joel Hahn
                    
sub main
On Error Goto ErrHand
dim CS as session
set CS = CurrentSession
Dim BArr()
Dim DArr()
Dim EArr()
Dim FArr()
Dim GArr()
Dim HArr()
Dim IArr()
'Dim JArr()
Dim MArr()
Dim NArr()

Dim Format$
Format$ = "a"+Chr$(9)+"c"+Chr$(9)+"d"+Chr$(9)+"g"+Chr$(9)
Format$ = Format$+"h"+Chr$(9)+"k"+Chr$(9)+"m"+Chr$(9)
Format$ = Format$+"s"+Chr$(9)+"v"

Begin Dialog Frmat 110, 70
Caption "007 Creation"
Text 12, 7, 82, 16, "Select first character:"
DropListBox 14, 17, 19, 58, Format$, .Type
OkButton 55, 17, 40, 20
CancelButton 55, 40, 40, 20
End Dialog
dim NChoice as Frmat
dialog NChoice

SelCase=NChoice.Type
Select Case SelCase
 Case 0
   a$="a"
   Goto Maps
 Case 1
   a$="c"
   Goto Comp
 Case 2
   a$="d"
   Goto Globe
 Case 3
   a$="g"
   Goto Proj
 Case 4
   a$="h"
   Goto Micro
 Case 5
   a$="k"
   Goto NProj
 Case 6
   a$="m"
   Goto Film
 Case 7
   a$="s"
   Goto Sound
 Case 8
   a$="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
Begin Dialog Maps 140, 70
Caption "007 Creation"
Text 10, 7, 16, 12, "$b"
  DropListBox 10, 17, 19, 58, BCh$, .b
Text 30, 7, 16, 12, "$d"
  DropListBox 30, 17, 19, 58, DCh$, .d
Text 50, 7, 16, 12, "$e"
  DropListBox 50, 17, 19, 58, ECh$, .e
Text 71, 7, 16, 12, "$f"
  DropListBox 70, 17, 19, 58, FCh$, .f
Text 90, 7, 16, 12, "$g"
  DropListBox 90, 17, 19, 58, GCh$, .g
Text 110, 7, 16, 12, "$h"
  DropListBox 110, 17, 19, 58, HCh$, .h
OkButton 10, 40, 40, 20
CancelButton 60, 40, 40, 20
End Dialog
dim AChoice as Maps
dialog AChoice
b$=BArr(AChoice.b)
d$=DArr(AChoice.d)
e$=EArr(AChoice.e)
f$=FArr(AChoice.f)
g$=GArr(AChoice.g)
h$=HArr(AChoice.h)
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
Begin Dialog Comp 100, 70
Caption "007 Creation"
Text 10, 7, 16, 12, "$b"
  DropListBox 10, 17, 19, 58, BCh$, .b
Text 30, 7, 16, 12, "$d"
  DropListBox 30, 17, 19, 58, DCh$, .d
Text 50, 7, 16, 12, "$e"
  DropListBox 50, 17, 19, 58, ECh$, .e
Text 71, 7, 16, 12, "$f"
  DropListBox 70, 17, 19, 58, FCh$, .f
OkButton 10, 40, 40, 20
CancelButton 52, 40, 40, 20
End Dialog
dim CChoice as Comp
dialog CChoice
b$=BArr(CChoice.b)
d$=DArr(CChoice.d)
e$=EArr(CChoice.e)
f$=FArr(CChoice.f)
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
Begin Dialog Globe 100, 70
Caption "007 Creation"
Text 10, 7, 16, 12, "$b"
  DropListBox 10, 17, 19, 58, BCh$, .b
Text 30, 7, 16, 12, "$d"
  DropListBox 30, 17, 19, 58, DCh$, .d
Text 50, 7, 16, 12, "$e"
  DropListBox 50, 17, 19, 58, ECh$, .e
Text 71, 7, 16, 12, "$f"
  DropListBox 70, 17, 19, 58, FCh$, .f
OkButton 10, 40, 40, 20
CancelButton 60, 40, 40, 20
End Dialog
dim DChoice as Globe
dialog DChoice
b$=BArr(DChoice.b)
d$=DArr(DChoice.d)
e$=EArr(DChoice.e)
f$=FArr(DChoice.f)
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
Begin Dialog Proj 160, 70
Caption "007 Creation"
Text 10, 7, 16, 12, "$b"
  DropListBox 10, 17, 19, 58, BCh$, .b
Text 30, 7, 16, 12, "$d"
  DropListBox 30, 17, 19, 58, DCh$, .d
Text 50, 7, 16, 12, "$e"
  DropListBox 50, 17, 19, 58, ECh$, .e
Text 71, 7, 16, 12, "$f"
  DropListBox 70, 17, 19, 58, FCh$, .f
Text 90, 7, 16, 12, "$g"
  DropListBox 90, 17, 19, 58, GCh$, .g
Text 110, 7, 16, 12, "$h"
  DropListBox 110, 17, 19, 58, HCh$, .h
Text 131, 7, 16, 12, "$i"
  DropListBox 130, 17, 19, 58, ICh$, .i
OkButton 10, 40, 40, 20
CancelButton 60, 40, 40, 20
End Dialog
dim GChoice as Proj
dialog GChoice
b$=BArr(GChoice.b)
d$=DArr(GChoice.d)
e$=EArr(GChoice.e)
f$=FArr(GChoice.f)
g$=GArr(GChoice.g)
h$=HArr(GChoice.h)
i$=IArr(GChoice.i)
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 : ICh$=JArr(0)
'  Do While x<=11 : ICh$=ICh$+Chr$(9)+JArr(x) : x=x+1 : Loop
Begin Dialog Micro 160, 70 '180, 70
Caption "007 Creation"
Text 10, 7, 16, 12, "$b"
  DropListBox 10, 17, 19, 58, BCh$, .b
Text 30, 7, 16, 12, "$d"
  DropListBox 30, 17, 19, 58, DCh$, .d
Text 50, 7, 16, 12, "$e"
  DropListBox 50, 17, 19, 58, ECh$, .e
Text 71, 7, 16, 12, "$f"
  DropListBox 70, 17, 19, 58, FCh$, .f
Text 90, 7, 16, 12, "$g"
  DropListBox 90, 17, 19, 58, GCh$, .g
Text 110, 7, 16, 12, "$h"
  DropListBox 110, 17, 19, 58, HCh$, .h
Text 131, 7, 16, 12, "$i"
  DropListBox 130, 17, 19, 58, ICh$, .i
'Text 151, 7, 16, 12, "$j"
'  DropListBox 150, 17, 19, 58, ICh$, .j
OkButton 10, 40, 40, 20
CancelButton 60, 40, 40, 20
End Dialog
dim HChoice as Micro
dialog HChoice
b$=BArr(HChoice.b)
d$=DArr(HChoice.d)
e$=EArr(HChoice.e)
f$=FArr(HChoice.f)
g$=GArr(HChoice.g)
h$=HArr(HChoice.h)
i$=IArr(HChoice.i)
'j$=JArr(HChoice.j)
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
Begin Dialog NProj 100, 70
Caption "007 Creation"
Text 10, 7, 16, 12, "$b"
  DropListBox 10, 17, 19, 58, BCh$, .b
Text 30, 7, 16, 12, "$d"
  DropListBox 30, 17, 19, 58, DCh$, .d
Text 50, 7, 16, 12, "$e"
  DropListBox 50, 17, 19, 58, ECh$, .e
Text 71, 7, 16, 12, "$f"
  DropListBox 70, 17, 19, 58, FCh$, .f
OkButton 10, 40, 40, 20
CancelButton 52, 40, 40, 20
End Dialog
dim KChoice as NProj
dialog KChoice
b$=BArr(KChoice.b)
d$=DArr(KChoice.d)
e$=EArr(KChoice.e)
f$=FArr(KChoice.f)
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
Begin Dialog Film 160, 70
Caption "007 Creation"
Text 10, 7, 16, 12, "$b"
  DropListBox 10, 17, 19, 58, BCh$, .b
Text 30, 7, 16, 12, "$d"
  DropListBox 30, 17, 19, 58, DCh$, .d
Text 50, 7, 16, 12, "$e"
  DropListBox 50, 17, 19, 58, ECh$, .e
Text 71, 7, 16, 12, "$f"
  DropListBox 70, 17, 19, 58, FCh$, .f
Text 90, 7, 16, 12, "$g"
  DropListBox 90, 17, 19, 58, GCh$, .g
Text 110, 7, 16, 12, "$h"
  DropListBox 110, 17, 19, 58, HCh$, .h
Text 131, 7, 16, 12, "$i"
  DropListBox 130, 17, 19, 58, ICh$, .i
OkButton 10, 40, 40, 20
CancelButton 60, 40, 40, 20
End Dialog
dim MChoice as Film
dialog MChoice
b$=BArr(MChoice.b)
d$=DArr(MChoice.d)
e$=EArr(MChoice.e)
f$=FArr(MChoice.f)
g$=GArr(MChoice.g)
h$=HArr(MChoice.h)
i$=IArr(MChoice.i)
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
Begin Dialog Sound 200, 70
Caption "007 Creation"
Text 10, 7, 16, 12, "$b"
  DropListBox 10, 17, 19, 58, BCh$, .b
Text 30, 7, 16, 12, "$d"
  DropListBox 30, 17, 19, 58, DCh$, .d
Text 50, 7, 16, 12, "$e"
  DropListBox 50, 17, 19, 58, ECh$, .e
Text 71, 7, 16, 12, "$f"
  DropListBox 70, 17, 19, 58, FCh$, .f
Text 90, 7, 16, 12, "$g"
  DropListBox 90, 17, 19, 58, GCh$, .g
Text 110, 7, 16, 12, "$h"
  DropListBox 110, 17, 19, 58, HCh$, .h
Text 131, 7, 16, 12, "$i"
  DropListBox 130, 17, 19, 58, ICh$, .i
Text 149, 7, 16, 12, "$m"
  DropListBox 150, 17, 19, 58, MCh$, .m
Text 170, 7, 16, 12, "$n"
  DropListBox 170, 17, 19, 58, NCh$, .n
OkButton 10, 40, 40, 20
CancelButton 60, 40, 40, 20
End Dialog
dim SChoice as Sound
dialog SChoice
b$=BArr(SChoice.b)
d$=DArr(SChoice.d)
e$=EArr(SChoice.e)
f$=FArr(SChoice.f)
g$=GArr(SChoice.g)
h$=HArr(SChoice.h)
i$=IArr(SChoice.i)
m$=MArr(SChoice.m)
n$=NArr(SChoice.n)
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 18)
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)="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
Begin Dialog Video 160, 70
Caption "007 Creation"
Text 10, 7, 16, 12, "$b"
  DropListBox 10, 17, 19, 58, BCh$, .b
Text 30, 7, 16, 12, "$d"
  DropListBox 30, 17, 19, 58, DCh$, .d
Text 50, 7, 16, 12, "$e"
  DropListBox 50, 17, 19, 58, ECh$, .e
Text 71, 7, 16, 12, "$f"
  DropListBox 70, 17, 19, 58, FCh$, .f
Text 90, 7, 16, 12, "$g"
  DropListBox 90, 17, 19, 58, GCh$, .g
Text 110, 7, 16, 12, "$h"
  DropListBox 110, 17, 19, 58, HCh$, .h
Text 131, 7, 16, 12, "$i"
  DropListBox 130, 17, 19, 58, ICh$, .i
OkButton 10, 40, 40, 20
CancelButton 60, 40, 40, 20
End Dialog
dim VChoice as Video
dialog VChoice
b$=BArr(VChoice.b)
d$=DArr(VChoice.d)
e$=EArr(VChoice.e)
f$=FArr(VChoice.f)
g$=GArr(VChoice.g)
h$=HArr(VChoice.h)
i$=IArr(VChoice.i)
Goto DoIt

Doit:
CS.PutText "HOME", 1, 1
RunMacro "PRSMUTIL!SendCommand"
Row%=25
Col%=1
If CS.Find("007", Row%, Col%, , 1)=FALSE Then
  NewRow=2.5
Else
  Row%=25
  Col%=1
  CS.Find "007", Row%, Col%, , 1
  CS.GetTextInRegion RowNum$, Row%, Col%-5, Row%, Col%-1
  RowNum$=RTrim(LTrim(RowNum$))
  NewRow=Val(RowNum$)+0.5
End If
Seven$=CHR$(220)+" "+NewRow+"  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$+" "
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$
Seven$=Seven$+" "+Chr$(221)

CS.PutText Seven$, 1, 1
RunMacro "PRSMUTIL!SendCommand"
RunMacro "PRSMUTIL!Reformat"
Goto Done

ErrHand:
If Err=102 Then
  Resume Done
Else
  MsgBox "Err(" & Err & ")"
  Resume Done
End If


Done:
end sub