home *** CD-ROM | disk | FTP | other *** search
/ Amiga Magazin: Amiga-CD 2000 April & May / AMIGA_2000_04.iso / amiga-magazin / visualengineer / ve-full.lha / arexx / Resize400x400.rexx < prev    next >
OS/2 REXX Batch file  |  1998-09-09  |  856b  |  41 lines
  1. /*
  2.  
  3.    v1.00 Resize 400x400
  4.  
  5.    Marko Seppänen
  6.    marko.seppanen@wwnet.fi
  7.  
  8. */
  9.  
  10.  
  11. address IMAGEENGINEER
  12.  
  13. Options results
  14. signal on error            /* Setup a place for errors to go */
  15.  
  16. if arg()=0 then exit
  17. palaute=arg(1)
  18.  
  19. RESIZE palaute 400 400 TILE
  20. x1=result
  21.  
  22. exit
  23.  
  24. /*******************************************************************/
  25. /* This is where control goes when an error code is returned by IE */
  26. /* It puts up a message saying what happened and on which line     */
  27. /*******************************************************************/
  28. error:
  29. if RC=5 then do            /* Did the user just cancel us? */
  30.     IE_TO_FRONT
  31.     LAST_ERROR
  32.     'REQUEST "'||RESULT||'"'
  33.     exit
  34. end
  35. else do
  36.     IE_TO_FRONT
  37.     LAST_ERROR
  38.     'REQUEST "Error detected!!!'||D2C(10)||'Image Engineer error message is as follows'||D2C(10)||result||D2C(10)||'Script failed on line '||SIGL||'"' 'Doh!'
  39.     exit
  40. end
  41.