用QBASIC实现背景音乐
下面介绍如何利用陷阱技术编程：
１．事件设置语句：
ＯＮ ＰＬＡＹ（ｎ） ＧＯＳＵＢ ＢＡＣＫＧＲＯＵＮＤ
其中ＰＬＡＹ为音乐演奏函数
ｎ为任意整数
ＢＡＣＫＧＲＯＵＮＤ为事件处理子程序的入口标号
２．音乐启停控制语句
ＰＬＡＹ ｛ＯＮ｜ＯＦＦ｜ＳＴＯＰ｝
ＯＮ：允许音乐演奏事件自陷
ＯＦＦ：禁止音乐演奏事件自陷
ＳＴＯＰ：暂停音乐演奏事件自陷
（关于如何编写音乐的音调和节拍，请参见有关参考书，在此不再赘述。）
子程序的返回语句用ＲＥＴＵＲＮ来完成，返回后，程序自动执行ＰＬＡＹ ＯＮ语句，我们利用这一个特点，就可以编写一个在后台循环演奏的音乐程序，在我们的程序往下执行的过程中，程序自动演奏音乐。
例如我们想画一个圆球，不断地改变圆球的颜色的同时，在后台演奏音乐；同时，每演奏一遍音乐在屏幕上显示出演奏第几遍音乐，按任意键即可中止程序执行。
程序清单如下：
ＣＬＳ
ＳＣＲＥＥＮ １２“设置显示模式”
ＩＩ＝２ “循环变量赋初值”
ＯＮ ＰＬＡＹ（３） ＧＯＳＵＢ ＢＡＣＫＧＲＯＵＮＤ“设置音乐事件自陷”
ＰＬＡＹ ＯＮ “允许自陷”
ＭＵＳＩＣ＄＝“ＭＢＯ３Ｌ８ＣＤＥＦＧＡＢＥＤ” “设置演奏字符串”
ＰＬＡＹ ＭＵＳＩＣ＄ “演奏指定的字符串”
ＬＯＣＡＴＥ ８，３４：ＰＲＩＮＴ “按任意键停止”
ＤＯ ＷＨＩＬＥ ＩＮＫＥＹ＄＝“”
ＩＦ ＩＩ＞４ ＴＨＥＮ ＩＩ－１：ＧＯＴＯ １
ＩＦ ＩＩ＜＝１ ＴＨＥＮ ＩＩ＝ＩＩ＋１
１ ＦＯＲ Ｉ＝１ ＴＯ １００００：ＮＥＸＴ １ “延时语句”
ＣＩＲＣＬＥ （３１０，２５０），６０，２ “画圆”
ＰＡＩＮＴ （３１０，２５０），ＩＩ，２ “在圆内着色”
ＬＯＯＰ “执行颜色循环体”
ＥＮＤ
ＢＡＣＫＧＲＯＵＮＤ：“演奏子程序”
Ａ％＝Ａ％＋１
ＬＯＣＡＴＥ ４，３４：ＰＲＩＮＴ “第”；Ａ％；“遍音乐”
ＰＬＡＹ ＭＵＳＩＣ＄
ＲＥＴＵＲＮ
如此，你编出来的程序一定是“图文并貌，声色俱佳”。