/*
 * $Id: send.prg 12880 2009-11-15 04:22:05Z vszakats $
 */

/*
 * Copyright 2009 Viktor Szakats (harbour.01 syenar.hu)
 * www - http://www.harbour-project.org
 */

#include "common.ch"

PROCEDURE Main( cPort )

#if   defined( __PLATFORM__WINDOWS )
   DEFAULT cPort TO "\\.\COM22"
#elif defined( __PLATFORM__DARWIN )
   DEFAULT cPort TO "/dev/tty.something-COM1"
#endif

   ? "start"
   ? sms_Send( cPort, "555555555", "teszt msg", .T. )
   ? "end"

   RETURN
