home *** CD-ROM | disk | FTP | other *** search
/ PC World Komputer 1995 November / PCWK1195.iso / inne / podstawy / dos / 4dos / 4uzytki / jambtm02.exe / READ.BTM < prev    next >
Encoding:
Text File  |  1992-11-15  |  1.4 KB  |  38 lines
  1. *REM This batch file is Freeware, free to use and redistribute unmodified *
  2. *REM Jouni Miettunen * jon@stekt.oulu.fi * Oulu * Finland * Europe * 1992 *
  3.  
  4. REM a little 4DOS interface to ascii char based Jargon File Reader program
  5. REM Timestamp 15-Nov-1992
  6.  
  7. REM Note: In case anyones interested binaries (freeware) available.
  8. REM Note: also OS/2 version w/GUI (non-4os2) (not by me, but freeware).
  9.  
  10. break on^setlocal^unalias *
  11.  
  12. REM two environment variable used by Ascii Jargon Reader
  13. set JARGON_F=c:\relax\jargon\jargon29.10
  14. set JARGON_I=c:\relax\jargon\jargon.idx
  15.  
  16. iff "%1"=="" then^set b=%JARGON_I^else^set b=con^endiff
  17.  
  18. REM Let's be nice and check what's available..
  19. iff "%@search[fgrep]"=="" then
  20.     echo You need either fgrep or to edit this batch file (%@lower[%@name[%0]]) before use.
  21.     goto end
  22. elseiff not exist %JARGON_F .or. not exist %JARGON_I then
  23.     echo You need Jargon 2.9.10 and/or index file before use.
  24.     goto end
  25. endiff
  26.  
  27. REM Select topic and show associated lines
  28. REM Note: select corrupts memory == reserves, but doesn't free after use.
  29. REM 4DOS 4.01 rev D (occurs with HUGE files eg. some 40k in size)
  30.  
  31. :choice
  32. (if "%1" != "" fgrep -sx "%1" %JARGON_I|set a=%@select[%b,0,0,%_rows,%_columns, Jargon File 2.9.10 Index ]) >& nul
  33. if "%a"=="" goto end
  34. c:\relax\jargon\jargon "%@substr[%a,0,%@index[%a,:]]"|list/s^goto choice
  35.  
  36. :end
  37. break off^quit
  38.