神奇的声音程序
#2 爆竹声
FOR K=1 TO 3
FOR i=2805 TO 1360 STEP -30
SOUND i,.6
NEXT i
NEXT K
'电话铃声
FOR i=1 TO 15
SOUND 1200,2:SOUND 300,1
FOR K=1 TO 2500:NEXT
NEXT
#2 警报声
CLS
FOR K=1 TO 3
FOR i=1 TO 5
SOUND 900,2
NEXT i
FOR i=1 TO 5
SOUND 540,2
NEXT
NEXT K
#2 救护车声
FOR j=1 TO 3
FOR i=560 TO 1905 STEP 30
SOUND i,.5
NEXT i
FOR i=1905 TO 560 STEP -30
SOUND i,.8
NEXT i
NEXT j