; A program that asks

PROC Main()
  CHAR ARRAY name(40)        ; room for a text of up to 39 characters
  BYTE age
  CARD year

  Print("What is your name? ")
  InputS(name)

  Print("How old are you? ")
  age=InputB()

  Print("What year is it? ")
  year=InputC()

  PutE()
  Print("Hello, ")
  Print(name)
  PrintE("!")

  Print("You were born in ")
  PrintC(year-age)
  PrintE(" or the year before.")
RETURN