home *** CD-ROM | disk | FTP | other *** search
/ Shareware Overload / ShartewareOverload.cdr / database / cbin.zip / SRCHPATH.PRG < prev    next >
Text File  |  1987-07-06  |  1KB  |  31 lines

  1. SET TALK OFF
  2. SET STATUS OFF
  3. SET SCOR OFF
  4. @ 00,00 TO 08,79 DOUBLE
  5. @ 01,22 SAY ""+chr(4)+" This is a demo for SRCHPATH.BIN "+chr(4)+""
  6. @ 03,05 SAY "Whadduzzit do?     It searches the DOS PATH for any file."
  7. @ 04,05 SAY "What good izzit?  It should be nice for checking to see if a file exists"
  8. @ 05,23 SAY "along the DOS path before RUNning it."
  9. @ 06,05 SAY "How do I call it? See syntax box below as I call it for ya."
  10. @ 09,00 TO 20,79 DOUBLE
  11. @ 10,33 SAY ""+chr(4)+" Syntax Box "+chr(4)+""
  12. @ 11,33 SAY "──────────────"
  13. @ 12,04 SAY "LOAD srchpath"
  14. LOAD srchpath
  15. @ 13,04 SAY "filename = SPAC(128)"
  16. filename = SPAC(128)
  17. @ 14,04 SAY "@22,00 SAY 'File name to look for:' GET filename PICT 'xxxxxxxxxxxx'"
  18. @22,00 SAY 'File name to look for:' GET filename PICT 'xxxxxxxxxxxx'
  19. @ 15,04 SAY "READ"
  20. READ
  21. @ 16,04 SAY "CALL srchpath WITH filename"
  22. CALL srchpath WITH filename
  23. @ 17,04 SAY "filename=IIF(ASC(filename)=1,'Whoops, not found',filename)"
  24. filename=IIF(ASC(filename)=1,'Whoops, not found',filename)
  25. @ 18,04 SAY "@23,00 SAY 'Full DOS path name = '+filename"
  26. @23,00 SAY 'Full DOS path name = '+filename
  27. @ 19,04 SAY "WAIT"
  28. @23,0 SAY ''
  29. WAIT
  30. RETU
  31.