Function VL(Str AsChar, Int AnStep) {
    Time=Time-2;
    If (AsChar == {あ})   {SysEx$=F0, 43, 79, 09, 11, 0A, 00, 00, F7}
    If (AsChar == {い})   {SysEx$=F0, 43, 79, 09, 11, 0A, 00, 01, F7}
    If (AsChar == {う})   {SysEx$=F0, 43, 79, 09, 11, 0A, 00, 02, F7}
    If (AsChar == {え})   {SysEx$=F0, 43, 79, 09, 11, 0A, 00, 03, F7}
    If (AsChar == {お})   {SysEx$=F0, 43, 79, 09, 11, 0A, 00, 04, F7}
    If (AsChar == {か})   {SysEx$=F0, 43, 79, 09, 11, 0A, 00, 05, F7}
    If (AsChar == {き})   {SysEx$=F0, 43, 79, 09, 11, 0A, 00, 06, F7}
    If (AsChar == {く})   {SysEx$=F0, 43, 79, 09, 11, 0A, 00, 07, F7}
    If (AsChar == {け})   {SysEx$=F0, 43, 79, 09, 11, 0A, 00, 08, F7}
    If (AsChar == {こ})   {SysEx$=F0, 43, 79, 09, 11, 0A, 00, 09, F7}
    If (AsChar == {が})   {SysEx$=F0, 43, 79, 09, 11, 0A, 00, 0A, F7}
    If (AsChar == {ぎ})   {SysEx$=F0, 43, 79, 09, 11, 0A, 00, 0B, F7}
    If (AsChar == {ぐ})   {SysEx$=F0, 43, 79, 09, 11, 0A, 00, 0C, F7}
    If (AsChar == {げ})   {SysEx$=F0, 43, 79, 09, 11, 0A, 00, 0D, F7}
    If (AsChar == {ご})   {SysEx$=F0, 43, 79, 09, 11, 0A, 00, 0E, F7}
    If (AsChar == {きゃ}) {SysEx$=F0, 43, 79, 09, 11, 0A, 00, 0F, F7}
    If (AsChar == {きゅ}) {SysEx$=F0, 43, 79, 09, 11, 0A, 00, 10, F7}
    If (AsChar == {きょ}) {SysEx$=F0, 43, 79, 09, 11, 0A, 00, 11, F7}
    If (AsChar == {ぎゃ}) {SysEx$=F0, 43, 79, 09, 11, 0A, 00, 12, F7}
    If (AsChar == {ぎゅ}) {SysEx$=F0, 43, 79, 09, 11, 0A, 00, 13, F7}
    If (AsChar == {ぎょ}) {SysEx$=F0, 43, 79, 09, 11, 0A, 00, 14, F7}
    If (AsChar == {さ})   {SysEx$=F0, 43, 79, 09, 11, 0A, 00, 15, F7}
    If (AsChar == {すぃ}) {SysEx$=F0, 43, 79, 09, 11, 0A, 00, 16, F7}
    If (AsChar == {す})   {SysEx$=F0, 43, 79, 09, 11, 0A, 00, 17, F7}
    If (AsChar == {せ})   {SysEx$=F0, 43, 79, 09, 11, 0A, 00, 18, F7}
    If (AsChar == {そ})   {SysEx$=F0, 43, 79, 09, 11, 0A, 00, 19, F7}
    If (AsChar == {ざ})   {SysEx$=F0, 43, 79, 09, 11, 0A, 00, 1A, F7}
    If (AsChar == {ずぃ}) {SysEx$=F0, 43, 79, 09, 11, 0A, 00, 1B, F7}
    If (AsChar == {ず})   {SysEx$=F0, 43, 79, 09, 11, 0A, 00, 1C, F7}
    If (AsChar == {ぜ})   {SysEx$=F0, 43, 79, 09, 11, 0A, 00, 1D, F7}
    If (AsChar == {ぞ})   {SysEx$=F0, 43, 79, 09, 11, 0A, 00, 1E, F7}
    If (AsChar == {しゃ}) {SysEx$=F0, 43, 79, 09, 11, 0A, 00, 1F, F7}
    If (AsChar == {し})   {SysEx$=F0, 43, 79, 09, 11, 0A, 00, 20, F7}
    If (AsChar == {しゅ}) {SysEx$=F0, 43, 79, 09, 11, 0A, 00, 21, F7}
    If (AsChar == {しぇ}) {SysEx$=F0, 43, 79, 09, 11, 0A, 00, 22, F7}
    If (AsChar == {しょ}) {SysEx$=F0, 43, 79, 09, 11, 0A, 00, 23, F7}
    If (AsChar == {じゃ}) {SysEx$=F0, 43, 79, 09, 11, 0A, 00, 24, F7}
    If (AsChar == {じ})   {SysEx$=F0, 43, 79, 09, 11, 0A, 00, 25, F7}
    If (AsChar == {じゅ}) {SysEx$=F0, 43, 79, 09, 11, 0A, 00, 26, F7}
    If (AsChar == {じぇ}) {SysEx$=F0, 43, 79, 09, 11, 0A, 00, 27, F7}
    If (AsChar == {じょ}) {SysEx$=F0, 43, 79, 09, 11, 0A, 00, 28, F7}
    If (AsChar == {た})   {SysEx$=F0, 43, 79, 09, 11, 0A, 00, 29, F7}
    If (AsChar == {てぃ}) {SysEx$=F0, 43, 79, 09, 11, 0A, 00, 2A, F7}
    If (AsChar == {とぅ}) {SysEx$=F0, 43, 79, 09, 11, 0A, 00, 2B, F7}
    If (AsChar == {て})   {SysEx$=F0, 43, 79, 09, 11, 0A, 00, 2C, F7}
    If (AsChar == {と})   {SysEx$=F0, 43, 79, 09, 11, 0A, 00, 2D, F7}
    If (AsChar == {だ})   {SysEx$=F0, 43, 79, 09, 11, 0A, 00, 2E, F7}
    If (AsChar == {でぃ}) {SysEx$=F0, 43, 79, 09, 11, 0A, 00, 2F, F7}
    If (AsChar == {どぅ}) {SysEx$=F0, 43, 79, 09, 11, 0A, 00, 30, F7}
    If (AsChar == {で})   {SysEx$=F0, 43, 79, 09, 11, 0A, 00, 31, F7}
    If (AsChar == {ど})   {SysEx$=F0, 43, 79, 09, 11, 0A, 00, 32, F7}
    If (AsChar == {てゅ}) {SysEx$=F0, 43, 79, 09, 11, 0A, 00, 33, F7}
    If (AsChar == {でゅ}) {SysEx$=F0, 43, 79, 09, 11, 0A, 00, 34, F7}
    If (AsChar == {ちゃ}) {SysEx$=F0, 43, 79, 09, 11, 0A, 00, 35, F7}
    If (AsChar == {ち})   {SysEx$=F0, 43, 79, 09, 11, 0A, 00, 36, F7}
    If (AsChar == {ちゅ}) {SysEx$=F0, 43, 79, 09, 11, 0A, 00, 37, F7}
    If (AsChar == {ちぇ}) {SysEx$=F0, 43, 79, 09, 11, 0A, 00, 38, F7}
    If (AsChar == {ちょ}) {SysEx$=F0, 43, 79, 09, 11, 0A, 00, 39, F7}
    If (AsChar == {つぁ}) {SysEx$=F0, 43, 79, 09, 11, 0A, 00, 3A, F7}
    If (AsChar == {つぃ}) {SysEx$=F0, 43, 79, 09, 11, 0A, 00, 3B, F7}
    If (AsChar == {つ})   {SysEx$=F0, 43, 79, 09, 11, 0A, 00, 3C, F7}
    If (AsChar == {つぇ}) {SysEx$=F0, 43, 79, 09, 11, 0A, 00, 3D, F7}
    If (AsChar == {つぉ}) {SysEx$=F0, 43, 79, 09, 11, 0A, 00, 3E, F7}
    If (AsChar == {な})   {SysEx$=F0, 43, 79, 09, 11, 0A, 00, 3F, F7}
    If (AsChar == {に})   {SysEx$=F0, 43, 79, 09, 11, 0A, 00, 40, F7}
    If (AsChar == {ぬ})   {SysEx$=F0, 43, 79, 09, 11, 0A, 00, 41, F7}
    If (AsChar == {ね})   {SysEx$=F0, 43, 79, 09, 11, 0A, 00, 42, F7}
    If (AsChar == {の})   {SysEx$=F0, 43, 79, 09, 11, 0A, 00, 43, F7}
    If (AsChar == {にゃ}) {SysEx$=F0, 43, 79, 09, 11, 0A, 00, 44, F7}
    If (AsChar == {にゅ}) {SysEx$=F0, 43, 79, 09, 11, 0A, 00, 45, F7}
    If (AsChar == {にょ}) {SysEx$=F0, 43, 79, 09, 11, 0A, 00, 46, F7}
    If (AsChar == {は})   {SysEx$=F0, 43, 79, 09, 11, 0A, 00, 47, F7}
    If (AsChar == {ひ})   {SysEx$=F0, 43, 79, 09, 11, 0A, 00, 48, F7}
    If (AsChar == {ふ})   {SysEx$=F0, 43, 79, 09, 11, 0A, 00, 49, F7}
    If (AsChar == {へ})   {SysEx$=F0, 43, 79, 09, 11, 0A, 00, 4A, F7}
    If (AsChar == {ほ})   {SysEx$=F0, 43, 79, 09, 11, 0A, 00, 4B, F7}
    If (AsChar == {ば})   {SysEx$=F0, 43, 79, 09, 11, 0A, 00, 4C, F7}
    If (AsChar == {び})   {SysEx$=F0, 43, 79, 09, 11, 0A, 00, 4D, F7}
    If (AsChar == {ぶ})   {SysEx$=F0, 43, 79, 09, 11, 0A, 00, 4E, F7}
    If (AsChar == {べ})   {SysEx$=F0, 43, 79, 09, 11, 0A, 00, 4F, F7}
    If (AsChar == {ぼ})   {SysEx$=F0, 43, 79, 09, 11, 0A, 00, 50, F7}
    If (AsChar == {ぱ})   {SysEx$=F0, 43, 79, 09, 11, 0A, 00, 51, F7}
    If (AsChar == {ぴ})   {SysEx$=F0, 43, 79, 09, 11, 0A, 00, 52, F7}
    If (AsChar == {ぷ})   {SysEx$=F0, 43, 79, 09, 11, 0A, 00, 53, F7}
    If (AsChar == {ぺ})   {SysEx$=F0, 43, 79, 09, 11, 0A, 00, 54, F7}
    If (AsChar == {ぽ})   {SysEx$=F0, 43, 79, 09, 11, 0A, 00, 55, F7}
    If (AsChar == {ひゃ}) {SysEx$=F0, 43, 79, 09, 11, 0A, 00, 56, F7}
    If (AsChar == {ひゅ}) {SysEx$=F0, 43, 79, 09, 11, 0A, 00, 57, F7}
    If (AsChar == {ひょ}) {SysEx$=F0, 43, 79, 09, 11, 0A, 00, 58, F7}
    If (AsChar == {びゃ}) {SysEx$=F0, 43, 79, 09, 11, 0A, 00, 59, F7}
    If (AsChar == {びゅ}) {SysEx$=F0, 43, 79, 09, 11, 0A, 00, 5A, F7}
    If (AsChar == {びょ}) {SysEx$=F0, 43, 79, 09, 11, 0A, 00, 5B, F7}
    If (AsChar == {ぴゃ}) {SysEx$=F0, 43, 79, 09, 11, 0A, 00, 5C, F7}
    If (AsChar == {ぴゅ}) {SysEx$=F0, 43, 79, 09, 11, 0A, 00, 5D, F7}
    If (AsChar == {ぴょ}) {SysEx$=F0, 43, 79, 09, 11, 0A, 00, 5E, F7}
    If (AsChar == {ふぁ}) {SysEx$=F0, 43, 79, 09, 11, 0A, 00, 5F, F7}
    If (AsChar == {ふぃ}) {SysEx$=F0, 43, 79, 09, 11, 0A, 00, 60, F7}
    If (AsChar == {ふゅ}) {SysEx$=F0, 43, 79, 09, 11, 0A, 00, 61, F7}
    If (AsChar == {ふぇ}) {SysEx$=F0, 43, 79, 09, 11, 0A, 00, 62, F7}
    If (AsChar == {ふぉ}) {SysEx$=F0, 43, 79, 09, 11, 0A, 00, 63, F7}
    If (AsChar == {ま})   {SysEx$=F0, 43, 79, 09, 11, 0A, 00, 64, F7}
    If (AsChar == {み})   {SysEx$=F0, 43, 79, 09, 11, 0A, 00, 65, F7}
    If (AsChar == {む})   {SysEx$=F0, 43, 79, 09, 11, 0A, 00, 66, F7}
    If (AsChar == {め})   {SysEx$=F0, 43, 79, 09, 11, 0A, 00, 67, F7}
    If (AsChar == {も})   {SysEx$=F0, 43, 79, 09, 11, 0A, 00, 68, F7}
    If (AsChar == {みゃ}) {SysEx$=F0, 43, 79, 09, 11, 0A, 00, 69, F7}
    If (AsChar == {みゅ}) {SysEx$=F0, 43, 79, 09, 11, 0A, 00, 6A, F7}
    If (AsChar == {みょ}) {SysEx$=F0, 43, 79, 09, 11, 0A, 00, 6B, F7}
    If (AsChar == {や})   {SysEx$=F0, 43, 79, 09, 11, 0A, 00, 6C, F7}
    If (AsChar == {ゆ})   {SysEx$=F0, 43, 79, 09, 11, 0A, 00, 6D, F7}
    If (AsChar == {よ})   {SysEx$=F0, 43, 79, 09, 11, 0A, 00, 6E, F7}
    If (AsChar == {ら})   {SysEx$=F0, 43, 79, 09, 11, 0A, 00, 6F, F7}
    If (AsChar == {り})   {SysEx$=F0, 43, 79, 09, 11, 0A, 00, 70, F7}
    If (AsChar == {る})   {SysEx$=F0, 43, 79, 09, 11, 0A, 00, 71, F7}
    If (AsChar == {れ})   {SysEx$=F0, 43, 79, 09, 11, 0A, 00, 72, F7}
    If (AsChar == {ろ})   {SysEx$=F0, 43, 79, 09, 11, 0A, 00, 73, F7}
    If (AsChar == {りゃ}) {SysEx$=F0, 43, 79, 09, 11, 0A, 00, 74, F7}
    If (AsChar == {りゅ}) {SysEx$=F0, 43, 79, 09, 11, 0A, 00, 75, F7}
    If (AsChar == {りょ}) {SysEx$=F0, 43, 79, 09, 11, 0A, 00, 76, F7}
    If (AsChar == {わ})   {SysEx$=F0, 43, 79, 09, 11, 0A, 00, 77, F7}
    If (AsChar == {うぃ}) {SysEx$=F0, 43, 79, 09, 11, 0A, 00, 78, F7}
    If (AsChar == {うぇ}) {SysEx$=F0, 43, 79, 09, 11, 0A, 00, 79, F7}
    If (AsChar == {うぉ}) {SysEx$=F0, 43, 79, 09, 11, 0A, 00, 7A, F7}
    If (AsChar == {ん})   {SysEx$=F0, 43, 79, 09, 11, 0A, 00, 7B, F7}

    If (AsChar == {ん１}) {SysEx$=F0, 43, 79, 09, 11, 0A, 00, 7B, F7}
    If (AsChar == {ん２}) {SysEx$=F0, 43, 79, 09, 11, 0A, 00, 7C, F7}
    If (AsChar == {ん３}) {SysEx$=F0, 43, 79, 09, 11, 0A, 00, 7D, F7}
    If (AsChar == {ん４}) {SysEx$=F0, 43, 79, 09, 11, 0A, 00, 7E, F7}
    If (AsChar == {ん５}) {SysEx$=F0, 43, 79, 09, 11, 0A, 00, 7F, F7}

    If (AsChar == {づぁ}) {SysEx$=F0, 43, 79, 09, 11, 0A, 00, 1A, F7}
    If (AsChar == {づぃ}) {SysEx$=F0, 43, 79, 09, 11, 0A, 00, 1B, F7}
    If (AsChar == {づ})   {SysEx$=F0, 43, 79, 09, 11, 0A, 00, 1C, F7}
    If (AsChar == {づぇ}) {SysEx$=F0, 43, 79, 09, 11, 0A, 00, 1D, F7}
    If (AsChar == {づぉ}) {SysEx$=F0, 43, 79, 09, 11, 0A, 00, 1E, F7}

    If (AsChar == {ゐ})   {SysEx$=F0, 43, 79, 09, 11, 0A, 00, 78, F7}
    If (AsChar == {ゑ})   {SysEx$=F0, 43, 79, 09, 11, 0A, 00, 79, F7}
    If (AsChar == {を})   {SysEx$=F0, 43, 79, 09, 11, 0A, 00, 7A, F7}
    
    Time=Time+AnStep+2;
}

TR(01) CH(01) o6 q(100)

SUB{VL({み},!8) VL({く},!8) VL({だ},!8)  VL({よ},!2)}
    e8          d8          e8           d2


l8
SUB{VL({さ},!8) VL({く},!8) VL({ら},!8)  VL({か},!8) VL({ら},!8) VL({ぽ},!8) VL({け},!8) VL({み},!8) VL({く},!8) VL({に},!8) VL({め},!8) r8 VL({せ},!4) VL({じ},!8) VL({を},!8) VL({お},!8) VL({く},!8) VL({り},!8) VL({ま},!8) VL({す},!8) }
    c           c           c            c           c           c           c           c           c           c           c           r8 c4          c           c           c           c           c           c           c