SHELL "cd > thisdir.dat"
SHELL "dir *. > dirs.dat"
SHELL "lines dirs.dat > lijnen.dat"
OPEN "thisdir.dat" FOR INPUT AS 1
READ 1 , CURDIR$
CLOSE 1
OPEN "lijnen.dat" FOR INPUT AS 1
READ 1 , AANTAL
CLOSE 1
OPEN "dirs.dat" FOR INPUT AS 1
