home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 18 REXX / 18-REXX.zip / rxcomm16.zip / samples / csTest.cmd next >
OS/2 REXX Batch file  |  1999-02-15  |  4KB  |  115 lines
  1. /**
  2.  * REXX Communication Control Function Library  Ver.1.1
  3.  *                  copyright 1998-1999, Naga(Kazuo Adachi)
  4.  *                          mailto:nagaw@ibm.net
  5.  *                          mailto:GDB00421@nifty.ne.jp
  6.  *
  7.  * $Id$
  8.  *
  9.  * $Log$
  10.  */
  11.  
  12. CALL RxFuncAdd 'SysLoadFuncs','RexxUtil','SysLoadFuncs'
  13. CALL SysLoadFuncs
  14.  
  15. CALL RxFuncAdd 'RxCommLoadFuncs','RxComm','RxCommLoadFuncs'
  16. CALL RxCommLoadFuncs
  17.  
  18. /**
  19.  * Setup Communication Parameter
  20.  */
  21. comPort = 'COM1'
  22.  
  23. /*--------------------------------------------------------*/
  24. /**
  25.  * COM Port Device Open
  26.  */
  27. rc = RxCommOption( 'SEND_CTLCH', 'ON' )
  28. rc = RxCommOpen( comPort, 9600, '8N1', 'NONE' )
  29. IF rc <> 0 THEN
  30. DO
  31.     SAY 'COMâ|ü[âgé╠âIü[âvâôé╔Ä╕ösé╡é▄é╡é╜!!'
  32.     EXIT
  33. END
  34.  
  35. /*--------------------------------------------------------*/
  36. /**
  37.  * É┌æ▒èmöFâRâ}âôâhÄ└ìs!!
  38.  */
  39. DO FOREVER
  40.     rc = RxCommWrite( '\r\r/c\r' )
  41.     DO FOREVER
  42.         rc = RxCommRead( 100 ) /* éPòbé¡éτéóÄ≤ÉMé¬é╚éóé⌐æ╥é┴é─é▌éΘ */
  43.         IF rc = '' THEN LEAVE  /* ë╜éαÄ≤ÉMé┼é½é╚éóÅΩìçé═üAÅëè·ë╗é≡ */
  44.  
  45.         DO WHILE POS( '0D'x, rc ) > 0
  46.             rc = DELSTR( rc, POS( '0D'x, rc ), 1 )
  47.         END
  48.         DO WHILE POS( '0A'x, rc ) > 0
  49.             rc = DELSTR( rc, POS( '0A'x, rc ), 1 )
  50.         END
  51.         IF rc <> '' THEN LEAVE
  52.     END
  53.     IF POS( 'Ok', rc ) = 1 THEN LEAVE
  54.  
  55.     /**
  56.      * âNâìâbâTâÇéQü{é╠Åëè·ë╗
  57.      */
  58.     DO FOREVER
  59.         SAY 'Crossam2+é╠[REC]é╞[POWER]é╞[F14]é≡ô»Ä₧ëƒé╡é─ë║é│éóüB'
  60.         rc = RxCommRead() /* ë╜é⌐ò╢ÄÜé≡Ä≤ÉMé╖éΘé▄é┼æ╥é┬ */
  61.         IF POS( 'GO', rc ) > 0 THEN LEAVE
  62.     END
  63.  
  64.     IData.1  = 'A2 10 BD 23 10 9D 00 01 CA 10 F7 A2 40 BD 33 10'x
  65.     IData.2  = '9D 00 0B CA 10 F7 3C 00 2B 3C 00 2C 3C 32 06 58'x
  66.     IData.3  = '4C 00 0B 7F D7 3C 80 DF 8F DE 42 EA 20 58 C4 4C'x
  67.     IData.4  = '15 0B 00 4F FE 6F FF 8F FE 3C 00 DA CF DA 64 06'x
  68.     IData.5  = 'D0 05 6F FE 4C 00 01 C2 9F FE 7F FF 20 EE C0 20'x
  69.     IData.6  = 'C8 C5 9F FC 20 2A 0B A5 25 D0 ED 80 D6 A7 23 01'x
  70.     IData.7  = '60 BF 23 3C 00 2A A2 00 20 44 CD C9 2F D0 F1 E8'x
  71.     IData.8  = '4C 9E C9 FF FF FF FF FF FF FF FF FF FF FF FF FF'x
  72.     IData.9  = 'FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF'x
  73.     IData.10 = 'FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF'x
  74.     IData.11 = 'FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF'x
  75.     IData.12 = 'FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF'x
  76.     IData.13 = 'FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF'x
  77.     IData.14 = 'FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF'x
  78.     IData.15 = 'FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF'x
  79.     IData.16 = 'FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF'x
  80.     IniComData = ''
  81.     DO i = 1 to 16
  82.         IniComData = IniComData || IData.i
  83.     END
  84.     rc = RxCommWrite( IniComData )
  85. END
  86.  
  87. SAY 'Crossam2+é╞é╠É┌æ▒é≡è«ù╣!!'
  88.  
  89. /*--------------------------------------------------------*/
  90. /**
  91.  * É┌æ▒èmöFâRâ}âôâhÄ└ìs!!
  92.  */
  93. DO FOREVER
  94.     SAY 'â_âCâAâïâLü[ö╘ìå(0ü`40/[RET]:ÅIù╣)é≡ôⁿù═é╡é─ë║é│éóüB'
  95.     PULL dialKey
  96.     IF '' == dialKey THEN LEAVE
  97.  
  98.     rc = RxCommWrite( '\r/t0,' || dialKey || '\r\r' )
  99.     DO FOREVER
  100.         rc = RxCommRead() /* ë╜é⌐ò╢ÄÜé≡Ä≤ÉMé╖éΘé▄é┼æ╥é┬ */
  101.         DO WHILE POS( '0D'x, rc ) > 0
  102.             rc = DELSTR( rc, POS( '0D'x, rc ), 1 )
  103.         END
  104.         DO WHILE POS( '0A'x, rc ) > 0
  105.             rc = DELSTR( rc, POS( '0A'x, rc ), 1 )
  106.         END
  107.         IF rc <> '' THEN LEAVE
  108.     END
  109.     IF POS( 'Ok', rc ) = 1 THEN SAY 'Æ╩ÉMɼî≈!!'
  110.     IF POS( 'Ng', rc ) = 1 THEN SAY 'Æ╩ÉMÄ╕ös!!'
  111. END
  112.  
  113. rc = RxCommClose()
  114.  
  115.