Age Calculator

---

Age Calculator Program Example

Uses the birth year and the current year to workout your age.

Then it subtracts 10 years from their birth year.

---

prog_vars =

d/name "Fred" -- name text var with default value

d/birth_year 1972 -- year of birth

d/current_year 2020 -- the current year

d/age 0 -- age in years

d/message1 "If you were born 10 years earlier"

prog_vars.

prog_start =

print " .......... "

print "Age Program Begin"

prog_start.

prog_loop =

-- Work Out their age

sub /current_year /birth_year -> /age

print "Hi /name you are /age years old"

-- Subtract 10 years from their birth year and recalc.

sub /birth_year 10 -> /birth_year

print "New birth year /birth_year"

-- Work Out their newage

sub /current_year /birth_year -> /age

-- Use /message1 to hold the message so the lines not too long.

print "/message1"

print "you would be /age years old"

print "Done exiting now!"

exitprog

prog_loop.

prog_stop =

exitprog

prog_stop.