<pre>on dialNumber phoneNumber  set cursor to watch  put stripNonDials(phoneNumber) into theNumber  if theNumber is empty then exit dialNumber  if char 1 to 3 of theNumber is "819" then    delete char 1 to 3 of theNumber    if char 1 to 3 of theNumber is in "838 843 842 849" then      send "dial" && quote & "8237000" & quote && "with modem" && quote & "ATS0=0DT" & quote to hyperCard      send "dial empty with modem" && quote & "ATH" & quote to hyperCard    end if  else    put "1" before theNumber  end if  send "dial" && quote & theNumber & quote && "with modem" && quote & "ATS0=0DT" & quote to hyperCard  wait 3 seconds  send "dial empty with modem" && quote & "ATH" & quote to hyperCard  set cursor to handend dialNumber</pre>