home *** CD-ROM | disk | FTP | other *** search
- /* */
-
- parse arg numVoiceMessages .
-
- avmbusy = getclip('AVMBusy')
- if avmbusy = "" | avmbusy = "0" then do
- if (numVoiceMessages = 1) then
- address command "run >nil: <nil: avm:dsound/dsound -2 avm:have1message.iff"
- /*
- address command "run >nil: <nil: avm:agmsplaysound avm:have1message.iff"
- */
-
- if (numVoiceMessages > 1) then
- address command "run >nil: <nil: avm:dsound/dsound -2 avm:havemessages.iff"
- /*
- address command "run >nil: <nil: avm:agmsplaysound avm:havemessages.iff"
- */
- end
-
- exit
-
-