home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD1.iso / GFX / Painting / DP_EXTRA.LZX / DPaintV.2_EXTRAS / Macros / DPRx.Rexx < prev    next >
Encoding:
OS/2 REXX Batch file  |  1995-11-01  |  739 b   |  28 lines
  1. /*  dprxtest.rexx, a simple way to feed dpaint several commands  */
  2. /*    <Ctrl-C> exits  */
  3.  
  4. address 'DPAINT.1'
  5. options results
  6. options failat 50
  7.  
  8. say "DPaintV ARexx Test Tool"
  9. say "Press <Ctrl>-C <Return> to Exit."
  10. signal on BREAK_C
  11.  
  12. do forever
  13.   say "DPRX>"
  14.   pull command
  15.   interpret command
  16.   if RC = 18 then say "Command returned: Error 18 RC_BAD_COMMAND"
  17.   else if RC = 17 then say "Command returned: Error 17 RC_BAD_ARGS"
  18.   else if RC = 16 then say "Command returned: Error 16 RC_MISC_DP_ERROR"
  19.   else if RC = 15 then say "Command returned: Error 15 RC_GUI_LOCK_ERROR"
  20.   else if RC = 0 then say "Command returned: 0 RC_OK"
  21.   else say "Command returned: " RC
  22.   if result ~= "RESULT" then say result
  23.   drop result
  24. end
  25.  
  26. BREAK_C:
  27. exit
  28.