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