程序如下：
10 PAUSE 40000
15 FOR A=0 TO00
20 MUSIC“B＞2”
25 NEXT A
30 GOTO 10
PAUSE语句中，N＞32768时，计算机暂停时间任意长，此时按下任意健，计算机恢复运行发出声响。利用这一原理，从游戏棒接口1、9端引出二条线到常开干簧管两端，连同磁铁装到门窗上，当门窗被推开时，干簧管闭合，计算机工作，发出报警声。（梁惠雄）
程序如下：
10 PAUSE 40000
15 FOR A=0 TO00
20 MUSIC“B＞2”
25 NEXT A
30 GOTO 10
PAUSE语句中，N＞32768时，计算机暂停时间任意长，此时按下任意健，计算机恢复运行发出声响。利用这一原理，从游戏棒接口1、9端引出二条线到常开干簧管两端，连同磁铁装到门窗上，当门窗被推开时，干簧管闭合，计算机工作，发出报警声。（梁惠雄）