View.Set ("graphics:max,max")

%Declarations
var lastname:string
var gender:char
var annual:real
var daybirth:int
var monthbirth:int
var yearbirth:int
var weekly:real

%Input
put "Enter your last name: "..
get lastname
put "Enter your gender (M/F): "..
get gender
put "Enter your annual salary: "..
get annual
put "Enter the day you were born (DD): "..
get daybirth
put "Enter the month you were born (MM): "..
get monthbirth
put "Enter the year you were born (YYYY): "..
get yearbirth

%Processing
weekly := annual / 52

%Output
Draw.Cls
if gender = "m" then
    put "Hello Mr. ", lastname
elsif gender = "M" then
    put "Hello Mr. ", lastname
elsif gender = "f" then
    put "Hello Ms. ", lastname
elsif gender = "F" then
    put "Hello Ms. ", lastname
else
    put "Invalid Gender!"
end if
put ""
put "You make: $", weekly:0:2, " per week"
put ""
put "You were born on ",

if monthbirth = "01" then
    put "January"
elsif monthbirth = "02" then
    put "Febuary "
else
    put "Invalid Month!"
end if