dim name as string
dim year as number
dim age as number

cls
print "Sample MorphBasic Program 1.0"
print
input "Your Name: "; name
input "Your Age:  "; age
year = 2002
print "You were born in:"
print year - age