! Record Template
  RECORD Employee
      LONG Emp_number
      STRING First_name = 10
      STRING Last_name = 20
      STRING Soc_sec_number = 11
  END RECORD Employee
  ! Declarations
  DECLARE Employee Emp_rec
  DECLARE STRING Social_security
  ! Program logic starts here.
  INPUT 'Employee number'; Emp_rec::Emp_number
  INPUT 'First name'; Emp_rec::First_name
  INPUT 'Last name'; Emp_rec::Last_name
  INPUT 'Social security'; Social_security
  IF Social_security <> ""
  THEN
      Emp_rec::Soc_sec_number = Social_security
  END IF
  PRINT
  PRINT "Employee number is: "; Emp_rec::Emp_number
  PRINT "First name is: "; Emp_rec::First_name
  PRINT "Last name is: "; Emp_rec::Last_name
  PRINT "Social security is: "; Emp_rec::Soc_sec_number
  END