var streamNumber : int
var stream2 : int
var fileName : string
var fileName2 : string

streamNumber := Dir.Open ("e:/music")
assert streamNumber > 0

var artist : array 1 .. 202 of string %array of artist
var album : array 1 .. 10 of string %array of albums (resets after each artist)

var i : int := 1

loop
    fileName := Dir.Get (streamNumber)
    exit when fileName = ""
    artist (i) := fileName %defines the array of artists
    i += 1
end loop
Dir.Close (streamNumber)

for j : 1 .. 202 %for each artist..
    i:=1
   
    put "e:/music/"+artist(j) %just to print out what the current directory is.
   
    stream2 := Dir.Open ("e:/music/"+artist(j)) %opens that directory
    assert stream2 > 0
    loop
        fileName2 := Dir.Get (stream2) %same as before
        exit when fileName2 = ""
        album (i) := fileName2
       
        put album(i)
       
        i += 1
    end loop
    Dir.Close (stream2)
end for