Post by aaron1982 on Jun 15, 2024 6:27:23 GMT
For any guitar players out there, here's my Chord Program that lists many guitar chords. I know it's not a work of Art.
DECLARE SUB infobx ()
DECLARE SUB chordbx ()
REM Guitar Chords
REM This program was written by Aaron W. Miles
REM aawm1982@aol.com
x = 4
y = 4
z = 3
w = 43
Screen 0
main:
Cls
Color 0, 1: Cls
Color 7: Print String$(80, Chr$(219))
Locate 1, 2, 0: Color 6, 7: Print Chr$(14)
Locate 1, 4: Color 0, 7: Print "Guitar Chord Search"
Locate 1, 24: Color 6, 7: Print Chr$(14)
Locate 1, 68: Color 4: Print "<Esc = Exit>" 'was 70
Locate 3, 3: Color 11, 0: Print String$(76, Chr$(205))
Locate 3, 2: Print Chr$(201): Locate 3, 79: Print Chr$(187)
Locate 23, 3: Color 11, 0: Print String$(76, Chr$(205))
Locate 23, 2: Print Chr$(200): Locate 23, 79: Print Chr$(188)
For lside = 4 To 22
Locate lside, 2
Color 11, 0
Print Chr$(186)
Locate lside, 79
Print Chr$(186)
Next lside
For afillr = 4 To 22
For afillc = 3 To 78
Locate afillr, afillc
Color 3
Print Chr$(219)
Next
Next
Locate 3, 35: Color 11: Print " Version 2.8 "
Locate 23, 12: Color 14: Print "I": Locate 23, 13: Color 15: Print "nfo"
Color 4, 3: Locate 4, 5: Print "A"
Locate 5, 5: Print "Am"
Locate 6, 5: Print "A+"
Locate 7, 5: Print "Asus4"
Locate 8, 5: Print "A6"
Locate 9, 5: Print "Am6"
Locate 10, 5: Print "A7"
Locate 11, 5: Print "Amaj7"
Locate 12, 5: Print "Am7"
Locate 13, 5: Print "A7sus4"
Locate 14, 5: Print "A9"
Locate 15, 5: Print "Amaj9"
Locate 16, 5: Print "Am9"
Locate 17, 5: Print "A(add9)"
Locate 18, 5: Print "A5"
Locate 19, 5: Print "B"
Locate 20, 5: Print "Bm"
Locate 21, 5: Print "Bsus4"
Locate 22, 5: Print "B6"
Locate 4, 15: Print "Bm6"
Locate 5, 15: Print "B7"
Locate 6, 15: Print "Bmaj7"
Locate 7, 15: Print "Bm7"
Locate 8, 15: Print "Bdim7"
Locate 9, 15: Print "B7sus4"
Locate 10, 15: Print "B9"
Locate 11, 15: Print "Bmaj9"
Locate 12, 15: Print "Bm9"
Locate 13, 15: Print "B(add9)"
Locate 14, 15: Print "B5"
Locate 15, 15: Print "C"
Locate 16, 15: Print "Cm"
Locate 17, 15: Print "C+"
Locate 18, 15: Print "Csus4"
Locate 19, 15: Print "C6"
Locate 20, 15: Print "C7"
Locate 21, 15: Print "Cmaj7"
Locate 22, 15: Print "Cm7"
Locate 4, 25: Print "C7sus4"
Locate 5, 25: Print "Cmaj9"
Locate 6, 25: Print "Cm9"
Locate 7, 25: Print "C(add9)"
Locate 8, 25: Print "C5"
Locate 9, 25: Print "D"
Locate 10, 25: Print "Dm"
Locate 11, 25: Print "D+"
Locate 12, 25: Print "Dsus4"
Locate 13, 25: Print "D6"
Locate 14, 25: Print "Dm6"
Locate 15, 25: Print "D7"
Locate 16, 25: Print "Dmaj7"
Locate 17, 25: Print "Dm7"
Locate 18, 25: Print "Ddim7"
Locate 19, 25: Print "D7sus4"
Locate 20, 25: Print "Dmaj9"
Locate 21, 25: Print "Dm9"
Locate 22, 25: Print "D(add9)"
Locate 4, 35: Print "D5"
Locate 5, 35: Print "E"
Locate 6, 35: Print "Em"
Locate 7, 35: Print "Esus4"
Locate 8, 35: Print "E6"
Locate 9, 35: Print "Em6"
Locate 10, 35: Print "E7"
Locate 11, 35: Print "Emaj7"
Locate 12, 35: Print "Em7"
Locate 13, 35: Print "Edim7"
Locate 14, 35: Print "E7sus4"
Locate 15, 35: Print "E9"
Locate 16, 35: Print "Em9"
Locate 17, 35: Print "E(add9)"
Locate 18, 35: Print "E5"
Locate 19, 35: Print "F"
Locate 20, 35: Print "Fm"
Locate 21, 35: Print "F6"
Locate 22, 35: Print "F7"
Locate 4, 45: Print "Fmaj7"
Locate 5, 45: Print "Fm7"
Locate 6, 45: Print "F9"
Locate 7, 45: Print "Fm9"
Locate 8, 45: Print "Fmaj9"
Locate 9, 45: Print "F(add9)"
Locate 10, 45: Print "F11"
Locate 11, 45: Print "F5"
Locate 12, 45: Print "G"
Locate 13, 45: Print "Gm"
Locate 14, 45: Print "G6"
Locate 15, 45: Print "G7"
Locate 16, 45: Print "Gmaj7"
Locate 17, 45: Print "Gm7"
Locate 18, 45: Print "G9"
Locate 19, 45: Print "Gm9"
Locate 20, 45: Print "G11"
Locate 21, 45: Print "G6/9"
Locate 22, 45: Print "G5"
Locate 4, 55: Print "Ab"
Locate 5, 55: Print "Abm"
Locate 6, 55: Print "Ab7"
Locate 7, 55: Print "Abm7"
Locate 8, 55: Print "Ab9"
Locate 9, 55: Print "Abm9"
Locate 10, 55: Print "Abmaj9"
Locate 11, 55: Print "Ab(add9)"
Locate 12, 55: Print "Ab5"
Locate 13, 55: Print "Bb"
Locate 14, 55: Print "Bbm"
Locate 15, 55: Print "Bbsus4"
Locate 16, 55: Print "Bb7"
Locate 17, 55: Print "Bbmaj7"
Locate 18, 55: Print "Bbm7"
Locate 19, 55: Print "Bbdim7"
Locate 20, 55: Print "Bb11"
Locate 21, 55: Print "Bbmaj9"
Locate 22, 55: Print "Bb(add9)"
Locate 4, 65: Print "Bb5"
Locate 5, 65: Print "Db"
Locate 6, 65: Print "Dbm"
Locate 7, 65: Print "Dbsus4"
Locate 8, 65: Print "Dbm7"
Locate 9, 65: Print "Db(add9)"
Locate 10, 65: Print "Db5"
Locate 11, 65: Print "Eb"
Locate 12, 65: Print "Ebm"
Locate 13, 65: Print "Ebsus"
Locate 14, 65: Print "Ebm7"
Locate 15, 65: Print "Ebmaj9"
Locate 16, 65: Print "Eb(add9)"
Locate 17, 65: Print "Eb5"
Locate 18, 65: Print "F#"
Locate 19, 65: Print "F#m"
Locate 20, 65: Print "F#m9"
Locate 21, 65: Print "F#(add9)"
Locate 22, 65: Print "F#5"
Locate x, y
Color 15, 3: Print Chr$(16)
redraw:
Do
a$ = LCase$(InKey$)
Loop Until a$ <> ""
Select Case a$
Case Chr$(0) + "p"
Locate x, y
Color 3: Print Chr$(219)
x = x + 1
Case Chr$(0) + "h"
Locate x, y
Color 3: Print Chr$(219)
x = x - 1
Case Chr$(0) + "m"
Locate x, y
Color 3: Print Chr$(219)
y = y + 10
Case Chr$(0) + "k"
Locate x, y
Color 3: Print Chr$(219)
y = y - 10
Case Chr$(0) + "q"
Locate x, y
Color 3: Print Chr$(219)
x = 22
Case Chr$(0) + "i"
Locate x, y
Color 3: Print Chr$(219)
x = 4
Case Chr$(13)
GoTo choose
Case Chr$(27)
Color 7, 0: Cls: Locate , , 1: End
End Select
If x <= 4 Then x = 4
If x >= 22 Then x = 22
If y <= 4 Then y = 4
If y >= 64 Then y = 64
Locate x, y
Color 15: Print Chr$(16)
GoTo redraw
choose:
If y = 4 Then
Select Case x
Case 4
GoTo achord
Case 5
GoTo am
Case 6
GoTo aaug
Case 7
GoTo asus4
Case 8
GoTo a6
Case 9
GoTo am6
Case 10
GoTo a7
Case 11
GoTo amaj7
Case 12
GoTo am7
Case 13
GoTo a7sus4
Case 14
GoTo a9
Case 15
GoTo amaj9
Case 16
GoTo am9
Case 17
GoTo aadd9
Case 18
GoTo a5
Case 19
GoTo bchord
Case 20
GoTo bm
Case 21
GoTo bsus4
Case 22
GoTo b6chord
End Select
ElseIf y = 14 Then
Select Case x
Case 4
GoTo bm6
Case 5
GoTo b7
Case 6
GoTo bmaj7
Case 7
GoTo bm7
Case 8
GoTo bdim7
Case 9
GoTo b7sus4
Case 10
GoTo b9
Case 11
GoTo bmaj9
Case 12
GoTo bm9
Case 13
GoTo badd9
Case 14
GoTo b5
Case 15
GoTo cchord
Case 16
GoTo cm
Case 17
GoTo caug
Case 18
GoTo csus4
Case 19
GoTo c6
Case 20
GoTo c7
Case 21
GoTo cmaj7
Case 22
GoTo cm7
End Select
ElseIf y = 24 Then
Select Case x
Case 4
GoTo c7sus4
Case 5
GoTo cmaj9
Case 6
GoTo cm9
Case 7
GoTo cadd9
Case 8
GoTo c5
Case 9
GoTo dchord
Case 10
GoTo dm
Case 11
GoTo daug
Case 12
GoTo dsus4
Case 13
GoTo d6
Case 14
GoTo dm6
Case 15
GoTo d7
Case 16
GoTo dmaj7
Case 17
GoTo dm7
Case 18
GoTo ddim7
Case 19
GoTo d7sus4
Case 20
GoTo dmaj9
Case 21
GoTo dm9
Case 22
GoTo dadd9
End Select
ElseIf y = 34 Then
Select Case x
Case 4
GoTo d5
Case 5
GoTo echord
Case 6
GoTo em
Case 7
GoTo esus4
Case 8
GoTo e6
Case 9
GoTo em6
Case 10
GoTo e7
Case 11
GoTo emaj7
Case 12
GoTo em7
Case 13
GoTo edim7
Case 14
GoTo e7sus4
Case 15
GoTo e9
Case 16
GoTo em9
Case 17
GoTo eadd9
Case 18
GoTo e5
Case 19
GoTo fchord
Case 20
GoTo fm
Case 21
GoTo f6
Case 22
GoTo f7
End Select
ElseIf y = 44 Then
Select Case x
Case 4
GoTo fmaj7
Case 5
GoTo fm7
Case 6
GoTo f9
Case 7
GoTo fm9
Case 8
GoTo fmaj9
Case 9
GoTo fadd9
Case 10
GoTo f11
Case 11
GoTo f5
Case 12
GoTo gchord
Case 13
GoTo gm
Case 14
GoTo g6
Case 15
GoTo g7
Case 16
GoTo gmaj7
Case 17
GoTo gm7
Case 18
GoTo g9
Case 19
GoTo gm9
Case 20
GoTo g11
Case 21
GoTo g69
Case 22
GoTo g5
End Select
ElseIf y = 54 Then
Select Case x
Case 4
GoTo ab
Case 5
GoTo abm
Case 6
GoTo ab7
Case 7
GoTo abm7
Case 8
GoTo ab9
Case 9
GoTo abm9
Case 10
GoTo abmaj9
Case 11
GoTo abadd9
Case 12
GoTo ab5
Case 13
GoTo bflat
Case 14
GoTo bbm
Case 15
GoTo bbsus4
Case 16
GoTo bb7
Case 17
GoTo bbmaj7
Case 18
GoTo bbm7
Case 19
GoTo bbdim7
Case 20
GoTo bb11
Case 21
GoTo bbmaj9
Case 22
GoTo bbadd9
End Select
ElseIf y = 64 Then
Select Case x
Case 4
GoTo bb5
Case 5
GoTo dflat
Case 6
GoTo dbm
Case 7
GoTo dbsus4
Case 8
GoTo dbm7
Case 9
GoTo dbadd9
Case 10
GoTo db5
Case 11
GoTo eflat
Case 12
GoTo ebm
Case 13
GoTo ebsus
Case 14
GoTo ebm7
Case 15
GoTo ebmaj9
Case 16
GoTo ebadd9
Case 17
GoTo eb5
Case 18
GoTo fsharp
Case 19
GoTo fsharpm
Case 20
GoTo fsharpm9
Case 21
GoTo fsharpadd9
Case 22
GoTo fsharp5
End Select
End If
GoTo main
achord:
chordbx
Color 12, 4
Locate 6, 31: Print "|---0--- |---5--- |---9--- |-------"
Locate 7, 31: Print "|---2--- |---5--- |---10-- |---2---"
Locate 8, 31: Print "|---2--- |---6--- |---9--- |---2---"
Locate 9, 31: Print "|---2--- |---7--- |---11-- |---2---"
Locate 10, 31: Print "|---0--- |---7--- |------- |---4---"
Locate 11, 31: Print "|------- |---5--- |------- |---5---"
Locate 12, 42: Color 7: Print "A chord"
Do: Loop While InKey$ = ""
GoTo main
am:
chordbx
Color 12, 4
Locate 6, 31: Print "|---0--- |---5--- |------- |-------"
Locate 7, 31: Print "|---1--- |---5--- |---10-- |---10--"
Locate 8, 31: Print "|---2--- |---5--- |---9--- |---9---"
Locate 9, 31: Print "|---2--- |---7--- |---10-- |---10--"
Locate 10, 31: Print "|---0--- |---7--- |---x--- |---7---"
Locate 11, 31: Print "|------- |---5--- |---8--- |-------"
Locate 12, 42: Color 7: Print "Am chord"
Do: Loop While InKey$ = ""
GoTo main
aaug:
chordbx
Color 12, 4
Locate 6, 31: Print "|---1--- |------- |---5---"
Locate 7, 31: Print "|---2--- |---2--- |---6---"
Locate 8, 31: Print "|---2--- |---2--- |---6---"
Locate 9, 31: Print "|---3--- |---3--- |---7---"
Locate 10, 31: Print "|---0--- |---4--- |-------"
Locate 11, 31: Print "|------- |------- |-------"
Locate 12, 42: Color 7: Print "A+ chord"
Do: Loop While InKey$ = ""
GoTo main
asus4:
chordbx
Color 12, 4
Locate 6, 31: Print "|---0--- |---5--- |---5---"
Locate 7, 31: Print "|---3--- |---5--- |---3---"
Locate 8, 31: Print "|---2--- |---7--- |---2---"
Locate 9, 31: Print "|---2--- |---7--- |---2---"
Locate 10, 31: Print "|---0--- |---5--- |-------"
Locate 11, 31: Print "|------- |---5--- |-------"
Locate 12, 42: Color 7: Print "Asus4 chord"
Do: Loop While InKey$ = ""
GoTo main
a6:
chordbx
Color 12, 4
Locate 6, 31: Print "|---2--- |------- |---9--- |-------"
Locate 7, 31: Print "|---2--- |---5--- |---7--- |---7---"
Locate 8, 31: Print "|---2--- |---6--- |---9--- |---6---"
Locate 9, 31: Print "|---2--- |---4--- |---7--- |---7---"
Locate 10, 31: Print "|---0--- |---x--- |------- |---7---"
Locate 11, 31: Print "|------- |---5--- |------- |-------"
Locate 12, 42: Color 7: Print "A6 chord"
Do: Loop While InKey$ = ""
GoTo main
am6:
chordbx
Color 12, 4
Locate 6, 31: Print "|---2--- |------- |---0---"
Locate 7, 31: Print "|---1--- |---5--- |---1---"
Locate 8, 31: Print "|---2--- |---5--- |---2---"
Locate 9, 31: Print "|---2--- |---4--- |---4---"
Locate 10, 31: Print "|---0--- |---x--- |-------"
Locate 11, 31: Print "|------- |---5--- |-------"
Locate 12, 42: Color 7: Print "Am6 chord"
Do: Loop While InKey$ = ""
GoTo main
a7:
chordbx
Color 12, 4
Locate 6, 31: Print "|---0--- |---5--- |---9--- |---3---"
Locate 7, 31: Print "|---2--- |---5--- |---8--- |---2---"
Locate 8, 31: Print "|---0--- |---6--- |---9--- |---2---"
Locate 9, 31: Print "|---2--- |---5--- |---7--- |---2---"
Locate 10, 31: Print "|---0--- |---7--- |------- |-------"
Locate 11, 31: Print "|------- |---5--- |------- |-------"
Locate 12, 42: Color 7: Print "A7 chord"
Do: Loop While InKey$ = ""
GoTo main
amaj7:
chordbx
Color 12, 4
Locate 6, 31: Print "|---0--- |---4--- |---9--- |-------"
Locate 7, 31: Print "|---2--- |---5--- |---9--- |---5---"
Locate 8, 31: Print "|---1--- |---6--- |---9--- |---6---"
Locate 9, 31: Print "|---2--- |---7--- |---7--- |---6---"
Locate 10, 31: Print "|---0--- |------- |------- |---x---"
Locate 11, 31: Print "|------- |------- |------- |---5---"
Locate 12, 42: Color 7: Print "Amaj7 chord"
Do: Loop While InKey$ = ""
GoTo main
am7:
chordbx
Color 12, 4
Locate 6, 31: Print "|---0--- |---3--- |------- |---5---"
Locate 7, 31: Print "|---1--- |---1--- |---10-- |---5---"
Locate 8, 31: Print "|---0--- |---2--- |---9--- |---5---"
Locate 9, 31: Print "|---2--- |---2--- |---10-- |---5---"
Locate 10, 31: Print "|---0--- |---0--- |---10-- |---7---"
Locate 11, 31: Print "|------- |------- |------- |---5---"
Locate 12, 42: Color 7: Print "Am7 chord"
Do: Loop While InKey$ = ""
GoTo main
a7sus4:
chordbx
Color 12, 4
Locate 6, 31: Print "|---0--- |---5--- |---3---"
Locate 7, 31: Print "|---3--- |---5--- |---3---"
Locate 8, 31: Print "|---0--- |---7--- |---2---"
Locate 9, 31: Print "|---2--- |---5--- |---2---"
Locate 10, 31: Print "|---0--- |---7--- |-------"
Locate 11, 31: Print "|------- |---5--- |-------"
Locate 12, 42: Color 7: Print "A7sus4 chord"
Do: Loop While InKey$ = ""
GoTo main
a9:
chordbx
Color 12, 4
Locate 6, 31: Print "|---3--- |---7--- |-------"
Locate 7, 31: Print "|---2--- |---5--- |---5---"
Locate 8, 31: Print "|---4--- |---6--- |---4---"
Locate 9, 31: Print "|---2--- |---5--- |---5---"
Locate 10, 31: Print "|---0--- |---7--- |---4---"
Locate 11, 31: Print "|------- |---5--- |-------"
Locate 12, 42: Color 7: Print "A9 chord"
Do: Loop While InKey$ = ""
GoTo main
amaj9:
chordbx
Color 12, 4
Locate 6, 31: Print "|---4--- |---4--- |---0---"
Locate 7, 31: Print "|---2--- |---5--- |---2---"
Locate 8, 31: Print "|---4--- |---4--- |---1---"
Locate 9, 31: Print "|---2--- |---7--- |---2---"
Locate 10, 31: Print "|---0--- |---4--- |---2---"
Locate 11, 31: Print "|------- |------- |---0---"
Locate 12, 42: Color 7: Print "Amaj9 chord"
Do: Loop While InKey$ = ""
GoTo main
am9:
chordbx
Color 12, 4
Locate 6, 31: Print "|---0--- |---7--- |------- |-------"
Locate 7, 31: Print "|---0--- |---5--- |---8--- |---12--"
Locate 8, 31: Print "|---0--- |---5--- |---9--- |---12--"
Locate 9, 31: Print "|---2--- |---5--- |---9--- |---10--"
Locate 10, 31: Print "|---3--- |---7--- |---x--- |---12--"
Locate 11, 31: Print "|---5--- |---5--- |---8--- |-------"
Locate 12, 42: Color 7: Print "Am9 chord"
Do: Loop While InKey$ = ""
GoTo main
aadd9:
chordbx
Color 12, 4
Locate 6, 31: Print "|---0--- |---7--- |---5--- |---0---"
Locate 7, 31: Print "|---0--- |---10-- |---5--- |---2---"
Locate 8, 31: Print "|---2--- |---9--- |---4--- |---4---"
Locate 9, 31: Print "|---2--- |---7--- |---x--- |---2---"
Locate 10, 31: Print "|---0--- |---7--- |---4--- |---0---"
Locate 11, 31: Print "|------- |------- |------- |-------"
Locate 12, 42: Color 7: Print "A(add9) chord"
Do: Loop While InKey$ = ""
GoTo main
a5:
chordbx
Color 12, 4
Locate 6, 31: Print "|------- |------- |---5---"
Locate 7, 31: Print "|------- |------- |---5---"
Locate 8, 31: Print "|---2--- |------- |---2---"
Locate 9, 31: Print "|---2--- |---7--- |---2---"
Locate 10, 31: Print "|---0--- |---7--- |-------"
Locate 11, 31: Print "|------- |---5--- |-------"
Locate 12, 42: Color 7: Print "A5 chord"
Do: Loop While InKey$ = ""
GoTo main
b6chord:
chordbx
Color 12, 4
Locate 6, 31: Print "|---2--- |------- |------- |---4---"
Locate 7, 31: Print "|---0--- |---7--- |---9--- |---4---"
Locate 8, 31: Print "|---1--- |---8--- |---8--- |---4---"
Locate 9, 31: Print "|---1--- |---6--- |---9--- |---4---"
Locate 10, 31: Print "|---2--- |---x--- |---9--- |---2---"
Locate 11, 31: Print "|------- |---7--- |------- |-------"
Locate 12, 42: Color 7: Print "B6 chord"
Do: Loop While InKey$ = ""
GoTo main
bchord:
chordbx
Color 12, 4
Locate 6, 31: Print "|------- |---7--- |---11-- |-------"
Locate 7, 31: Print "|---4--- |---7--- |---12-- |---4---"
Locate 8, 31: Print "|---4--- |---8--- |---11-- |---4---"
Locate 9, 31: Print "|---4--- |---9--- |---13-- |---4---"
Locate 10, 31: Print "|---2--- |---9--- |------- |---6---"
Locate 11, 31: Print "|------- |---7--- |------- |---7---"
Locate 12, 42: Color 7: Print "B chord"
Do: Loop While InKey$ = ""
GoTo main
bm:
chordbx
Color 12, 4
Locate 6, 31: Print "|---2--- |---7--- |---10--"
Locate 7, 31: Print "|---3--- |---7--- |---12--"
Locate 8, 31: Print "|---4--- |---7--- |---11--"
Locate 9, 31: Print "|---4--- |---9--- |---12--"
Locate 10, 31: Print "|---2--- |---9--- |-------"
Locate 11, 31: Print "|------- |---7--- |-------"
Locate 12, 42: Color 7: Print "Bm chord"
Do: Loop While InKey$ = ""
GoTo main
bsus4:
chordbx
Color 12, 4
Locate 6, 31: Print "|------- |---7--- |---7---"
Locate 7, 31: Print "|---5--- |---7--- |---5---"
Locate 8, 31: Print "|---4--- |---9--- |---4---"
Locate 9, 31: Print "|---4--- |---9--- |---4---"
Locate 10, 31: Print "|---2--- |---7--- |-------"
Locate 11, 31: Print "|------- |---7--- |-------"
Locate 12, 42: Color 7: Print "Bsus4"
Do: Loop While InKey$ = ""
GoTo main
bm6:
chordbx
Color 12, 4
Locate 6, 31: Print "|---2--- |------- |-------"
Locate 7, 31: Print "|---0--- |---7--- |---9---"
Locate 8, 31: Print "|---1--- |---7--- |---7---"
Locate 9, 31: Print "|---0--- |---6--- |---9---"
Locate 10, 31: Print "|---2--- |---x--- |---9---"
Locate 11, 31: Print "|------- |---7--- |-------"
Locate 12, 42: Color 7: Print "Bm6"
Do: Loop While InKey$ = ""
GoTo main
b7:
chordbx
Color 12, 4
Locate 6, 31: Print "|---2--- |---2--- |------- |---7---"
Locate 7, 31: Print "|---0--- |---4--- |------- |---7---"
Locate 8, 31: Print "|---2--- |---2--- |---4--- |---8---"
Locate 9, 31: Print "|---1--- |---4--- |---4--- |---7---"
Locate 10, 31: Print "|---2--- |---2--- |---6--- |---9---"
Locate 11, 31: Print "|------- |------- |---5--- |---7---"
Locate 12, 42: Color 7: Print "B7"
Do: Loop While InKey$ = ""
GoTo main
bmaj7:
chordbx
Color 12, 4
Locate 6, 31: Print "|---2--- |------- |---6---"
Locate 7, 31: Print "|---4--- |---7--- |---4---"
Locate 8, 31: Print "|---3--- |---8--- |---4---"
Locate 9, 31: Print "|---4--- |---8--- |---4---"
Locate 10, 31: Print "|---2--- |---x--- |-------"
Locate 11, 31: Print "|------- |---7--- |-------"
Locate 12, 42: Color 7: Print "Bmaj7"
Do: Loop While InKey$ = ""
GoTo main
bm7:
chordbx
Color 12, 4
Locate 6, 31: Print "|---2--- |---2--- |---5--- |---7---"
Locate 7, 31: Print "|---0--- |---3--- |---3--- |---7---"
Locate 8, 31: Print "|---2--- |---2--- |---4--- |---7---"
Locate 9, 31: Print "|---0--- |---4--- |---4--- |---7---"
Locate 10, 31: Print "|---2--- |---2--- |------- |---9---"
Locate 11, 31: Print "|------- |------- |------- |---7---"
Locate 12, 42: Color 7: Print "Bm7"
Do: Loop While InKey$ = ""
GoTo main
bdim7:
chordbx
Color 12, 4
Locate 6, 31: Print "|---1--- |---7--- |-------"
Locate 7, 31: Print "|---0--- |---6--- |---6---"
Locate 8, 31: Print "|---1--- |---7--- |---7---"
Locate 9, 31: Print "|---0--- |---6--- |---6---"
Locate 10, 31: Print "|------- |------- |---x---"
Locate 11, 31: Print "|------- |------- |---7---"
Locate 12, 42: Color 7: Print "Bdim7"
Do: Loop While InKey$ = ""
GoTo main
b7sus4:
chordbx
Color 12, 4
Locate 6, 31: Print "|---7--- |---2--- |-------"
Locate 7, 31: Print "|---7--- |---5--- |---0---"
Locate 8, 31: Print "|---9--- |---2--- |---2---"
Locate 9, 31: Print "|---7--- |---4--- |---2---"
Locate 10, 31: Print "|---9--- |---2--- |---x---"
Locate 11, 31: Print "|---7--- |------- |---2---"
Locate 12, 42: Color 7: Print "B7sus4"
Do: Loop While InKey$ = ""
GoTo main
b9:
chordbx
Color 12, 4
Locate 6, 31: Print "|---9--- |---2--- |-------"
Locate 7, 31: Print "|---7--- |---2--- |---7---"
Locate 8, 31: Print "|---8--- |---2--- |---6---"
Locate 9, 31: Print "|---7--- |---1--- |---7---"
Locate 10, 31: Print "|---9--- |---2--- |---6---"
Locate 11, 31: Print "|---7--- |------- |-------"
Locate 12, 42: Color 7: Print "B9"
Do: Loop While InKey$ = ""
GoTo main
bmaj9:
chordbx
Color 12, 4
Locate 6, 31: Print "|------- |---6--- |------- |---6---"
Locate 7, 31: Print "|---2--- |---7--- |---4--- |---4---"
Locate 8, 31: Print "|---3--- |---6--- |---3--- |---4---"
Locate 9, 31: Print "|---1--- |---9--- |---4--- |---4---"
Locate 10, 31: Print "|---2--- |---6--- |---4--- |---4---"
Locate 11, 31: Print "|------- |------- |------- |-------"
Locate 12, 42: Color 7: Print "Bmaj9"
Do: Loop While InKey$ = ""
GoTo main
bm9:
chordbx
Color 12, 4
Locate 6, 31: Print "|---9--- |---2--- |---2---"
Locate 7, 31: Print "|---7--- |---2--- |---2---"
Locate 8, 31: Print "|---7--- |---2--- |---2---"
Locate 9, 31: Print "|---7--- |---0--- |---4---"
Locate 10, 31: Print "|---9--- |---2--- |---5---"
Locate 11, 31: Print "|---7--- |------- |-------"
Locate 12, 42: Color 7: Print "Bm9"
Do: Loop While InKey$ = ""
GoTo main
badd9:
chordbx
Color 12, 4
Locate 6, 31: Print "|---2--- |---7--- |---7---"
Locate 7, 31: Print "|---2--- |---4--- |---7---"
Locate 8, 31: Print "|---4--- |---6--- |---6---"
Locate 9, 31: Print "|---4--- |---4--- |---x---"
Locate 10, 31: Print "|---2--- |------- |---6---"
Locate 11, 31: Print "|------- |------- |-------"
Locate 12, 42: Color 7: Print "B(add9)"
Do: Loop While InKey$ = ""
GoTo main
b5:
chordbx
Color 12, 4
Locate 6, 31: Print "|------- |------- |---7---"
Locate 7, 31: Print "|------- |------- |---7---"
Locate 8, 31: Print "|---4--- |------- |---4---"
Locate 9, 31: Print "|---4--- |---9--- |---4---"
Locate 10, 31: Print "|---2--- |---9--- |-------"
Locate 11, 31: Print "|------- |---7--- |-------"
Locate 12, 42: Color 7: Print "B5"
Do: Loop While InKey$ = ""
GoTo main
cchord:
chordbx
Color 12, 4
Locate 6, 31: Print "|---0--- |------- |-------"
Locate 7, 31: Print "|---1--- |---5--- |---8---"
Locate 8, 31: Print "|---0--- |---5--- |---5---"
Locate 9, 31: Print "|---2--- |---5--- |---5---"
Locate 10, 31: Print "|---3--- |---3--- |---7---"
Locate 11, 31: Print "|------- |------- |-------"
Locate 12, 42: Color 7: Print "C chord"
Do: Loop While InKey$ = ""
GoTo main
cm:
chordbx
Color 12, 4
Locate 6, 31: Print "|---8--- |---3--- |---8---"
Locate 7, 31: Print "|---8--- |---4--- |---8---"
Locate 8, 31: Print "|---8--- |---5--- |---8---"
Locate 9, 31: Print "|---10-- |---5--- |---10--"
Locate 10, 31: Print "|---10-- |---3--- |-------"
Locate 11, 31: Print "|---8--- |------- |-------"
Locate 12, 42: Color 7: Print "Cm"
Do: Loop While InKey$ = ""
GoTo main
caug:
chordbx
Color 12, 4
Locate 6, 31: Print "|------- |---4--- |---8---"
Locate 7, 31: Print "|---1--- |---5--- |---9---"
Locate 8, 31: Print "|---1--- |---5--- |---9---"
Locate 9, 31: Print "|---2--- |---6--- |---10--"
Locate 10, 31: Print "|---3--- |------- |-------"
Locate 11, 31: Print "|------- |------- |-------"
Locate 12, 42: Color 7: Print "C augmented"
Do: Loop While InKey$ = ""
GoTo main
csus4:
chordbx
Color 12, 4
Locate 6, 31: Print "|---1--- |------- |---3---"
Locate 7, 31: Print "|---1--- |---6--- |---1---"
Locate 8, 31: Print "|---0--- |---5--- |---0---"
Locate 9, 31: Print "|---3--- |---5--- |---3---"
Locate 10, 31: Print "|---3--- |---3--- |-------"
Locate 11, 31: Print "|------- |------- |-------"
Locate 12, 42: Color 7: Print "Csus4"
Do: Loop While InKey$ = ""
GoTo main
c6:
chordbx
Color 12, 4
Locate 6, 31: Print "|---0--- |---5--- |-------"
Locate 7, 31: Print "|---1--- |---5--- |-------"
Locate 8, 31: Print "|---2--- |---5--- |---12--"
Locate 9, 31: Print "|---2--- |---5--- |---10--"
Locate 10, 31: Print "|---3--- |---3--- |---12--"
Locate 11, 31: Print "|------- |------- |---12--"
Locate 12, 42: Color 7: Print "C6"
Do: Loop While InKey$ = ""
GoTo main
c7:
chordbx
Color 12, 4
Locate 6, 31: Print "|---0--- |---3--- |---3---"
Locate 7, 31: Print "|---1--- |---5--- |---1---"
Locate 8, 31: Print "|---3--- |---3--- |---3---"
Locate 9, 31: Print "|---2--- |---5--- |---2---"
Locate 10, 31: Print "|---3--- |---3--- |-------"
Locate 11, 31: Print "|------- |------- |-------"
Locate 12, 42: Color 7: Print "C7"
Do: Loop While InKey$ = ""
GoTo main
cmaj7:
chordbx
Color 12, 4
Locate 6, 31: Print "|---0--- |---3--- |---12-- |------"
Locate 7, 31: Print "|---0--- |---5--- |---12-- |---8---"
Locate 8, 31: Print "|---0--- |---4--- |---12-- |---9---"
Locate 9, 31: Print "|---2--- |---5--- |---10-- |---9---"
Locate 10, 31: Print "|---3--- |---3--- |------- |---x---"
Locate 11, 31: Print "|------- |------- |------- |---8---"
Locate 12, 42: Color 7: Print "Cmaj7"
Do: Loop While InKey$ = ""
GoTo main
cm7:
chordbx
Color 12, 4
Locate 6, 31: Print "|---3--- |------- |-------"
Locate 7, 31: Print "|---4--- |---1--- |-------"
Locate 8, 31: Print "|---3--- |---3--- |---5---"
Locate 9, 31: Print "|---5--- |---1--- |---5---"
Locate 10, 31: Print "|---3--- |---3--- |---6---"
Locate 11, 31: Print "|------- |------- |---6---"
Locate 12, 42: Color 7: Print "Cm7"
Do: Loop While InKey$ = ""
GoTo main
c7sus4:
chordbx
Color 12, 4
Locate 6, 31: Print "|---3--- |---8--- |-------"
Locate 7, 31: Print "|---6--- |---8--- |---6---"
Locate 8, 31: Print "|---3--- |---10-- |---5---"
Locate 9, 31: Print "|---5--- |---8--- |---5---"
Locate 10, 31: Print "|---3--- |---10-- |---x---"
Locate 11, 31: Print "|------- |---8--- |---6---"
Locate 12, 42: Color 7: Print "C7sus4"
Do: Loop While InKey$ = ""
GoTo main
cmaj9:
chordbx
Color 12, 4
Locate 6, 31: Print "|---0--- |---7--- |-------"
Locate 7, 31: Print "|---3--- |---8--- |---5---"
Locate 8, 31: Print "|---4--- |---7--- |---4---"
Locate 9, 31: Print "|---2--- |---10-- |---5---"
Locate 10, 31: Print "|---3--- |---7--- |---5---"
Locate 11, 31: Print "|------- |------- |-------"
Locate 12, 42: Color 7: Print "Cmaj9"
Do: Loop While InKey$ = ""
GoTo main
cm9:
chordbx
Color 12, 4
Locate 6, 31: Print "|---10-- |---6--- |-------"
Locate 7, 31: Print "|---8--- |---8--- |---3---"
Locate 8, 31: Print "|---8--- |---7--- |---3---"
Locate 9, 31: Print "|---8--- |---x--- |---1---"
Locate 10, 31: Print "|---10-- |---6--- |---x---"
Locate 11, 31: Print "|---8--- |------- |---3---"
Locate 12, 42: Color 7: Print "Cm9"
Do: Loop While InKey$ = ""
GoTo main
cadd9:
chordbx
Color 12, 4
Locate 6, 31: Print "|---0--- |---3--- |---8---"
Locate 7, 31: Print "|---3--- |---3--- |---8---"
Locate 8, 31: Print "|---0--- |---5--- |---7---"
Locate 9, 31: Print "|---2--- |---5--- |---x---"
Locate 10, 31: Print "|---3--- |---3--- |---7---"
Locate 11, 31: Print "|------- |------- |-------"
Locate 12, 42: Color 7: Print "C(add9)"
Do: Loop While InKey$ = ""
GoTo main
c5:
chordbx
Color 12, 4
Locate 6, 31: Print "|------- |------- |---8---"
Locate 7, 31: Print "|------- |------- |---8---"
Locate 8, 31: Print "|---5--- |------- |---5---"
Locate 9, 31: Print "|---5--- |---10-- |---5---"
Locate 10, 31: Print "|---3--- |---10-- |-------"
Locate 11, 31: Print "|------- |---8--- |-------"
Locate 12, 42: Color 7: Print "C5"
Do: Loop While InKey$ = ""
GoTo main
dchord:
chordbx
Color 12, 4
Locate 6, 31: Print "|---2--- |------- |-------"
Locate 7, 31: Print "|---3--- |---7--- |---10--"
Locate 8, 31: Print "|---2--- |---7--- |---7---"
Locate 9, 31: Print "|---0--- |---7--- |---7---"
Locate 10, 31: Print "|------- |---5--- |---9---"
Locate 11, 31: Print "|------- |------- |-------"
Locate 12, 42: Color 7: Print "D chord"
Do: Loop While InKey$ = ""
GoTo main
dm:
chordbx
Color 12, 4
Locate 6, 31: Print "|---1--- |---5--- |-------"
Locate 7, 31: Print "|---3--- |---6--- |---3---"
Locate 8, 31: Print "|---2--- |---7--- |---2---"
Locate 9, 31: Print "|---0--- |---7--- |---3---"
Locate 10, 31: Print "|------- |---5--- |---x---"
Locate 11, 31: Print "|------- |------- |---1---"
Locate 12, 42: Color 7: Print "Dm chord"
Do: Loop While InKey$ = ""
GoTo main
daug:
chordbx
Color 12, 4
Locate 6, 31: Print "|---2--- |---6--- |---2---"
Locate 7, 31: Print "|---3--- |---7--- |---3---"
Locate 8, 31: Print "|---3--- |---7--- |---3---"
Locate 9, 31: Print "|---0--- |---x--- |---4---"
Locate 10, 31: Print "|------- |---5--- |-------"
Locate 11, 31: Print "|------- |------- |-------"
Locate 12, 42: Color 7: Print "D+"
Do: Loop While InKey$ = ""
GoTo main
dsus4:
chordbx
Color 12, 4
Locate 6, 31: Print "|---3--- |------- |---10--"
Locate 7, 31: Print "|---3--- |---8--- |---10--"
Locate 8, 31: Print "|---2--- |---7--- |---12--"
Locate 9, 31: Print "|---0--- |---7--- |---12--"
Locate 10, 31: Print "|------- |---5--- |---10--"
Locate 11, 31: Print "|------- |------- |---10--"
Locate 12, 42: Color 7: Print "Dsus4"
Do: Loop While InKey$ = ""
GoTo main
d6:
chordbx
Color 12, 4
Locate 6, 31: Print "|---2--- |------- |-------"
Locate 7, 31: Print "|---0--- |---10-- |---0---"
Locate 8, 31: Print "|---2--- |---11-- |---2---"
Locate 9, 31: Print "|---0--- |---9--- |---4---"
Locate 10, 31: Print "|------- |---x--- |---5---"
Locate 11, 31: Print "|------- |---10-- |-------"
Locate 12, 42: Color 7: Print "D6"
Do: Loop While InKey$ = ""
GoTo main
dm6:
chordbx
Color 12, 4
Locate 6, 31: Print "|---1--- |---5--- |-------"
Locate 7, 31: Print "|---0--- |---3--- |---0---"
Locate 8, 31: Print "|---2--- |---4--- |---2---"
Locate 9, 31: Print "|---0--- |---3--- |---3---"
Locate 10, 31: Print "|------- |------- |---5---"
Locate 11, 31: Print "|------- |------- |-------"
Locate 12, 42: Color 7: Print "Dm6"
Do: Loop While InKey$ = ""
GoTo main
d7:
chordbx
Color 12, 4
Locate 6, 31: Print "|---2--- |---5--- |-------"
Locate 7, 31: Print "|---1--- |---7--- |---1---"
Locate 8, 31: Print "|---2--- |---5--- |---2---"
Locate 9, 31: Print "|---0--- |---7--- |---4---"
Locate 10, 31: Print "|------- |---5--- |-------"
Locate 11, 31: Print "|------- |------- |-------"
Locate 12, 42: Color 7: Print "D7"
Do: Loop While InKey$ = ""
GoTo main
dmaj7:
chordbx
Color 12, 4
Locate 6, 31: Print "|---2--- |---5--- |-------"
Locate 7, 31: Print "|---2--- |---7--- |-------"
Locate 8, 31: Print "|---2--- |---6--- |---6---"
Locate 9, 31: Print "|---0--- |---7--- |---4---"
Locate 10, 31: Print "|------- |---5--- |---5---"
Locate 11, 31: Print "|------- |------- |---5---"
Locate 12, 42: Color 7: Print "Dmaj7"
Do: Loop While InKey$ = ""
GoTo main
dm7:
chordbx
Color 12, 4
Locate 6, 31: Print "|---1--- |---5--- |-------"
Locate 7, 31: Print "|---1--- |---6--- |-------"
Locate 8, 31: Print "|---2--- |---5--- |---5---"
Locate 9, 31: Print "|---0--- |---7--- |---3---"
Locate 10, 31: Print "|------- |---5--- |---5---"
Locate 11, 31: Print "|------- |------- |---5---"
Locate 12, 42: Color 7: Print "Dm7"
Do: Loop While InKey$ = ""
GoTo main
ddim7:
chordbx
Color 12, 4
Locate 6, 31: Print "|---1--- |---7--- |-------"
Locate 7, 31: Print "|---0--- |---6--- |---9---"
Locate 8, 31: Print "|---1--- |---7--- |---10--"
Locate 9, 31: Print "|---0--- |---6--- |---9---"
Locate 10, 31: Print "|------- |------- |---x---"
Locate 11, 31: Print "|------- |------- |---10--"
Locate 12, 42: Color 7: Print "D dim7"
Do: Loop While InKey$ = ""
GoTo main
d7sus4:
chordbx
Color 12, 4
Locate 6, 31: Print "|---3--- |---5--- |---5---"
Locate 7, 31: Print "|---1--- |---8--- |---3---"
Locate 8, 31: Print "|---2--- |---5--- |---5---"
Locate 9, 31: Print "|---0--- |---7--- |---5---"
Locate 10, 31: Print "|------- |---5--- |-------"
Locate 11, 31: Print "|------- |------- |-------"
Locate 12, 42: Color 7: Print "D7sus4"
Do: Loop While InKey$ = ""
GoTo main
dmaj9:
chordbx
Color 12, 4
Locate 6, 31: Print "|---0--- |------- |-------"
Locate 7, 31: Print "|---2--- |---5--- |---2---"
Locate 8, 31: Print "|---2--- |---6--- |---2---"
Locate 9, 31: Print "|---4--- |---4--- |---0---"
Locate 10, 31: Print "|---0--- |---5--- |---0---"
Locate 11, 31: Print "|------- |------- |---0---"
Locate 12, 42: Color 7: Print "Dmaj9"
Do: Loop While InKey$ = ""
GoTo main
dm9:
chordbx
Color 12, 4
Locate 6, 31: Print "|------- |---8--- |-------"
Locate 7, 31: Print "|---5--- |---10-- |---5---"
Locate 8, 31: Print "|---5--- |---9--- |---5---"
Locate 9, 31: Print "|---3--- |---x--- |---7---"
Locate 10, 31: Print "|---5--- |---8--- |---8---"
Locate 11, 31: Print "|------- |------- |-------"
Locate 12, 42: Color 7: Print "Dm9"
Do: Loop While InKey$ = ""
GoTo main
dadd9:
chordbx
Color 12, 4
Locate 6, 31: Print "|---0--- |---5--- |---10--"
Locate 7, 31: Print "|---3--- |---5--- |---10--"
Locate 8, 31: Print "|---2--- |---7--- |---9---"
Locate 9, 31: Print "|---0--- |---7--- |---x---"
Locate 10, 31: Print "|------- |---5--- |---9---"
Locate 11, 31: Print "|------- |------- |-------"
Locate 12, 42: Color 7: Print "D(add9)"
Do: Loop While InKey$ = ""
GoTo main
d5:
chordbx
Color 12, 4
Locate 6, 31: Print "|---5--- |------- |---10--"
Locate 7, 31: Print "|---3--- |------- |---10--"
Locate 8, 31: Print "|---2--- |---7--- |---7---"
Locate 9, 31: Print "|---0--- |---7--- |---7---"
Locate 10, 31: Print "|---0--- |---5--- |-------"
Locate 11, 31: Print "|------- |------- |-------"
Locate 12, 42: Color 7: Print "D5"
Do: Loop While InKey$ = ""
GoTo main
echord:
chordbx
Color 12, 4
Locate 6, 31: Print "|---0--- |------- |-------"
Locate 7, 31: Print "|---0--- |---9--- |---5---"
Locate 8, 31: Print "|---1--- |---9--- |---4---"
Locate 9, 31: Print "|---2--- |---9--- |---6---"
Locate 10, 31: Print "|---2--- |---7--- |---7---"
Locate 11, 31: Print "|---0--- |------- |-------"
Locate 12, 42: Color 7: Print "E chord"
Do: Loop While InKey$ = ""
GoTo main
em:
chordbx
Color 12, 4
Locate 6, 31: Print "|---0--- |---7--- |---3---"
Locate 7, 31: Print "|---0--- |---8--- |---5---"
Locate 8, 31: Print "|---0--- |---9--- |---4---"
Locate 9, 31: Print "|---2--- |---9--- |---2---"
Locate 10, 31: Print "|---2--- |---7--- |-------"
Locate 11, 31: Print "|---0--- |------- |-------"
Locate 12, 42: Color 7: Print "E minor"
Do: Loop While InKey$ = ""
GoTo main
esus4:
chordbx
Color 12, 4
Locate 6, 31: Print "|---0--- |------- |---5---"
Locate 7, 31: Print "|---0--- |---10-- |---5---"
Locate 8, 31: Print "|---2--- |---9--- |---4---"
Locate 9, 31: Print "|---2--- |---9--- |---2---"
Locate 10, 31: Print "|---2--- |---7--- |---2---"
Locate 11, 31: Print "|---0--- |------- |---0---"
Locate 12, 42: Color 7: Print "Esus4"
Do: Loop While InKey$ = ""
GoTo main
e6:
chordbx
Color 12, 4
Locate 6, 31: Print "|---0--- |---7--- |---4---"
Locate 7, 31: Print "|---2--- |---5--- |---2---"
Locate 8, 31: Print "|---1--- |---6--- |---4---"
Locate 9, 31: Print "|---2--- |---6--- |---2---"
Locate 10, 31: Print "|---2--- |------- |---2---"
Locate 11, 31: Print "|---0--- |------- |---0---"
Locate 12, 42: Color 7: Print "E6"
Do: Loop While InKey$ = ""
GoTo main
em6:
chordbx
Color 12, 4
Locate 6, 31: Print "|---0--- |---9--- |---3---"
Locate 7, 31: Print "|---2--- |---8--- |---2---"
Locate 8, 31: Print "|---0--- |---9--- |---4---"
Locate 9, 31: Print "|---2--- |---9--- |---2---"
Locate 10, 31: Print "|---2--- |------- |---2---"
Locate 11, 31: Print "|---0--- |------- |---0---"
Locate 12, 42: Color 7: Print "Em6"
Do: Loop While InKey$ = ""
GoTo main
e7:
chordbx
Color 12, 4
Locate 6, 31: Print "|---0--- |---0--- |-------"
Locate 7, 31: Print "|---0--- |---3--- |-------"
Locate 8, 31: Print "|---1--- |---1--- |---7---"
Locate 9, 31: Print "|---0--- |---2--- |---6---"
Locate 10, 31: Print "|---2--- |---2--- |---7---"
Locate 11, 31: Print "|---0--- |---0--- |---7---"
Locate 12, 42: Color 7: Print "E7"
Do: Loop While InKey$ = ""
GoTo main
emaj7:
chordbx
Color 12, 4
Locate 6, 31: Print "|---0--- |------- |-------"
Locate 7, 31: Print "|---0--- |---4--- |---4---"
Locate 8, 31: Print "|---1--- |---4--- |---4---"
Locate 9, 31: Print "|---1--- |---2--- |---6---"
Locate 10, 31: Print "|---2--- |---x--- |---7---"
Locate 11, 31: Print "|---0--- |---4--- |-------"
Locate 12, 42: Color 7: Print "Emaj7"
Do: Loop While InKey$ = ""
GoTo main
em7:
chordbx
Color 12, 4
Locate 6, 31: Print "|---0--- |---0--- |---7---"
Locate 7, 31: Print "|---0--- |---3--- |---8---"
Locate 8, 31: Print "|---0--- |---0--- |---7---"
Locate 9, 31: Print "|---0--- |---2--- |---x---"
Locate 10, 31: Print "|---2--- |---2--- |---7---"
Locate 11, 31: Print "|---0--- |---0--- |-------"
Locate 12, 42: Color 7: Print "Em7"
Do: Loop While InKey$ = ""
GoTo main
edim7:
chordbx
Color 12, 4
Locate 6, 31: Print "|---0--- |------- |---3---"
Locate 7, 31: Print "|---2--- |---2--- |---2---"
Locate 8, 31: Print "|---0--- |---3--- |---3---"
Locate 9, 31: Print "|---2--- |---2--- |---2---"
Locate 10, 31: Print "|---1--- |---x--- |-------"
Locate 11, 31: Print "|---0--- |---3--- |-------"
Locate 12, 42: Color 7: Print "Edim7"
Do: Loop While InKey$ = ""
GoTo main
e7sus4:
chordbx
Color 12, 4
Locate 6, 31: Print "|---0--- |---7--- |-------"
Locate 7, 31: Print "|---0--- |---10-- |---3---"
Locate 8, 31: Print "|---2--- |---7--- |---2---"
Locate 9, 31: Print "|---0--- |---9--- |---2---"
Locate 10, 31: Print "|---2--- |---7--- |---2---"
Locate 11, 31: Print "|---0--- |------- |-------"
Locate 12, 42: Color 7: Print "E7sus4"
Do: Loop While InKey$ = ""
GoTo main
e9:
chordbx
Color 12, 4
Locate 6, 31: Print "|---2--- |---7--- |-------"
Locate 7, 31: Print "|---0--- |---7--- |---3---"
Locate 8, 31: Print "|---1--- |---7--- |---4---"
Locate 9, 31: Print "|---0--- |---6--- |---4---"
Locate 10, 31: Print "|---2--- |---7--- |---x---"
Locate 11, 31: Print "|---0--- |------- |---4---"
Locate 12, 42: Color 7: Print "E9"
Do: Loop While InKey$ = ""
GoTo main
em9:
chordbx
Color 12, 4
Locate 6, 31: Print "|---2--- |------- |-------"
Locate 7, 31: Print "|---0--- |---7--- |---7---"
Locate 8, 31: Print "|---0--- |---7--- |---7---"
Locate 9, 31: Print "|---0--- |---5--- |---9---"
Locate 10, 31: Print "|---2--- |---7--- |---10--"
Locate 11, 31: Print "|---0--- |------- |-------"
Locate 12, 42: Color 7: Print "Em9"
Do: Loop While InKey$ = ""
GoTo main
eadd9:
chordbx
Color 12, 4
Locate 6, 31: Print "|---0--- |---7--- |---12--"
Locate 7, 31: Print "|---0--- |---7--- |---12--"
Locate 8, 31: Print "|---1--- |---9--- |---11--"
Locate 9, 31: Print "|---4--- |---9--- |---x---"
Locate 10, 31: Print "|---2--- |---7--- |---11--"
Locate 11, 31: Print "|---0--- |------- |-------"
Locate 12, 42: Color 7: Print "E(add9)"
Do: Loop While InKey$ = ""
GoTo main
e5:
chordbx
Color 12, 4
Locate 6, 31: Print "|------- |------- |-------"
Locate 7, 31: Print "|------- |------- |---5---"
Locate 8, 31: Print "|------- |---9--- |---4---"
Locate 9, 31: Print "|---2--- |---9--- |---2---"
Locate 10, 31: Print "|---2--- |---7--- |---2---"
Locate 11, 31: Print "|---0--- |------- |---0---"
Locate 12, 42: Color 7: Print "E5"
Do: Loop While InKey$ = ""
GoTo main
fchord:
chordbx
Color 12, 4
Locate 6, 31: Print "|------- |---1--- |---5---"
Locate 7, 31: Print "|---10-- |---1--- |---6---"
Locate 8, 31: Print "|---10-- |---2--- |---5---"
Locate 9, 31: Print "|---10-- |---3--- |---7---"
Locate 10, 31: Print "|---8--- |---3--- |-------"
Locate 11, 31: Print "|------- |---1--- |-------"
Locate 12, 42: Color 7: Print "F chord"
Do: Loop While InKey$ = ""
GoTo main
fm:
chordbx
Color 12, 4
Locate 6, 31: Print "|---1--- |---8--- |---4---"
Locate 7, 31: Print "|---1--- |---9--- |---6---"
Locate 8, 31: Print "|---1--- |---10-- |---5---"
Locate 9, 31: Print "|---3--- |---10-- |---3---"
Locate 10, 31: Print "|---3--- |---8--- |-------"
Locate 11, 31: Print "|---1--- |------- |-------"
Locate 12, 42: Color 7: Print "F minor"
Do: Loop While InKey$ = ""
GoTo main
f6:
chordbx
Color 12, 4
Locate 6, 31: Print "|---1--- |------- |-------"
Locate 7, 31: Print "|---3--- |---1--- |-------"
Locate 8, 31: Print "|---2--- |---2--- |---7---"
Locate 9, 31: Print "|---3--- |---0--- |---7---"
Locate 10, 31: Print "|---0--- |---x--- |---8---"
Locate 11, 31: Print "|------- |---1--- |---8---"
Locate 12, 42: Color 7: Print "F6"
Do: Loop While InKey$ = ""
GoTo main
f7:
chordbx
Color 12, 4
Locate 6, 31: Print "|---1--- |---8--- |-------"
Locate 7, 31: Print "|---1--- |---10-- |-------"
Locate 8, 31: Print "|---2--- |---8--- |---8---"
Locate 9, 31: Print "|---1--- |---10-- |---7---"
Locate 10, 31: Print "|---3--- |---8--- |---8---"
Locate 11, 31: Print "|---1--- |------- |---8---"
Locate 12, 42: Color 7: Print "F7"
Do: Loop While InKey$ = ""
GoTo main
fmaj7:
chordbx
Color 12, 4
Locate 6, 31: Print "|---0--- |------- |---1---"
Locate 7, 31: Print "|---1--- |---5--- |---1---"
Locate 8, 31: Print "|---2--- |---5--- |---2---"
Locate 9, 31: Print "|---3--- |---3--- |---2---"
Locate 10, 31: Print "|---0--- |---x--- |-------"
Locate 11, 31: Print "|------- |---5--- |-------"
Locate 12, 42: Color 7: Print "Fmaj7"
Do: Loop While InKey$ = ""
GoTo main
fm7:
chordbx
Color 12, 4
Locate 6, 31: Print "|---1--- |---8--- |-------"
Locate 7, 31: Print "|---1--- |---9--- |---6---"
Locate 8, 31: Print "|---1--- |---8--- |---5---"
Locate 9, 31: Print "|---1--- |---10-- |---6---"
Locate 10, 31: Print "|---3--- |---8--- |---6---"
Locate 11, 31: Print "|---1--- |------- |-------"
Locate 12, 42: Color 7: Print "Fm7"
Do: Loop While InKey$ = ""
GoTo main
f9:
chordbx
Color 12, 4
Locate 6, 31: Print "|---3--- |---8--- |-------"
Locate 7, 31: Print "|---1--- |---8--- |---4---"
Locate 8, 31: Print "|---2--- |---8--- |---5---"
Locate 9, 31: Print "|---1--- |---7--- |---5---"
Locate 10, 31: Print "|---3--- |---8--- |---x---"
Locate 11, 31: Print "|---1--- |------- |---5---"
Locate 12, 42: Color 7: Print "F9"
Do: Loop While InKey$ = ""
GoTo main
fm9:
chordbx
Color 12, 4
Locate 6, 31: Print "|---3--- |------- |---8---"
Locate 7, 31: Print "|---1--- |---8--- |---8---"
Locate 8, 31: Print "|---1--- |---8--- |---8---"
Locate 9, 31: Print "|---1--- |---6--- |---10--"
Locate 10, 31: Print "|---3--- |---8--- |---11--"
Locate 11, 31: Print "|---1--- |------- |-------"
Locate 12, 42: Color 7: Print "Fm9"
Do: Loop While InKey$ = ""
GoTo main
fmaj9:
chordbx
Color 12, 4
Locate 6, 31: Print "|---0--- |------- |-------"
Locate 7, 31: Print "|---1--- |---8--- |---10--"
Locate 8, 31: Print "|---0--- |---9--- |---9---"
Locate 9, 31: Print "|---2--- |---7--- |---10--"
Locate 10, 31: Print "|---0--- |---8--- |---10--"
Locate 11, 31: Print "|---1--- |------- |-------"
Locate 12, 42: Color 7: Print "Fmaj9"
Do: Loop While InKey$ = ""
GoTo main
fadd9:
chordbx
Color 12, 4
Locate 6, 31: Print "|---1--- |---8--- |-------"
Locate 7, 31: Print "|---1--- |---8--- |---6---"
Locate 8, 31: Print "|---0--- |---10-- |---5---"
Locate 9, 31: Print "|---3--- |---10-- |---5---"
Locate 10, 31: Print "|---3--- |---8--- |---x---"
Locate 11, 31: Print "|------- |------- |---5---"
Locate 12, 42: Color 7: Print "F(add9)"
Do: Loop While InKey$ = ""
GoTo main
f11:
chordbx
Color 12, 4
Locate 6, 31: Print "|---1--- |---3--- |---8---"
Locate 7, 31: Print "|---1--- |---4--- |---8---"
Locate 8, 31: Print "|---3--- |---3--- |---8---"
Locate 9, 31: Print "|---1--- |---3--- |---8---"
Locate 10, 31: Print "|---3--- |---3--- |---8---"
Locate 11, 31: Print "|---1--- |------- |-------"
Locate 12, 42: Color 7: Print "F11"
Do: Loop While InKey$ = ""
GoTo main
f5:
chordbx
Color 12, 4
Locate 6, 31: Print "|------- |------- |-------"
Locate 7, 31: Print "|------- |------- |---6---"
Locate 8, 31: Print "|------- |---10-- |---5---"
Locate 9, 31: Print "|---3--- |---10-- |---3---"
Locate 10, 31: Print "|---3--- |---8--- |---3---"
Locate 11, 31: Print "|---1--- |------- |-------"
Locate 12, 42: Color 7: Print "F5"
Do: Loop While InKey$ = ""
GoTo main
gchord:
chordbx
Color 12, 4
Locate 6, 31: Print "|---3--- |---3--- |---7---"
Locate 7, 31: Print "|---0--- |---3--- |---8---"
Locate 8, 31: Print "|---0--- |---4--- |---7---"
Locate 9, 31: Print "|---0--- |---5--- |---9---"
Locate 10, 31: Print "|---2--- |---5--- |-------"
Locate 11, 31: Print "|---3--- |---3--- |-------"
Locate 12, 42: Color 7: Print "G chord"
Do: Loop While InKey$ = ""
GoTo main
gm:
chordbx
Color 12, 4
Locate 6, 31: Print "|---3--- |---3--- |---10--"
Locate 7, 31: Print "|---3--- |---3--- |---8---"
Locate 8, 31: Print "|---3--- |---0--- |---7---"
Locate 9, 31: Print "|---5--- |---0--- |---8---"
Locate 10, 31: Print "|---5--- |---1--- |-------"
Locate 11, 31: Print "|---3--- |---3--- |-------"
Locate 12, 42: Color 7: Print "Gm chord"
Do: Loop While InKey$ = ""
GoTo main
g6:
chordbx
Color 12, 4
Locate 6, 31: Print "|---0--- |---3--- |---12--"
Locate 7, 31: Print "|---0--- |---5--- |---12--"
Locate 8, 31: Print "|---0--- |---4--- |---12--"
Locate 9, 31: Print "|---0--- |---5--- |---12--"
Locate 10, 31: Print "|---2--- |------- |---10--"
Locate 11, 31: Print "|---3--- |------- |-------"
Locate 12, 42: Color 7: Print "G6"
Do: Loop While InKey$ = ""
GoTo main
g7:
chordbx
Color 12, 4
Locate 6, 31: Print "|---1--- |---3--- |---7---"
Locate 7, 31: Print "|---0--- |---3--- |---6---"
Locate 8, 31: Print "|---0--- |---4--- |---7---"
Locate 9, 31: Print "|---0--- |---3--- |---5---"
Locate 10, 31: Print "|---2--- |---5--- |-------"
Locate 11, 31: Print "|---3--- |---3--- |-------"
Locate 12, 42: Color 7: Print "G7"
Do: Loop While InKey$ = ""
GoTo main
gmaj7:
chordbx
Color 12, 4
Locate 6, 31: Print "|---2--- |------- |-------"
Locate 7, 31: Print "|---0--- |---3--- |---7---"
Locate 8, 31: Print "|---0--- |---4--- |---7---"
Locate 9, 31: Print "|---0--- |---4--- |---5---"
Locate 10, 31: Print "|---x--- |---x--- |---x---"
Locate 11, 31: Print "|---3--- |---3--- |---7---"
Locate 12, 42: Color 7: Print "Gmaj7"
Do: Loop While InKey$ = ""
GoTo main
gm7:
chordbx
Color 12, 4
Locate 6, 31: Print "|---3--- |---1--- |---10--"
Locate 7, 31: Print "|---3--- |---3--- |---11--"
Locate 8, 31: Print "|---3--- |---3--- |---10--"
Locate 9, 31: Print "|---3--- |---0--- |---12--"
Locate 10, 31: Print "|---5--- |---x--- |---10--"
Locate 11, 31: Print "|---3--- |---3--- |-------"
Locate 12, 42: Color 7: Print "Gm7"
Do: Loop While InKey$ = ""
GoTo main
g9:
chordbx
Color 12, 4
Locate 6, 31: Print "|---5--- |---10-- |-------"
Locate 7, 31: Print "|---3--- |---10-- |---3---"
Locate 8, 31: Print "|---4--- |---10-- |---2---"
Locate 9, 31: Print "|---3--- |---9--- |---3---"
Locate 10, 31: Print "|---5--- |---10-- |---2---"
Locate 11, 31: Print "|---3--- |------- |-------"
Locate 12, 42: Color 7: Print "G9"
Do: Loop While InKey$ = ""
GoTo main
gm9:
chordbx
Color 12, 4
Locate 6, 31: Print "|---5--- |------- |---5---"
Locate 7, 31: Print "|---3--- |---10-- |---6---"
Locate 8, 31: Print "|---3--- |---10-- |---7---"
Locate 9, 31: Print "|---3--- |---8--- |---8---"
Locate 10, 31: Print "|---5--- |---10-- |-------"
Locate 11, 31: Print "|---3--- |------- |-------"
Locate 12, 42: Color 7: Print "Gm9"
Do: Loop While InKey$ = ""
GoTo main
g11:
chordbx
Color 12, 4
Locate 6, 31: Print "|---3--- |---5--- |---10--"
Locate 7, 31: Print "|---3--- |---6--- |---10--"
Locate 8, 31: Print "|---5--- |---5--- |---10--"
Locate 9, 31: Print "|---3--- |---5--- |---10--"
Locate 10, 31: Print "|---5--- |---5--- |---10--"
Locate 11, 31: Print "|---3--- |------- |-------"
Locate 12, 42: Color 7: Print "G11"
Do: Loop While InKey$ = ""
GoTo main
g69:
chordbx
Color 12, 4
Locate 6, 31: Print "|---0--- |------- |---5---"
Locate 7, 31: Print "|---0--- |---3--- |---5---"
Locate 8, 31: Print "|---2--- |---2--- |---4---"
Locate 9, 31: Print "|---0--- |---2--- |---5---"
Locate 10, 31: Print "|---2--- |---x--- |-------"
Locate 11, 31: Print "|---3--- |---3--- |-------"
Locate 12, 42: Color 7: Print "G6/9"
Do: Loop While InKey$ = ""
GoTo main
g5:
chordbx
Color 12, 4
Locate 6, 31: Print "|---3--- |------- |---3---"
Locate 7, 31: Print "|---3--- |------- |---3---"
Locate 8, 31: Print "|---0--- |------- |---0---"
Locate 9, 31: Print "|---0--- |---5--- |---0---"
Locate 10, 31: Print "|---x--- |---5--- |-------"
Locate 11, 31: Print "|---3--- |---3--- |-------"
Locate 12, 42: Color 7: Print "G5"
Do: Loop While InKey$ = ""
GoTo main
ab:
chordbx
Color 12, 4
Locate 6, 31: Print "|---4--- |---4--- |-------"
Locate 7, 31: Print "|---4--- |---1--- |---1---"
Locate 8, 31: Print "|---5--- |---1--- |---1---"
Locate 9, 31: Print "|---6--- |---1--- |---1---"
Locate 10, 31: Print "|---6--- |------- |---3---"
Locate 11, 31: Print "|---4--- |------- |---4---"
Locate 12, 42: Color 7: Print "A Flat chord"
Do: Loop While InKey$ = ""
GoTo main
abm:
chordbx
Color 12, 4
Locate 6, 31: Print "|---4--- |---11-- |---11--"
Locate 7, 31: Print "|---4--- |---12-- |---9---"
Locate 8, 31: Print "|---4--- |---13-- |---8---"
Locate 9, 31: Print "|---6--- |---13-- |---9---"
Locate 10, 31: Print "|---6--- |---11-- |-------"
Locate 11, 31: Print "|---4--- |------- |-------"
Locate 12, 42: Color 7: Print "Abm"
Do: Loop While InKey$ = ""
GoTo main
ab7:
chordbx
Color 12, 4
Locate 6, 31: Print "|---2--- |---4--- |---4---"
Locate 7, 31: Print "|---1--- |---4--- |---4---"
Locate 8, 31: Print "|---1--- |---5--- |---5---"
Locate 9, 31: Print "|---1--- |---4--- |---4---"
Locate 10, 31: Print "|------- |---6--- |-------"
Locate 11, 31: Print "|------- |---4--- |-------"
Locate 12, 42: Color 7: Print "Ab7"
Do: Loop While InKey$ = ""
GoTo main
abm7:
chordbx
Color 12, 4
Locate 6, 31: Print "|---2--- |---4--- |-------"
Locate 7, 31: Print "|---0--- |---4--- |-------"
Locate 8, 31: Print "|---1--- |---4--- |---1---"
Locate 9, 31: Print "|---1--- |---4--- |---1---"
Locate 10, 31: Print "|------- |---6--- |---2---"
Locate 11, 31: Print "|------- |---4--- |---2---"
Locate 12, 42: Color 7: Print "Abm7"
Do: Loop While InKey$ = ""
GoTo main
ab9:
chordbx
Color 12, 4
Locate 6, 31: Print "|---2--- |---6--- |-------"
Locate 7, 31: Print "|---1--- |---4--- |---4---"
Locate 8, 31: Print "|---3--- |---5--- |---3---"
Locate 9, 31: Print "|---1--- |---4--- |---4---"
Locate 10, 31: Print "|------- |---6--- |---3---"
Locate 11, 31: Print "|------- |---4--- |-------"
Locate 12, 42: Color 7: Print "Ab9"
Do: Loop While InKey$ = ""
GoTo main
abm9:
chordbx
Color 12, 4
Locate 6, 31: Print "|---2--- |------- |-------"
Locate 7, 31: Print "|---0--- |---11-- |---7---"
Locate 8, 31: Print "|---3--- |---11-- |---8---"
Locate 9, 31: Print "|---1--- |---9--- |---8---"
Locate 10, 31: Print "|------- |---11-- |---x---"
Locate 11, 31: Print "|------- |------- |---7---"
Locate 12, 42: Color 7: Print "Abm9"
Do: Loop While InKey$ = ""
GoTo main
abmaj9:
chordbx
Color 12, 4
Locate 6, 31: Print "|---3--- |---3--- |---8---"
Locate 7, 31: Print "|---1--- |---4--- |---8---"
Locate 8, 31: Print "|---3--- |---3--- |---8---"
Locate 9, 31: Print "|---1--- |---6--- |---8---"
Locate 10, 31: Print "|------- |---3--- |---11--"
Locate 11, 31: Print "|------- |------- |-------"
Locate 12, 42: Color 7: Print "Abmaj9"
Do: Loop While InKey$ = ""
GoTo main
abadd9:
chordbx
Color 12, 4
Locate 6, 31: Print "|---4--- |---6--- |---11--"
Locate 7, 31: Print "|---1--- |---9--- |---11--"
Locate 8, 31: Print "|---3--- |---8--- |---13--"
Locate 9, 31: Print "|---1--- |---6--- |---13--"
Locate 10, 31: Print "|------- |------- |---11--"
Locate 11, 31: Print "|------- |------- |-------"
Locate 12, 42: Color 7: Print "Ab(add9)"
Do: Loop While InKey$ = ""
GoTo main
ab5:
chordbx
Color 12, 4
Locate 6, 31: Print "|------- |---4--- |-------"
Locate 7, 31: Print "|------- |---4--- |-------"
Locate 8, 31: Print "|------- |---1--- |---13--"
Locate 9, 31: Print "|---6--- |---1--- |---13--"
Locate 10, 31: Print "|---6--- |------- |---11--"
Locate 11, 31: Print "|---4--- |------- |-------"
Locate 12, 42: Color 7: Print "Ab5"
Do: Loop While InKey$ = ""
GoTo main
bflat:
chordbx
Color 12, 4
Locate 6, 31: Print "|---6--- |------- |---10--"
Locate 7, 31: Print "|---6--- |---3--- |---11--"
Locate 8, 31: Print "|---7--- |---3--- |---10--"
Locate 9, 31: Print "|---8--- |---3--- |---12--"
Locate 10, 31: Print "|---8--- |---1--- |-------"
Locate 11, 31: Print "|---6--- |------- |-------"
Locate 12, 42: Color 7: Print "B flat chord"
Do: Loop While InKey$ = ""
GoTo main
bbm:
chordbx
Color 12, 4
Locate 6, 31: Print "|---6--- |---1--- |---9---"
Locate 7, 31: Print "|---6--- |---2--- |---11--"
Locate 8, 31: Print "|---6--- |---3--- |---10--"
Locate 9, 31: Print "|---8--- |---3--- |---8---"
Locate 10, 31: Print "|---8--- |---1--- |-------"
Locate 11, 31: Print "|---6--- |------- |-------"
Locate 12, 42: Color 7: Print "Bbm"
Do: Loop While InKey$ = ""
GoTo main
bbsus4:
chordbx
Color 12, 4
Locate 6, 31: Print "|---6--- |------- |---6---"
Locate 7, 31: Print "|---6--- |---4--- |---4---"
Locate 8, 31: Print "|---8--- |---3--- |---3---"
Locate 9, 31: Print "|---8--- |---3--- |---3---"
Locate 10, 31: Print "|---6--- |---1--- |-------"
Locate 11, 31: Print "|---6--- |------- |-------"
Locate 12, 42: Color 7: Print "Bbsus4"
Do: Loop While InKey$ = ""
GoTo main
bb7:
chordbx
Color 12, 4
Locate 6, 31: Print "|---6--- |---1--- |---10--"
Locate 7, 31: Print "|---6--- |---3--- |---9---"
Locate 8, 31: Print "|---7--- |---1--- |---10--"
Locate 9, 31: Print "|---6--- |---3--- |---8---"
Locate 10, 31: Print "|---8--- |---1--- |-------"
Locate 11, 31: Print "|---6--- |------- |-------"
Locate 12, 42: Color 7: Print "Bb7"
Do: Loop While InKey$ = ""
GoTo main
bbmaj7:
chordbx
Color 12, 4
Locate 6, 31: Print "|---6--- |---1--- |-------"
Locate 7, 31: Print "|---6--- |---3--- |---10--"
Locate 8, 31: Print "|---7--- |---2--- |---10--"
Locate 9, 31: Print "|---7--- |---3--- |---8---"
Locate 10, 31: Print "|---8--- |---1--- |---x---"
Locate 11, 31: Print "|---6--- |------- |---10--"
Locate 12, 42: Color 7: Print "Bbmaj7"
Do: Loop While InKey$ = ""
GoTo main
bbm7:
chordbx
Color 12, 4
Locate 6, 31: Print "|---6--- |---1--- |-------"
Locate 7, 31: Print "|---6--- |---2--- |---11--"
Locate 8, 31: Print "|---6--- |---1--- |---10--"
Locate 9, 31: Print "|---6--- |---3--- |---11--"
Locate 10, 31: Print "|---8--- |---1--- |---11--"
Locate 11, 31: Print "|---6--- |------- |-------"
Locate 12, 42: Color 7: Print "Bbm7"
Do: Loop While InKey$ = ""
GoTo main
bbdim7:
chordbx
Color 12, 4
Locate 6, 31: Print "|---0--- |------- |---6---"
Locate 7, 31: Print "|---2--- |---5--- |---5---"
Locate 8, 31: Print "|---0--- |---6--- |---6---"
Locate 9, 31: Print "|---2--- |---5--- |---5---"
Locate 10, 31: Print "|---1--- |---x--- |-------"
Locate 11, 31: Print "|------- |---6--- |-------"
Locate 12, 42: Color 7: Print "Bbdim7"
Do: Loop While InKey$ = ""
GoTo main
bb11:
chordbx
Color 12, 4
Locate 6, 31: Print "|---6--- |---8--- |---1---"
Locate 7, 31: Print "|---6--- |---9--- |---1---"
Locate 8, 31: Print "|---8--- |---8--- |---1---"
Locate 9, 31: Print "|---6--- |---8--- |---1---"
Locate 10, 31: Print "|---8--- |---8--- |---1---"
Locate 11, 31: Print "|---6--- |------- |-------"
Locate 12, 42: Color 7: Print "Bb11"
Do: Loop While InKey$ = ""
GoTo main
bbmaj9:
chordbx
Color 12, 4
Locate 6, 31: Print "|------- |---5--- |-------"
Locate 7, 31: Print "|---1--- |---6--- |---6---"
Locate 8, 31: Print "|---2--- |---5--- |---7---"
Locate 9, 31: Print "|---0--- |---8--- |---7---"
Locate 10, 31: Print "|---1--- |---5--- |---x---"
Locate 11, 31: Print "|------- |------- |---8---"
Locate 12, 42: Color 7: Print "Bbmaj9"
Do: Loop While InKey$ = ""
GoTo main
bbadd9:
chordbx
Color 12, 4
Locate 6, 31: Print "|---1--- |---8--- |---6---"
Locate 7, 31: Print "|---1--- |---11-- |---6---"
Locate 8, 31: Print "|---3--- |---10-- |---5---"
Locate 9, 31: Print "|---3--- |---8--- |---x---"
Locate 10, 31: Print "|---1--- |---8--- |---5---"
Locate 11, 31: Print "|------- |------- |-------"
Locate 12, 42: Color 7: Print "Bb(add9)"
Do: Loop While InKey$ = ""
GoTo main
bb5:
chordbx
Color 12, 4
Locate 6, 31: Print "|------- |------- |---6---"
Locate 7, 31: Print "|------- |------- |---6---"
Locate 8, 31: Print "|---3--- |------- |---3---"
Locate 9, 31: Print "|---3--- |---8--- |---3---"
Locate 10, 31: Print "|---1--- |---8--- |-------"
Locate 11, 31: Print "|------- |---6--- |-------"
Locate 12, 42: Color 7: Print "Bb5"
Do: Loop While InKey$ = ""
GoTo main
dflat:
chordbx
Color 12, 4
Locate 6, 31: Print "|------- |---1--- |---4---"
Locate 7, 31: Print "|---6--- |---2--- |---2---"
Locate 8, 31: Print "|---6--- |---1--- |---1---"
Locate 9, 31: Print "|---6--- |---3--- |---3---"
Locate 10, 31: Print "|---4--- |------- |-------"
Locate 11, 31: Print "|------- |------- |-------"
Locate 12, 42: Color 7: Print "D flat chord"
Do: Loop While InKey$ = ""
GoTo main
dbm:
chordbx
Color 12, 4
Locate 6, 31: Print "|---4--- |---0--- |---4---"
Locate 7, 31: Print "|---5--- |---2--- |---2---"
Locate 8, 31: Print "|---6--- |---1--- |---1---"
Locate 9, 31: Print "|---6--- |---2--- |---2---"
Locate 10, 31: Print "|---4--- |------- |-------"
Locate 11, 31: Print "|------- |------- |-------"
Locate 12, 42: Color 7: Print "Dbm"
Do: Loop While InKey$ = ""
GoTo main
dbsus4:
chordbx
Color 12, 4
Locate 6, 31: Print "|------- |---9--- |---14--"
Locate 7, 31: Print "|---7--- |---9--- |---14--"
Locate 8, 31: Print "|---6--- |---11-- |---13--"
Locate 9, 31: Print "|---6--- |---11-- |---11--"
Locate 10, 31: Print "|---4--- |---9--- |-------"
Locate 11, 31: Print "|------- |---9--- |-------"
Locate 12, 42: Color 7: Print "Dbsus4"
Do: Loop While InKey$ = ""
GoTo main
dbm7:
chordbx
Color 12, 4
Locate 6, 31: Print "|---0--- |---4--- |-------"
Locate 7, 31: Print "|---0--- |---5--- |---2---"
Locate 8, 31: Print "|---1--- |---4--- |---1---"
Locate 9, 31: Print "|---2--- |---6--- |---2---"
Locate 10, 31: Print "|---4--- |---4--- |---2---"
Locate 11, 31: Print "|------- |------- |-------"
Locate 12, 42: Color 7: Print "Dbm7"
Do: Loop While InKey$ = ""
GoTo main
dbadd9:
chordbx
Color 12, 4
Locate 6, 31: Print "|---4--- |---11-- |---9---"
Locate 7, 31: Print "|---4--- |---9--- |---9---"
Locate 8, 31: Print "|---6--- |---10-- |---8---"
Locate 9, 31: Print "|---6--- |---11-- |---x---"
Locate 10, 31: Print "|---4--- |------- |---8---"
Locate 11, 31: Print "|------- |------- |-------"
Locate 12, 42: Color 7: Print "Db(add9)"
Do: Loop While InKey$ = ""
GoTo main
db5:
chordbx
Color 12, 4
Locate 6, 31: Print "|------- |------- |---9---"
Locate 7, 31: Print "|------- |------- |---9---"
Locate 8, 31: Print "|---6--- |------- |---6---"
Locate 9, 31: Print "|---6--- |---11-- |---6---"
Locate 10, 31: Print "|---4--- |---11-- |-------"
Locate 11, 31: Print "|------- |---9--- |-------"
Locate 12, 42: Color 7: Print "Db5"
Do: Loop While InKey$ = ""
GoTo main
eflat:
chordbx
Color 12, 4
Locate 6, 31: Print "|------- |---3--- |---11--"
Locate 7, 31: Print "|---8--- |---4--- |---8---"
Locate 8, 31: Print "|---8--- |---3--- |---8---"
Locate 9, 31: Print "|---8--- |---5--- |---8---"
Locate 10, 31: Print "|---6--- |---6--- |-------"
Locate 11, 31: Print "|------- |------- |-------"
Locate 12, 42: Color 7: Print "Eb Chord"
Do: Loop While InKey$ = ""
GoTo main
ebm:
chordbx
Color 12, 4
Locate 6, 31: Print "|---6--- |---2--- |-------"
Locate 7, 31: Print "|---7--- |---4--- |---4---"
Locate 8, 31: Print "|---8--- |---3--- |---3---"
Locate 9, 31: Print "|---8--- |---1--- |---4---"
Locate 10, 31: Print "|---6--- |------- |---x---"
Locate 11, 31: Print "|------- |------- |---2---"
Locate 12, 42: Color 7: Print "Ebm"
Do: Loop While InKey$ = ""
GoTo main
ebsus:
chordbx
Color 12, 4
Locate 6, 31: Print "|------- |---4--- |---11--"
Locate 7, 31: Print "|---9--- |---4--- |---11--"
Locate 8, 31: Print "|---8--- |---3--- |---13--"
Locate 9, 31: Print "|---8--- |---1--- |---13--"
Locate 10, 31: Print "|---6--- |------- |---11--"
Locate 11, 31: Print "|------- |------- |-------"
Locate 12, 42: Color 7: Print "Ebsus"
Do: Loop While InKey$ = ""
GoTo main
ebm7:
chordbx
Color 12, 4
Locate 6, 31: Print "|---6--- |---9--- |-------"
Locate 7, 31: Print "|---7--- |---7--- |-------"
Locate 8, 31: Print "|---6--- |---8--- |---6---"
Locate 9, 31: Print "|---8--- |---8--- |---4---"
Locate 10, 31: Print "|---6--- |------- |---6---"
Locate 11, 31: Print "|------- |------- |---6---"
Locate 12, 42: Color 7: Print "Ebm7"
Do: Loop While InKey$ = ""
GoTo main
ebmaj9:
chordbx
Color 12, 4
Locate 6, 31: Print "|---1--- |------- |---3---"
Locate 7, 31: Print "|---3--- |---6--- |---3---"
Locate 8, 31: Print "|---0--- |---7--- |---3---"
Locate 9, 31: Print "|---1--- |---5--- |---3---"
Locate 10, 31: Print "|------- |---6--- |---6---"
Locate 11, 31: Print "|------- |------- |-------"
Locate 12, 42: Color 7: Print "Ebmaj9"
Do: Loop While InKey$ = ""
GoTo main
ebadd9:
chordbx
Color 12, 4
Locate 6, 31: Print "|---6--- |---1--- |---11--"
Locate 7, 31: Print "|---6--- |---4--- |---11--"
Locate 8, 31: Print "|---8--- |---3--- |---10--"
Locate 9, 31: Print "|---8--- |---1--- |---x---"
Locate 10, 31: Print "|---6--- |------- |---10--"
Locate 11, 31: Print "|------- |------- |-------"
Locate 12, 42: Color 7: Print "Eb(add9)"
Do: Loop While InKey$ = ""
GoTo main
eb5:
chordbx
Color 12, 4
Locate 6, 31: Print "|------- |------- |---11--"
Locate 7, 31: Print "|------- |------- |---11--"
Locate 8, 31: Print "|---8--- |------- |---8---"
Locate 9, 31: Print "|---8--- |---13-- |---8---"
Locate 10, 31: Print "|---6--- |---13-- |-------"
Locate 11, 31: Print "|------- |---11-- |-------"
Locate 12, 42: Color 7: Print "Eb5"
Do: Loop While InKey$ = ""
GoTo main
fsharp:
chordbx
Color 12, 4
Locate 6, 31: Print "|---2--- |------- |---6---"
Locate 7, 31: Print "|---2--- |---11-- |---7---"
Locate 8, 31: Print "|---3--- |---11-- |---6---"
Locate 9, 31: Print "|---4--- |---11-- |---8---"
Locate 10, 31: Print "|---4--- |---9--- |-------"
Locate 11, 31: Print "|---2--- |------- |-------"
Locate 12, 42: Color 7: Print "F Sharp"
Do: Loop While InKey$ = ""
GoTo main
fsharpm:
chordbx
Color 12, 4
Locate 6, 31: Print "|---2--- |---9--- |---9---"
Locate 7, 31: Print "|---2--- |---10-- |---7---"
Locate 8, 31: Print "|---2--- |---11-- |---6---"
Locate 9, 31: Print "|---4--- |---11-- |---7---"
Locate 10, 31: Print "|---4--- |---9--- |-------"
Locate 11, 31: Print "|---2--- |------- |-------"
Locate 12, 42: Color 7: Print "F#m"
Do: Loop While InKey$ = ""
GoTo main
fsharpm9:
chordbx
Color 12, 4
Locate 6, 31: Print "|---2--- |---4--- |---9---"
Locate 7, 31: Print "|---2--- |---2--- |---9---"
Locate 8, 31: Print "|---1--- |---2--- |---9---"
Locate 9, 31: Print "|---2--- |---2--- |---7---"
Locate 10, 31: Print "|---0--- |---4--- |---9---"
Locate 11, 31: Print "|------- |---2--- |-------"
Locate 12, 42: Color 7: Print "F#m9"
Do: Loop While InKey$ = ""
GoTo main
fsharpadd9:
chordbx
Color 12, 4
Locate 6, 31: Print "|---4--- |---9--- |---4---"
Locate 7, 31: Print "|---2--- |---9--- |---7---"
Locate 8, 31: Print "|---3--- |---11-- |---6---"
Locate 9, 31: Print "|---4--- |---11-- |---4---"
Locate 10, 31: Print "|------- |---9--- |-------"
Locate 11, 31: Print "|------- |------- |-------"
Locate 12, 42: Color 7: Print "F#(add9)"
Do: Loop While InKey$ = ""
GoTo main
fsharp5:
chordbx
Color 12, 4
Locate 6, 31: Print "|------- |------- |-------"
Locate 7, 31: Print "|------- |------- |---7---"
Locate 8, 31: Print "|------- |---11-- |---6---"
Locate 9, 31: Print "|---4--- |---11-- |---4---"
Locate 10, 31: Print "|---4--- |---9--- |---4---"
Locate 11, 31: Print "|---2--- |------- |-------"
Locate 12, 42: Color 7: Print "F#5"
Do: Loop While InKey$ = ""
GoTo main
Sub chordbx
For cboxr = 5 To 12
For cboxc = 29 To 75
Locate cboxr, cboxc
Color 4: Print Chr$(219)
Next
Next
For boxshadr = 6 To 13
Locate boxshadr, 76
Color 0: Print Chr$(219)
Next boxshadr
For boxshadc = 30 To 76
Locate 13, boxshadc
Print Chr$(219)
Next boxshadc
End Sub