PUBLIC oPhone oPhone=CREATEOBJECT('Form') oPhone.AddObject('Phone','Olecontrol','MSCOMMLib.MSComm') oPhone.Phone.Settings='9600,N,8,1' WAIT WINDOW 'Setting up modem' TIMEOUT 1 oPhone.Phone.CommPort=1 WAIT WINDOW 'Setting up comm port' TIMEOUT 1 oPhone.Phone.PortOpen=.T. WAIT WINDOW 'Opening port' TIMEOUT 1 oPhone.Phone.Output='ATDT923-1406'+CHR(13) WAIT WINDOW 'Dialing' TIMEOUT 1