Sub Answer(oCall)

 Dim oSyn, ok
	
 oCall.playMessage("helloworld")
 oCall.waitIfPlaying(-1)

 Set oSyn = oCall.getSynthesizer()
 oSyn.speak("Please press a key on your telephones key pad.")

 ok = oCall.inputWait1(1, "#", 10000)

 if ok then 
  call oSyn.speak( "You pressed " & oCall.getChar() & " ." )
 else
  call oSyn.speak( "You pressed nothing." )
 end if

 oSyn.speak("That was easy, wasnt it?")
 oSyn.wait(-1)
 
End Sub