home *** CD-ROM | disk | FTP | other *** search
/ The CDPD Public Domain Collection for CDTV 4 / CDPD_IV.bin / utilities / editors / textra / scripts / jforth_scripts / tojf.textra < prev    next >
Encoding:
Text File  |  1994-06-24  |  228 b   |  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.