\disp "    Preparing Modem (Intel 9600 V.32) for call.
    Please wait . . . J. Campbell 71670,114
"
\prmp " [modem] Enter phone number"
\shut
\bel
\cr\.
AT Z\cr\.\.
AT X3\cr\.
AT S0=0\cr\.
AT E0 Q0 \092
N0\cr\.
\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