コンピュータの話ですが、例えばホームページの作成など日本語を正しく表記するには２バイト文字、つまり漢字の扱いが必要です。また、アクセントを考える場合に例えば、きゃく、という言葉てすが、勿論二拍であるにせよ、これじゃあ６バイトじゃないですか。
６バイトなのに二拍と言う事で、考え込んでしまいました。そして考え付いたのが以下のプログラムです。要は最初にすべて定義してしまえばよいのです。あとは自由にその文字関数を用いるだけです。
という事で日本語として一拍と考えられる文字を定義し、"temp1.txt" と "temp2.txt" に書き出しました。"temp1.txt" では、ん、を省いています。つまり、１拍目になる事の出来ることばです。
そして作業結果ですが、"temp1.txt" の言葉にウ列の一単語を足して１拍動詞になる可能性のある表音文字を作成したのが "temp3.txt" です。一拍目を"temp1.txt"から選び、二拍目を"temp2.txt"から選びそしてウ列の一単語を足して"temp4.txt"を作成しました。２拍動詞になる可能性のある表音文字というわけです。
"temp3.txt"のなかには、じぁむ、などという言葉が出てきました。なるほど、ジャムを塗る事を、じぁむ、と言えば良いのかも知れませんね。あるいは、それを言うなら、じゃむる、の三拍動詞でしょうという方もお見えかも知れませんが。
1000 ' save "haku.bas",a
1010 '
1020 ' for ex. basic98.exe /F:3/S:256/T:run "haku.bas"
1030 '
1040 F1$="temp1.txt" ' １拍目になる事の出来ることば
1050 F2$="temp2.txt" ' ２拍目以降になる事の出来ることば
1060 F3$="temp3.txt" ' ２拍動詞の出力結果
1070 F4$="temp4.txt" ' ３拍動詞の出力結果
1080 OPEN F1$ AS #1:CLOSE:KILL F1$
1090 OPEN F2$ AS #1:CLOSE:KILL F2$
1100 OPEN F3$ AS #1:CLOSE:KILL F3$
1110 OPEN F4$ AS #1:CLOSE:KILL F4$
1120 DIM H1$(16,5),H2$(16,5),H3$(16,5),H4$(16,5),H5$(16,5),H6$(16,5),H7$(16,5)
1130 H1$( 1,1)="あ" :H1$( 1,2)="い" :H1$( 1,3)="う" :H1$( 1,4)="え" :H1$( 1,5)="お"
1140 H1$( 2,1)="か" :H1$( 2,2)="き" :H1$( 2,3)="く" :H1$( 2,4)="け" :H1$( 2,5)="こ"
1150 H1$( 3,1)="さ" :H1$( 3,2)="し" :H1$( 3,3)="す" :H1$( 3,4)="せ" :H1$( 3,5)="そ"
1160 H1$( 4,1)="た" :H1$( 4,2)="ち" :H1$( 4,3)="つ" :H1$( 4,4)="て" :H1$( 4,5)="と"
1170 H1$( 5,1)="な" :H1$( 5,2)="に" :H1$( 5,3)="ぬ" :H1$( 5,4)="ね" :H1$( 5,5)="の"
1180 H1$( 6,1)="は" :H1$( 6,2)="ひ" :H1$( 6,3)="ふ" :H1$( 6,4)="へ" :H1$( 6,5)="ほ"
1190 H1$( 7,1)="ま" :H1$( 7,2)="み" :H1$( 7,3)="む" :H1$( 7,4)="め" :H1$( 7,5)="も"
1200 H1$( 8,1)="や" : :H1$( 8,3)="ゆ" : :H1$( 8,5)="よ"
1210 H1$( 9,1)="ら" :H1$( 9,2)="り" :H1$( 9,3)="る" :H1$( 9,4)="れ" :H1$( 9,5)="ろ"
1220 H1$(10,1)="わ" : :H1$(10,5)="を"
1230 H1$(11,1)="ん"
1240 H1$(12,1)="が" :H1$(12,2)="ぎ" :H1$(12,3)="ぐ" :H1$(12,4)="げ" :H1$(12,5)="ご"
1250 H1$(13,1)="ざ" :H1$(13,2)="じ" :H1$(13,3)="ず" :H1$(13,4)="ぜ" :H1$(13,5)="ぞ"
1260 H1$(14,1)="だ" :H1$(14,2)="だ" :H1$(14,3)="だ" :H1$(14,4)="だ" :H1$(14,5)="だ"
1270 H1$(15,1)="ば" :H1$(15,2)="び" :H1$(15,3)="ぶ" :H1$(15,4)="べ" :H1$(15,5)="ぼ"
1280 H1$(16,1)="ぱ" :H1$(16,2)="ぴ" :H1$(16,3)="ぷ" :H1$(16,4)="ぺ" :H1$(16,5)="ぽ"
1290 H2$( 1,1)="あぁ":H2$( 1,2)="いぁ":H2$( 1,3)="うぁ":H2$( 1,4)="えぁ":H2$( 1,5)="おぁ"
1300 H2$( 2,1)="かぁ":H2$( 2,2)="きぁ":H2$( 2,3)="くぁ":H2$( 2,4)="けぁ":H2$( 2,5)="こぁ"
1310 H2$( 3,1)="さぁ":H2$( 3,2)="しぁ":H2$( 3,3)="すぁ":H2$( 3,4)="せぁ":H2$( 3,5)="そぁ"
1320 H2$( 4,1)="たぁ":H2$( 4,2)="ちぁ":H2$( 4,3)="つぁ":H2$( 4,4)="てぁ":H2$( 4,5)="とぁ"
1330 H2$( 5,1)="なぁ":H2$( 5,2)="にぁ":H2$( 5,3)="ぬぁ":H2$( 5,4)="ねぁ":H2$( 5,5)="のぁ"
1340 H2$( 6,1)="はぁ":H2$( 6,2)="ひぁ":H2$( 6,3)="ふぁ":H2$( 6,4)="へぁ":H2$( 6,5)="ほぁ"
1350 H2$( 7,1)="まぁ":H2$( 7,2)="みぁ":H2$( 7,3)="むぁ":H2$( 7,4)="めぁ":H2$( 7,5)="もぁ"
1360 H2$( 8,1)="やぁ": :H2$( 8,3)="ゆぁ": :H2$( 8,5)="よぁ"
1370 H2$( 9,1)="らぁ":H2$( 9,2)="りぁ":H2$( 9,3)="るぁ":H2$( 9,4)="れぁ":H2$( 9,5)="ろぁ"
1380 H2$(10,1)="わぁ": :H2$(10,5)="をぁ"
1390 H2$(11,1)="んぁ"
1400 H2$(12,1)="がぁ":H2$(12,2)="ぎぁ":H2$(12,3)="ぐぁ":H2$(12,4)="げぁ":H2$(12,5)="ごぁ"
1410 H2$(13,1)="ざぁ":H2$(13,2)="じぁ":H2$(13,3)="ずぁ":H2$(13,4)="ぜぁ":H2$(13,5)="ぞぁ"
1420 H2$(14,1)="だぁ":H2$(14,2)="だぁ":H2$(14,3)="だぁ":H2$(14,4)="だぁ":H2$(14,5)="だぁ"
1430 H2$(15,1)="ばぁ":H2$(15,2)="びぁ":H2$(15,3)="ぶぁ":H2$(15,4)="べぁ":H2$(15,5)="ぼぁ"
1440 H2$(16,1)="ぱぁ":H2$(16,2)="ぴぁ":H2$(16,3)="ぷぁ":H2$(16,4)="ぺぁ":H2$(16,5)="ぽぁ"
1450 H3$( 1,1)="あぃ":H3$( 1,2)="いぃ":H3$( 1,3)="うぃ":H3$( 1,4)="えぃ":H3$( 1,5)="おぃ"
1460 H3$( 2,1)="かぃ":H3$( 2,2)="きぃ":H3$( 2,3)="くぃ":H3$( 2,4)="けぃ":H3$( 2,5)="こぃ"
1470 H3$( 3,1)="さぃ":H3$( 3,2)="しぃ":H3$( 3,3)="すぃ":H3$( 3,4)="せぃ":H3$( 3,5)="そぃ"
1480 H3$( 4,1)="たぃ":H3$( 4,2)="ちぃ":H3$( 4,3)="つぃ":H3$( 4,4)="てぃ":H3$( 4,5)="とぃ"
1490 H3$( 5,1)="なぃ":H3$( 5,2)="にぃ":H3$( 5,3)="ぬぃ":H3$( 5,4)="ねぃ":H3$( 5,5)="のぃ"
1500 H3$( 6,1)="はぃ":H3$( 6,2)="ひぃ":H3$( 6,3)="ふぃ":H3$( 6,4)="へぃ":H3$( 6,5)="ほぃ"
1510 H3$( 7,1)="まぃ":H3$( 7,2)="みぃ":H3$( 7,3)="むぃ":H3$( 7,4)="めぃ":H3$( 7,5)="もぃ"
1520 H3$( 8,1)="やぃ": :H3$( 8,3)="ゆぃ": :H3$( 8,5)="よぃ"
1530 H3$( 9,1)="らぃ":H3$( 9,2)="りぃ":H3$( 9,3)="るぃ":H3$( 9,4)="れぃ":H3$( 9,5)="ろぃ"
1540 H3$(10,1)="わぃ": :H3$(10,5)="をぃ"
1550 H3$(11,1)="んぃ"
1560 H3$(12,1)="がぃ":H3$(12,2)="ぎぃ":H3$(12,3)="ぐぃ":H3$(12,4)="げぃ":H3$(12,5)="ごぃ"
1570 H3$(13,1)="ざぃ":H3$(13,2)="じぃ":H3$(13,3)="ずぃ":H3$(13,4)="ぜぃ":H3$(13,5)="ぞぃ"
1580 H3$(14,1)="だぃ":H3$(14,2)="だぃ":H3$(14,3)="だぃ":H3$(14,4)="だぃ":H3$(14,5)="だぃ"
1590 H3$(15,1)="ばぃ":H3$(15,2)="びぃ":H3$(15,3)="ぶぃ":H3$(15,4)="べぃ":H3$(15,5)="ぼぃ"
1600 H3$(16,1)="ぱぃ":H3$(16,2)="ぴぃ":H3$(16,3)="ぷぃ":H3$(16,4)="ぺぃ":H3$(16,5)="ぽぃ"
1610 H4$( 1,1)="あぅ":H4$( 1,2)="いぅ":H4$( 1,3)="うぅ":H4$( 1,4)="えぅ":H4$( 1,5)="おぅ"
1620 H4$( 2,1)="かぅ":H4$( 2,2)="きぅ":H4$( 2,3)="くぅ":H4$( 2,4)="けぅ":H4$( 2,5)="こぅ"
1630 H4$( 3,1)="さぅ":H4$( 3,2)="しぅ":H4$( 3,3)="すぅ":H4$( 3,4)="せぅ":H4$( 3,5)="そぅ"
1640 H4$( 4,1)="たぅ":H4$( 4,2)="ちぅ":H4$( 4,3)="つぅ":H4$( 4,4)="てぅ":H4$( 4,5)="とぅ"
1650 H4$( 5,1)="なぅ":H4$( 5,2)="にぅ":H4$( 5,3)="ぬぅ":H4$( 5,4)="ねぅ":H4$( 5,5)="のぅ"
1660 H4$( 6,1)="はぅ":H4$( 6,2)="ひぅ":H4$( 6,3)="ふぅ":H4$( 6,4)="へぅ":H4$( 6,5)="ほぅ"
1670 H4$( 7,1)="まぅ":H4$( 7,2)="みぅ":H4$( 7,3)="むぅ":H4$( 7,4)="めぅ":H4$( 7,5)="もぅ"
1680 H4$( 8,1)="やぅ": :H4$( 8,3)="ゆぅ": :H4$( 8,5)="よぅ"
1690 H4$( 9,1)="らぅ":H4$( 9,2)="りぅ":H4$( 9,3)="るぅ":H4$( 9,4)="れぅ":H4$( 9,5)="ろぅ"
1700 H4$(10,1)="わぅ" :H4$(10,5)="をぅ"
1710 H4$(11,1)="んぅ"
1720 H4$(12,1)="がぅ":H4$(12,2)="ぎぅ":H4$(12,3)="ぐぅ":H4$(12,4)="げぅ":H4$(12,5)="ごぅ"
1730 H4$(13,1)="ざぅ":H4$(13,2)="じぅ":H4$(13,3)="ずぅ":H4$(13,4)="ぜぅ":H4$(13,5)="ぞぅ"
1740 H4$(14,1)="だぅ":H4$(14,2)="だぅ":H4$(14,3)="だぅ":H4$(14,4)="だぅ":H4$(14,5)="だぅ"
1750 H4$(15,1)="ばぅ":H4$(15,2)="びぅ":H4$(15,3)="ぶぅ":H4$(15,4)="べぅ":H4$(15,5)="ぼぅ"
1760 H4$(16,1)="ぱぅ":H4$(16,2)="ぴぅ":H4$(16,3)="ぷぅ":H4$(16,4)="ぺぅ":H4$(16,5)="ぽぅ"
1770 H5$( 1,1)="あぇ":H5$( 1,2)="いぇ":H5$( 1,3)="うぇ":H5$( 1,4)="えぇ":H5$( 1,5)="おぇ"
1780 H5$( 2,1)="かぇ":H5$( 2,2)="きぇ":H5$( 2,3)="くぇ":H5$( 2,4)="けぇ":H5$( 2,5)="こぇ"
1790 H5$( 3,1)="さぇ":H5$( 3,2)="しぇ":H5$( 3,3)="すぇ":H5$( 3,4)="せぇ":H5$( 3,5)="そぇ"
1800 H5$( 4,1)="たぇ":H5$( 4,2)="ちぇ":H5$( 4,3)="つぇ":H5$( 4,4)="てぇ":H5$( 4,5)="とぇ"
1810 H5$( 5,1)="なぇ":H5$( 5,2)="にぇ":H5$( 5,3)="ぬぇ":H5$( 5,4)="ねぇ":H5$( 5,5)="のぇ"
1820 H5$( 6,1)="はぇ":H5$( 6,2)="ひぇ":H5$( 6,3)="ふぇ":H5$( 6,4)="へぇ":H5$( 6,5)="ほぇ"
1830 H5$( 7,1)="まぇ":H5$( 7,2)="みぇ":H5$( 7,3)="むぇ":H5$( 7,4)="めぇ":H5$( 7,5)="もぇ"
1840 H5$( 8,1)="やぇ": :H5$( 8,3)="ゆぇ": :H5$( 8,5)="よぇ"
1850 H5$( 9,1)="らぇ":H5$( 9,2)="りぇ":H5$( 9,3)="るぇ":H5$( 9,4)="れぇ":H5$( 9,5)="ろぇ"
1860 H5$(10,1)="わぇ": :H5$(10,5)="をぇ"
1870 H5$(11,1)="んぇ"
1880 H5$(12,1)="がぇ":H5$(12,2)="ぎぇ":H5$(12,3)="ぐぇ":H5$(12,4)="げぇ":H5$(12,5)="ごぇ"
1890 H5$(13,1)="ざぇ":H5$(13,2)="じぇ":H5$(13,3)="ずぇ":H5$(13,4)="ぜぇ":H5$(13,5)="ぞぇ"
1900 H5$(14,1)="だぇ":H5$(14,2)="だぇ":H5$(14,3)="だぇ":H5$(14,4)="だぇ":H5$(14,5)="だぇ"
1910 H5$(15,1)="ばぇ":H5$(15,2)="びぇ":H5$(15,3)="ぶぇ":H5$(15,4)="べぇ":H5$(15,5)="ぼぇ"
1920 H5$(16,1)="ぱぇ":H5$(16,2)="ぴぇ":H5$(16,3)="ぷぇ":H5$(16,4)="ぺぇ":H5$(16,5)="ぽぇ"
1930 H6$( 1,1)="あぉ":H6$( 1,2)="いぉ":H6$( 1,3)="うぉ":H6$( 1,4)="えぉ":H6$( 1,5)="おぉ"
1940 H6$( 2,1)="かぉ":H6$( 2,2)="きぉ":H6$( 2,3)="くぉ":H6$( 2,4)="けぉ":H6$( 2,5)="こぉ"
1950 H6$( 3,1)="さぉ":H6$( 3,2)="しぉ":H6$( 3,3)="すぉ":H6$( 3,4)="せぉ":H6$( 3,5)="そぉ"
1960 H6$( 4,1)="たぉ":H6$( 4,2)="ちぉ":H6$( 4,3)="つぉ":H6$( 4,4)="てぉ":H6$( 4,5)="とぉ"
1970 H6$( 5,1)="なぉ":H6$( 5,2)="にぉ":H6$( 5,3)="ぬぉ":H6$( 5,4)="ねぉ":H6$( 5,5)="のぉ"
1980 H6$( 6,1)="はぉ":H6$( 6,2)="ひぉ":H6$( 6,3)="ふぉ":H6$( 6,4)="へぉ":H6$( 6,5)="ほぉ"
1990 H6$( 7,1)="まぉ":H6$( 7,2)="みぉ":H6$( 7,3)="むぉ":H6$( 7,4)="めぉ":H6$( 7,5)="もぉ"
2000 H6$( 8,1)="やぉ": :H6$( 8,3)="よぉ": :H6$( 8,5)="よぉ"
2010 H6$( 9,1)="らぉ":H6$( 9,2)="りぉ":H6$( 9,3)="るぉ":H6$( 9,4)="れぉ":H6$( 9,5)="ろぉ"
2020 H6$(10,1)="わぉ": :H6$(10,5)="をぉ"
2030 H6$(11,1)="んぉ"
2040 H6$(12,1)="がぉ":H6$(12,2)="ぎぉ":H6$(12,3)="ぐぉ":H6$(12,4)="げぉ":H6$(12,5)="ごぉ"
2050 H6$(13,1)="ざぉ":H6$(13,2)="じぉ":H6$(13,3)="ずぉ":H6$(13,4)="ぜぉ":H6$(13,5)="ぞぉ"
2060 H6$(14,1)="だぉ":H6$(14,2)="だぉ":H6$(14,3)="だぉ":H6$(14,4)="だぉ":H6$(14,5)="だぉ"
2070 H6$(15,1)="ばぉ":H6$(15,2)="びぉ":H6$(15,3)="ぶぉ":H6$(15,4)="べぉ":H6$(15,5)="ぼぉ"
2080 H6$(16,1)="ぱぉ":H6$(16,2)="ぴぉ":H6$(16,3)="ぷぉ":H6$(16,4)="ぺぉ":H6$(16,5)="ぽぉ"
2090 H7$( 1,1)="あっ":H7$( 1,2)="いっ":H7$( 1,3)="うっ":H7$( 1,4)="えっ":H7$( 1,5)="おっ"
2100 H7$( 2,1)="かっ":H7$( 2,2)="きっ":H7$( 2,3)="くっ":H7$( 2,4)="けっ":H7$( 2,5)="こっ"
2110 H7$( 3,1)="さっ":H7$( 3,2)="しっ":H7$( 3,3)="すっ":H7$( 3,4)="せっ":H7$( 3,5)="そっ"
2120 H7$( 4,1)="たっ":H7$( 4,2)="ちっ":H7$( 4,3)="つっ":H7$( 4,4)="てっ":H7$( 4,5)="とっ"
2130 H7$( 5,1)="なっ":H7$( 5,2)="にっ":H7$( 5,3)="ぬっ":H7$( 5,4)="ねっ":H7$( 5,5)="のっ"
2140 H7$( 6,1)="はっ":H7$( 6,2)="ひっ":H7$( 6,3)="ふっ":H7$( 6,4)="へっ":H7$( 6,5)="ほっ"
2150 H7$( 7,1)="まっ":H7$( 7,2)="みっ":H7$( 7,3)="むっ":H7$( 7,4)="めっ":H7$( 7,5)="もっ"
2160 H7$( 8,1)="やっ": :H7$( 8,3)="ゆっ": :H7$( 8,5)="よっ"
2170 H7$( 9,1)="らっ":H7$( 9,2)="りっ":H7$( 9,3)="るっ":H7$( 9,4)="れっ":H7$( 9,5)="ろっ"
2180 H7$(10,1)="わっ": :H7$(10,5)="をっ"
2190 H7$(11,1)="んっ"
2200 H7$(12,1)="がっ":H7$(12,2)="ぎっ":H7$(12,3)="ぐっ":H7$(12,4)="げっ":H7$(12,5)="ごっ"
2210 H7$(13,1)="ざっ":H7$(13,2)="じっ":H7$(13,3)="ずっ":H7$(13,4)="ぜっ":H7$(13,5)="ぞっ"
2220 H7$(14,1)="だっ":H7$(14,2)="だっ":H7$(14,3)="だっ":H7$(14,4)="だっ":H7$(14,5)="だっ"
2230 H7$(15,1)="ばっ":H7$(15,2)="びっ":H7$(15,3)="ぶっ":H7$(15,4)="べっ":H7$(15,5)="ぼっ"
2240 H7$(16,1)="ぱっ":H7$(16,2)="ぴっ":H7$(16,3)="ぷっ":H7$(16,4)="ぺっ":H7$(16,5)="ぽっ"
2250 '
2260 OPEN F2$ AS #1
2270 FOR I=1 TO 16
2280 FOR J=1 TO 5
2290 IF I= 8 THEN IF J=2 THEN *ESC1
2300 IF I= 8 THEN IF J=4 THEN *ESC1
2310 IF I= 10 THEN IF J=2 THEN *ESC1
2320 IF I= 10 THEN IF J=3 THEN *ESC1
2330 IF I= 10 THEN IF J=4 THEN *ESC1
2340 IF I= 11 THEN IF J=2 THEN *ESC1
2350 IF I= 11 THEN IF J=3 THEN *ESC1
2360 IF I= 11 THEN IF J=4 THEN *ESC1
2370 IF I= 11 THEN IF J=5 THEN *ESC1
2380 PRINT #1,H1$(I,J)
2390 PRINT #1,H2$(I,J)
2400 PRINT #1,H3$(I,J)
2410 PRINT #1,H4$(I,J)
2420 PRINT #1,H5$(I,J)
2430 PRINT #1,H6$(I,J)
2440 PRINT #1,H7$(I,J)
2450 *ESC1
2460 NEXT
2470 NEXT
2480 OPEN F1$ AS #2
2490 FOR I=1 TO 16
2500 FOR J=1 TO 5
2510 IF I= 8 THEN IF J=2 THEN *ESC2
2520 IF I= 8 THEN IF J=4 THEN *ESC2
2530 IF I= 10 THEN IF J=2 THEN *ESC2
2540 IF I= 10 THEN IF J=3 THEN *ESC2
2550 IF I= 10 THEN IF J=4 THEN *ESC2
2560 IF I= 11 THEN *ESC2
2570 PRINT #2,H1$(I,J)
2580 '
2590 PRINT #2,H2$(I,J)
2600 PRINT #2,H3$(I,J)
2610 PRINT #2,H4$(I,J)
2620 PRINT #2,H5$(I,J)
2630 PRINT #2,H6$(I,J)
2640 PRINT #2,H7$(I,J)
2650 *ESC2
2660 NEXT
2670 NEXT
2680 CLOSE
2690 '
2700 OPEN F3$ AS #2
2710 OPEN F1$ AS #1
2720 WHILE NOT EOF(#2)
2730 INPUT #1, A$
2740 FOR I=1 TO 16
2750 IF I=10 THEN *ESC3
2760 IF I=11 THEN *ESC3
2770 PRINT #2, A$+H1$(I,3)
2780 *ESC3
2790 NEXT
2800 WEND
2810 CLOSE
2820 '
2830 OPEN F4$ AS #3
2840 OPEN F1$ AS #1
2850 WHILE NOT EOF(#1)
2860 INPUT #1, A$
2870 OPEN F2$ AS #2
2880 WHILE NOT EOF(#2)
2890 INPUT #2, B$
2900 FOR I=1 TO 16
2910 IF I=10 THEN *ESC4
2920 IF I=11 THEN *ESC4
2930 PRINT #3, A$+B$+H1$(I,3)
2940 *ESC4
2950 NEXT
2960 WEND
2970 CLOSE #2
2980 WEND
2990 CLOSE
3000 END