<Add your code here>

proc WriteFile
    var fileName, fileSent, fileText : string
    fileText := ""
    var stream : int
    put "Please enter the name of the file. (Remember to add the file extension)"
    get fileName : *
    cls
    put "Please enter your text (Enter STOP to stop)"
    loop
        get fileSent : *
        exit when fileSent = "STOP"
        fileText += fileSent + " "
    end loop
    open : stream, fileName, put
    put : stream, fileText
    cls
end WriteFile

proc ReadFile
    var stream : int
    var fileName, fileText : string
    loop
        put "Please enter the name of the file. (Remember to add the file extension)"
        get fileName : *
        if File.Exists (fileName) then
            put "The file exists."
            put "Press any key to continue."
            Input.Pause
            cls
            exit
        else
            put "The file does not exist."
            put "Press any key to continue."
            Input.Pause
            cls
        end if
    end loop
    open : stream, fileName, get
    assert stream > 0
    loop
        exit when eof (stream)
        get : stream, fileText : *
        put fileText
    end loop
    close : stream
    put "Press any key to continue."
    Input.Pause
    cls
end ReadFile
%%%Variables%%%
var choice : int
%%%Main Program%%%
loop
    loop
        locate (1, 1)
        put "1 - Write a text file"
        locate (2, 1)
        put "2 - Read from a text file"
        locate (3, 1)
        put "3 - Exit the program"
        locate (10, 1)
        put "Enter a command: " ..
        get choice
        exit when choice > 0 and choice < 4
        cls
        locate (11, 1)
        put "Please enter a valid number"
    end loop
    cls
    case choice of
        label 1 :
            WriteFile
        label 2 :
            ReadFile
        label 3 :
            cls
            exit
    end case
end loop