home *** CD-ROM | disk | FTP | other *** search
/ CP/M / CPM_CDROM.iso / enterprs / c128 / util / cs-batch.sfx / dex < prev    next >
Encoding:
Text File  |  1990-02-12  |  810 b   |  44 lines
  1. TEXT
  2. PUSHDIR
  3. ECHO"ô├╙-─╧╙ ╥OLODEX
  4. ECHO ╥ANDY ╫INCHESTER
  5. ECHO 2/13/93
  6. IF "%2"=" "GOTO NODRIVE
  7. X$="%2":A=ASC(X$):SYS5888,A
  8. :NODRIVE
  9. IF "%1"=" "GOTO NOARG
  10. IF "%1"="/E"GOTO EDIT
  11. IF "%1"="/S"GOTO SAVE
  12. IF EXIST DEX.TXT GREP -Y %1 DEX.TXT
  13. IF EXIST DEX.TXT GOTO DONE
  14. SYS5888,90
  15. IF EXIST DEX.TXT GREP -Y %1 DEX.TXT
  16. IF NOT EXIST DEX.TXT GOTO NOTFOUND
  17. GOTO DONE
  18. :EDIT
  19. IF EXIST DEX.TXT GET DEX.TXT
  20. IF EXIST DEX.TXT GOTO LIST
  21. SYS5888,90
  22. IF EXIST DEX.TXT GET DEX.TXT
  23. IF NOT EXIST DEX.TXT GOTO NOTFOUND
  24. GOTO LIST
  25. :NOTFOUND
  26. ECHO"─EX.TXT NOT FOUND!
  27. GOTO DONE
  28. :SAVE
  29. ECHO ╙AVE DEX.TXT?
  30. GETKEY
  31. IF NOT ERRORLEVEL 89 GOTO LIST
  32. PUT DEX.TXT
  33. GOTO LIST
  34. :NOARG
  35. ECHO"╒SAGE:
  36. ECHO %0 /E [D]      EDIT DEX.TXT [DRIVE OF DEX.TXT]
  37. ECHO %0 /S [D]      SAVE DEX.TXT
  38. ECHO %0 STRING [D]  FIND STRING IN DEX.TXT
  39. GOTO DONE
  40. :LIST
  41. LIST
  42. :DONE
  43. POPDIR
  44.