PTH$
Syntax |
PTH$ (n) |
Location |
Path device |
The function PTH$ returns the nth directory in the search list of the path device.
Examples
The procedure PTH_INFO prints all of the current settings concerning the the pth device to #1.
The function PTH_ENTRIES% returns the number of directories in the path list.
100 DEFine PROCedure PTH_INFO
110 LOCal n: n=0
120 PRINT "Path device:"!PTH_USE$
130 PRINT\"Search paths";
140 REPeat list_them
150 IF PTH$(n)="" THEN EXIT list_them
160 IF NOT n THEN PRINT
170 PRINT FILL$(" ",3-LEN(n));n;TO 5,PTH$(n)
180 n=n+1
190 END REPeat list_them
200 IF NOT n THEN PRINT " no entries"
210 END DEFine PTH_INFO
220 :
240 DEFine FuNction PTH_ENTRIES%
250 LOCal n
260 FOR n=0 TO 32767: IF PTH$(n)="" THEN EXIT n
270 RETurn n
280 END DEFine PTH_ENTRIES%
CROSS-REFERENCE