home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Power-Programmierung
/
CD1.mdf
/
xbase
/
library
/
dbase
/
cbin
/
srchpath.prg
< prev
next >
Wrap
Text File
|
1987-07-06
|
1KB
|
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