home *** CD-ROM | disk | FTP | other *** search
/ World of A1200 / World_Of_A1200.iso / programs / text / textra / scripts / jforth_scripts / tojf.textra < prev   
Text File  |  1995-02-27  |  228b  |  11 lines
  1. /* send a string to the JForth interpreter... */
  2.  
  3. OPTIONS results
  4.  
  5. parse arg theString   /* get the argument */
  6. if (theString == "") then
  7.     theString = '" JForth Professional just says HI!" $type cr'
  8.  
  9. address 'JFORTH' theString
  10.  
  11.