Post by aaron1982 on Jun 15, 2024 6:53:35 GMT
Here's a Guitar Tablature notation program that allows you to make small text files of your own music, kinda pointless when you can just use blank sheet music. But oh well.
Rem Micro Guitar Tab by Aaron W. Miles
Rem v2.0
f$ = Chr$(219)
line1$ = String$(80, "-")
line2$ = String$(80, "-")
line3$ = String$(80, "-")
line4$ = String$(80, "-")
line5$ = String$(80, "-")
line6$ = String$(80, "-")
line7$ = String$(80, "-")
line8$ = String$(80, "-")
line9$ = String$(80, "-")
line10$ = String$(80, "-")
line11$ = String$(80, "-")
line12$ = String$(80, "-")
line13$ = String$(80, "-")
line14$ = String$(80, "-")
line15$ = String$(80, "-")
line16$ = String$(80, "-")
line17$ = String$(80, "-")
line18$ = String$(80, "-")
line1b$ = String$(80, "-")
line2b$ = String$(80, "-")
line3b$ = String$(80, "-")
line4b$ = String$(80, "-")
line5b$ = String$(80, "-")
line6b$ = String$(80, "-")
line7b$ = String$(80, "-")
line8b$ = String$(80, "-")
line9b$ = String$(80, "-")
line10b$ = String$(80, "-")
line11b$ = String$(80, "-")
line12b$ = String$(80, "-")
line13b$ = String$(80, "-")
line14b$ = String$(80, "-")
line15b$ = String$(80, "-")
line16b$ = String$(80, "-")
line17b$ = String$(80, "-")
line18b$ = String$(80, "-")
Screen 0
rdraw:
Cls
Color 14, 1: Cls
Locate 1, 1: Color 3: Print String$(80, f$)
Locate 1, 2: Color 8, 3: Print "MICRO GUITAR TAB 2.0"
Locate 1, 36: Color 14: Print "(PAGE 1/2)"
Locate 1, 52: Color 11, 3: Print "K = Key Legend"
Locate 1, 70: Color 4, 3: Print "Esc = Exit"
Color 11, 1
Locate 3, 1: Print line1$
Locate 4, 1: Print line2$
Locate 5, 1: Print line3$
Locate 6, 1: Print line4$
Locate 7, 1: Print line5$
Locate 8, 1: Print line6$
Locate 10, 1: Print line7$
Locate 11, 1: Print line8$
Locate 12, 1: Print line9$
Locate 13, 1: Print line10$
Locate 14, 1: Print line11$
Locate 15, 1: Print line12$
Locate 17, 1: Print line13$
Locate 18, 1: Print line14$
Locate 19, 1: Print line15$
Locate 20, 1: Print line16$
Locate 21, 1: Print line17$
Locate 22, 1: Print line18$
Locate 23, 34: Color 7, 1: Print Chr$(176)
Locate 23, 35: Print Chr$(177)
Locate 23, 36: Print Chr$(178)
Locate 23, 37: Color 1, 7: Print "FREEWARE"
Locate 23, 45: Color 7, 1: Print Chr$(178)
Locate 23, 46: Print Chr$(177)
Locate 23, 47: Print Chr$(176)
Color 11, 1
Let x = 3 'row variable start at row 3, 1st string
Let y = 1 'column variable
Do
a$ = LCase$(InKey$)
If a$ = "k" Then
For hboxr = 4 To 15
For hboxc = 25 To 66
Locate hboxr, hboxc
Color 3
Print Chr$(219)
Next
Next
For bshad = 27 To 67
Color 0
Locate 16, bshad
Print Chr$(219)
Next bshad
For rshad = 5 To 15
Color 0
Locate rshad, 67
Print Chr$(219)
Next rshad
Locate 5, 28
Color 8, 3: Print "Esc = Close menu W = up"
Locate 6, 28: Print "H = hammer on S = down"
Locate 7, 28: Print "P = pull off A = left"
Locate 8, 28: Print "B = bend note D = right"
Locate 9, 28: Print "/ = slide up V = vibrato"
Locate 10, 28: Print "E = erase \ = slide down"
Locate 11, 28: Print "X = x mark * = harmonic"
Locate 12, 28: Print "R = release bend T = tap"
Locate 14, 28: Print "Page Up/Down = page 1, page 2"
Locate 3, 3
Do
Loop Until InKey$ = Chr$(27)
GoTo rdraw
ElseIf a$ = Chr$(0) + "q" Then 'page down
GoTo pagetwo
ElseIf a$ = Chr$(0) + "i" Then 'page up
GoTo rdraw
End If
If x = 3 Then '1st line
Select Case a$
'CASE CHR$(0) + "h" 'up
Case "w" 'up
Let x = x - 1
'CASE CHR$(0) + "m" 'right
Case "d" 'right
Let y = y + 1
'CASE CHR$(0) + "k" 'left
Case "a" 'left
Let y = y - 1
'CASE CHR$(0) + "p" 'down
Case "s" 'down
Let x = x + 1
Case "1"
Print "1"
Mid$(line1$, y, 1) = "1"
Case "0"
Print "0"
Mid$(line1$, y, 1) = "0"
Case "2"
Print "2"
Mid$(line1$, y, 1) = "2"
Case "3"
Print "3"
Mid$(line1$, y, 1) = "3"
Case "4"
Print "4"
Mid$(line1$, y, 1) = "4"
Case "5"
Print "5"
Mid$(line1$, y, 1) = "5"
Case "6"
Print "6"
Mid$(line1$, y, 1) = "6"
Case "7"
Print "7"
Mid$(line1$, y, 1) = "7"
Case "8"
Print "8"
Mid$(line1$, y, 1) = "8"
Case "9"
Print "9"
Mid$(line1$, y, 1) = "9"
Case "e"
Print "-"
Mid$(line1$, y, 1) = "-"
Case "/"
Print "/"
Mid$(line1$, y, 1) = "/"
Case "v"
Print "v"
Mid$(line1$, y, 1) = "v"
Case "b"
Print "b"
Mid$(line1$, y, 1) = "b"
Case "r"
Print "r"
Mid$(line1$, y, 1) = "r"
Case "t"
Print "T"
Mid$(line1$, y, 1) = "T"
Case "\"
Print "\"
Mid$(line1$, y, 1) = "\"
Case "h"
Print "h"
Mid$(line1$, y, 1) = "h"
Case "x"
Print "x"
Mid$(line1$, y, 1) = "X"
Case "*"
Print "*"
Mid$(line1$, y, 1) = "*"
Case "p"
Print "p"
Mid$(line1$, y, 1) = "p"
End Select
ElseIf x = 4 Then '2nd line
Select Case a$
'CASE CHR$(0) + "h" 'up
Case "w" 'up
Let x = x - 1
'CASE CHR$(0) + "m" 'right
Case "d" 'right
Let y = y + 1
'CASE CHR$(0) + "k" 'left
Case "a" 'left
Let y = y - 1
'CASE CHR$(0) + "p" 'down
Case "s" 'down
Let x = x + 1
Case "1"
Print "1"
Mid$(line2$, y, 1) = "1"
Case "0"
Print "0"
Mid$(line2$, y, 1) = "0"
Case "2"
Print "2"
Mid$(line2$, y, 1) = "2"
Case "3"
Print "3"
Mid$(line2$, y, 1) = "3"
Case "4"
Print "4"
Mid$(line2$, y, 1) = "4"
Case "5"
Print "5"
Mid$(line2$, y, 1) = "5"
Case "6"
Print "6"
Mid$(line2$, y, 1) = "6"
Case "7"
Print "7"
Mid$(line2$, y, 1) = "7"
Case "8"
Print "8"
Mid$(line2$, y, 1) = "8"
Case "9"
Print "9"
Mid$(line2$, y, 1) = "9"
Case "e"
Print "-"
Mid$(line2$, y, 1) = "-"
Case "v"
Print "v"
Mid$(line2$, y, 1) = "v"
Case "/"
Print "/"
Mid$(line2$, y, 1) = "/"
Case "b"
Print "b"
Mid$(line2$, y, 1) = "b"
Case "r"
Print "r"
Mid$(line2$, y, 1) = "r"
Case "t"
Print "T"
Mid$(line2$, y, 1) = "T"
Case "\"
Print "\"
Mid$(line2$, y, 1) = "\"
Case "h"
Print "h"
Mid$(line2$, y, 1) = "h"
Case "x"
Print "x"
Mid$(line2$, y, 1) = "X"
Case "*"
Print "*"
Mid$(line2$, y, 1) = "*"
Case "p"
Print "p"
Mid$(line2$, y, 1) = "p"
End Select
ElseIf x = 5 Then '3rd line
Select Case a$
'CASE CHR$(0) + "h" 'up
Case "w" 'up
Let x = x - 1
'CASE CHR$(0) + "m" 'right
Case "d" 'right
Let y = y + 1
'CASE CHR$(0) + "k" 'left
Case "a" 'left
Let y = y - 1
'CASE CHR$(0) + "p" 'down
Case "s" 'down
Let x = x + 1
Case "1"
Print "1"
Mid$(line3$, y, 1) = "1"
Case "0"
Print "0"
Mid$(line3$, y, 1) = "0"
Case "2"
Print "2"
Mid$(line3$, y, 1) = "2"
Case "3"
Print "3"
Mid$(line3$, y, 1) = "3"
Case "4"
Print "4"
Mid$(line3$, y, 1) = "4"
Case "5"
Print "5"
Mid$(line3$, y, 1) = "5"
Case "6"
Print "6"
Mid$(line3$, y, 1) = "6"
Case "7"
Print "7"
Mid$(line3$, y, 1) = "7"
Case "8"
Print "8"
Mid$(line3$, y, 1) = "8"
Case "9"
Print "9"
Mid$(line3$, y, 1) = "9"
Case "e"
Print "-"
Mid$(line3$, y, 1) = "-"
Case "/"
Print "/"
Mid$(line3$, y, 1) = "/"
Case "v"
Print "v"
Mid$(line3$, y, 1) = "v"
Case "b"
Print "b"
Mid$(line3$, y, 1) = "b"
Case "r"
Print "r"
Mid$(line3$, y, 1) = "r"
Case "t"
Print "T"
Mid$(line3$, y, 1) = "T"
Case "\"
Print "\"
Mid$(line3$, y, 1) = "\"
Case "h"
Print "h"
Mid$(line3$, y, 1) = "h"
Case "x"
Print "x"
Mid$(line3$, y, 1) = "X"
Case "*"
Print "*"
Mid$(line3$, y, 1) = "*"
Case "p"
Print "p"
Mid$(line3$, y, 1) = "p"
End Select
ElseIf x = 6 Then '4th line
Select Case a$
'CASE CHR$(0) + "h" 'up
Case "w" 'up
Let x = x - 1
'CASE CHR$(0) + "m" 'right
Case "d" 'right
Let y = y + 1
'CASE CHR$(0) + "k" 'left
Case "a" 'left
Let y = y - 1
'CASE CHR$(0) + "p" 'down
Case "s" 'down
Let x = x + 1
Case "1"
Print "1"
Mid$(line4$, y, 1) = "1"
Case "0"
Print "0"
Mid$(line4$, y, 1) = "0"
Case "2"
Print "2"
Mid$(line4$, y, 1) = "2"
Case "3"
Print "3"
Mid$(line4$, y, 1) = "3"
Case "4"
Print "4"
Mid$(line4$, y, 1) = "4"
Case "5"
Print "5"
Mid$(line4$, y, 1) = "5"
Case "6"
Print "6"
Mid$(line4$, y, 1) = "6"
Case "7"
Print "7"
Mid$(line4$, y, 1) = "7"
Case "8"
Print "8"
Mid$(line4$, y, 1) = "8"
Case "9"
Print "9"
Mid$(line4$, y, 1) = "9"
Case "e"
Print "-"
Mid$(line4$, y, 1) = "-"
Case "v"
Print "v"
Mid$(line4$, y, 1) = "v"
Case "/"
Print "/"
Mid$(line4$, y, 1) = "/"
Case "b"
Print "b"
Mid$(line4$, y, 1) = "b"
Case "r"
Print "r"
Mid$(line4$, y, 1) = "r"
Case "t"
Print "T"
Mid$(line4$, y, 1) = "T"
Case "\"
Print "\"
Mid$(line4$, y, 1) = "\"
Case "h"
Print "h"
Mid$(line4$, y, 1) = "h"
Case "x"
Print "x"
Mid$(line4$, y, 1) = "X"
Case "*"
Print "*"
Mid$(line4$, y, 1) = "*"
Case "p"
Print "p"
Mid$(line4$, y, 1) = "p"
End Select
ElseIf x = 7 Then 'line 5
Select Case a$
'CASE CHR$(0) + "h" 'up
Case "w" 'up
Let x = x - 1
'CASE CHR$(0) + "m" 'right
Case "d" 'right
Let y = y + 1
'CASE CHR$(0) + "k" 'left
Case "a" 'left
Let y = y - 1
'CASE CHR$(0) + "p" 'down
Case "s" 'down
Let x = x + 1
Case "1"
Print "1"
Mid$(line5$, y, 1) = "1"
Case "0"
Print "0"
Mid$(line5$, y, 1) = "0"
Case "2"
Print "2"
Mid$(line5$, y, 1) = "2"
Case "3"
Print "3"
Mid$(line5$, y, 1) = "3"
Case "4"
Print "4"
Mid$(line5$, y, 1) = "4"
Case "5"
Print "5"
Mid$(line5$, y, 1) = "5"
Case "6"
Print "6"
Mid$(line5$, y, 1) = "6"
Case "7"
Print "7"
Mid$(line5$, y, 1) = "7"
Case "8"
Print "8"
Mid$(line5$, y, 1) = "8"
Case "9"
Print "9"
Mid$(line5$, y, 1) = "9"
Case "e"
Print "-"
Mid$(line5$, y, 1) = "-"
Case "/"
Print "/"
Mid$(line5$, y, 1) = "/"
Case "v"
Print "v"
Mid$(line5$, y, 1) = "v"
Case "b"
Print "b"
Mid$(line5$, y, 1) = "b"
Case "r"
Print "r"
Mid$(line5$, y, 1) = "r"
Case "t"
Print "T"
Mid$(line5$, y, 1) = "T"
Case "\"
Print "\"
Mid$(line5$, y, 1) = "\"
Case "h"
Print "h"
Mid$(line5$, y, 1) = "h"
Case "x"
Print "x"
Mid$(line5$, y, 1) = "X"
Case "*"
Print "*"
Mid$(line5$, y, 1) = "*"
Case "p"
Print "p"
Mid$(line5$, y, 1) = "p"
End Select
ElseIf x = 8 Then 'line 6
Select Case a$
'CASE CHR$(0) + "h" 'up
Case "w" 'up
Let x = x - 1
'CASE CHR$(0) + "m" 'right
Case "d" 'right
Let y = y + 1
'CASE CHR$(0) + "k" 'left
Case "a" 'left
Let y = y - 1
'CASE CHR$(0) + "p" 'down
Case "s" 'down
Let x = x + 1
Case "1"
Print "1"
Mid$(line6$, y, 1) = "1"
Case "0"
Print "0"
Mid$(line6$, y, 1) = "0"
Case "2"
Print "2"
Mid$(line6$, y, 1) = "2"
Case "3"
Print "3"
Mid$(line6$, y, 1) = "3"
Case "4"
Print "4"
Mid$(line6$, y, 1) = "4"
Case "5"
Print "5"
Mid$(line6$, y, 1) = "5"
Case "6"
Print "6"
Mid$(line6$, y, 1) = "6"
Case "7"
Print "7"
Mid$(line6$, y, 1) = "7"
Case "8"
Print "8"
Mid$(line6$, y, 1) = "8"
Case "9"
Print "9"
Mid$(line6$, y, 1) = "9"
Case "e"
Print "-"
Mid$(line6$, y, 1) = "-"
Case "v"
Print "v"
Mid$(line6$, y, 1) = "v"
Case "/"
Print "/"
Mid$(line6$, y, 1) = "/"
Case "b"
Print "b"
Mid$(line6$, y, 1) = "b"
Case "r"
Print "r"
Mid$(line6$, y, 1) = "r"
Case "t"
Print "T"
Mid$(line6$, y, 1) = "T"
Case "\"
Print "\"
Mid$(line6$, y, 1) = "\"
Case "h"
Print "h"
Mid$(line6$, y, 1) = "h"
Case "x"
Print "x"
Mid$(line6$, y, 1) = "X"
Case "*"
Print "*"
Mid$(line6$, y, 1) = "*"
Case "p"
Print "p"
Mid$(line6$, y, 1) = "p"
End Select
ElseIf x = 9 Then 'gap spot 1
Select Case a$
'CASE CHR$(0) + "h" 'up
Case "w" 'up
Let x = x - 1
'CASE CHR$(0) + "m" 'right
Case "d" 'right
Let y = y + 1
'CASE CHR$(0) + "k" 'left
Case "a" 'left
Let y = y - 1
'CASE CHR$(0) + "p" 'down
Case "s" 'down
Let x = x + 1
End Select
ElseIf x = 10 Then 'line 7
Select Case a$
'CASE CHR$(0) + "h" 'up
Case "w" 'up
Let x = x - 1
'CASE CHR$(0) + "m" 'right
Case "d" 'right
Let y = y + 1
'CASE CHR$(0) + "k" 'left
Case "a" 'left
Let y = y - 1
'CASE CHR$(0) + "p" 'down
Case "s" 'down
Let x = x + 1
Case "1"
Print "1"
Mid$(line7$, y, 1) = "1"
Case "0"
Print "0"
Mid$(line7$, y, 1) = "0"
Case "2"
Print "2"
Mid$(line7$, y, 1) = "2"
Case "3"
Print "3"
Mid$(line7$, y, 1) = "3"
Case "4"
Print "4"
Mid$(line7$, y, 1) = "4"
Case "5"
Print "5"
Mid$(line7$, y, 1) = "5"
Case "6"
Print "6"
Mid$(line7$, y, 1) = "6"
Case "7"
Print "7"
Mid$(line7$, y, 1) = "7"
Case "8"
Print "8"
Mid$(line7$, y, 1) = "8"
Case "9"
Print "9"
Mid$(line7$, y, 1) = "9"
Case "e"
Print "-"
Mid$(line7$, y, 1) = "-"
Case "v"
Print "v"
Mid$(line7$, y, 1) = "v"
Case "/"
Print "/"
Mid$(line7$, y, 1) = "/"
Case "b"
Print "b"
Mid$(line7$, y, 1) = "b"
Case "r"
Print "r"
Mid$(line7$, y, 1) = "r"
Case "t"
Print "T"
Mid$(line7$, y, 1) = "T"
Case "\"
Print "\"
Mid$(line7$, y, 1) = "\"
Case "h"
Print "h"
Mid$(line7$, y, 1) = "h"
Case "x"
Print "x"
Mid$(line7$, y, 1) = "X"
Case "*"
Print "*"
Mid$(line7$, y, 1) = "*"
Case "p"
Print "p"
Mid$(line7$, y, 1) = "p"
End Select
ElseIf x = 11 Then 'line 8
Select Case a$
'CASE CHR$(0) + "h" 'up
Case "w" 'up
Let x = x - 1
'CASE CHR$(0) + "m" 'right
Case "d" 'right
Let y = y + 1
'CASE CHR$(0) + "k" 'left
Case "a" 'left
Let y = y - 1
'CASE CHR$(0) + "p" 'down
Case "s" 'down
Let x = x + 1
Case "1"
Print "1"
Mid$(line8$, y, 1) = "1"
Case "0"
Print "0"
Mid$(line8$, y, 1) = "0"
Case "2"
Print "2"
Mid$(line8$, y, 1) = "2"
Case "3"
Print "3"
Mid$(line8$, y, 1) = "3"
Case "4"
Print "4"
Mid$(line8$, y, 1) = "4"
Case "5"
Print "5"
Mid$(line8$, y, 1) = "5"
Case "6"
Print "6"
Mid$(line8$, y, 1) = "6"
Case "7"
Print "7"
Mid$(line8$, y, 1) = "7"
Case "8"
Print "8"
Mid$(line8$, y, 1) = "8"
Case "9"
Print "9"
Mid$(line8$, y, 1) = "9"
Case "e"
Print "-"
Mid$(line8$, y, 1) = "-"
Case "v"
Print "v"
Mid$(line8$, y, 1) = "v"
Case "/"
Print "/"
Mid$(line8$, y, 1) = "/"
Case "b"
Print "b"
Mid$(line8$, y, 1) = "b"
Case "r"
Print "r"
Mid$(line8$, y, 1) = "r"
Case "t"
Print "T"
Mid$(line8$, y, 1) = "T"
Case "\"
Print "\"
Mid$(line8$, y, 1) = "\"
Case "h"
Print "h"
Mid$(line8$, y, 1) = "h"
Case "x"
Print "x"
Mid$(line8$, y, 1) = "X"
Case "*"
Print "*"
Mid$(line8$, y, 1) = "*"
Case "p"
Print "p"
Mid$(line8$, y, 1) = "p"
End Select
ElseIf x = 12 Then 'line 9
Select Case a$
'CASE CHR$(0) + "h" 'up
Case "w" 'up
Let x = x - 1
'CASE CHR$(0) + "m" 'right
Case "d" 'right
Let y = y + 1
'CASE CHR$(0) + "k" 'left
Case "a" 'left
Let y = y - 1
'CASE CHR$(0) + "p" 'down
Case "s" 'down
Let x = x + 1
Case "1"
Print "1"
Mid$(line9$, y, 1) = "1"
Case "0"
Print "0"
Mid$(line9$, y, 1) = "0"
Case "2"
Print "2"
Mid$(line9$, y, 1) = "2"
Case "3"
Print "3"
Mid$(line9$, y, 1) = "3"
Case "4"
Print "4"
Mid$(line9$, y, 1) = "4"
Case "5"
Print "5"
Mid$(line9$, y, 1) = "5"
Case "6"
Print "6"
Mid$(line9$, y, 1) = "6"
Case "7"
Print "7"
Mid$(line9$, y, 1) = "7"
Case "8"
Print "8"
Mid$(line9$, y, 1) = "8"
Case "9"
Print "9"
Mid$(line9$, y, 1) = "9"
Case "e"
Print "-"
Mid$(line9$, y, 1) = "-"
Case "v"
Print "v"
Mid$(line9$, y, 1) = "v"
Case "/"
Print "/"
Mid$(line9$, y, 1) = "/"
Case "b"
Print "b"
Mid$(line9$, y, 1) = "b"
Case "r"
Print "r"
Mid$(line9$, y, 1) = "r"
Case "t"
Print "T"
Mid$(line9$, y, 1) = "T"
Case "\"
Print "\"
Mid$(line9$, y, 1) = "\"
Case "h"
Print "h"
Mid$(line9$, y, 1) = "h"
Case "x"
Print "x"
Mid$(line9$, y, 1) = "X"
Case "*"
Print "*"
Mid$(line9$, y, 1) = "*"
Case "p"
Print "p"
Mid$(line9$, y, 1) = "p"
End Select
ElseIf x = 13 Then 'line 10
Select Case a$
'CASE CHR$(0) + "h" 'up
Case "w" 'up
Let x = x - 1
'CASE CHR$(0) + "m" 'right
Case "d" 'right
Let y = y + 1
'CASE CHR$(0) + "k" 'left
Case "a" 'left
Let y = y - 1
'CASE CHR$(0) + "p" 'down
Case "s" 'down
Let x = x + 1
Case "1"
Print "1"
Mid$(line10$, y, 1) = "1"
Case "0"
Print "0"
Mid$(line10$, y, 1) = "0"
Case "2"
Print "2"
Mid$(line10$, y, 1) = "2"
Case "3"
Print "3"
Mid$(line10$, y, 1) = "3"
Case "4"
Print "4"
Mid$(line10$, y, 1) = "4"
Case "5"
Print "5"
Mid$(line10$, y, 1) = "5"
Case "6"
Print "6"
Mid$(line10$, y, 1) = "6"
Case "7"
Print "7"
Mid$(line10$, y, 1) = "7"
Case "8"
Print "8"
Mid$(line10$, y, 1) = "8"
Case "9"
Print "9"
Mid$(line10$, y, 1) = "9"
Case "e"
Print "-"
Mid$(line10$, y, 1) = "-"
Case "v"
Print "v"
Mid$(line10$, y, 1) = "v"
Case "/"
Print "/"
Mid$(line10$, y, 1) = "/"
Case "b"
Print "b"
Mid$(line10$, y, 1) = "b"
Case "r"
Print "r"
Mid$(line10$, y, 1) = "r"
Case "t"
Print "T"
Mid$(line10$, y, 1) = "T"
Case "\"
Print "\"
Mid$(line10$, y, 1) = "\"
Case "h"
Print "h"
Mid$(line10$, y, 1) = "h"
Case "x"
Print "x"
Mid$(line10$, y, 1) = "X"
Case "*"
Print "*"
Mid$(line10$, y, 1) = "*"
Case "p"
Print "p"
Mid$(line10$, y, 1) = "p"
End Select
ElseIf x = 14 Then 'line 11
Select Case a$
'CASE CHR$(0) + "h" 'up
Case "w" 'up
Let x = x - 1
'CASE CHR$(0) + "m" 'right
Case "d" 'right
Let y = y + 1
'CASE CHR$(0) + "k" 'left
Case "a" 'left
Let y = y - 1
'CASE CHR$(0) + "p" 'down
Case "s" 'down
Let x = x + 1
Case "1"
Print "1"
Mid$(line11$, y, 1) = "1"
Case "0"
Print "0"
Mid$(line11$, y, 1) = "0"
Case "2"
Print "2"
Mid$(line11$, y, 1) = "2"
Case "3"
Print "3"
Mid$(line11$, y, 1) = "3"
Case "4"
Print "4"
Mid$(line11$, y, 1) = "4"
Case "5"
Print "5"
Mid$(line11$, y, 1) = "5"
Case "6"
Print "6"
Mid$(line11$, y, 1) = "6"
Case "7"
Print "7"
Mid$(line11$, y, 1) = "7"
Case "8"
Print "8"
Mid$(line11$, y, 1) = "8"
Case "9"
Print "9"
Mid$(line11$, y, 1) = "9"
Case "e"
Print "-"
Mid$(line11$, y, 1) = "-"
Case "v"
Print "v"
Mid$(line11$, y, 1) = "v"
Case "/"
Print "/"
Mid$(line11$, y, 1) = "/"
Case "b"
Print "b"
Mid$(line11$, y, 1) = "b"
Case "r"
Print "r"
Mid$(line11$, y, 1) = "r"
Case "t"
Print "T"
Mid$(line11$, y, 1) = "T"
Case "\"
Print "\"
Mid$(line11$, y, 1) = "\"
Case "h"
Print "h"
Mid$(line11$, y, 1) = "h"
Case "x"
Print "x"
Mid$(line11$, y, 1) = "X"
Case "*"
Print "*"
Mid$(line11$, y, 1) = "*"
Case "p"
Print "p"
Mid$(line11$, y, 1) = "p"
End Select
ElseIf x = 15 Then 'line 12
Select Case a$
'CASE CHR$(0) + "h" 'up
Case "w" 'up
Let x = x - 1
'CASE CHR$(0) + "m" 'right
Case "d" 'right
Let y = y + 1
'CASE CHR$(0) + "k" 'left
Case "a" 'left
Let y = y - 1
'CASE CHR$(0) + "p" 'down
Case "s" 'down
Let x = x + 1
Case "1"
Print "1"
Mid$(line12$, y, 1) = "1"
Case "0"
Print "0"
Mid$(line12$, y, 1) = "0"
Case "2"
Print "2"
Mid$(line12$, y, 1) = "2"
Case "3"
Print "3"
Mid$(line12$, y, 1) = "3"
Case "4"
Print "4"
Mid$(line12$, y, 1) = "4"
Case "5"
Print "5"
Mid$(line12$, y, 1) = "5"
Case "6"
Print "6"
Mid$(line12$, y, 1) = "6"
Case "7"
Print "7"
Mid$(line12$, y, 1) = "7"
Case "8"
Print "8"
Mid$(line12$, y, 1) = "8"
Case "9"
Print "9"
Mid$(line12$, y, 1) = "9"
Case "e"
Print "-"
Mid$(line12$, y, 1) = "-"
Case "v"
Print "v"
Mid$(line12$, y, 1) = "v"
Case "/"
Print "/"
Mid$(line12$, y, 1) = "/"
Case "b"
Print "b"
Mid$(line12$, y, 1) = "b"
Case "r"
Print "r"
Mid$(line12$, y, 1) = "r"
Case "t"
Print "T"
Mid$(line12$, y, 1) = "T"
Case "\"
Print "\"
Mid$(line12$, y, 1) = "\"
Case "h"
Print "h"
Mid$(line12$, y, 1) = "h"
Case "x"
Print "x"
Mid$(line12$, y, 1) = "X"
Case "*"
Print "*"
Mid$(line12$, y, 1) = "*"
Case "p"
Print "p"
Mid$(line12$, y, 1) = "p"
End Select
ElseIf x = 16 Then 'gap spot
Select Case a$
'CASE CHR$(0) + "h" 'up
Case "w" 'up
Let x = x - 1
'CASE CHR$(0) + "m" 'right
Case "d" 'right
Let y = y + 1
'CASE CHR$(0) + "k" 'left
Case "a" 'left
Let y = y - 1
'CASE CHR$(0) + "p" 'down
Case "s" 'down
Let x = x + 1
End Select
ElseIf x = 17 Then 'line 13
Select Case a$
'CASE CHR$(0) + "h" 'up
Case "w" 'up
Let x = x - 1
'CASE CHR$(0) + "m" 'right
Case "d" 'right
Let y = y + 1
'CASE CHR$(0) + "k" 'left
Case "a" 'left
Let y = y - 1
'CASE CHR$(0) + "p" 'down
Case "s" 'down
Let x = x + 1
Case "1"
Print "1"
Mid$(line13$, y, 1) = "1"
Case "0"
Print "0"
Mid$(line13$, y, 1) = "0"
Case "2"
Print "2"
Mid$(line13$, y, 1) = "2"
Case "3"
Print "3"
Mid$(line13$, y, 1) = "3"
Case "4"
Print "4"
Mid$(line13$, y, 1) = "4"
Case "5"
Print "5"
Mid$(line13$, y, 1) = "5"
Case "6"
Print "6"
Mid$(line13$, y, 1) = "6"
Case "7"
Print "7"
Mid$(line13$, y, 1) = "7"
Case "8"
Print "8"
Mid$(line13$, y, 1) = "8"
Case "9"
Print "9"
Mid$(line13$, y, 1) = "9"
Case "e"
Print "-"
Mid$(line13$, y, 1) = "-"
Case "v"
Print "v"
Mid$(line13$, y, 1) = "v"
Case "/"
Print "/"
Mid$(line13$, y, 1) = "/"
Case "b"
Print "b"
Mid$(line13$, y, 1) = "b"
Case "r"
Print "r"
Mid$(line13$, y, 1) = "r"
Case "t"
Print "T"
Mid$(line13$, y, 1) = "T"
Case "\"
Print "\"
Mid$(line13$, y, 1) = "\"
Case "h"
Print "h"
Mid$(line13$, y, 1) = "h"
Case "x"
Print "x"
Mid$(line13$, y, 1) = "X"
Case "*"
Print "*"
Mid$(line13$, y, 1) = "*"
Case "p"
Print "p"
Mid$(line13$, y, 1) = "p"
End Select
ElseIf x = 18 Then 'line 14
Select Case a$
'CASE CHR$(0) + "h" 'up
Case "w" 'up
Let x = x - 1
'CASE CHR$(0) + "m" 'right
Case "d" 'right
Let y = y + 1
'CASE CHR$(0) + "k" 'left
Case "a" 'left
Let y = y - 1
'CASE CHR$(0) + "p" 'down
Case "s" 'down
Let x = x + 1
Case "1"
Print "1"
Mid$(line14$, y, 1) = "1"
Case "0"
Print "0"
Mid$(line14$, y, 1) = "0"
Case "2"
Print "2"
Mid$(line14$, y, 1) = "2"
Case "3"
Print "3"
Mid$(line14$, y, 1) = "3"
Case "4"
Print "4"
Mid$(line14$, y, 1) = "4"
Case "5"
Print "5"
Mid$(line14$, y, 1) = "5"
Case "6"
Print "6"
Mid$(line14$, y, 1) = "6"
Case "7"
Print "7"
Mid$(line14$, y, 1) = "7"
Case "8"
Print "8"
Mid$(line14$, y, 1) = "8"
Case "9"
Print "9"
Mid$(line14$, y, 1) = "9"
Case "e"
Print "-"
Mid$(line14$, y, 1) = "-"
Case "v"
Print "v"
Mid$(line14$, y, 1) = "v"
Case "/"
Print "/"
Mid$(line14$, y, 1) = "/"
Case "b"
Print "b"
Mid$(line14$, y, 1) = "b"
Case "r"
Print "r"
Mid$(line14$, y, 1) = "r"
Case "t"
Print "T"
Mid$(line14$, y, 1) = "T"
Case "\"
Print "\"
Mid$(line14$, y, 1) = "\"
Case "h"
Print "h"
Mid$(line14$, y, 1) = "h"
Case "x"
Print "x"
Mid$(line14$, y, 1) = "X"
Case "*"
Print "*"
Mid$(line14$, y, 1) = "*"
Case "p"
Print "p"
Mid$(line14$, y, 1) = "p"
End Select
ElseIf x = 19 Then 'line 15
Select Case a$
'CASE CHR$(0) + "h" 'up
Case "w" 'up
Let x = x - 1
'CASE CHR$(0) + "m" 'right
Case "d" 'right
Let y = y + 1
'CASE CHR$(0) + "k" 'left
Case "a" 'left
Let y = y - 1
'CASE CHR$(0) + "p" 'down
Case "s" 'down
Let x = x + 1
Case "1"
Print "1"
Mid$(line15$, y, 1) = "1"
Case "0"
Print "0"
Mid$(line15$, y, 1) = "0"
Case "2"
Print "2"
Mid$(line15$, y, 1) = "2"
Case "3"
Print "3"
Mid$(line15$, y, 1) = "3"
Case "4"
Print "4"
Mid$(line15$, y, 1) = "4"
Case "5"
Print "5"
Mid$(line15$, y, 1) = "5"
Case "6"
Print "6"
Mid$(line15$, y, 1) = "6"
Case "7"
Print "7"
Mid$(line15$, y, 1) = "7"
Case "8"
Print "8"
Mid$(line15$, y, 1) = "8"
Case "9"
Print "9"
Mid$(line15$, y, 1) = "9"
Case "e"
Print "-"
Mid$(line15$, y, 1) = "-"
Case "v"
Print "v"
Mid$(line15$, y, 1) = "v"
Case "/"
Print "/"
Mid$(line15$, y, 1) = "/"
Case "b"
Print "b"
Mid$(line15$, y, 1) = "b"
Case "r"
Print "r"
Mid$(line15$, y, 1) = "r"
Case "t"
Print "T"
Mid$(line15$, y, 1) = "T"
Case "\"
Print "\"
Mid$(line15$, y, 1) = "\"
Case "h"
Print "h"
Mid$(line15$, y, 1) = "h"
Case "x"
Print "x"
Mid$(line15$, y, 1) = "X"
Case "*"
Print "*"
Mid$(line15$, y, 1) = "*"
Case "p"
Print "p"
Mid$(line15$, y, 1) = "p"
End Select
ElseIf x = 20 Then 'line 16
Select Case a$
'CASE CHR$(0) + "h" 'up
Case "w" 'up
Let x = x - 1
'CASE CHR$(0) + "m" 'right
Case "d" 'right
Let y = y + 1
'CASE CHR$(0) + "k" 'left
Case "a" 'left
Let y = y - 1
'CASE CHR$(0) + "p" 'down
Case "s" 'down
Let x = x + 1
Case "1"
Print "1"
Mid$(line16$, y, 1) = "1"
Case "0"
Print "0"
Mid$(line16$, y, 1) = "0"
Case "2"
Print "2"
Mid$(line16$, y, 1) = "2"
Case "3"
Print "3"
Mid$(line16$, y, 1) = "3"
Case "4"
Print "4"
Mid$(line16$, y, 1) = "4"
Case "5"
Print "5"
Mid$(line16$, y, 1) = "5"
Case "6"
Print "6"
Mid$(line16$, y, 1) = "6"
Case "7"
Print "7"
Mid$(line16$, y, 1) = "7"
Case "8"
Print "8"
Mid$(line16$, y, 1) = "8"
Case "9"
Print "9"
Mid$(line16$, y, 1) = "9"
Case "e"
Print "-"
Mid$(line16$, y, 1) = "-"
Case "v"
Print "v"
Mid$(line16$, y, 1) = "v"
Case "/"
Print "/"
Mid$(line16$, y, 1) = "/"
Case "b"
Print "b"
Mid$(line16$, y, 1) = "b"
Case "r"
Print "r"
Mid$(line16$, y, 1) = "r"
Case "t"
Print "T"
Mid$(line16$, y, 1) = "T"
Case "\"
Print "\"
Mid$(line16$, y, 1) = "\"
Case "h"
Print "h"
Mid$(line16$, y, 1) = "h"
Case "x"
Print "x"
Mid$(line16$, y, 1) = "X"
Case "*"
Print "*"
Mid$(line16$, y, 1) = "*"
Case "p"
Print "p"
Mid$(line16$, y, 1) = "p"
End Select
ElseIf x = 21 Then 'line 17
Select Case a$
'CASE CHR$(0) + "h" 'up
Case "w" 'up
Let x = x - 1
'CASE CHR$(0) + "m" 'right
Case "d" 'right
Let y = y + 1
'CASE CHR$(0) + "k" 'left
Case "a" 'left
Let y = y - 1
'CASE CHR$(0) + "p" 'down
Case "s" 'down
Let x = x + 1
Case "1"
Print "1"
Mid$(line17$, y, 1) = "1"
Case "0"
Print "0"
Mid$(line17$, y, 1) = "0"
Case "2"
Print "2"
Mid$(line17$, y, 1) = "2"
Case "3"
Print "3"
Mid$(line17$, y, 1) = "3"
Case "4"
Print "4"
Mid$(line17$, y, 1) = "4"
Case "5"
Print "5"
Mid$(line17$, y, 1) = "5"
Case "6"
Print "6"
Mid$(line17$, y, 1) = "6"
Case "7"
Print "7"
Mid$(line17$, y, 1) = "7"
Case "8"
Print "8"
Mid$(line17$, y, 1) = "8"
Case "9"
Print "9"
Mid$(line17$, y, 1) = "9"
Case "e"
Print "-"
Mid$(line17$, y, 1) = "-"
Case "v"
Print "v"
Mid$(line17$, y, 1) = "v"
Case "/"
Print "/"
Mid$(line17$, y, 1) = "/"
Case "b"
Print "b"
Mid$(line17$, y, 1) = "b"
Case "r"
Print "r"
Mid$(line17$, y, 1) = "r"
Case "t"
Print "T"
Mid$(line17$, y, 1) = "T"
Case "\"
Print "\"
Mid$(line17$, y, 1) = "\"
Case "h"
Print "h"
Mid$(line17$, y, 1) = "h"
Case "x"
Print "x"
Mid$(line17$, y, 1) = "X"
Case "*"
Print "*"
Mid$(line17$, y, 1) = "*"
Case "p"
Print "p"
Mid$(line17$, y, 1) = "p"
End Select
ElseIf x = 22 Then 'line 18
Select Case a$
'CASE CHR$(0) + "h" 'up
Case "w" 'up
Let x = x - 1
'CASE CHR$(0) + "m" 'right
Case "d" 'right
Let y = y + 1
'CASE CHR$(0) + "k" 'left
Case "a" 'left
Let y = y - 1
'CASE CHR$(0) + "p" 'down
Case "s" 'down
Let x = x + 1
Case "1"
Print "1"
Mid$(line18$, y, 1) = "1"
Case "0"
Print "0"
Mid$(line18$, y, 1) = "0"
Case "2"
Print "2"
Mid$(line18$, y, 1) = "2"
Case "3"
Print "3"
Mid$(line18$, y, 1) = "3"
Case "4"
Print "4"
Mid$(line18$, y, 1) = "4"
Case "5"
Print "5"
Mid$(line18$, y, 1) = "5"
Case "6"
Print "6"
Mid$(line18$, y, 1) = "6"
Case "7"
Print "7"
Mid$(line18$, y, 1) = "7"
Case "8"
Print "8"
Mid$(line18$, y, 1) = "8"
Case "9"
Print "9"
Mid$(line18$, y, 1) = "9"
Case "e"
Print "-"
Mid$(line18$, y, 1) = "-"
Case "v"
Print "v"
Mid$(line18$, y, 1) = "v"
Case "/"
Print "/"
Mid$(line18$, y, 1) = "/"
Case "b"
Print "b"
Mid$(line18$, y, 1) = "b"
Case "r"
Print "r"
Mid$(line18$, y, 1) = "r"
Case "t"
Print "T"
Mid$(line18$, y, 1) = "T"
Case "\"
Print "\"
Mid$(line18$, y, 1) = "\"
Case "h"
Print "h"
Mid$(line18$, y, 1) = "h"
Case "x"
Print "x"
Mid$(line18$, y, 1) = "X"
Case "*"
Print "*"
Mid$(line18$, y, 1) = "*"
Case "p"
Print "p"
Mid$(line18$, y, 1) = "p"
End Select
End If
If x <= 3 Then Let x = 3
If y <= 1 Then Let y = 1
If x >= 22 Then Let x = 22
If y >= 80 Then Let y = 80 'changed from 75
Locate x, y, 1
Loop Until a$ = Chr$(27)
GoTo maketab
pagetwo:
Cls
Color 14, 1: Cls
Locate 1, 1: Color 3: Print String$(80, f$)
Locate 1, 2: Color 8, 3: Print "MICRO GUITAR TAB 2.0"
Locate 1, 36: Color 14: Print "(PAGE 2/2)"
Locate 1, 52: Color 11, 3: Print "K = Key Legend"
Locate 1, 70: Color 4, 3: Print "Esc = Exit"
Color 11, 1
Locate 3, 1: Print line1b$
Locate 4, 1: Print line2b$
Locate 5, 1: Print line3b$
Locate 6, 1: Print line4b$
Locate 7, 1: Print line5b$
Locate 8, 1: Print line6b$
Locate 10, 1: Print line7b$
Locate 11, 1: Print line8b$
Locate 12, 1: Print line9b$
Locate 13, 1: Print line10b$
Locate 14, 1: Print line11b$
Locate 15, 1: Print line12b$
Locate 17, 1: Print line13b$
Locate 18, 1: Print line14b$
Locate 19, 1: Print line15b$
Locate 20, 1: Print line16b$
Locate 21, 1: Print line17b$
Locate 22, 1: Print line18b$
Locate 23, 34: Color 7, 1: Print Chr$(176)
Locate 23, 35: Print Chr$(177)
Locate 23, 36: Print Chr$(178)
Locate 23, 37: Color 1, 7: Print "FREEWARE"
Locate 23, 45: Color 7, 1: Print Chr$(178)
Locate 23, 46: Print Chr$(177)
Locate 23, 47: Print Chr$(176)
Color 11, 1
Let x = 3 'row variable start at row 3, 1st string
Let y = 1 'column variable
Do
a$ = LCase$(InKey$)
If a$ = "k" Then
For hboxr = 4 To 15
For hboxc = 25 To 66
Locate hboxr, hboxc
Color 3
Print Chr$(219)
Next
Next
For bshad = 27 To 67
Color 0
Locate 16, bshad
Print Chr$(219)
Next bshad
For rshad = 5 To 15
Color 0
Locate rshad, 67
Print Chr$(219)
Next rshad
Locate 5, 28
Color 8, 3: Print "Esc = Close menu W = up"
Locate 6, 28: Print "H = hammer on S = down"
Locate 7, 28: Print "P = pull off A = left"
Locate 8, 28: Print "B = bend note D = right"
Locate 9, 28: Print "/ = slide up V = vibrato"
Locate 10, 28: Print "E = erase \ = slide down"
Locate 11, 28: Print "X = x mark * = harmonic"
Locate 12, 28: Print "R = release bend T = tap"
Locate 14, 28: Print "Page Up/Down = page 1, page 2"
Locate x, y
Do
Loop Until InKey$ = Chr$(27)
GoTo pagetwo
ElseIf a$ = Chr$(0) + "q" Then 'page down
GoTo pagetwo
ElseIf a$ = Chr$(0) + "i" Then 'page up
GoTo rdraw
End If
If x = 3 Then '1st line
Select Case a$
'CASE CHR$(0) + "h" 'up
Case "w" 'up
Let x = x - 1
'CASE CHR$(0) + "m" 'right
Case "d" 'right
Let y = y + 1
'CASE CHR$(0) + "k" 'left
Case "a" 'left
Let y = y - 1
'CASE CHR$(0) + "p" 'down
Case "s" 'down
Let x = x + 1
Case "1"
Print "1"
Mid$(line1b$, y, 1) = "1"
Case "0"
Print "0"
Mid$(line1b$, y, 1) = "0"
Case "2"
Print "2"
Mid$(line1b$, y, 1) = "2"
Case "3"
Print "3"
Mid$(line1b$, y, 1) = "3"
Case "4"
Print "4"
Mid$(line1b$, y, 1) = "4"
Case "5"
Print "5"
Mid$(line1b$, y, 1) = "5"
Case "6"
Print "6"
Mid$(line1b$, y, 1) = "6"
Case "7"
Print "7"
Mid$(line1b$, y, 1) = "7"
Case "8"
Print "8"
Mid$(line1b$, y, 1) = "8"
Case "9"
Print "9"
Mid$(line1b$, y, 1) = "9"
Case "e"
Print "-"
Mid$(line1b$, y, 1) = "-"
Case "/"
Print "/"
Mid$(line1b$, y, 1) = "/"
Case "v"
Print "v"
Mid$(line1b$, y, 1) = "v"
Case "b"
Print "b"
Mid$(line1b$, y, 1) = "b"
Case "r"
Print "r"
Mid$(line1b$, y, 1) = "r"
Case "t"
Print "T"
Mid$(line1b$, y, 1) = "T"
Case "\"
Print "\"
Mid$(line1b$, y, 1) = "\"
Case "h"
Print "h"
Mid$(line1b$, y, 1) = "h"
Case "x"
Print "x"
Mid$(line1b$, y, 1) = "X"
Case "*"
Print "*"
Mid$(line1b$, y, 1) = "*"
Case "p"
Print "p"
Mid$(line1b$, y, 1) = "p"
End Select
ElseIf x = 4 Then '2nd line
Select Case a$
'CASE CHR$(0) + "h" 'up
Case "w" 'up
Let x = x - 1
'CASE CHR$(0) + "m" 'right
Case "d" 'right
Let y = y + 1
'CASE CHR$(0) + "k" 'left
Case "a" 'left
Let y = y - 1
'CASE CHR$(0) + "p" 'down
Case "s" 'down
Let x = x + 1
Case "1"
Print "1"
Mid$(line2b$, y, 1) = "1"
Case "0"
Print "0"
Mid$(line2b$, y, 1) = "0"
Case "2"
Print "2"
Mid$(line2b$, y, 1) = "2"
Case "3"
Print "3"
Mid$(line2b$, y, 1) = "3"
Case "4"
Print "4"
Mid$(line2b$, y, 1) = "4"
Case "5"
Print "5"
Mid$(line2b$, y, 1) = "5"
Case "6"
Print "6"
Mid$(line2b$, y, 1) = "6"
Case "7"
Print "7"
Mid$(line2b$, y, 1) = "7"
Case "8"
Print "8"
Mid$(line2b$, y, 1) = "8"
Case "9"
Print "9"
Mid$(line2b$, y, 1) = "9"
Case "e"
Print "-"
Mid$(line2b$, y, 1) = "-"
Case "v"
Print "v"
Mid$(line2b$, y, 1) = "v"
Case "/"
Print "/"
Mid$(line2b$, y, 1) = "/"
Case "b"
Print "b"
Mid$(line2b$, y, 1) = "b"
Case "r"
Print "r"
Mid$(line2b$, y, 1) = "r"
Case "t"
Print "T"
Mid$(line2b$, y, 1) = "T"
Case "\"
Print "\"
Mid$(line2b$, y, 1) = "\"
Case "h"
Print "h"
Mid$(line2b$, y, 1) = "h"
Case "x"
Print "x"
Mid$(line2b$, y, 1) = "X"
Case "*"
Print "*"
Mid$(line2b$, y, 1) = "*"
Case "p"
Print "p"
Mid$(line2b$, y, 1) = "p"
End Select
ElseIf x = 5 Then '3rd line
Select Case a$
'CASE CHR$(0) + "h" 'up
Case "w" 'up
Let x = x - 1
'CASE CHR$(0) + "m" 'right
Case "d" 'right
Let y = y + 1
'CASE CHR$(0) + "k" 'left
Case "a" 'left
Let y = y - 1
'CASE CHR$(0) + "p" 'down
Case "s" 'down
Let x = x + 1
Case "1"
Print "1"
Mid$(line3b$, y, 1) = "1"
Case "0"
Print "0"
Mid$(line3b$, y, 1) = "0"
Case "2"
Print "2"
Mid$(line3b$, y, 1) = "2"
Case "3"
Print "3"
Mid$(line3b$, y, 1) = "3"
Case "4"
Print "4"
Mid$(line3b$, y, 1) = "4"
Case "5"
Print "5"
Mid$(line3b$, y, 1) = "5"
Case "6"
Print "6"
Mid$(line3b$, y, 1) = "6"
Case "7"
Print "7"
Mid$(line3b$, y, 1) = "7"
Case "8"
Print "8"
Mid$(line3b$, y, 1) = "8"
Case "9"
Print "9"
Mid$(line3b$, y, 1) = "9"
Case "e"
Print "-"
Mid$(line3b$, y, 1) = "-"
Case "/"
Print "/"
Mid$(line3b$, y, 1) = "/"
Case "v"
Print "v"
Mid$(line3b$, y, 1) = "v"
Case "b"
Print "b"
Mid$(line3b$, y, 1) = "b"
Case "r"
Print "r"
Mid$(line3b$, y, 1) = "r"
Case "t"
Print "T"
Mid$(line3b$, y, 1) = "T"
Case "\"
Print "\"
Mid$(line3b$, y, 1) = "\"
Case "h"
Print "h"
Mid$(line3b$, y, 1) = "h"
Case "x"
Print "x"
Mid$(line3b$, y, 1) = "X"
Case "*"
Print "*"
Mid$(line3b$, y, 1) = "*"
Case "p"
Print "p"
Mid$(line3b$, y, 1) = "p"
End Select
ElseIf x = 6 Then '4th line
Select Case a$
'CASE CHR$(0) + "h" 'up
Case "w" 'up
Let x = x - 1
'CASE CHR$(0) + "m" 'right
Case "d" 'right
Let y = y + 1
'CASE CHR$(0) + "k" 'left
Case "a" 'left
Let y = y - 1
'CASE CHR$(0) + "p" 'down
Case "s" 'down
Let x = x + 1
Case "1"
Print "1"
Mid$(line4b$, y, 1) = "1"
Case "0"
Print "0"
Mid$(line4b$, y, 1) = "0"
Case "2"
Print "2"
Mid$(line4b$, y, 1) = "2"
Case "3"
Print "3"
Mid$(line4b$, y, 1) = "3"
Case "4"
Print "4"
Mid$(line4b$, y, 1) = "4"
Case "5"
Print "5"
Mid$(line4b$, y, 1) = "5"
Case "6"
Print "6"
Mid$(line4b$, y, 1) = "6"
Case "7"
Print "7"
Mid$(line4b$, y, 1) = "7"
Case "8"
Print "8"
Mid$(line4b$, y, 1) = "8"
Case "9"
Print "9"
Mid$(line4b$, y, 1) = "9"
Case "e"
Print "-"
Mid$(line4b$, y, 1) = "-"
Case "v"
Print "v"
Mid$(line4b$, y, 1) = "v"
Case "/"
Print "/"
Mid$(line4b$, y, 1) = "/"
Case "b"
Print "b"
Mid$(line4b$, y, 1) = "b"
Case "r"
Print "r"
Mid$(line4b$, y, 1) = "r"
Case "t"
Print "T"
Mid$(line4b$, y, 1) = "T"
Case "\"
Print "\"
Mid$(line4b$, y, 1) = "\"
Case "h"
Print "h"
Mid$(line4b$, y, 1) = "h"
Case "x"
Print "x"
Mid$(line4b$, y, 1) = "X"
Case "*"
Print "*"
Mid$(line4b$, y, 1) = "*"
Case "p"
Print "p"
Mid$(line4b$, y, 1) = "p"
End Select
ElseIf x = 7 Then 'line 5
Select Case a$
'CASE CHR$(0) + "h" 'up
Case "w" 'up
Let x = x - 1
'CASE CHR$(0) + "m" 'right
Case "d" 'right
Let y = y + 1
'CASE CHR$(0) + "k" 'left
Case "a" 'left
Let y = y - 1
'CASE CHR$(0) + "p" 'down
Case "s" 'down
Let x = x + 1
Case "1"
Print "1"
Mid$(line5b$, y, 1) = "1"
Case "0"
Print "0"
Mid$(line5b$, y, 1) = "0"
Case "2"
Print "2"
Mid$(line5b$, y, 1) = "2"
Case "3"
Print "3"
Mid$(line5b$, y, 1) = "3"
Case "4"
Print "4"
Mid$(line5b$, y, 1) = "4"
Case "5"
Print "5"
Mid$(line5b$, y, 1) = "5"
Case "6"
Print "6"
Mid$(line5b$, y, 1) = "6"
Case "7"
Print "7"
Mid$(line5b$, y, 1) = "7"
Case "8"
Print "8"
Mid$(line5b$, y, 1) = "8"
Case "9"
Print "9"
Mid$(line5b$, y, 1) = "9"
Case "e"
Print "-"
Mid$(line5b$, y, 1) = "-"
Case "/"
Print "/"
Mid$(line5b$, y, 1) = "/"
Case "v"
Print "v"
Mid$(line5b$, y, 1) = "v"
Case "b"
Print "b"
Mid$(line5b$, y, 1) = "b"
Case "r"
Print "r"
Mid$(line5b$, y, 1) = "r"
Case "t"
Print "T"
Mid$(line5b$, y, 1) = "T"
Case "\"
Print "\"
Mid$(line5b$, y, 1) = "\"
Case "h"
Print "h"
Mid$(line5b$, y, 1) = "h"
Case "x"
Print "x"
Mid$(line5b$, y, 1) = "X"
Case "*"
Print "*"
Mid$(line5b$, y, 1) = "*"
Case "p"
Print "p"
Mid$(line5b$, y, 1) = "p"
End Select
ElseIf x = 8 Then 'line 6
Select Case a$
'CASE CHR$(0) + "h" 'up
Case "w" 'up
Let x = x - 1
'CASE CHR$(0) + "m" 'right
Case "d" 'right
Let y = y + 1
'CASE CHR$(0) + "k" 'left
Case "a" 'left
Let y = y - 1
'CASE CHR$(0) + "p" 'down
Case "s" 'down
Let x = x + 1
Case "1"
Print "1"
Mid$(line6b$, y, 1) = "1"
Case "0"
Print "0"
Mid$(line6b$, y, 1) = "0"
Case "2"
Print "2"
Mid$(line6b$, y, 1) = "2"
Case "3"
Print "3"
Mid$(line6b$, y, 1) = "3"
Case "4"
Print "4"
Mid$(line6b$, y, 1) = "4"
Case "5"
Print "5"
Mid$(line6b$, y, 1) = "5"
Case "6"
Print "6"
Mid$(line6b$, y, 1) = "6"
Case "7"
Print "7"
Mid$(line6b$, y, 1) = "7"
Case "8"
Print "8"
Mid$(line6b$, y, 1) = "8"
Case "9"
Print "9"
Mid$(line6b$, y, 1) = "9"
Case "e"
Print "-"
Mid$(line6b$, y, 1) = "-"
Case "v"
Print "v"
Mid$(line6b$, y, 1) = "v"
Case "/"
Print "/"
Mid$(line6b$, y, 1) = "/"
Case "b"
Print "b"
Mid$(line6b$, y, 1) = "b"
Case "r"
Print "r"
Mid$(line6b$, y, 1) = "r"
Case "t"
Print "T"
Mid$(line6b$, y, 1) = "T"
Case "\"
Print "\"
Mid$(line6b$, y, 1) = "\"
Case "h"
Print "h"
Mid$(line6b$, y, 1) = "h"
Case "x"
Print "x"
Mid$(line6b$, y, 1) = "X"
Case "*"
Print "*"
Mid$(line6b$, y, 1) = "*"
Case "p"
Print "p"
Mid$(line6b$, y, 1) = "p"
End Select
ElseIf x = 9 Then 'gap spot 1
Select Case a$
'CASE CHR$(0) + "h" 'up
Case "w" 'up
Let x = x - 1
'CASE CHR$(0) + "m" 'right
Case "d" 'right
Let y = y + 1
'CASE CHR$(0) + "k" 'left
Case "a" 'left
Let y = y - 1
'CASE CHR$(0) + "p" 'down
Case "s" 'down
Let x = x + 1
End Select
ElseIf x = 10 Then 'line 7
Select Case a$
'CASE CHR$(0) + "h" 'up
Case "w" 'up
Let x = x - 1
'CASE CHR$(0) + "m" 'right
Case "d" 'right
Let y = y + 1
'CASE CHR$(0) + "k" 'left
Case "a" 'left
Let y = y - 1
'CASE CHR$(0) + "p" 'down
Case "s" 'down
Let x = x + 1
Case "1"
Print "1"
Mid$(line7b$, y, 1) = "1"
Case "0"
Print "0"
Mid$(line7b$, y, 1) = "0"
Case "2"
Print "2"
Mid$(line7b$, y, 1) = "2"
Case "3"
Print "3"
Mid$(line7b$, y, 1) = "3"
Case "4"
Print "4"
Mid$(line7b$, y, 1) = "4"
Case "5"
Print "5"
Mid$(line7b$, y, 1) = "5"
Case "6"
Print "6"
Mid$(line7b$, y, 1) = "6"
Case "7"
Print "7"
Mid$(line7b$, y, 1) = "7"
Case "8"
Print "8"
Mid$(line7b$, y, 1) = "8"
Case "9"
Print "9"
Mid$(line7b$, y, 1) = "9"
Case "e"
Print "-"
Mid$(line7b$, y, 1) = "-"
Case "v"
Print "v"
Mid$(line7b$, y, 1) = "v"
Case "/"
Print "/"
Mid$(line7b$, y, 1) = "/"
Case "b"
Print "b"
Mid$(line7b$, y, 1) = "b"
Case "r"
Print "r"
Mid$(line7b$, y, 1) = "r"
Case "t"
Print "T"
Mid$(line7b$, y, 1) = "T"
Case "\"
Print "\"
Mid$(line7b$, y, 1) = "\"
Case "h"
Print "h"
Mid$(line7b$, y, 1) = "h"
Case "x"
Print "x"
Mid$(line7b$, y, 1) = "X"
Case "*"
Print "*"
Mid$(line7b$, y, 1) = "*"
Case "p"
Print "p"
Mid$(line7b$, y, 1) = "p"
End Select
ElseIf x = 11 Then 'line 8
Select Case a$
'CASE CHR$(0) + "h" 'up
Case "w" 'up
Let x = x - 1
'CASE CHR$(0) + "m" 'right
Case "d" 'right
Let y = y + 1
'CASE CHR$(0) + "k" 'left
Case "a" 'left
Let y = y - 1
'CASE CHR$(0) + "p" 'down
Case "s" 'down
Let x = x + 1
Case "1"
Print "1"
Mid$(line8b$, y, 1) = "1"
Case "0"
Print "0"
Mid$(line8b$, y, 1) = "0"
Case "2"
Print "2"
Mid$(line8b$, y, 1) = "2"
Case "3"
Print "3"
Mid$(line8b$, y, 1) = "3"
Case "4"
Print "4"
Mid$(line8b$, y, 1) = "4"
Case "5"
Print "5"
Mid$(line8b$, y, 1) = "5"
Case "6"
Print "6"
Mid$(line8b$, y, 1) = "6"
Case "7"
Print "7"
Mid$(line8b$, y, 1) = "7"
Case "8"
Print "8"
Mid$(line8b$, y, 1) = "8"
Case "9"
Print "9"
Mid$(line8b$, y, 1) = "9"
Case "e"
Print "-"
Mid$(line8b$, y, 1) = "-"
Case "v"
Print "v"
Mid$(line8b$, y, 1) = "v"
Case "/"
Print "/"
Mid$(line8b$, y, 1) = "/"
Case "b"
Print "b"
Mid$(line8b$, y, 1) = "b"
Case "r"
Print "r"
Mid$(line8b$, y, 1) = "r"
Case "t"
Print "T"
Mid$(line8b$, y, 1) = "T"
Case "\"
Print "\"
Mid$(line8b$, y, 1) = "\"
Case "h"
Print "h"
Mid$(line8b$, y, 1) = "h"
Case "x"
Print "x"
Mid$(line8b$, y, 1) = "X"
Case "*"
Print "*"
Mid$(line8b$, y, 1) = "*"
Case "p"
Print "p"
Mid$(line8b$, y, 1) = "p"
End Select
ElseIf x = 12 Then 'line 9
Select Case a$
'CASE CHR$(0) + "h" 'up
Case "w" 'up
Let x = x - 1
'CASE CHR$(0) + "m" 'right
Case "d" 'right
Let y = y + 1
'CASE CHR$(0) + "k" 'left
Case "a" 'left
Let y = y - 1
'CASE CHR$(0) + "p" 'down
Case "s" 'down
Let x = x + 1
Case "1"
Print "1"
Mid$(line9b$, y, 1) = "1"
Case "0"
Print "0"
Mid$(line9b$, y, 1) = "0"
Case "2"
Print "2"
Mid$(line9b$, y, 1) = "2"
Case "3"
Print "3"
Mid$(line9b$, y, 1) = "3"
Case "4"
Print "4"
Mid$(line9b$, y, 1) = "4"
Case "5"
Print "5"
Mid$(line9b$, y, 1) = "5"
Case "6"
Print "6"
Mid$(line9b$, y, 1) = "6"
Case "7"
Print "7"
Mid$(line9b$, y, 1) = "7"
Case "8"
Print "8"
Mid$(line9b$, y, 1) = "8"
Case "9"
Print "9"
Mid$(line9b$, y, 1) = "9"
Case "e"
Print "-"
Mid$(line9b$, y, 1) = "-"
Case "v"
Print "v"
Mid$(line9b$, y, 1) = "v"
Case "/"
Print "/"
Mid$(line9b$, y, 1) = "/"
Case "b"
Print "b"
Mid$(line9b$, y, 1) = "b"
Case "r"
Print "r"
Mid$(line9b$, y, 1) = "r"
Case "t"
Print "T"
Mid$(line9b$, y, 1) = "T"
Case "\"
Print "\"
Mid$(line9b$, y, 1) = "\"
Case "h"
Print "h"
Mid$(line9b$, y, 1) = "h"
Case "x"
Print "x"
Mid$(line9b$, y, 1) = "X"
Case "*"
Print "*"
Mid$(line9b$, y, 1) = "*"
Case "p"
Print "p"
Mid$(line9b$, y, 1) = "p"
End Select
ElseIf x = 13 Then 'line 10
Select Case a$
'CASE CHR$(0) + "h" 'up
Case "w" 'up
Let x = x - 1
'CASE CHR$(0) + "m" 'right
Case "d" 'right
Let y = y + 1
'CASE CHR$(0) + "k" 'left
Case "a" 'left
Let y = y - 1
'CASE CHR$(0) + "p" 'down
Case "s" 'down
Let x = x + 1
Case "1"
Print "1"
Mid$(line10b$, y, 1) = "1"
Case "0"
Print "0"
Mid$(line10b$, y, 1) = "0"
Case "2"
Print "2"
Mid$(line10b$, y, 1) = "2"
Case "3"
Print "3"
Mid$(line10b$, y, 1) = "3"
Case "4"
Print "4"
Mid$(line10b$, y, 1) = "4"
Case "5"
Print "5"
Mid$(line10b$, y, 1) = "5"
Case "6"
Print "6"
Mid$(line10b$, y, 1) = "6"
Case "7"
Print "7"
Mid$(line10b$, y, 1) = "7"
Case "8"
Print "8"
Mid$(line10b$, y, 1) = "8"
Case "9"
Print "9"
Mid$(line10b$, y, 1) = "9"
Case "e"
Print "-"
Mid$(line10b$, y, 1) = "-"
Case "v"
Print "v"
Mid$(line10b$, y, 1) = "v"
Case "/"
Print "/"
Mid$(line10b$, y, 1) = "/"
Case "b"
Print "b"
Mid$(line10b$, y, 1) = "b"
Case "r"
Print "r"
Mid$(line10b$, y, 1) = "r"
Case "t"
Print "T"
Mid$(line10b$, y, 1) = "T"
Case "\"
Print "\"
Mid$(line10b$, y, 1) = "\"
Case "h"
Print "h"
Mid$(line10b$, y, 1) = "h"
Case "x"
Print "x"
Mid$(line10b$, y, 1) = "X"
Case "*"
Print "*"
Mid$(line10b$, y, 1) = "*"
Case "p"
Print "p"
Mid$(line10b$, y, 1) = "p"
End Select
ElseIf x = 14 Then 'line 11
Select Case a$
'CASE CHR$(0) + "h" 'up
Case "w" 'up
Let x = x - 1
'CASE CHR$(0) + "m" 'right
Case "d" 'right
Let y = y + 1
'CASE CHR$(0) + "k" 'left
Case "a" 'left
Let y = y - 1
'CASE CHR$(0) + "p" 'down
Case "s" 'down
Let x = x + 1
Case "1"
Print "1"
Mid$(line11b$, y, 1) = "1"
Case "0"
Print "0"
Mid$(line11b$, y, 1) = "0"
Case "2"
Print "2"
Mid$(line11b$, y, 1) = "2"
Case "3"
Print "3"
Mid$(line11b$, y, 1) = "3"
Case "4"
Print "4"
Mid$(line11b$, y, 1) = "4"
Case "5"
Print "5"
Mid$(line11b$, y, 1) = "5"
Case "6"
Print "6"
Mid$(line11b$, y, 1) = "6"
Case "7"
Print "7"
Mid$(line11b$, y, 1) = "7"
Case "8"
Print "8"
Mid$(line11b$, y, 1) = "8"
Case "9"
Print "9"
Mid$(line11b$, y, 1) = "9"
Case "e"
Print "-"
Mid$(line11b$, y, 1) = "-"
Case "v"
Print "v"
Mid$(line11b$, y, 1) = "v"
Case "/"
Print "/"
Mid$(line11b$, y, 1) = "/"
Case "b"
Print "b"
Mid$(line11b$, y, 1) = "b"
Case "r"
Print "r"
Mid$(line11b$, y, 1) = "r"
Case "t"
Print "T"
Mid$(line11b$, y, 1) = "T"
Case "\"
Print "\"
Mid$(line11b$, y, 1) = "\"
Case "h"
Print "h"
Mid$(line11b$, y, 1) = "h"
Case "x"
Print "x"
Mid$(line11b$, y, 1) = "X"
Case "*"
Print "*"
Mid$(line11b$, y, 1) = "*"
Case "p"
Print "p"
Mid$(line11b$, y, 1) = "p"
End Select
ElseIf x = 15 Then 'line 12
Select Case a$
'CASE CHR$(0) + "h" 'up
Case "w" 'up
Let x = x - 1
'CASE CHR$(0) + "m" 'right
Case "d" 'right
Let y = y + 1
'CASE CHR$(0) + "k" 'left
Case "a" 'left
Let y = y - 1
'CASE CHR$(0) + "p" 'down
Case "s" 'down
Let x = x + 1
Case "1"
Print "1"
Mid$(line12b$, y, 1) = "1"
Case "0"
Print "0"
Mid$(line12b$, y, 1) = "0"
Case "2"
Print "2"
Mid$(line12b$, y, 1) = "2"
Case "3"
Print "3"
Mid$(line12b$, y, 1) = "3"
Case "4"
Print "4"
Mid$(line12b$, y, 1) = "4"
Case "5"
Print "5"
Mid$(line12b$, y, 1) = "5"
Case "6"
Print "6"
Mid$(line12b$, y, 1) = "6"
Case "7"
Print "7"
Mid$(line12b$, y, 1) = "7"
Case "8"
Print "8"
Mid$(line12b$, y, 1) = "8"
Case "9"
Print "9"
Mid$(line12b$, y, 1) = "9"
Case "e"
Print "-"
Mid$(line12b$, y, 1) = "-"
Case "v"
Print "v"
Mid$(line12b$, y, 1) = "v"
Case "/"
Print "/"
Mid$(line12b$, y, 1) = "/"
Case "b"
Print "b"
Mid$(line12b$, y, 1) = "b"
Case "r"
Print "r"
Mid$(line12b$, y, 1) = "r"
Case "t"
Print "T"
Mid$(line12b$, y, 1) = "T"
Case "\"
Print "\"
Mid$(line12b$, y, 1) = "\"
Case "h"
Print "h"
Mid$(line12b$, y, 1) = "h"
Case "x"
Print "x"
Mid$(line12b$, y, 1) = "X"
Case "*"
Print "*"
Mid$(line12b$, y, 1) = "*"
Case "p"
Print "p"
Mid$(line12b$, y, 1) = "p"
End Select
ElseIf x = 16 Then 'gap spot
Select Case a$
'CASE CHR$(0) + "h" 'up
Case "w" 'up
Let x = x - 1
'CASE CHR$(0) + "m" 'right
Case "d" 'right
Let y = y + 1
'CASE CHR$(0) + "k" 'left
Case "a" 'left
Let y = y - 1
'CASE CHR$(0) + "p" 'down
Case "s" 'down
Let x = x + 1
End Select
ElseIf x = 17 Then 'line 13
Select Case a$
'CASE CHR$(0) + "h" 'up
Case "w" 'up
Let x = x - 1
'CASE CHR$(0) + "m" 'right
Case "d" 'right
Let y = y + 1
'CASE CHR$(0) + "k" 'left
Case "a" 'left
Let y = y - 1
'CASE CHR$(0) + "p" 'down
Case "s" 'down
Let x = x + 1
Case "1"
Print "1"
Mid$(line13b$, y, 1) = "1"
Case "0"
Print "0"
Mid$(line13b$, y, 1) = "0"
Case "2"
Print "2"
Mid$(line13b$, y, 1) = "2"
Case "3"
Print "3"
Mid$(line13b$, y, 1) = "3"
Case "4"
Print "4"
Mid$(line13b$, y, 1) = "4"
Case "5"
Print "5"
Mid$(line13b$, y, 1) = "5"
Case "6"
Print "6"
Mid$(line13b$, y, 1) = "6"
Case "7"
Print "7"
Mid$(line13b$, y, 1) = "7"
Case "8"
Print "8"
Mid$(line13b$, y, 1) = "8"
Case "9"
Print "9"
Mid$(line13b$, y, 1) = "9"
Case "e"
Print "-"
Mid$(line13b$, y, 1) = "-"
Case "v"
Print "v"
Mid$(line13b$, y, 1) = "v"
Case "/"
Print "/"
Mid$(line13b$, y, 1) = "/"
Case "b"
Print "b"
Mid$(line13b$, y, 1) = "b"
Case "r"
Print "r"
Mid$(line13b$, y, 1) = "r"
Case "t"
Print "T"
Mid$(line13b$, y, 1) = "T"
Case "\"
Print "\"
Mid$(line13b$, y, 1) = "\"
Case "h"
Print "h"
Mid$(line13b$, y, 1) = "h"
Case "x"
Print "x"
Mid$(line13b$, y, 1) = "X"
Case "*"
Print "*"
Mid$(line13b$, y, 1) = "*"
Case "p"
Print "p"
Mid$(line13b$, y, 1) = "p"
End Select
ElseIf x = 18 Then 'line 14
Select Case a$
'CASE CHR$(0) + "h" 'up
Case "w" 'up
Let x = x - 1
'CASE CHR$(0) + "m" 'right
Case "d" 'right
Let y = y + 1
'CASE CHR$(0) + "k" 'left
Case "a" 'left
Let y = y - 1
'CASE CHR$(0) + "p" 'down
Case "s" 'down
Let x = x + 1
Case "1"
Print "1"
Mid$(line14b$, y, 1) = "1"
Case "0"
Print "0"
Mid$(line14b$, y, 1) = "0"
Case "2"
Print "2"
Mid$(line14b$, y, 1) = "2"
Case "3"
Print "3"
Mid$(line14b$, y, 1) = "3"
Case "4"
Print "4"
Mid$(line14b$, y, 1) = "4"
Case "5"
Print "5"
Mid$(line14b$, y, 1) = "5"
Case "6"
Print "6"
Mid$(line14b$, y, 1) = "6"
Case "7"
Print "7"
Mid$(line14b$, y, 1) = "7"
Case "8"
Print "8"
Mid$(line14b$, y, 1) = "8"
Case "9"
Print "9"
Mid$(line14b$, y, 1) = "9"
Case "e"
Print "-"
Mid$(line14b$, y, 1) = "-"
Case "v"
Print "v"
Mid$(line14b$, y, 1) = "v"
Case "/"
Print "/"
Mid$(line14b$, y, 1) = "/"
Case "b"
Print "b"
Mid$(line14b$, y, 1) = "b"
Case "r"
Print "r"
Mid$(line14b$, y, 1) = "r"
Case "t"
Print "T"
Mid$(line14b$, y, 1) = "T"
Case "\"
Print "\"
Mid$(line14b$, y, 1) = "\"
Case "h"
Print "h"
Mid$(line14b$, y, 1) = "h"
Case "x"
Print "x"
Mid$(line14b$, y, 1) = "X"
Case "*"
Print "*"
Mid$(line14b$, y, 1) = "*"
Case "p"
Print "p"
Mid$(line14b$, y, 1) = "p"
End Select
ElseIf x = 19 Then 'line 15
Select Case a$
'CASE CHR$(0) + "h" 'up
Case "w" 'up
Let x = x - 1
'CASE CHR$(0) + "m" 'right
Case "d" 'right
Let y = y + 1
'CASE CHR$(0) + "k" 'left
Case "a" 'left
Let y = y - 1
'CASE CHR$(0) + "p" 'down
Case "s" 'down
Let x = x + 1
Case "1"
Print "1"
Mid$(line15b$, y, 1) = "1"
Case "0"
Print "0"
Mid$(line15b$, y, 1) = "0"
Case "2"
Print "2"
Mid$(line15b$, y, 1) = "2"
Case "3"
Print "3"
Mid$(line15b$, y, 1) = "3"
Case "4"
Print "4"
Mid$(line15b$, y, 1) = "4"
Case "5"
Print "5"
Mid$(line15b$, y, 1) = "5"
Case "6"
Print "6"
Mid$(line15b$, y, 1) = "6"
Case "7"
Print "7"
Mid$(line15b$, y, 1) = "7"
Case "8"
Print "8"
Mid$(line15b$, y, 1) = "8"
Case "9"
Print "9"
Mid$(line15b$, y, 1) = "9"
Case "e"
Print "-"
Mid$(line15b$, y, 1) = "-"
Case "v"
Print "v"
Mid$(line15b$, y, 1) = "v"
Case "/"
Print "/"
Mid$(line15b$, y, 1) = "/"
Case "b"
Print "b"
Mid$(line15b$, y, 1) = "b"
Case "r"
Print "r"
Mid$(line15b$, y, 1) = "r"
Case "t"
Print "T"
Mid$(line15b$, y, 1) = "T"
Case "\"
Print "\"
Mid$(line15b$, y, 1) = "\"
Case "h"
Print "h"
Mid$(line15b$, y, 1) = "h"
Case "x"
Print "x"
Mid$(line15b$, y, 1) = "X"
Case "*"
Print "*"
Mid$(line15b$, y, 1) = "*"
Case "p"
Print "p"
Mid$(line15b$, y, 1) = "p"
End Select
ElseIf x = 20 Then 'line 16
Select Case a$
'CASE CHR$(0) + "h" 'up
Case "w" 'up
Let x = x - 1
'CASE CHR$(0) + "m" 'right
Case "d" 'right
Let y = y + 1
'CASE CHR$(0) + "k" 'left
Case "a" 'left
Let y = y - 1
'CASE CHR$(0) + "p" 'down
Case "s" 'down
Let x = x + 1
Case "1"
Print "1"
Mid$(line16b$, y, 1) = "1"
Case "0"
Print "0"
Mid$(line16b$, y, 1) = "0"
Case "2"
Print "2"
Mid$(line16b$, y, 1) = "2"
Case "3"
Print "3"
Mid$(line16b$, y, 1) = "3"
Case "4"
Print "4"
Mid$(line16b$, y, 1) = "4"
Case "5"
Print "5"
Mid$(line16b$, y, 1) = "5"
Case "6"
Print "6"
Mid$(line16b$, y, 1) = "6"
Case "7"
Print "7"
Mid$(line16b$, y, 1) = "7"
Case "8"
Print "8"
Mid$(line16b$, y, 1) = "8"
Case "9"
Print "9"
Mid$(line16b$, y, 1) = "9"
Case "e"
Print "-"
Mid$(line16b$, y, 1) = "-"
Case "v"
Print "v"
Mid$(line16b$, y, 1) = "v"
Case "/"
Print "/"
Mid$(line16b$, y, 1) = "/"
Case "b"
Print "b"
Mid$(line16b$, y, 1) = "b"
Case "r"
Print "r"
Mid$(line16b$, y, 1) = "r"
Case "t"
Print "T"
Mid$(line16b$, y, 1) = "T"
Case "\"
Print "\"
Mid$(line16b$, y, 1) = "\"
Case "h"
Print "h"
Mid$(line16b$, y, 1) = "h"
Case "x"
Print "x"
Mid$(line16b$, y, 1) = "X"
Case "*"
Print "*"
Mid$(line16b$, y, 1) = "*"
Case "p"
Print "p"
Mid$(line16b$, y, 1) = "p"
End Select
ElseIf x = 21 Then 'line 17
Select Case a$
'CASE CHR$(0) + "h" 'up
Case "w" 'up
Let x = x - 1
'CASE CHR$(0) + "m" 'right
Case "d" 'right
Let y = y + 1
'CASE CHR$(0) + "k" 'left
Case "a" 'left
Let y = y - 1
'CASE CHR$(0) + "p" 'down
Case "s" 'down
Let x = x + 1
Case "1"
Print "1"
Mid$(line17b$, y, 1) = "1"
Case "0"
Print "0"
Mid$(line17b$, y, 1) = "0"
Case "2"
Print "2"
Mid$(line17b$, y, 1) = "2"
Case "3"
Print "3"
Mid$(line17b$, y, 1) = "3"
Case "4"
Print "4"
Mid$(line17b$, y, 1) = "4"
Case "5"
Print "5"
Mid$(line17b$, y, 1) = "5"
Case "6"
Print "6"
Mid$(line17b$, y, 1) = "6"
Case "7"
Print "7"
Mid$(line17b$, y, 1) = "7"
Case "8"
Print "8"
Mid$(line17b$, y, 1) = "8"
Case "9"
Print "9"
Mid$(line17b$, y, 1) = "9"
Case "e"
Print "-"
Mid$(line17b$, y, 1) = "-"
Case "v"
Print "v"
Mid$(line17b$, y, 1) = "v"
Case "/"
Print "/"
Mid$(line17b$, y, 1) = "/"
Case "b"
Print "b"
Mid$(line17b$, y, 1) = "b"
Case "r"
Print "r"
Mid$(line17b$, y, 1) = "r"
Case "t"
Print "T"
Mid$(line17b$, y, 1) = "T"
Case "\"
Print "\"
Mid$(line17b$, y, 1) = "\"
Case "h"
Print "h"
Mid$(line17b$, y, 1) = "h"
Case "x"
Print "x"
Mid$(line17b$, y, 1) = "X"
Case "*"
Print "*"
Mid$(line17b$, y, 1) = "*"
Case "p"
Print "p"
Mid$(line17b$, y, 1) = "p"
End Select
ElseIf x = 22 Then 'line 18
Select Case a$
'CASE CHR$(0) + "h" 'up
Case "w" 'up
Let x = x - 1
'CASE CHR$(0) + "m" 'right
Case "d" 'right
Let y = y + 1
'CASE CHR$(0) + "k" 'left
Case "a" 'left
Let y = y - 1
'CASE CHR$(0) + "p" 'down
Case "s" 'down
Let x = x + 1
Case "1"
Print "1"
Mid$(line18b$, y, 1) = "1"
Case "0"
Print "0"
Mid$(line18b$, y, 1) = "0"
Case "2"
Print "2"
Mid$(line18b$, y, 1) = "2"
Case "3"
Print "3"
Mid$(line18b$, y, 1) = "3"
Case "4"
Print "4"
Mid$(line18b$, y, 1) = "4"
Case "5"
Print "5"
Mid$(line18b$, y, 1) = "5"
Case "6"
Print "6"
Mid$(line18b$, y, 1) = "6"
Case "7"
Print "7"
Mid$(line18b$, y, 1) = "7"
Case "8"
Print "8"
Mid$(line18b$, y, 1) = "8"
Case "9"
Print "9"
Mid$(line18b$, y, 1) = "9"
Case "e"
Print "-"
Mid$(line18b$, y, 1) = "-"
Case "v"
Print "v"
Mid$(line18b$, y, 1) = "v"
Case "/"
Print "/"
Mid$(line18b$, y, 1) = "/"
Case "b"
Print "b"
Mid$(line18b$, y, 1) = "b"
Case "r"
Print "r"
Mid$(line18b$, y, 1) = "r"
Case "t"
Print "T"
Mid$(line18b$, y, 1) = "T"
Case "\"
Print "\"
Mid$(line18b$, y, 1) = "\"
Case "h"
Print "h"
Mid$(line18b$, y, 1) = "h"
Case "x"
Print "x"
Mid$(line18b$, y, 1) = "X"
Case "*"
Print "*"
Mid$(line18b$, y, 1) = "*"
Case "p"
Print "p"
Mid$(line18b$, y, 1) = "p"
End Select
End If
If x <= 3 Then Let x = 3
If y <= 1 Then Let y = 1
If x >= 22 Then Let x = 22
If y >= 80 Then Let y = 80 'changed from 75
Locate x, y, 1
Loop Until a$ = Chr$(27)
GoTo maketab
maketab:
'this writes the final song to text file
Open "mtab.txt" For Output As #1
Print #1,
Print #1, line1$
Print #1, line2$
Print #1, line3$
Print #1, line4$
Print #1, line5$
Print #1, line6$
Print #1,
Print #1, line7$
Print #1, line8$
Print #1, line9$
Print #1, line10$
Print #1, line11$
Print #1, line12$
Print #1,
Print #1, line13$
Print #1, line14$
Print #1, line15$
Print #1, line16$
Print #1, line17$
Print #1, line18$
Print #1,
Print #1, line1b$
Print #1, line2b$
Print #1, line3b$
Print #1, line4b$
Print #1, line5b$
Print #1, line6b$
Print #1,
Print #1, line7b$
Print #1, line8b$
Print #1, line9b$
Print #1, line10b$
Print #1, line11b$
Print #1, line12b$
Print #1,
Print #1, line13b$
Print #1, line14b$
Print #1, line15b$
Print #1, line16b$
Print #1, line17b$
Print #1, line18b$
For saveboxr = 4 To 12
For saveboxc = 25 To 55
Color 7
Locate saveboxr, saveboxc
Print Chr$(219)
Next
Next
For tline = 26 To 54
Locate 4, tline
Color 15, 7
Print Chr$(205)
Locate 12, tline
Print Chr$(205)
Next tline
Locate 4, 25: Print Chr$(201): Locate 4, 55: Print Chr$(187)
Locate 12, 25: Print Chr$(200): Locate 12, 55: Print Chr$(188)
For sidebar = 5 To 11
Locate sidebar, 25
Print Chr$(186)
Locate sidebar, 55
Print Chr$(186)
Next sidebar
For eshadb = 27 To 56
Locate 13, eshadb
Color 0: Print Chr$(219)
Next eshadb
For eshads = 5 To 12
Locate eshads, 56
Color 0: Print Chr$(219)
Next eshads
Locate 6, 30: Color 8: Print "Saving Guitar Tab As:"
Locate 8, 36: Color 14: Print "Mtab.txt"
Locate 10, 29: Color 0: Print "Press any key to Exit..."
Do
Loop While InKey$ = ""
Close 'closes opened files
Cls
Color 7, 0: Cls
Print "MICRO GUITAR TAB "; Chr$(254); " Freeware "; Chr$(254); " by Aaron W. Miles"
Print Chr$(14); " Version 2.0 - October 2023"; Chr$(14)
Print "aawm1982@yahoo.com"