home *** CD-ROM | disk | FTP | other *** search
/ Amiga ACS 1998 #4 / amigaacscoverdisc1998-041998.iso / utilities / shareware / comm / ibrowsescripts / rexx / ib2ppaint.ibrx < prev    next >
Encoding:
Text File  |  1980-02-06  |  574 b   |  24 lines
  1. /* IB TO PPAINT Sören Forsberg 1998 */
  2. /* Sends currentscreen to PPAINT for editing */
  3.   ADDRESS 'COMMAND'
  4.   'cd ibrowse:rexx'
  5.   'ibrowse:rexx/getfirstscraddress >RAM:T/ib2ppaint.temp'
  6.  
  7. IF Open('tempfile','RAM:T/ib2ppaint.temp','R') THEN DO
  8.   instring = Readch('tempfile',10)
  9.   slask = Close('tempfile')
  10.   'delete RAM:T/ib2ppaint.temp >NIL:'
  11.  
  12.     IF ~SHOW('Ports','PPAINT') THEN DO
  13.       ADDRESS 'COMMAND'
  14.       'Run PPAINT:PPAINT NOCHECK'
  15.       'SYS:RexxC/WaitForPort PPAINT'
  16.     END
  17.  
  18.     IF SHOW('Ports','PPAINT') THEN DO
  19.       ADDRESS 'PPAINT' 
  20.       Grabscreen ADDRESS instring FORCE
  21.     END
  22. END
  23.  
  24.