home *** CD-ROM | disk | FTP | other *** search
/ Amiga MA Magazine 1998 #3 / amigamamagazinepolishissue1998.iso / bazy / intra2_17 / rexx / portname.irx < prev    next >
Text File  |  1993-04-19  |  468b  |  14 lines
  1. /* INTRA_portname.irx  by Frank Maesen                            */
  2. /* $VER: INTRA_portname.irx 1.0 (18.4.1993)                       */
  3. /* Example Arexx program for controlling INTRA by Bart Vanhaeren  */
  4.  
  5. IF POS('INTRAREXX', SHOW('PORTS'))=0 THEN DO
  6.   SAY "*** Start INTRA first !!!"
  7.   EXIT(0)
  8.  END
  9.  
  10. portname=(TRIM(SUBSTR(SHOW('PORTS'),POS('INTRAREXX',SHOW('PORTS')),12)))
  11. SAY portname
  12.  
  13. /* ADDRESS (TRIM(SUBSTR(SHOW('PORTS'),POS('INTRAREXX',SHOW('PORTS')),12))) */
  14.