【正文】 ex=9。when 115=ToneIndex=9。when 116=ToneIndex=10。when 117=ToneIndex=9。when 118=ToneIndex=7。when 119=ToneIndex=7。when 120=ToneIndex=9。when 121=ToneIndex=10。when 122=ToneIndex=9。when 123=ToneIndex=9。when 124=ToneIndex=9。when 125=ToneIndex=9。when 126=ToneIndex=9。when 127=ToneIndex=0。when others=NULL。end case。elsif dig=3 thencase Counter iswhen 00=ToneIndex=3。when 01=ToneIndex=3。when 02=ToneIndex=5。when 03=ToneIndex=5。when 04=ToneIndex=8。when 05=ToneIndex=8。when 06=ToneIndex=8。when 07=ToneIndex=8。when 08=ToneIndex=8。when 09=ToneIndex=8。when 10=ToneIndex=7。when 11=ToneIndex=8。when 12=ToneIndex=7。when 13=ToneIndex=7。when 14=ToneIndex=7。when 15=ToneIndex=7。when 16=ToneIndex=6。when 17=ToneIndex=6。when 18=ToneIndex=5。when 19=ToneIndex=5。when 20=ToneIndex=6。when 21=ToneIndex=6。when 22=ToneIndex=8。when 23=ToneIndex=8。when 24=ToneIndex=3。when 25=ToneIndex=3。when 26=ToneIndex=2。when 27=ToneIndex=2。when 28=ToneIndex=1。when 29=ToneIndex=1。when 30=ToneIndex=1。when 31=ToneIndex=0。when 32=ToneIndex=1。when 33=ToneIndex=1。when 34=ToneIndex=1。when 35=ToneIndex=1。when 36=ToneIndex=1。when 37=ToneIndex=1。when 38=ToneIndex=8。when 39=ToneIndex=8。when 40=ToneIndex=8。when 41=ToneIndex=8。when 42=ToneIndex=5。when 43=ToneIndex=6。when 44=ToneIndex=5。when 45=ToneIndex=5。when 46=ToneIndex=2。when 47=ToneIndex=3。when 48=ToneIndex=2。when 49=ToneIndex=2。when 50=ToneIndex=1。when 51=ToneIndex=2。when 52=ToneIndex=2。when 53=ToneIndex=2。when 54=ToneIndex=2。when 55=ToneIndex=2。when 56=ToneIndex=2。when 57=ToneIndex=2。when 58=ToneIndex=2。when 59=ToneIndex=2。when 60=ToneIndex=2。when 61=ToneIndex=2。when 62=ToneIndex=2。when 63=ToneIndex=0。when 64=ToneIndex=3。when 65=ToneIndex=3。when 66=ToneIndex=5。when 67=ToneIndex=5。when 68=ToneIndex=8。when 69=ToneIndex=8。when 70=ToneIndex=8。when 71=ToneIndex=8。when 72=ToneIndex=8。when 73=ToneIndex=8。when 74=ToneIndex=7。when 75=ToneIndex=8。when 76=ToneIndex=7。when 77=ToneIndex=7。when 78=ToneIndex=7。when 79=ToneIndex=7。when 80=ToneIndex=6。when 81=ToneIndex=6。when 82=ToneIndex=5。when 83=ToneIndex=5。when 84=ToneIndex=6。when 85=ToneIndex=6。when 86=ToneIndex=8。when 87=ToneIndex=8。when 88=ToneIndex=3。when 89=ToneIndex=3。when 90=ToneIndex=2。when 91=ToneIndex=2。when 92=ToneIndex=1。when 93=ToneIndex=1。when 94=ToneIndex=1。when 95=ToneIndex=0。when 96=ToneIndex=1。when 97=ToneIndex=1。when 98=ToneIndex=1。when 99=ToneIndex=1。when 100=ToneIndex=1。when 101=ToneIndex=1。when 102=ToneIndex=8。when 103=ToneIndex=8。when 104=ToneIndex=8。when 105=ToneIndex=8。when 106=ToneIndex=5。when 107=ToneIndex=6。when 108=ToneIndex=5。when 109=ToneIndex=5。when 110=ToneIndex=2。when 111=ToneIndex=3。when 112=ToneIndex=2。when 113=ToneIndex=2。when 114=ToneIndex=1。when 115=ToneIndex=1。when 116=ToneIndex=1。when 117=ToneIndex=1。when 118=ToneIndex=1。when 119=ToneIndex=1。when 120=ToneIndex=1。when 121=ToneIndex=1。when 122=ToneIndex=1。when 123=ToneIndex=1。when 124=ToneIndex=1。when 125=ToneIndex=1。when 126=ToneIndex=1。when 127=ToneIndex=0。when others=NULL。end case。elsif dig=4 thencase Counter iswhen 00=ToneIndex=0。when 01=ToneIndex=0。when 02=ToneIndex=2。when 03=ToneIndex=2。when 04=ToneIndex=9。when 05=ToneIndex=9。when 06=ToneIndex=7。when 07=ToneIndex=7。when 08=ToneIndex=6。when 09=ToneIndex=6。when 10=ToneIndex=5。when 11=ToneIndex=5。when 12=ToneIndex=5。when 13=ToneIndex=5。when 14=ToneIndex=5。when 15=ToneIndex=5。when 16=ToneIndex=0。when 17=ToneIndex=0。when 18=ToneIndex=2。when 19=ToneIndex=2。when 20=ToneIndex=9。when 21=ToneIndex=9。when 22=ToneIndex=7。when 23=ToneIndex=7。when 24=ToneIndex=6。when 25=ToneIndex=6。when 26=ToneIndex=6。when 27=ToneIndex=6。when 28=ToneIndex=6。when 29=ToneIndex=6。when 30=ToneIndex=5。when 31=ToneIndex=5。when 32=ToneIndex=0。when 33=ToneIndex=0。when 34=ToneIndex=5。when 35=ToneIndex=5。when 36=ToneIndex=12。when 37=ToneIndex=12。when 38=ToneIndex=11。when 39=ToneIndex=11。when 40=ToneIndex=11。when 41=ToneIndex=11。when 42=ToneIndex=11。when 43=ToneIndex=11。when 44=ToneIndex=11。when 45=ToneIndex=11。when 46=ToneIndex=10。when 47=ToneIndex=10。when 48=ToneIndex=0。when 49=ToneIndex=0。when 50=ToneIndex=9。when 51=ToneIndex=9。when 52=ToneIndex=10。when 53=ToneIndex=10。when 54=ToneIndex=9。when 55=ToneIndex=9。when 56=ToneIndex=7。when 57=ToneIndex=7。when 58=ToneIndex=9。when 59=ToneIndex=9。when 60=ToneIndex=9。when 61=ToneIndex=9。when 62=ToneIndex=9。when 63=ToneIndex=9。when 64=ToneIndex=0。when 65=ToneIndex=0。when 66=ToneIndex=5。when 67=ToneIndex=5。when 68=ToneIndex=12。when 69=ToneIndex=12。when 70=ToneIndex=11。when 71=ToneIndex=11。when 72=ToneIndex=11。when 73=ToneIndex=11。when 74=ToneIndex=11。when 75=ToneIndex=11。when 76=ToneIndex=11。when 77=ToneIndex=11。when 78=ToneIndex=10。when 79=ToneIndex=10。when 80=ToneIndex=10。when 81=ToneIndex=10。when 82=ToneIndex=9。when 83=ToneIndex=9。when 84=ToneIndex=9。when 85=ToneIndex=9。when 86=ToneIndex=12。when 87=ToneIndex=12。when 88=ToneIndex=7。when 89=ToneIndex=7。when 90=ToneIndex=7。when 91=ToneIndex=7。when 92=ToneIndex=6。when 93=ToneIndex=6。when 94=ToneIndex=6。when 95=ToneIndex=6。when 96=ToneIndex=5。when 97=ToneIndex=5。when 98=ToneIndex=5。when 99=ToneIndex=5。when 100=ToneIndex=5。when 101=ToneIndex=0。when 102=ToneIndex=7。when 103=ToneIndex=7。when 104=ToneIndex=8。when 105=ToneIndex=8。when 106=ToneIndex=7。when 107=ToneIndex=7。when 108=ToneIndex=5。when 109=ToneIndex=5。when 110=ToneIndex=3。when 11