Files
harbour-core/contrib/hbsms/tests/send.prg
Viktor Szakats 3ed9fa0f45 2016-01-14 19:33 UTC+0100 Viktor Szakats (vszakats users.noreply.github.com)
* *
    % remove brandings and homepage from copyright header. Pass 2 - semi-auto.
    * project homepage and name is described in README, amongst others
    ; this should make the diff between 3.4 and 3.2 easier to manage
2016-01-14 19:35:07 +01:00

22 lines
440 B
Plaintext

/*
* Copyright 2009-2010 Viktor Szakats (vszakats.net/harbour)
*/
#require "hbsms"
PROCEDURE Main( cPort )
#if defined( __PLATFORM__WINDOWS )
hb_default( @cPort, "\\.\COM22" )
#elif defined( __PLATFORM__LINUX )
hb_default( @cPort, "/dev/ttyS1" )
#elif defined( __PLATFORM__DARWIN )
hb_default( @cPort, "/dev/cu.myport-COM1-1" )
#endif
? "start"
? sms_Send( cPort, "555555555", "test msg", .T. )
? "end"
RETURN