home *** CD-ROM | disk | FTP | other *** search
/ Fish 'n' More 2 / fishmore-publicdomainlibraryvol.ii1991xetec.iso / fish / telecom / disterm / rxtermscripts / disout < prev    next >
Text File  |  1991-03-08  |  889b  |  24 lines
  1. /* An example of a disterm DISOUT command.                    */
  2. /* It takes at least 1 arg, the byte to output. NOTE: Does not print to the    */
  3. /* disTerm window (unless the modem echos back the bytes as with Hayes commands) */
  4.  
  5. /* Here's how I begin all of my rexx scripts meant to control disTerm */
  6. ADDRESS 'disTerm'  /* All the following commands go to disTerm */
  7. OPTIONS FAILAT 20
  8. OPTIONS RESULTS
  9. quote = '27'X   /* use this variable name in place of any ' char within a string */
  10.  
  11. /* Bring disTerm window to the front */
  12.  'DISWIND'
  13.  
  14. /* Use this for sending a newline via DISOUT */
  15. newline = 'A'X
  16.  
  17. /* Let's send the ATH Hayes command to the modem 1 byte at a time. Note that */
  18. /* we could do this easier via the DISSTRING command, but that prints the    */
  19. /* output as well as translating any imbedded CTRL (^) or escape (\) sequences */
  20.  'DISOUT' 'A'
  21.  'DISOUT' 'T'
  22.  'DISOUT' 'H'
  23.  'DISOUT'newline
  24.