DECLARE SUB sdjk (a!)
DECLARE SUB sdjm (a!)
Cls
a = a + 1
LOCATE 17, 26
Print "please inter start spead:="
LOCATE 17, 52
INPUT a
p$ = ""
Do Until p$ = "^"
b = a * 3
LOCATE 18, 36
Print a, b
e$ = Str$(a)
d$ = Str$(b)
a$ = "L" + d$ + "D"
b$ = "L" + e$ + "D"
LOCATE 6, 28
Print "1--0 a--z \[]/(<>),.;?+_'"
LOCATE 8, 30
Print "press shift+^: exit"
LOCATE 11, 26
Print "press '<'='-','>'='+'sound'f"
LOCATE 14, 20
Print "press Shift+(,then press shift+'+': +spead"
LOCATE 15, 20
Print "press shift+),then press shift+'_': -spead"
c$ = ""
Do Until c$ = "*"

Select Case c$
  Case "1"
    PLAY a$ + b$ + b$ + b$ + b$
  Case "2"
    PLAY a$ + a$ + b$ + b$ + b$
  Case "3"
    PLAY a$ + a$ + a$ + b$ + b$
  Case "4"
    PLAY a$ + a$ + a$ + a$ + b$
  Case "5"
    PLAY a$ + a$ + a$ + a$ + a$
  Case "6"
    PLAY b$ + a$ + a$ + a$ + a$
  Case "7"
    PLAY b$ + b$ + a$ + a$ + a$
  Case "8"
    PLAY b$ + b$ + b$ + a$ + a$
  Case "9"
    PLAY b$ + b$ + b$ + b$ + a$
  Case "0"
    PLAY b$ + b$ + b$ + b$ + b$
  Case "A"
    PLAY a$ + b$
  Case "B"
    PLAY b$ + a$ + a$ + a$
  Case "C"
    PLAY b$ + a$ + b$ + a$
  Case "D"
    PLAY b$ + a$ + a$
  Case "E"
    PLAY a$
  Case "F"
    PLAY a$ + a$ + b$ + a$
  Case "G"
    PLAY b$ + b$ + a$
  Case "H"
    PLAY a$ + a$ + a$ + a$
  Case "I"
    PLAY a$ + a$
  Case "J"
    PLAY a$ + b$ + b$ + b$
  Case "K"
    PLAY b$ + a$ + b$
  Case "L"
    PLAY a$ + b$ + a$ + a$
  Case "M"
    PLAY b$ + b$
  Case "N"
    PLAY b$ + a$
  Case "O"
    PLAY b$ + b$ + b$
  Case "P"
    PLAY a$ + b$ + b$ + a$
  Case "Q"
    PLAY b$ + b$ + a$ + b$
  Case "R"
    PLAY a$ + b$ + a$
  Case "S"
    PLAY a$ + a$ + a$
  Case "T"
    PLAY b$
  Case "U"
    PLAY a$ + a$ + b$
  Case "V"
    PLAY a$ + a$ + a$ + b$
  Case "W"
    PLAY a$ + b$ + b$
  Case "X"
    PLAY b$ + a$ + a$ + b$
  Case "Y"
    PLAY b$ + a$ + b$ + b$
  Case "Z"
    PLAY b$ + b$ + a$ + a$
  Case "\"
    PLAY b$ + a$ + a$ + a$ + b$
  Case "/"
    PLAY b$ + a$ + a$ + b$ + a$
  Case "["
    PLAY a$ + b$ + a$ + b$ + a$ + b$ + b$
  Case "\"
    PLAY b$ + a$ + a$ + b$ + a$
  Case "]"
    PLAY a$ + b$ + a$ + b$ + a$ + b$ + a$
  Case "."
    PLAY a$ + a$ + a$ + b$ + a$ + b$
  Case "'"
    PLAY b$ + b$ + b$ + b$ + a$ + b$
  Case ","
    PLAY a$ + b$ + a$ + b$ + a$ + b$
  Case "?"
    PLAY a$ + a$ + b$ + b$ + a$ + a$
  Case ";"
    PLAY a$ + b$ + a$ + b$ + a$
  Case "("
    PLAY b$ + b$ + b$ + a$ + b$
  Case ")"
    PLAY a$ + b$ + b$ + a$ + b$
  Case "+"
    Call sdjk(a)
  Case "_"
    Call sdjm(a)
  Case "<", ">"
    PLAY c$
  Case "^"
    If c$ = "^" Then
      p$ = c$
      End
    End If
  Case Else
    LOCATE 22, 36
    Print "Please:"
End Select
c$ = UCASE$(INPUT$(1))
LOCATE 20, 30
Print "       ";
Loop
Loop
End

Sub sdjk(a)
If a = a And a < 18 Then a = a + 1
End Sub

Sub sdjm(a)
If a = a And a > 4 Or a = a And a < 20 Then a = a - 1
End Sub