微机变成电子琴

Author: 蒋济南 Date: 1992-10-23

        本程序在PX/XT、286微机上运行通过，具体使用如下：运行时键入C、D、E、F、G、A、B(相当于C调中的1、2、3、4、5、6、7)七个键中的任意一个，便能发出简谱中对应的音，起始时为中音段，假如要演奏高音，先按一下“W”键便进入高音段；假如要演奏低音，先按下“R”键便进入低音段；假如要演奏中音，先按下“T”键便进入中音段。如按下“R键”键后，按“C”键，则相当于发“!”的音。要结束演奏，按下“Q”键便退出了。
        程序中字符串“L8”是可以改变的，程序清单附后：
        10 CLS:KEY OFF
        20 LOCATE 10,20:PRINT"★★★模拟电子琴演奏★★★"
        30 LOCATE 11,20:PRINT"--"
        40 X$=INKEY$
        50 IF X$="W" OR X$="w" THEN Z$="O5":L$="T":GOTO 100
        60 IF X$="R" OR X$="r" THEN Z$="O2":L$="T":GOTO 100
        70 IF X$="T" OR X$="t" THEN Z$="O4":L$="T":GOTO 100
        80 IF X$="Q" OR X$="q" THEN 140
        90 L$=...
        100 IF L$="T" THEN X$=INKEY$:H$=Z$+"L8"+X$
        110 IF L$<>"T" THEN H$="L8"+X$
        120 PLAY H$
        130 GOTO 40
        140 CLS:LOCATE 10,20
        150 PRINT"谢谢您的演奏!!"
        160 LOCATE 11,10:PRINT"--"