%---------------------------------------------------------------------
%    Name:  Aristotle of Stagira
%    Number:  00000000
%    Course:  CS104
%    Instructor:  Socrates 
%    TA:  Plato
%    Assignment Section:  Part 3
%---------------------------------------------------------------------
    
var OriginalDate: string   % holds the date
var choice: int         % choice for date format


loop
    % display the menu in the screen
    setscreen ("text")
    put ""
    put "            Menu "
    put ""
    put "Convert the date to:"
    put ""
    put "   (1)  Month Day, Year (February 5, 1997)"
    put ""
    put "   (2)  Month/Day/Year (2/5/1997)"
    put ""
    put "   (3)  Eight-digit zero-padded YearMonthDay (19970205)"
    put ""
    put "   (0)  Quit program"
    
    % loop until a valid choice is typed
    loop
        put ""
        put "Enter choice (0 to 3): "..
        get choice
        exit when choice = 0 or choice = 1 or choice = 2 or choice = 3
    end loop
    
    % exit the loop if choice is to quit
    exit when choice = 0
    
    % prompt the user for a date, show what was typed
    put ""
    put "Enter a date in international format: "
    put "   with quotation marks around it: ".. 
    get OriginalDate
    put "You typed "..
    put OriginalDate
   
    % hold a few seconds so user can see output
    delay(4000)  
end loop 

% termination message
put ""
put "Thank you for running the program"