home *** CD-ROM | disk | FTP | other *** search
/ System Booster / System Booster.iso / Texteditors / Textra116 / Scripts / JForth_Scripts / interpret.textra < prev    next >
Encoding:
Text File  |  1996-09-27  |  287 b   |  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.