home *** CD-ROM | disk | FTP | other *** search
/ World of A1200 / World_Of_A1200.iso / programs / text / textra / scripts / jforth_scripts / interpret.textra < prev    next >
Text File  |  1995-02-27  |  287b  |  18 lines
  1. /* Execute selected text as JForth code */
  2.  
  3. options results
  4.  
  5. expression= 'EX= '
  6. get select text
  7. parse var result num  thisselect
  8. if num='NO' then exit
  9.  
  10. address 'JFORTH' thisselect
  11.  
  12. do until num=0
  13.    get select next
  14.    parse var result num thisselect
  15.     address 'JFORTH' thisselect
  16.    end
  17.  
  18.