home *** CD-ROM | disk | FTP | other *** search
/ Club Amiga de Montreal - CAM / CAM_CD_1.iso / files / 496.lha / DisTerm / RxTermScripts / disstring < prev   
Encoding:
Text File  |  1991-04-07  |  727 b   |  21 lines
  1. /* An example of a disterm`DISSTRING command.            */
  2. /* It takes 1 arg, a string to output to the modem        */
  3.  
  4. /* Here's how I begin all of my rexx scripts meant to control disTerm */
  5. ADDRESS 'disTerm'  /* All the following commands go to disTerm */
  6. OPTIONS FAILAT 20
  7. OPTIONS RESULTS
  8. quote = '27'X   /* use this variable name in place of any ' char within a string */
  9.  
  10. /* Get the stirng that the user specified when invoking the script into a rexx */
  11. /* variable called sendit */
  12.  
  13. /* Bring disTerm window to the front */
  14.  'DISWIND'
  15.  
  16. /* Here's the string we want to send. Note the new line characters \n */
  17. sendit = '\nthis is a test\n'
  18.  
  19. /* Output that string to the modem. (Also prints it to our term window) */
  20.  'DISSTRING'sendit
  21.