Dir.Create ("H:\\Fill up") % Create a new directory on the H: drive

var fileName : string := "H:\\Fill up\\a_" % Set File to save to
var myStream : array 1 .. 5 of int % Streams for each process called
process FillUp (file : string, cnt:int) % params are fileName and counter(for array)
    const myFile : string := file % Starter file name (stored for easy access)
    var tempFile : string % temperary filename
    var counter : int := 1 % counter (add to end of filename so files don't overlap)
    loop
        tempFile := myFile + intstr(counter) + ".txt" % Set the new filename
        open : myStream(cnt), tempFile, put % Open the file
        for i : 1 .. 100
            put : myStream(cnt), "This is my stream" % put this in the file 100 times
        end for
        close (myStream(cnt)) % Close the file
        counter := counter + 1 % Add to the counter value
    end loop
end FillUp

fork FillUp (fileName,1) % Call the first process
fileName := "H:\\Fill up\\b_" % Change the filename for the second process
fork FillUp (fileName,2) % Call the second process
fileName := "H:\\Fill up\\c_" % Change the filename for the third process
fork FillUp (fileName,3) % Call the third process
fileName := "H:\\Fill up\\d_" % Change the filename for the fourth process
fork FillUp (fileName,4) % Call the fourth process
fileName := "H:\\Fill up\\e_" % Change the filename for the fifth process
fork FillUp (fileName,5) % Call the fifth process