home *** CD-ROM | disk | FTP | other *** search
/ The CDPD Public Domain Collection for CDTV 4 / CDPD_IV.bin / utilities / editors / textra / scripts / jforth_scripts / view.textra < prev    next >
Text File  |  1994-06-24  |  511b  |  26 lines
  1. /* display JForth source file & word */
  2.  
  3. OPTIONS results
  4.  
  5. parse arg theString   /* get the argument */
  6.  
  7. rex = 0; result = "NOTSUPPORTED"
  8. textraversion
  9. parse var result maj min rex
  10. if (result == "NOTSUPPORTED") | (rex < 2) then do
  11.     notify "Textra V1.12 or later required for this script."
  12.     exit
  13. end
  14.  
  15. theString = UPPER(theString)
  16.  
  17. address 'JFORTH' '" 'theString'" ReturnFileName'
  18.  
  19. if (result ~= "NOT FOUND") then do
  20.     fname = result
  21.     if (fname ~= "RESULT") then do
  22.         openfile '"'fname'"'
  23.         find theString
  24.     end
  25. end
  26.