home *** CD-ROM | disk | FTP | other *** search
/ Club Amiga de Montreal - CAM / CAM_CD_1.iso / files / 310.lha / Rexx_4th / testdemo.rexx < prev    next >
OS/2 REXX Batch file  |  1980-12-10  |  449b  |  19 lines
  1. /* A test program for the fancy demo.  To run, issue  */
  2. /* the command testdemo from fancy's command window   */
  3. arg code
  4.  
  5. 'good'   /* a command */
  6. say 'rc=' rc 'result=' result
  7.  
  8. 'BAD'    /* another command */
  9. say 'rc=' rc 'result=' result
  10.  
  11. /* now request a result string (an extension in ARexx) */
  12. options results
  13. say 'Requesting results'
  14.  
  15. 'good'   /* the good command again */
  16. say 'rc=' rc 'result=' result
  17.  
  18. exit code   /* return the argument */
  19.