Power-Programmierung/CD1.mdf/xbase/library/dbase/cbin/srchpath.prg

Text File | 1987-07-06 | 1.1 KB | 31 lines

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