/* This arexx script dials a phone number if  a modem is connected*/
GETDBFORMFIELD

ADDRESS twist
PARSE ARG dbfilename,rela_x,rela_y,shiftkeys
OPEN dbfilename
options results
GETDBFORMMODE

GETDBFORMFIELD "telmobile"
number = "atdt" || result
open('outfile','SER:','W')
writeln('outfile',number)
exit