'- linguagem basic msx, pag 148 - http://www.datacassete.com.br/livros/detail/Linguagem-BASIC-MSX/59.html

120 sound 6,12                      '- determina a frequencia do ruido, 9600hz
130 sound 7,246                     '- habilita saida de som e ruido pelo canal A
140 sound 0,93:sound 1,4            '- determina a frequencia do canal A, 100hz
160 for v=0 to 16                   '- loop para crescente do volume, 16 habilita gerador de envelope
170 for t=0 to 250:waitvbl:next t   '- loop para delay
180 sound 8,v                       '- atribui o volumen gerado pelo loop ao canal A
190 next v
200 sound 11,180:sound 12,1         '- determina a frequência do envelope
220 sound 13,14                     '- selecciona o envelope
230 for t=0 to 1000:waitvbl:next t  '- delay
240 sound 1,0                       '- prepara o registo A para produzir sons puros
250 sound 7,254                     '- habilita saida de som sem ruido pelo canal A
260 sound 8,15                      '- selecciona o volume máximo
270 for x=255 to 0 step -1          '- loop para variar a frequência do canal A
280 sound 0,x                       '- coloca no registo 0 o valor do loop
290 next x                          '- 
300 sound 0,232:sound 1,0           '- determina a frequência do canal A, 140hz
320 sound 7,246                     '- selecciona a saida de ruido e som pelo canal A
330 for t=0 to 50:waitvbl:next t    '- delay
340 sound 8,0                       '- selecciona o volume mínimo para o canal A





