; Created By: Ian Stait-Gardner
; Project: Project B Part 2

; Variable declarations
BlackD = 21
BlackM = 11
BlackY = 1718
MyY = 1982

; Populate variables with user input
UserD = Input("On which day of the month you were born: ");
UserM = Input("In which numerical month in which you were born: ");
UserY = Input("In which 4-digit year were you born? ");

; Start doing calculations and output
Print ""
If MyY > UserY Then
  Print "You are older than I am."
Else If UserY > MyY Then
  Print "I am older than you are."  
Else
  Print "We are either the same age or close enough."
End If

DifY = UserY - BlackY;
DifM = Abs(UserM - BlackM);
DifD = Abs(UserD - BlackD);

; Averaging 365 days/year and 30 days/month for ease of calculation
Print ""
DifD = DifD + (DifM * 30) + (DifY * 365);
Print "You were born " + Str(DifD) + " days after Blackbeard the pirate died on 21 November 1718";

WaitKey()
End