9687850865
* (all files)
* stripped svn header
* minor cleanups
; use following command to find out the history of files:
git log
git log --follow
git blame
git annotate
23 lines
478 B
Plaintext
23 lines
478 B
Plaintext
/*
|
|
* Copyright 2009-2010 Viktor Szakats (harbour syenar.net)
|
|
* www - http://www.harbour-project.org
|
|
*/
|
|
|
|
#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
|