type Forum :
    record
        sender : string
        subject : string
        text : string
        datewritten : string
    end record
var inputForum : array 1 .. 100 of Forum
var datafile : int
for i : 1 .. 100
    inputForum (1).sender := "Dan"
    inputForum (1).subject := "My New Computer Forum!"
    inputForum (1).text := "Well, as you can see, I now have coded my own forum, which supports multiple users over 1 computer to send messages to eachother! Enjoy!"
    inputForum (1).datewritten := Time.Date
    inputForum (1).sender := ""
    inputForum (1).subject := ""
    inputForum (1).text := ""
    inputForum (1).datewritten := ""
end for
open : datafile, "Forum", put
for i : 1 .. 100
    put : datafile, inputForum (i)
end for
close : datafile