setscreen ("graphics")
var num_of_entries : int
put "How many books would you like to register in the database?"
get num_of_entries
var title, author, publisher, datepublished, placepublished : array 1 .. num_of_entries of string
for i : 1 .. num_of_entries
    put "What is the title of the book ", i, "?"
    get title (i)
end for
put "Great!"
Input.Pause

for i : 1 .. num_of_entries
    put "Who is the author(s) of ", title (i), "?"
    get author (i)
end for
put "Great!"
Input.Pause

for i : 1 .. num_of_entries
    put "What is the publisher of ", title (i), "?"
    get publisher (i)
end for
put "Great!"
Input.Pause

for i : 1 .. num_of_entries
    put "What is the date published of ", title (i), "?"
    get datepublished (i)
end for
put "Great!"
Input.Pause

for i : 1 .. num_of_entries
    put "What is the place published for ", title (i), "?"
    get placepublished (i)
end for
put "Great!"

var stream : int
open : stream, "Bibliography.txt", put
for i : 1 .. num_of_entries
    put : stream, "Bibliography"
    put : stream, "Author, Title, Place Published, Publisher, Date Published"
    put : stream, ""
    put : stream, author (i), ". ", title (i), ". ", placepublished (i), ": ", publisher (i), ", ", datepublished (i)
    put : stream, ""
end for
close : stream

put "Your file has been saved as 'Bibliography.txt'."