path.bas

来自「由一个古老的BASIC解释器改进而成, 保留了ANSI C固有的艺术美感.」· BAS 代码 · 共 18 行

rem path.bas

if osfamily$ = "windows" then sep$= ";" else sep$= ":"

path$= environ$ ("PATH")

pos= instr (path$, sep$)

while pos > 0
	print left$ (path$, pos - 1)
	path$= mid$ (path$, pos + 1)
	pos= instr (path$, sep$)
wend

print path$

end