请你编程

Author: 郭继展 Date: 1997-01-01
　　程序用键盘当琴，弹奏乐曲，适用于ＩＢＭ　　ＰＣ及其兼容机。程序用８０８８汇编语言写成，音域宽阔，悠扬悦耳，犹如美声。几与钢琴媲美。用户运行程序，轻敲几键，往往便爱不释手，甚至发现自己多年来的音乐才能被埋没。
　　ＴＹＰＥ　ＧＱＡＳＭ
　　ＤＡＴＡ　ＳＥＧＭＥＮＴ
　　Ａ　ＤＷ　４４　ＤＵＰ（６０）
　　ＤＷ　６９，１３８８，７８，８５，１３２０，５２４，５８８，６６０，６９４，７８４，８８０，９８８，１０４８
　　ＤＷ　１１７６，１７０，１７０，６９，１５６８，７８，８５，５８８，１３１，９８，８３，１６５，３３０，１７４
　　ＤＷ　１９６，２２０，２７８，２４７，１３９，１５６，１２４，１１０，３１２，３３８，２６２，３４７，１４７
　　ＤＷ　３９２，４９４，８７，２９４，７４，４４０，６５，３７０，４６７，４１６，８８０，１３８８，５０９
　　ＤＡＴＡ　ＥＮＤＳ
　　ＣＯＤＥ　ＳＥＧＭＥＮＴ
　　ＡＳＳＵＭＥ　ＣＳ：ＣＯＤＥ，ＤＳ：ＤＡＴＡ
　　ＳＴＡＲＴ：ＭＯＶ　ＡＸ，ＤＡＴＡ
　　ＭＯＶ　ＤＳ，ＡＸ
　　ＭＯＶ　ＷＯＲＤ　ＰＴＲ［Ａ＋１６］，１７６０
　　ＭＯＶ　ＷＯＲＤ　ＰＴＲ［Ａ＋２６］，２０８
　　ＭＯＶ　ＷＯＲＤ　ＰＴＲ［Ａ＋７８］，１８５
　　Ｂ：ＭＯＶ　ＡＨ，０７
　　ＩＮＴ　２１Ｈ
　　ＣＭＰ　ＡＬ，１ＢＨ
　　ＪＺ　Ｉ
　　ＣＭＰ　ＡＬ，２０ｈ
　　ＪＺ　Ｂ
　　ＣＭＰ　ＡＬ，９６
　　ＪＮＧ　Ｃ
　　ＳＵＢ　ＡＬ，３２
　　Ｃ：ＳＨＬ　ＡＬ，１
　　ＣＢＷ
　　ＭＯＶ　ＡＨ，０
　　ＭＯＶ　ＢＸ，ＡＸ
　　ＭＯＶ　ＡＸ，０
　　ＭＯＶ　ＤＸ，１２Ｈ
　　ＤＩＶ　ＷＯＲＤ　ＰＴＲ［ＢＸ＋Ａ］
　　ＭＯＶ　ＢＸ，ＡＸ
　　ＭＯＶ　ＡＬ，０Ｂ６Ｈ
　　ＯＵＴ　４３Ｈ，ＡＬ
　　ＭＯＶ　ＡＸ，ＢＸ
　　ＯＵＴ　４２Ｈ，ＡＬ
　　ＭＯＶ　ＡＬ，ＡＨ
　　ＯＵＴ　４２Ｈ，ＡＬ
　　ＩＮ　ＡＬ，６１Ｈ
　　ＯＲ　ＡＬ，３
　　ＯＵＴ　６１Ｈ，ＡＬ
　　ＭＯＶ　ＢＸ，０ＦＦＦＦＨ
　　Ｄ：ＭＯＶ　ＣＸ，０ＦＦＨ
　　Ｅ：ＬＯＯＰ　Ｅ
　　Ｆ：ＭＯＶ　ＡＨ，０ＢＨ
　　ＩＮＴ　２１Ｈ
　　ＣＭＰ　ＡＬ，００　ＪＮＺ　Ｇ
　　ＤＥＣ　ＢＸ
　　ＪＮＺ　Ｄ
　　Ｇ：ＩＮ　ＡＬ，６１Ｈ
　　ＡＮＤ　ＡＬ，０ＦＣＨ
　　ＯＵＴ　６１Ｈ，ＡＬ
　　ＭＯＶ　ＣＸ，０ＦＦＦＦＨ
　　Ｈ：ＬＯＯＰ　Ｈ
　　ＪＭＰ　Ｂ
　　Ｉ：ＭＯＶ　ＡＨ，４ＣＨ
　　ＩＮＴ　２１Ｈ
　　ＣＯＤＥ　ＥＮＤＳ
　　ＥＮＤ　ＳＴＡＲＴ
　　键盘最上排键１～７为中音，８再向右高８度；向下各排依次低８度，每排左数第８个键向右为本排左７键的升调、上一排左７键的降调。后一键按下，前一键发音立停，改发后键音。程序编译连接后，即可运行。按空格键休止，ＥＳＣ键退出。