ec = errorCode()
em = errorMessage()
switch
     case ec = peInvalidChar :
          soundFile = "invalchr.wav"
     case ec = peNotInEditMode :
          soundFile = "notedit.wav"
     case em.match("..Date..") or em.match("..Day..") or
          em.match("..Month..") or em.match("..Year..") :
          soundFile = "invaldat.wav"
     case ec = peBOF :
          soundFile = "SystemDefault"
endSwitch
If soundFile <> "" then
     sndPlaySound(soundFile, 1)
endIf
message(em)
