#10 Article 106 Posted at 1987/11/30 19:30:40 by DATTYA (MAP519) [MML/88SR]
Subject: ラムのラブソング
1000 '
1010 ' えっと、前回は９８用のＭＭＬ（ミュージックマクロランゲージ）を
1020 ' アップロードしましたが、今回は８８ＳＲ用です。
1030 ' 両者（９８と８８）は似ているようですが、実はコンバートするのに
1040 ' えらく手間がかかります。例えば８分音符２個をタイで結ぶと８８は
1050 ' ‘Ｃ８＆Ｃ’ですが、９８は‘Ｃ８＾８’となります。また、８８は
1060 ' タイで結んで無制限に音をのばすことができますが、９８だと２５５
1070 ' ステップ以上音をのばすことができません。（１／１９２小節＝１ス
1080 ' テップ）
1090 ' マニュアルには“高い互換性をもっています‥”とありますが、実際
1100 ' は…です。
1110 ' ＤＡＴＴＹＡ でした。
1120 '
1130 NEW CMD
1140 CMD PLAY "T176","T176","T176","T176","T176","T176"
1150 A1$="@13V10O5B8B8B8B8B8B8B8B8B8B8B8B8B8B8B8B8B8B8B8B8B8B8B8B8B8B8B8B8B8B8B8B8"
1160 B1$="@13V9O4B8B8B8B8B8B8B8B8B8B8B8B8B8B8B8B8B8B8B8B8B8B8B8B8B8B8B8B8B8B8B8B8"
1170 C1$="@4V13O4A8&A8B8&B8>C8&C8C+8&C+8<B8&B8>C8&C8D8&D8D+8&D+8<A8&A8B8&B8>C8&C8C+8&C+8<B8&B8>C8&C8D8&D8D+8&D+8"
1180 D1$="R8R8R8R8R8R8R8R8R8R8R8R8R8R8R8R8R8R8R8R8R8R8R8R8R8R8R8R8V10O5{D+EF+}8{GAB>C}8{DEF+G}8{AB>CD}8"
1190 E1$="V11O4B32R32B32R32B32R32B32R32B32R32B32R32B32R32B32R32B32R32B32R32B32R32B32R32B32R32B32R32B32R32B32R32B32R32B32R32B32R32B32R32B32R32B32R32B32R32B32R32B32R32B32R32B32R32B32R32B32R32B32R32B32R32B32R32R8R8R8R8R8R8R8R8R8R8R8R8R8R8R8R8"
1200 F1$="V11O4R8R8R8R8R8R8R8R8R8R8R8R8R8R8R8R8B32R32B32R32B32R32B32R32B32R32B32R32B32R32B32R32B32R32B32R32B32R32B32R32B32R32B32R32B32R32B32R32B32R32B32R32B32R32B32R32B32R32B32R32B32R32B32R32B32R32B32R32B32R32B32R32B32R32B32R32B32R32B32R32"
1210 A2$="@9V13O6E8D+8E8G8F+8E8D8C8<B8>D8F+8E8&E8&E8&E8R8C8<B8>C8E8D8C8<B8A8B8>D8F+8E8&E8&E8&E8R8E8D+8E8G8F+8E8D8C8<B8>D8F+8E8&E8&E8&E8R8E8D+8E8G8F+8E8F+8D8G8G8F+8G8&G8R8R8R8"
1220 B2$="R8R8R8R8R8R8R8R8R8R8R8R8R8R8R8R8R8R8R8R8R8R8R8R8R8R8R8R8R8R8R8R8R8R8R8R8R8R8R8R8R8R8R8R8R8R8R8R8R8R8R8R8R8R8R8R8R8R8R8R8@59V14O4G8R8V12{GGG}8{GGG}8"
1230 C2$="V12O4A8&A8R8R8D8&D8R8R8G8&G8R8E8&E8&E8&E8&E8A8&A8R8R8D8&D8R8R8G8F+8F8E8&E8&E8&E8&E8A8&A8R8R8D8&D8R8R8G8&G8R8E8&E8&E8&E8&E8A8&A8R8R8D8&D8R8R8G8G8F+8G8&G8R8R8R8"
1240 D2$="V12O5E8R8R8R8F+8R8R8R8G8R8R8E8&E8&E8&E8R8E8R8R8R8F+8R8R8R8G8F+8F8E8&E8&E8&E8R8E8R8R8R8F+8R8R8R8G8R8R8E8&E8&E8&E8R8E8R8R8R8F+8R8R8R8G8G8F+8G8&G8R8R8R8"
1250 E2$="V12O5C8R8R8R8D8R8R8R8D8R8R8D8&D8&D8&D8R8C8R8R8R8D8R8R8R8D8C+8C8<B8&B8&B8&B8R8>C8R8R8R8D8R8R8R8D8R8R8D8&D8&D8&D8R8C8R8R8R8D8R8R8R8D8D8D8D8&D8R8R8R8"
1260 F2$="V12O4G8R8R8R8>C8<R8R8R8B8R8R8G+8&G+8&G+8&G+8R8G8R8R8R8>C8<R8R8R8B8A+8A8G+8&G+8&G+8&G+8R8G8R8R8R8>C8<R8R8R8B8R8R8G+8&G+8&G+8&G+8R8G8R8R8R8>C8<R8R8R8B8B8A8B8&B8R8R8R8"
1270 A3$="V13O6G16&G32R32G16&G32R32G16&G32R32R8R8R8R8R8E16&E32R32E16&E32R32E16&E32R32R8R8R8R8R8G16&G32R32G16&G32R32G16&G32R32R8R8R8R8R8E16&E32R32E16&E32R32E16&E32R32R8R8R8R8R8"
1280 B3$="@51V10O5R8R8R8R8{F+F+}8{F+F+}8F+8R8R8R8R8R8R8R8R8R8R8R8R8R8{F+F+}8{F+F+}8F+8R8R8R8R8R8R8R8R8R8"
1290 C3$="@23O5V10G16&G32R32G16&G32R32G16&G32R32R8R8R8R8R8E16&E32R32E16&E32R32E16&E32R32R8R8R8R8R8G16&G32R32G16&G32R32G16&G32R32R8R8R8R8R8E16&E32R32E16&E32R32E16&E32R32R8R8R8R8R8"
1300 D3$="V11O4G16&G32R32G16&G32R32G16&G32R32R8R8R8R8R8E16&E32R32E16&E32R32E16&E32R32R8R8R8R8R8G16&G32R32G16&G32R32G16&G32R32R8R8R8R8R8E16&E32R32E16&E32R32E16&E32R32R8R8R8R8R8"
1310 E3$="V11O4D16&D32R32D16&D32R32D16&D32R32R8R8R8R8R8<B16&B32R32B16&B32R32B16&B32R32>R8R8R8R8R8D16&D32R32D16&D32R32D16&D32R32R8R8R8R8R8<B16&B32R32B16&B32R32B16&B32R32>R8R8R8R8R8"
1320 F3$="V11O3B16&B32R32B16&B32R32B16&B32R32R8R8R8R8R8G16&G32R32G16&G32R32G16&G32R32R8R8R8R8R8B16&B32R32B16&B32R32B16&B32R32R8R8R8R8R8G16&G32R32G16&G32R32G16&G32R32R8R8R8R8R8"
1330 B0$="@51V10O5R8R8R8R8{F+F+}8{F+F+}8F+8R8R8R8R8R8R8R8R8R8R8R8R8R8{F+F+}8{F+F+}8F+8R8R8R8R8R8@59V14O4G8R8V12{GGG}8{GGG}8"
1340 C0$="V10O5G16&G32R32G16&G32R32G16&G32R32R8R8R8R8R8E16&E32R32E16&E32R32E16&E32R32R8R8R8R8R8G16&G32R32G16&G32R32G16&G32R32R8R8R8R8R8E16&E32R32E16&E32R32E16&E32R32R8@4V10O4D8&D8&D8&D8"
1350 A4$="V13O6F+8&F+16R16F+8&F+16R16F+8&F+16R16F+8F+8&F16R16F+8&F+8F+8G8&G8F+8&F+8E8&E8E8D8&D8&D8R8R8R8R8R8R8R8R8R8R8F+8&F+16R16F+8&F+16R16F+8F+8&F16R16F+8&F16R16F+8&F+8F+8G8&G8F+8&F+8E8&E8E8D8&D8&D8R8R8R8R8R8R8R8R8R8R8"
1360 B4$="@42V11O7D8<F+8A8>D8C8<D8A8>D8R8<F+8A8>D8C8<D8A8>D8<G8D8G8>D8<B8D8G8>D8R8<D8G8>D8<B8D8G8>D8D8<F+8A8>D8C8<D8A8>D8R8<F+8A8>D8C8<D8A8>D8<G8D8G8>D8<B8D8G8>D8R8<D8G8>D8<B8D8G8>D8"
1370 C4$="V11O4A8&A8>D8<D8&D8D8>D8&D8<A8&A8>D8<D8&D8D8>D8&D8<G8&G8>D8<D8&D8D8>D8&D8<G8&G8>D8<D8&D8D8>D8&D8<A8&A8>D8<D8&D8D8>D8&D8<A8&A8>D8<D8&D8D8>D8&D8<G8&G8>D8<D8&D8D8>D8&D8<G8&G8>D8<D8&D8D8>D8"
1380 A5$="V13O6E8&E16R16E8&E16R16E8E8&E16R16E8E16R16E8&E8E8F8&F8E8&E8D8C8&C8D8E8&E8C8<A8&A8&A8&A8R8R8R8R8R8>F+8&F+16R16F+8&F+16R16F+8F+8&F+16R16F+8&F+16R16F+8&F+8F+8G8&G8F+8&F+8G8&G8&G8F+8&F+8&F+8&F+8&F+8&F+8&F+8R8R8D8&D8&D8&D8"
1390 B5$="<G+8E8E8>E8D8<E8G+8>D8R8<E8G+8>E8D8<E8G+8>D8<A8E8A8>E8C8<E8A8>E8R8<E8A8>E8C8<E8A8>E8C+8<F+8A+8>C+8F+8C+8<A+8F+8R8F+8A+8>C+8F+8C+8<A+8F+8@23V12O5B8&B8R8B8R8B8R8B8B8R8R8R8R8R8R8R8"
1400 C5$="V11O4E8&E8>E8<E8&E8E8>E8&E8<E8&E8>E8<E8&E8E8>E8&E8<A8&A8>E8<E8&E8E8>E8&E8<A8&A8>E8<E8&E8E8>E8&E8<F+8&F+8>F+8<F+8&F+8F+8>F+8&F+8<F+8&F+8>F+8<F+8&F+8F+8>F+8&F+8<B8&B8&B8B8&B8B8&B8B8B8&B8R8R8D8&D8&D8&D8"
1410 D5$="R8R8R8R8R8R8R8R8R8R8R8R8R8R8R8R8R8R8R8R8R8R8R8R8R8R8R8R8R8R8R8R8R8R8R8R8R8R8R8R8R8R8R8R8R8R8R8R8V12O5F+8&F+8R8F+8R8F+8R8F+8F+8R8R8R8V13D8&D8&D8&D8"
1420 E5$="R8R8R8R8R8R8R8R8R8R8R8R8R8R8R8R8R8R8R8R8R8R8R8R8R8R8R8R8R8R8R8R8R8R8R8R8R8R8R8R8R8R8R8R8R8R8R8R8V12O5D+8&D+8R8D+8R8D+8R8D+8D+8R8R8R8V12C8&C8&C8&C8"
1430 F5$="R8R8R8R8R8R8R8R8R8R8R8R8R8R8R8R8R8R8R8R8R8R8R8R8R8R8R8R8R8R8R8R8R8R8R8R8R8R8R8R8R8R8R8R8R8R8R8R8V12O4A8&A8R8A8R8A8R8A8A8R8R8R8V12F+8&F+8&F+8&F+8"
1440 A6$="V13O6B8&B8&B8&B8&B8&B8&B8&B8R8B8A+8B8>C8&C8<B8&B8B8&B8&B8A8&A8&A8&A8&A8&A8&A8&A8&A8R8R8D8&D8A8&A8G+8A8&A8&A8&A8&A8R8A8G+8A8B8&B8A8&A8G8G8A8B8&B8&B8&B8&B8&B8&B8&B8&B8R8R8D8&D8"
1450 B6$="@13V9O5B8&B8&B8&B8&B8&B8&B8&B8R8R8R8R8>E8&E8D8&D8C8&C8&C8&C8&C8&C8&C8&C8<B8&B8&B8&B8A8&A8&A8&A8R8R8R8R8R8R8R8D8A8&A8G8&G8B8&B8A8&A8G8&G8&G8&G8R8R8D8>C8&C8<B8&B8A8B8&B8&B8&B8"
1460 C6$="V11O4G8&G8&G8>D8&D8&D8<D8&D8G+8&G+8&G+8>E8&E8&E8<E8&E8A8&A8&A8>E8&E8&E8<E8&E8A8&A8&A8>D8&D8&D8<D8&D8A8&A8&A8>D8&D8&D8<D8&D8A8&A8&A8>D8&D8&D8<D8&D8G8&G8&G8>D8&D8&D8<D8&D8G8&G8&G8>D8&D8&D8<D8&D8"
1470 D6$="V10O5D8&D8&D8&D8&D8&D8&D8&D8D8&D8&D8&D8&D8&D8&D8&D8V9C8&C8&C8&C8&C8&C8&C8&C8&C8&C8&C8&C8&C8&C8&C8&C8C8&C8&C8&C8&C8&C8&C8&C8&C8&C8&C8&C8&C8&C8&C8&C8D8&D8&D8&D8&D8&D8&D8&D8&D8&D8&D8&D8&D8&D8&D8&D8"
1480 E6$="V11O4B8&B8&B8&B8&B8&B8&B8&B8B8&B8&B8&B8&B8&B8&B8&B8V10A8&A8&A8&A8&A8&A8&A8&A8&A8&A8&A8&A8&A8&A8&A8&A8A8&A8&A8&A8&A8&A8&A8&A8&A8&A8&A8&A8&A8&A8&A8&A8B8&B8&B8&B8&B8&B8&B8&B8&B8&B8&B8&B8&B8&B8&B8&B8"
1490 F6$="V10O4G8&G8&G8&G8&G8&G8&G8&G8G+8&G+8&G+8&G+8&G+8&G+8&G+8&G+8V9E8&E8&E8&E8&E8&E8&E8&E8&E8&E8&E8&E8&E8&E8&E8&E8F+8&F+8&F+8&F+8&F+8&F+8&F+8&F+8&F+8&F+8&F+8&F+8&F+8&F+8&F+8&F+8G8&G8&G8&G8&G8&G8&G8&G8&G8&G8&G8&G8&G8&G8&G8&G8"
1500 A7$="V13O6B8&B8&B8&B8&B8&B8&B8&B8R8B8A+8B8>C8&C8<B8&B8B8&B8B8A8&A8&A8G+8A8&A8&A8&A8&A8R8R8D8&D8A8&A8G+8A8&A8&A8&A8&A8R8A8G+8A8B8&B8A8&A8G8&G8&G8&G8&G8&G8&G8&G8R8R8R8R8R8R8R8R8"
1510 B7$="V9O5B8&B8&B8&B8&B8&B8&B8&B8>E8&E8&E8D8&D8&D8<B8&B8>C8&C8&C8&C8&C8&C8D8&D8E8&E8&E8&E8C8&C8&C8&C8<A8&A8&A8&A8&A8&A8&A8R8A8&A8&A8>C8&C8&C8<A8&A8B8&B8&B8&B8&B8&B8&B8&B8@12V8O8D8<B8G+8E8R8R8R8R8"
1520 C7$="V11O4B8&B8&B8>E8&E8&E8<E8&E8B8&B8&B8>E8&E8&E8<E8&E8A8&A8&A8>E8&E8&E8<E8&E8A8&A8&A8>E8&E8&E8<E8&E8A8&A8&A8>D8&D8&D8<D8&D8A8&A8&A8>D8&D8&D8<D8&D8G8&G8&G8>D8&D8&D8<D8&D8G+8&G+8&G+8G+8&G+8&G+8G+8&G+8"
1530 D7$="V10O5D8&D8&D8&D8&D8&D8&D8&D8&D8&D8&D8&D8&D8&D8&D8&D8V9C8&C8&C8&C8&C8&C8&C8&C8&C8&C8&C8&C8&C8&C8&C8&C8C8&C8&C8&C8&C8&C8&C8&C8&C8&C8&C8&C8&C8&C8&C8&C8<B8&B8&B8&B8&B8&B8&B8&B8R8R8R8R8R8R8R8R8"
1540 E7$="V11O4B8&B8&B8&B8&B8&B8&B8&B8&B8&B8&B8&B8&B8&B8&B8&B8V10A8&A8&A8&A8&A8&A8&A8&A8&A8&A8&A8&A8&A8&A8&A8&A8A8&A8&A8&A8&A8&A8&A8&A8&A8&A8&A8&A8&A8&A8&A8&A8G8&G8&G8&G8&G8&G8&G8&G8R8R8R8R8R8R8R8R8"
1550 F7$="V10O4G+8&G+8&G+8&G+8&G+8&G+8&G+8&G+8&G+8&G+8&G+8&G+8&G+8&G+8&G+8&G+8V9E8&E8&E8&E8&E8&E8&E8&E8&E8&E8&E8&E8&E8&E8&E8&E8F+8&F+8&F+8&F+8&F+8&F+8&F+8&F+8&F+8&F+8&F+8&F+8&F+8&F+8&F+8&F+8G8&G8&G8&G8&G8&G8&G8&G8R8R8R8R8R8R8R8R8"
1560 B8$="@13V10O5A8V6E8C8G8V10F+8V6D8<B8>F+8V10G8V6D8<B8>V10E8&E8V8E8D+8E8V10A8V6E8C8G8V10F+8V6D8<B8>F+8V10G8V8F+8F8V10E8&E8V8E8D+8E8V10A8V6E8C8G8V10F+8V6D8<B8>F+8V10G8V6D8<B8>V10E8&E8V8E8D+8E8V10E8&E8R8R8F+8&F+8R8R8G8G8F+8G8R8R8R8R8"
1570 C8$="V12O4A8&A8&A8&A8D8&D8&D8&D8G8&G8&G8E8&E8&E8&E8&E8A8&A8&A8&A8D8&D8&D8&D8G8F+8F8E8&E8&E8&E8&E8A8&A8&A8&A8D8&D8&D8&D8G8&G8&G8E8&E8&E8&E8&E8A8&A8R8R8D8&D8R8R8G8G8F+8G8@59V14O4G8R8V12{GGG}8{GGG}8"
1580 D8$="R8R8R8R8R8R8R8R8R8R8R8R8R8R8R8R8R8R8R8R8R8R8R8R8R8R8R8R8R8R8R8R8R8R8R8R8R8R8R8R8R8R8R8R8R8R8R8R8V12O5E8R8R8R8F+8R8R8R8G8G8F+8G8R8R8R8R8"
1590 E8$="R8R8R8R8R8R8R8R8R8R8R8R8R8R8R8R8R8R8R8R8R8R8R8R8R8R8R8R8R8R8R8R8R8R8R8R8R8R8R8R8R8R8R8R8R8R8R8R8V12O5C8R8R8R8D8R8R8R8D8D8D8D8R8R8R8R8"
1600 F8$="R8R8R8R8R8R8R8R8R8R8R8R8R8R8R8R8R8R8R8R8R8R8R8R8R8R8R8R8R8R8R8R8R8R8R8R8R8R8R8R8R8R8R8R8R8R8R8R8V12O4A8R8R8R8>C8<R8R8R8B8B8A8B8R8R8R8R8"
1610 A9$="@13V10O6A8&A8&A8G+8&G+8&G+8&G+8G8&G8&G8&G8F+8&F+8&F+8&F+8&F+8G8&G8&G8F+8&F+8&F+8&F+8E8&E8&E8&E8F+8&F+8&F+8&F+8&F+8A8&A8&A8G+8&G+8&G+8&G+8G8&G8&G8&G8F+8&F+8&F+8&F+8&F+8G8&G8&G8F+8&F+8&F+8&F+8E8&E8&E8&E8F+8&F+8&F+8&F+8&F+8"
1620 B9$="@13V10O6E8&E8&E8E8&E8&E8&E8E8&E8&E8&E8D8&D8&D8&D8&D8D8&D8&D8D8&D8&D8&D8D8&D8&D8&D8D8&D8&D8&D8&D8E8&E8&E8E8&E8&E8&E8E8&E8&E8&E8D8&D8&D8&D8&D8D8&D8&D8D8&D8&D8&D8D8&D8&D8&D8D8&D8&D8&D8&D8"
1630 C9$="@13V10O6C8&C8&C8C8&C8&C8&C8C8&C8&C8&C8C8&C8&C8&C8&C8<B8&B8&B8B8&B8&B8&B8B8&B8&B8&B8B8&B8&B8&B8&B8>C8&C8&C8C8&C8&C8&C8C8&C8&C8&C8C8&C8&C8&C8&C8<B8&B8&B8B8&B8&B8&B8B8&B8&B8&B8B8&B8&B8&B8&B8"
1640 D9$="V13O5A8E8C8G+8&G+8E8C8G8&G8E8C8F+8&F+8D8C8D8G8D8<B8>F+8&F+8D8<B8>E8&E8D8<B8>F+8&F+8D8<B8>D8A8E8C8G+8&G+8E8C8G8&G8E8C8F+8&F+8D8C8D8G8D8<B8>F+8&F+8D8<B8>E8&E8D8<B8>F+8&F+8D8<B8>D8"
1650 A10$="V11O6A8E8C8G+8&G+8E8C8G8&G8E8C8F+8&F+8D8C8D8G8D8<B8>F+8&F+8D8<B8>E8&E8D8<B8>F+8&F+8D8<B8>D8A8E8C8G+8&G+8E8C8G8&G8E8C8F+8&F+8D8C8D8G8D8<B8>F+8&F+8D8<B8>E8&E8D8<B8>F+8&F+8D8<B8>D8"
1660 B10$="V12O6C8&C8R8C8&C8&C8R8C8&C8&C8R8C8&C8&C8&C8R8<B8&B8R8B8&B8&B8R8B8&B8&B8R8B8&B8&B8&B8R8>C8&C8R8C8&C8&C8R8C8&C8&C8R8C8&C8&C8&C8R8<B8&B8R8B8&B8&B8R8B8&B8&B8R8B8&B8&B8&B8R8"
1670 C10$="@4V12O4A8R8>E8<E8&E8E8>E8&E8<A8R8>D8<D8&D8D8>D8&D8<G8R8>D8<D8&D8D8>D8&D8<G8R8>D8<D8&D8D8>D8&D8<A8R8>E8<E8&E8E8>E8&E8<A8R8>D8<D8&D8D8>D8&D8<G8R8>D8<D8&D8D8>D8&D8<G8R8>D8<D8&D8D8>D8&D8"
1680 D10$="V13O5A8E8C8G+8&G+8E8C8G8&G8E8C8F+8&F+8D8C8D8G8D8<B8>F+8&F+8D8<B8>E8&E8D8<B8>F+8&F+8D8<B8>D8A8E8C8G+8&G+8E8C8G8&G8E8C8F+8&F+8D8C8D8G8D8<B8>F+8&F+8D8<B8>E8&E8D8<B8>F+8&F+8D8<B8>D8"
1690 E10$="V10O5A8&A8R8G+8&G+8&G+8R8G8&G8&G8R8F+8&F+8&F+8&F+8R8G8&G8R8F+8&F+8&F+8R8E8&E8&E8R8F+8&F+8&F+8&F+8R8A8&A8R8G+8&G+8&G+8R8G8&G8&G8R8F+8&F+8&F+8&F+8R8G8&G8R8F+8&F+8&F+8R8E8&E8&E8R8F+8&F+8&F+8&F+8R8"
1700 F10$="V12O5E8&E8R8E8&E8&E8R8E8&E8&E8R8D8&D8&D8&D8R8D8&D8R8D8&D8&D8R8D8&D8&D8R8D8&D8&D8&D8R8E8&E8R8E8&E8&E8R8E8&E8&E8R8D8&D8&D8&D8R8D8&D8R8D8&D8&D8R8D8&D8&D8R8D8&D8&D8&D8R8"
1710 A11$="@10V12O6G+8E8G+8>E8D8<E8G+8>D8R8<E8G+8>E8D8<E8G+8>E8<A8E8A8>E8C8<E8A8>E8R8<E8A8>E8C8<E8A8>E8C+8<F+8A+8>C+8F+8C+8<A+8F+8R8F+8A+8>C+8F+8C+8<A+8F+8@13V12O6B8&B8>C8<B8R8>C8R8<B8&B8R8R8R8@9V13O6D8&D8&D8&D8"
1720 B11$="@13V11O5R8R8R8R8R8D+8E8E8R8R8R8E8E8&E8G+8&G+8A8&A8R8R8R8G+8A8A8R8R8R8A8A8&A8G8&G8F+8&F+8R8R8R8F8F+8F+8R8F+8&F+8F+8G+8&G+8A+8&A+8V12>D+8&D+8E8D+8R8E8R8D+8&D+8R8R8R8@23V12O5D8&D8&D8&D8"
1730 C11$="V12O4B8R8>E8<E8&E8E8>E8&E8<B8R8>E8<E8&E8E8>E8&E8<A8R8>E8<E8&E8E8>E8&E8<A8R8>E8<E8&E8E8>E8&E8C+8R8F+8<F+8&F+8F+8>F+8&F+8C+8R8F+8<F+8&F+8F+8>F+8&F+8<B8&B8>C8<B8R8>C8R8<B8&B8R8R8R8D8&D8&D8&D8"
1740 D11$="V9O5B8&B8&B8&B8&B8&B8&B8&B8&B8&B8&B8&B8&B8&B8&B8&B8>C8&C8&C8&C8&C8&C8&C8&C8&C8&C8&C8&C8&C8&C8&C8&C8C+8&C+8&C+8&C+8&C+8&C+8&C+8&C+8&C+8&C+8&C+8&C+8&C+8&C+8&C+8&C+8V12O4B8&B8>C8<B8R8>C8<R8B8&B8R8R8R8>D8&D8&D8&D8"
1750 E11$="V9O5G+8&G+8&G+8&G+8&G+8&G+8&G+8&G+8&G+8&G+8&G+8&G+8&G+8&G+8&G+8&G+8A8&A8&A8&A8&A8&A8&A8&A8&A8&A8&A8&A8&A8&A8&A8&A8A+8&A+8&A+8&A+8&A+8&A+8&A+8&A+8&A+8&A+8&A+8&A+8&A+8&A+8&A+8&A+8V13O4F+8&F+8G8F+8R8G8R8F+8&F+8R8R8R8>C8&C8&C8&C8"
1760 F11$="V9O5D8&D8&D8&D8&D8&D8&D8&D8&D8&D8&D8&D8&D8&D8&D8&D8E8&E8&E8&E8&E8&E8&E8&E8&E8&E8&E8&E8&E8&E8&E8&E8F+8&F+8&F+8&F+8&F+8&F+8&F+8&F+8&F+8&F+8&F+8&F+8&F+8&F+8&F+8&F+8V12O4D+8&D+8E8D+8R8E8R8D+8&D+8R8R8R8F+8&F+8&F+8&F+8"
1770 B12$="@13V9O5R8R8R8R8R8B8&B8&B8&B8&B8&B8&B8>E8&E8&E8&E8C8&C8&C8&C8&C8&C8&C8&C8<E8&E8&E8&E8D8&D8&D8&D8A8&A8&A8&A8R8R8R8D8A8&A8G8&G8B8&B8A8&A8G8&G8&G8&G8R8R8D8G8B8&B8>C8<B8&B8A8&A8&A8"
1780 B13$="V9O5B8&B8&B8&B8&B8&B8&B8&B8>E8&E8D8&D8C8&C8<B8&B8>C8&C8&C8&C8&C8&C8D8&D8E8&E8&E8&E8C8&C8&C8&C8<A8&A8&A8&A8&A8&A8&A8&A8A8&A8&A8&A8>F+8&F+8&F+8&F+8D8&D8&D8&D8&D8&D8&D8&D8@12V8O8D8<B8G+8E8R8R8R8R8"
1790 C14$="V12O4A8&A8&A8&A8D8&D8&D8&D8G8&G8&G8E8&E8&E8&E8&E8A8&A8&A8&A8D8&D8&D8&D8G8F+8F8E8&E8&E8&E8&E8A8&A8&A8&A8D8&D8&D8&D8G8&G8&G8E8&E8&E8&E8&E8A8&A8R8R8D8&D8R8R8G8G8F+8G8R8R8R8R8"
1800 A15$="@9V13O6E8D+8E8G8F+8E8F+8D8G8G8F+8G8&G16R16R8R8R8E8&E8D+8&D+8E8&E8G8&G8F+8&F+8E8&E8F+8&F+8D8&D8"
1810 B15$="@23V10O5E8R8R8R8F+8R8R8R8G8G8F+8G8&G16R16R8R8R8E8R8R8R8R8R8R8R8F+8&F+8R8R8R8R8R8R8"
1820 C15$="V12O4A8R8R8R8D8R8R8R8G8G8F+8G8&G16R16R8R8R8A8R8R8R8R8R8R8R8D8&D8R8R8R8R8R8R8"
1830 D15$="V12O5E8R8R8R8F+8R8R8R8G8G8F+8G8&G16R16R8R8R8E8R8R8R8R8R8R8R8F+8&F+8R8R8R8R8R8R8"
1840 E15$="V12O5C8R8R8R8D8R8R8R8D8D8D8D8&D16R16R8R8R8C8R8R8R8R8R8R8R8D8&D8R8R8R8R8R8R8"
1850 F15$="V12O4A8R8R8R8A8R8R8R8B8B8A8B8&B16R16R8R8R8A8R8R8R8R8R8R8R8A8&A8R8R8R8R8R8R8"
1860 A16$="@9V13O6G16&G32R32G16&G32R32G16&G32R32R8R8R8R8R8E16&E32R32E16&E32R32E16&E32R32R8R8R8R8R8G16&G32R32G16&G32R32G16&G32R32R8R8R8R8R8E16&E32R32E16&E32R32E16&E32R32R8R8R8R8R8G8G8F+8G8R8F+8R8F+8G8&G8R8R8R8R8R8R8"
1870 B16$="@51V9O5R8R8R8R8{F+F+}8{F+F+}8F+8R8R8R8R8R8R8R8R8R8R8R8R8R8{F+F+}8{F+F+}8F+8R8R8R8R8R8R8R8R8R8@23V12O5G8G8F+8G8R8F+8R8F+8G8&G8&G8&G8R8R8R8R8"
1880 C16$="@23V10O5G16&G32R32G16&G32R32G16&G32R32R8R8R8R8R8E16&E32R32E16&E32R32E16&E32R32R8R8R8R8R8G16&G32R32G16&G32R32G16&G32R32R8R8R8R8R8E16&E32R32E16&E32R32E16&E32R32R8R8R8R8R8@4O4V12G8G8F+8G8R8F+8R8F+8G8&G8&G8&G8<G8&G8R8R8"
1890 D16$="V11O4G16&G32R32G16&G32R32G16&G32R32R8R8R8R8R8E16&E32R32E16&E32R32E16&E32R32R8R8R8R8R8G16&G32R32G16&G32R32G16&G32R32R8R8R8R8R8E16&E32R32E16&E32R32E16&E32R32R8R8R8R8R8>G8G8F+8G8R8F+8R8F+8V12O5{GF+ED}8{C<BA}8{GF+ED}8{C<BA}8G8&G8R8R8"
1900 E16$="V11O4D16&D32R32D16&D32R32D16&D32R32R8R8R8R8R8<B16&B32R32B16&B32R32B16&B32R32>R8R8R8R8R8D16&D32R32D16&D32R32D16&D32R32R8R8R8R8R8<B16&B32R32B16&B32R32B16&B32R32>R8R8R8R8R8>D8D8D8D8R8D8R8D8D8&D8&D8&D8R8R8R8R8"
1910 F16$="V11O3B16&B32R32B16&B32R32B16&B32R32R8R8R8R8R8G16&G32R32G16&G32R32G16&G32R32R8R8R8R8R8B16&B32R32B16&B32R32B16&B32R32R8R8R8R8R8G16&G32R32G16&G32R32G16&G32R32R8R8R8R8R8>B8B8A8B8R8A8R8A8B8&B8&B8&B8R8R8R8R8"
1920 CLS 3:WIDTH 40,20:CONSOLE ,,0,1
1930 COLOR 2:LOCATE 8, 2:PRINT "*****"
1940 COLOR 4:LOCATE 14, 2:PRINT "ﾗﾑ ﾉ ﾗﾌﾞｿﾝｸﾞ"
1950 COLOR 2:LOCATE 27, 2:PRINT "*****"
1960 COLOR 5:LOCATE 14, 7:PRINT "(1) ﾒﾛﾃﾞｨ-"
1970 LOCATE 14,12:PRINT "(2) ｶﾗｵｹ"
1980 LOCATE 14,17:INPUT "ﾄﾞﾁﾗﾆｼﾏｽｶ ";NO
1990 IF NO=1 THEN GOTO 2020
2000 IF NO=2 THEN GOTO 2200
2010 IF NO<1 OR NO>2 THEN GOTO 1980
2020 CMD PLAY A1$,B1$,C1$,D1$,E1$,F1$
2030 CMD PLAY A2$,B2$,C2$,D2$,E2$,F2$
2040 CMD PLAY A3$,B3$,C3$,D3$,E3$,F3$
2050 CMD PLAY A3$,B0$,C0$,D3$,E3$,F3$
2060 CMD PLAY A4$,B4$,C4$
2070 CMD PLAY A5$,B5$,C5$,D5$,E5$,F5$
2080 CMD PLAY A6$,B6$,C6$,D6$,E6$,F6$
2090 CMD PLAY A7$,B7$,C7$,D7$,E7$,F7$
2100 CMD PLAY A2$,B8$,C8$,D8$,E8$,F8$
2110 CMD PLAY A9$,B9$,C9$,D9$
2120 CMD PLAY A10$,B10$,C10$,D10$,E10$,F10$
2130 CMD PLAY A11$,B11$,C11$,D11$,E11$,F11$
2140 CMD PLAY A6$,B12$,C6$,D6$,E6$,F6$
2150 CMD PLAY A7$,B13$,C7$,D7$,E7$,F7$
2160 CMD PLAY A2$,B8$,C14$,D8$,E8$,F8$
2170 CMD PLAY A15$,B15$,C15$,D15$,E15$,F15$
2180 CMD PLAY A16$,B16$,C16$,D16$,E16$,F16$
2190 GOTO 2370
2200 CMD PLAY A1$,B1$,C1$,D1$,E1$,F1$
2210 CMD PLAY ,B2$,C2$,D2$,E2$,F2$
2220 CMD PLAY ,B3$,C3$,D3$,E3$,F3$
2230 CMD PLAY ,B0$,C0$,D3$,E3$,F3$
2240 CMD PLAY ,B4$,C4$
2250 CMD PLAY ,B5$,C5$,D5$,E5$,F5$
2260 CMD PLAY ,B6$,C6$,D6$,E6$,F6$
2270 CMD PLAY ,B7$,C7$,D7$,E7$,F7$
2280 CMD PLAY ,B8$,C8$,D8$,E8$,F8$
2290 CMD PLAY A9$,B9$,C9$,D9$
2300 CMD PLAY A10$,B10$,C10$,D10$,E10$,F10$
2310 CMD PLAY A11$,B11$,C11$,D11$,E11$,F11$
2320 CMD PLAY ,B12$,C6$,D6$,E6$,F6$
2330 CMD PLAY ,B13$,C7$,D7$,E7$,F7$
2340 CMD PLAY ,B8$,C14$,D8$,E8$,F8$
2350 CMD PLAY ,B15$,C15$,D15$,E15$,F15$
2360 CMD PLAY ,B16$,C16$,D16$,E16$,F16$
2370 CLS 3:WIDTH 80,25:CONSOLE ,,1,0:END