$regfile = "m8def.dat"
$crystal = 1000000

Config Portd.7 = Output
Config Pind.2 = Input

Do

If Pind.2 = 1 Then
Sound Portd.7 , 50 , 261
Sound Portd.7 , 50 , 293
Sound Portd.7 , 50 , 329
Sound Portd.7 , 50 , 349
Sound Portd.7 , 50 , 392
Sound Portd.7 , 50 , 440
Sound Portd.7 , 50 , 493
Sound Portd.7 , 50 , 523
End If

Loop

End