\disp "    Preparing Modem Hayes Ultra for call.
    Please wait . . .
"
\shut
\bel
\go 1 \$1 \:1
\cr
ATZ\cr\slep 4
AT Q0 E0 V1 S0=0\cr
\wait 8 "OK" 0 10\.
AT X4 W2 S7=120 S10=120\cr
\wait 8 "OK" 0 10\.
AT \$2 \cr
\wait 8 "OK" 0 10\.
\idle 12
\shut
ATDT\$1\cr\.
\wait 14 "CO" 0 20
    \.\disp "    Handshaking with remote system.
    Please wait . . .
"
    \ret 1
\:10
    \shut
    \disp "    Modem not responding; check cabling/COM port declaration
"
\:20
    \.\disp "    Call failed.  Try again later.
"
    \.\ret 0
\end