home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD1.iso / EGS / RTR-EGS1.DMS / in.adf / drivers / ImageMaster / rxpi / rdscript.rexx
Encoding:
OS/2 REXX Batch file  |  1993-11-29  |  1.2 KB  |  49 lines
  1. /* ARexx - DIA Operator Interface */
  2.  
  3. /*
  4.  * open rexxsupport.library -- needed for some functions
  5.  */
  6. if ~show('L',"rexxsupport.library") then do
  7.   if addlib('rexxsupport.library',0,-30,0) then do
  8.       /* everything's ok */
  9.     end;
  10.   else do
  11.     say 'We Have A Library Problem, Unable To Load "rexxsupport.library"';
  12.     say 'Cannot operate Rainbow.rexx without this library - sorry!';
  13.     exit 10;
  14.     end;
  15.   end;
  16. /*
  17.  * This will automatically direct the script to the proper
  18.  * software, if it is running. No matter where the script is
  19.  * launched from.
  20.  */
  21. prtnme = 'IP_Port'; /* assume Image Professional */
  22. if show('P','IP_Port') = 0 then do
  23.   if show('P','IM_Port') = 0 then do
  24.     say "Can't find image processor's ARexx port!!!"; /* not running? */
  25.     say "This script requires IP, IM or IM F/c to run!";
  26.     exit(20);
  27.     end;
  28.   else do
  29.     prtnme = 'IM_Port'; /* That's the thing about assumptions... */
  30.     end;                 /* We make em, user's break em.          */
  31.   end;
  32.  
  33. address(prtnme); /* talk to image system user is running */
  34.  
  35. options results;
  36. 'jackin';        /* get the pointer to the Public Interface */
  37. jacker = result;
  38. options;
  39.  
  40. address "rainbow"
  41. importim "JACK=0x" || jacker
  42.  
  43. address(prtnme);
  44.  
  45. 'finish'
  46. address
  47.  
  48. exit 0;
  49.