.bra {
.ket }
.key device/A,unit/A

; /*     $VER: TestModem 1.45 (28.04.98)      */
; /*                                          */
; /*  This script is part of MailCheck v1.45  */
; /*    and may not be modified or copied     */
; /*  without the authors written permission  */
; /*                                          */
; /*   ©1997 DCS Softwate by Robert Wilson    */

; This routine was included as part of the MailCheck
; ARexx script. I had to remove it, because when 
; CheckModem failed (RC 20) the ARexx script also
; came to a halt! I tried setting Failat values, but
; nothing seemed to work! Any ideas...?

failat 25

checkmodem {device} {unit} >NIL:

if $RC eq 0
  setenv MCModem 1
else
  setenv MCModem 0
endif