WITH THISFORM.oleControl1
    .Enabled = .T.
    .sThreshold = 1
    .rThreshold = 1
    .CommPort = 4
    .PortOpen = .T.

    
  *  IF EMPTY(dialphone.prefix)
  *      .output = [ATDT] + ALLTRIM(dialphone.phone_no)+CHR(13)
   * ELSE
     *   .output = [ATDT] + ALLTRIM(dialphone.prefix)+[,]+ALLTRIM(dialphone.phone_no) + CHR(13)
    *ENDIF    

    
    IF EMPTY(thisform.rtel.value)
        .output = [ATDT] + ALLTRIM(thisform.rtel.value)+CHR(13)
    ELSE
        .output = [ATDT] + ALLTRIM(thisform.rtel.value)+[,]+ALLTRIM(thisform.rtel.value) + CHR(13)
    ENDIF    
    
    
    WAIT WINDOW ; 
                  [Please press the handsfree button on the phone] ;
        + CHR(13) ;
        + [and then lift the receiver when the bell sounds.] ;
        TIMEOUT 5

    SET BELL TO [sounds\ringin.WAV], 0
    ?? CHR(7)
    SET BELL TO

    .output = [ATH0Z] + CHR(13)    
    .sThreshold = 0
    .rThreshold = 0
    .PortOpen = .F.
    .CommPort = 4
    .Enabled = .F.
ENDW