标题微机变成电子琴

　　本程序在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"--"