Dim $E_0                    =   "2890" ;20
Dim $E_1                    =   "2990" ;21
Dim $E_2                    =   "2A90" ;21
Dim $E_3                    =   "2B90" ;21
Dim $E_4                    =   "2C90" ;21

Dim $E_5                    =   "2D90" ;21
Dim $A0                    =   "2D90" ;21

Dim $E_6                    =   "2E90" ;21
Dim $A1                    =   "2E90" ;21

Dim $E_7                    =   "2F90" ;21
Dim $A2                    =   "2F90" ;21

Dim $E_8                    =   "3090" ;21
Dim $A3                    =   "3090" ;21

Dim $E_9                    =   "3190" ;21
Dim $A4                    =   "3190" ;21

Dim $E_10                    =   "3290" ;30
Dim $A5                    =   "3290" ;30
Dim $D0                    =   "3290" ;30

Dim $E_11         =  "3390"   ;31
Dim $A6         =  "3390"   ;31
Dim $D1         =  "3390"   ;31

Dim $E_12                    =   "3490" ;32
Dim $A7                    =   "3490" ;32
Dim $D2                    =   "3490" ;32

Dim $E_13                    =   "3590" ;33
Dim $A8                    =   "3590" ;33
Dim $D3                    =   "3590" ;33

Dim $E_14         =  "3690"    ;34
Dim $A9         =  "3690"    ;34
Dim $D4         =  "3690"    ;34

Dim $E_15                    =   "3790" ;35
Dim $A10                    =   "3790" ;35
Dim $D5                    =   "3790" ;35
Dim $G0                    =   "3790" ;35

Dim $E_16         =  "3890"    ;36
Dim $A11         =  "3890"    ;36
Dim $D6         =  "3890"    ;36
Dim $G1         =  "3890"    ;36

Dim $E_17         =  "3990"    ;36
Dim $A12                   =   "3990" ;37
Dim $D7                    =   "3990" ;37
Dim $G2         =  "3990"    ;38

Dim $E_18         =  "3A90"    ;36
Dim $A13         =  "3A90"    ;38
Dim $D8         =  "3A90"    ;38
Dim $G3         =  "3A90"    ;38

Dim $E_19         =  "3B90"    ;36
Dim $A14                    =   "3B90" ;39
Dim $D9                    =   "3B90" ;39
Dim $G4                    =   "3B90" ;39
Dim $B0                    =   "3B90" ;39

Dim $E_20         =  "3C90"    ;36
Dim $A15                    =   "3C90" ;40 - Middle C
Dim $D10                    =   "3C90" ;40 - Middle C
Dim $G5                    =   "3C90" ;40 - Middle C
Dim $B1                    =   "3C90" ;40 - Middle C

Dim $E_21         =  "3D90"    ;36
Dim $A16                    =   "3D90"
Dim $D11         =  "3D90"   ;41
Dim $G6         =  "3D90"   ;41
Dim $B2         =  "3D90"   ;41

Dim $E_22         =  "3E90"    ;36
Dim $A17                   =   "3E90"
Dim $D12                    =   "3E90" ;42
Dim $G7                    =   "3E90" ;42
Dim $B3                    =   "3E90" ;42

Dim $E_23         =  "3F90"    ;36
Dim $A18                   =   "3F90"
Dim $D13         =  "3F90"    ;43
Dim $G8         =  "3F90"    ;43
Dim $B4         =  "3F90"    ;43

Dim $E_24         =  "4090"    ;36
Dim $A19                   =   "4090"
Dim $D14                    =   "4090" ;44
Dim $G9                    =   "4090" ;44
Dim $B5                    =   "4090" ;44
Dim $e0                    =   "4090" ;44

Dim $E_25         =  "4190"    ;36
Dim $A20                   =   "4190"
Dim $D15                    =   "4190" ;45
Dim $G10                    =   "4190" ;45
Dim $B6                    =   "4190" ;45
Dim $e1                    =   "4190" ;45

Dim $A21                   =   "4290"
Dim $D16                    =   "4290"
Dim $G11         =  "4290"    ;46
Dim $B7         =  "4290"    ;46
Dim $e2         =  "4290"    ;46

Dim $A22                   =   "4390"
Dim $D17                   =   "4390"
Dim $G12                    =   "4390" ;47
Dim $B8                    =   "4390" ;47
Dim $e3                    =   "4390" ;47

Dim $A23                   =   "4490"
Dim $D18                   =   "4490"
Dim $G13         =  "4490"   ;48
Dim $B9         =  "4490"   ;48
Dim $e4         =  "4490"   ;48

Dim $A24                   =   "4590"
Dim $D19                   =   "4590"
Dim $G14                    =   "4590" ;49
Dim $B10                    =   "4590" ;49
Dim $e5                    =   "4590" ;49

Dim $A25                   =   "4690"
Dim $D20                   =   "4690"
Dim $G15         =  "4690"    ;50
Dim $B11         =  "4690"    ;50
Dim $e6         =  "4690"    ;50

Dim $D21                   =   "4790"
Dim $G16         =  "4790"
Dim $B12                    =   "4790" ;51
Dim $e7                    =   "4790" ;51

Dim $D22                   =   "4890"
Dim $G17         =  "4890"
Dim $B13                    =   "4890" ;52
Dim $e8                    =   "4890" ;52

Dim $D23                   =   "4990"
Dim $G18         =  "4990"
Dim $B14         =  "4990"   ;53
Dim $e9         =  "4990"   ;53

Dim $D24                   =   "4A90"
Dim $G19         =  "4A90"
Dim $B15                    =   "4A90" ;54
Dim $e10                    =   "4A90" ;54

Dim $D25                   =   "4B90"
Dim $G20         =  "4B90"
Dim $B16                   =   "4B90" ;54
Dim $e11         =  "4B90"    ;55

Dim $G21         =  "4C90"
Dim $B17 =   "4C90" ;56
Dim $e12                    =   "4C90" ;56

Dim $G22         =  "4D90"
Dim $B18                   =   "4D90" ;5
Dim $e13                    =   "4D90" ;57

Dim $G23        =  "4E90"
Dim $B19                  =   "4E90" ;5
Dim $e14         =  "4E90"    ;58

Dim $G24        =  "4F90"
Dim $B20                  =   "4F90" ;5
Dim $e15                    =   "4F90" ;59

Dim $G25        =  "5090"
Dim $B21                  =   "5090" ;5
Dim $e16                    =   "5090" ;59

Dim $B22                  =   "5190" ;5
Dim $e17                    =   "5190" ;59

Dim $B23                  =   "5290" ;5
Dim $e18                    =   "5290" ;59

Dim $B24                 =   "5390" ;5
Dim $e19                    =   "5390" ;59

Dim $B25                  =   "5490" ;5
Dim $e18                    =   "5490" ;59

Dim $e19                    =   "5590" ;59
Dim $e20                    =   "5690" ;59
Dim $e21                    =   "5790" ;59
Dim $e22                    =   "5890" ;59
Dim $e23                    =   "5990" ;59
Dim $e24                    =   "5A90" ;59
Dim $e25                    =   "5B90" ;59