home *** CD-ROM | disk | FTP | other *** search
/ World of A1200 / World_Of_A1200.iso / programs / text / textra / scripts / jforth_scripts / jfile?.textra < prev    next >
Text File  |  1995-02-27  |  653b  |  17 lines
  1.     /*******************************************************************
  2.      *   TEXTRA AREXX script -- Mike Haas, 1991, All Rights Reserved.  *
  3.      * Freely distributable ONLY as a component of the TEXTRA package. *
  4.      * This banner may not be removed or altered (improvements to the  *
  5.      *    actual program welcome).  Please document and send to me.    *
  6.      *        !!! PLACE THIS FILE IN YOUR REXX: DIRECTORY !!!          *
  7.      *******************************************************************/
  8.  
  9. options results
  10.  
  11. get select text
  12. parse var result num  thisselect
  13. if num='NO' then exit
  14.  
  15. address 'JFORTH' 'JforthToFront FILE? 'thisselect
  16.  
  17.