perm filename CYCMR1.PRT[4,LMM] blob sn#037530 filedate 1973-04-23 generic text, type T, neo UTF8
  (DEFPROP
    CYCMR1FNS
    (CYCMR1FNS
      (AND LOADING
           (ADVISE1 (QUOTE CATALOG3)
                    (QUOTE BEFORE)
                    (QUOTE (ARG1))
                    (QUOTE (IF (EQUAL ARG1 (QUOTE (0.0 3.0)))
                               THEN
                               (RETURN (LIST T03))
                               ELSEIF
                               (EQUAL ARG1 (QUOTE (2.0 2.0)))
                               THEN
                               (RETURN T22)
                               ELSEIF
                               (EQUAL ARG1 (QUOTE (4.0 1.0)))
                               THEN
                               (RETURN T41)
                               ELSEIF
                               (EQUAL ARG1 (QUOTE (2.0 1.0)))
                               THEN
                               (RETURN (LIST T21))))))
      T03 T21)
    VALUE)
  (AND LOADING (ADVISE1 (QUOTE CATALOG3)
                        (QUOTE BEFORE)
                        (QUOTE (ARG1))
                        (QUOTE (IF (EQUAL ARG1 (QUOTE (0.0 3.0)))
                                   THEN
                                   (RETURN (LIST T03))
                                   ELSEIF
                                   (EQUAL ARG1 (QUOTE (2.0 2.0)))
                                   THEN
                                   (RETURN T22)
                                   ELSEIF
                                   (EQUAL ARG1 (QUOTE (4.0 1.0)))
                                   THEN
                                   (RETURN T41)
                                   ELSEIF
                                   (EQUAL ARG1 (QUOTE (2.0 1.0)))
                                   THEN
                                   (RETURN (LIST T21))))))
  (DEFPROP T03 (T03 STRUC ((CTE 1.0 (NIL)
                                2.0 2.0 3.0 3.0)
                     (CTE 2.0 (NIL)
                          3.0 3.0 1.0 1.0)
                     (CTE 3.0 (NIL)
                          1.0 1.0 2.0 2.0))
                    T03 3.0 NIL)
           VALUE)
  (DEFPROP T21 (T21 STRUC ((CTE 1.0 (NIL)
                                2.0 2.0 3.0 3.0)
                     (CTE 2.0 (NIL)
                          1.0 1.0 3.0)
                     (CTE 3.0 (NIL)
                          1.0 1.0 2.0))
                    T21 3.0 NIL)
           VALUE)
STOP