pro path

;This progarm prints the current path in a readable format...

path=!path
path_list=strarr(200)   ;path must have fewer
a=0
n=0

while strpos(path,';',a) ne -1 do begin
 b=strpos(path,';',a)
 path_list(n)=strmid(path,a,b-a)
 a=b+1
 n=n+1
endwhile

for i=0,n-1 do print,path_list(i)
print,'The path has ',sstr(n-1),' elements

end