home *** CD-ROM | disk | FTP | other *** search
/ DTP Toolbox / DTPToolbox.iso / propage4.0 / arexx / adprocomm.rexx < prev    next >
Encoding:
OS/2 REXX Batch file  |  1992-03-15  |  816 b   |  53 lines
  1. /*
  2.    ADPro Communications script
  3. */
  4. arguments = getclip(ppuser_adargs)
  5. if args = '' then exit
  6. parse var arguments iwidth ';' iheight ';' rendermode ';' filename ';' mode
  7.  
  8. adstart = 0
  9.  
  10. early = 1
  11.  
  12. do 10
  13.  
  14.    if ~show(p, 'ADPro') then
  15.       call delay(100)
  16.    else
  17.    do
  18.       adstart = 1
  19.       leave
  20.    end
  21.    early = 0
  22. end
  23.  
  24. if ~adstart then
  25. do
  26.    call setclip(ppuser_adclip, "0")
  27.    exit_msg()
  28. end
  29.  
  30. call setclip(ppuser_adclip, "1")
  31.  
  32. if ~early then
  33.    call  ppm_Inform(1,"Started ADPro. You must quit ADPro to reimport BitMap..",)
  34.  
  35. address     'ADPro'
  36. 'ADPRO_TO_FRONT'
  37. 'SCREEN_TYPE'  mode
  38. 'LFORMAT'   IFF
  39. 'SFORMAT'   IFF
  40. 'LOAD'      '"'filename'"'
  41. 'RENDER_TYPE'  rendermode
  42. 'ABS_SCALE' iwidth iheight
  43.  
  44. exit_msg()
  45.  
  46. exit_msg: procedure
  47. do
  48.    arg message
  49.  
  50.    if message ~= '' then call ppm_Inform(1,message,)
  51.    exit
  52. end
  53.