(SYSTEM::VERSION '(SYSTEM::CLISP2 6. LISP:NIL 101293.))
#Y(#:TOP-LEVEL-FORM-1 #13Y(00 00 00 00 00 01 D8 37 02 30 E1 19 01) "SYSTEM")
#Y(#:TOP-LEVEL-FORM-2
   #18Y(00 00 00 00 00 01 D8 2E 01 D8 DA C6 79 31 78 C3 19 01) TYPECASE
   REMOVE-OLD-DEFINITIONS MACRO
   #Y(TYPECASE
      #126Y(01 00 01 00 00 08 AC 71 45 D8 8F 01 2F 0F 9D 5B 77 9E 5B 78 37 01
            71 86 62 AC 1A 80 4C AC 2E 01 19 03 DA DB DC DD 6D 03 06 DF 93 03
            32 02 1F AA CB 59 16 01 1C 1E 63 9C 5A 5B 1B 01 CC 79 83 01 16 01
            1A 2A 9B 5A 1F 5A 9B 5A 77 AA 02 59 1C 5F 16 01 1B 62 E2 AD E3 9E
            5A 77 7A 02 7A 03 9C 5A 5B 1B 01 CF 79 83 01 82 00 9B 20 58 16 01
            E5 AC AF 7A 02 7A 01 E6 AD 31 47 79 60 03 19 07
           )
      2. MACRO-CALL-ERROR PROGRAM-ERROR "Invalid clause in ~S: ~S"
      "Unzulässige Klausel in ~S: ~S" "Clause inadmissible dans ~S : ~S"
      LANGUAGE TYPECASE OTHERWISE (NIL) TYPEP QUOTE (NIL) LET COND
  )  )
#Y(#:TOP-LEVEL-FORM-3
   #18Y(00 00 00 00 00 01 D8 2E 01 D8 DA C6 79 31 78 C3 19 01) CHECK-TYPE
   REMOVE-OLD-DEFINITIONS MACRO
   #Y(CHECK-TYPE
      #148Y(01 00 01 00 00 08 D8 AD 71 45 D9 90 02 31 80 77 9D 5B 77 9E 5B 5B
            77 9F 5B 5B 5B 1B 80 6E 00 14 37 01 71 86 37 01 71 86 DB AC DC DD
            B2 DE B3 7A 02 7A 03 DF AF 7A 02 7A 03 E0 E1 E2 E3 62 E4 B7 B6 B8
            6D 05 0D E6 62 E7 B9 B8 BA 6D 05 0D E8 62 E9 BB BA BC 6D 05 0D 7A
            06 B5 7A 05 EA E3 62 EB B6 6D 03 0D E6 62 EC B8 6D 03 0D E8 62 ED
            BA 6D 03 0D 7A 06 03 16 7B 02 EF B4 03 18 7B 02 DF B2 7A 02 B1 60
            08 19 08 AC 2E 02 19 03 9F 5B 5B 5B 5A 1A FF 8B
           )
      3. 4. MACRO-CALL-ERROR TAGBODY WHEN TYPEP QUOTE GO CERROR
      (DEUTSCH "Sie dürfen einen neuen Wert eingeben." ENGLISH
       "You may input a new value." FRANCAIS
       "Vous avez l'occasion d'entrer une nouvelle valeur."
      )
      (DEUTSCH "~A~%Der Wert ist: ~S" ENGLISH "~A~%The value is: ~S" FRANCAIS
       "~A~%La valeur est : ~S"
      )
      DEUTSCH "Der Wert von ~S sollte ~:[vom Typ ~S~;~:*~A~] sein." FORMAT
      ENGLISH "The value of ~S should be ~:[of type ~S~;~:*~A~]." FRANCAIS
      "La valeur de ~S devrait être ~:[de type ~S~;~:*~A~]." WRITE-STRING
      "~%Neues ~S: " "~%New ~S: " "~%Nouveau ~S : " (*QUERY-IO*) SETF
      ((READ *QUERY-IO*))
  )  )
#Y(#:TOP-LEVEL-FORM-4
   #18Y(00 00 00 00 00 01 D8 2E 01 D8 DA C6 79 31 78 C3 19 01) ASSERT
   REMOVE-OLD-DEFINITIONS MACRO
   #Y(ASSERT
      #217Y(01 00 01 00 00 08 AC 71 45 D8 8F 01 2F 80 66 9D 5B 77 9E 5B 5B 1B
            80 62 00 14 9F 5B 5B 5B 1B 80 60 00 14 A0 5B 5B 5B 78 37 01 71 86
            37 01 71 86 DA AC DB B2 DC AF 7A 02 7A 03 DD B2 71 45 AA 23 06 80
            46 AA 23 08 80 45 CD F6 E3 91 09 01 CF 14 7A 02 91 09 3C E5 62 E6
            B8 6D 03 0F E8 62 E9 BA 6D 03 0F EA 62 EB BC 6D 03 0F 7A 06 60 01
            7B 03 62 B3 1A 80 4D AC 2E 01 19 03 9E 5B 5B 5A 1A FF 98 9F 5B 5B
            5B 5A 1A FF 99 CA 1A FF BC CC 1A FF B8 A3 1A 5A 93 00 EC E5 62 ED
            AE 6D 03 0F E8 62 EE B0 6D 03 0F EA 62 EF B2 6D 03 0F 7A 06 03 18
            7B 02 F1 AC 03 1A 7B 02 7A 02 AD 7F A4 02 16 01 82 00 9B 20 4F 16
            01 AA 7F A5 00 DC B1 7A 02 B0 7A 02 32 02 23 61 04 19 09
           )
      2. MACRO-CALL-ERROR TAGBODY WHEN GO CERROR 0.
      (DEUTSCH "Neuer Anlauf" ENGLISH "Retry" FRANCAIS "Reéssayer") 1.
      (DEUTSCH "Sie dürfen einen neuen Wert eingeben." ENGLISH
       "You may input a new value." FRANCAIS
       "Vous pouvez entrer une nouvelle valeur."
      )
      (DEUTSCH "Sie dürfen neue Werte eingeben." ENGLISH
       "You may input new values." FRANCAIS
       "Vous pouvez entrer de nouvelles valeurs."
      )
      QUOTE "~A" DEUTSCH "Der Wert von ~S darf nicht NIL sein." FORMAT ENGLISH
      "~S must evaluate to a non-NIL value." FRANCAIS
      "La valeur de ~S ne peut pas être NIL." WRITE-STRING "~%Neues ~S: "
      "~%New ~S: " "~%Nouveau ~S : " (*QUERY-IO*) SETF ((READ *QUERY-IO*))
  )  )
#Y(#:TOP-LEVEL-FORM-5
   #45Y(00 00 00 00 00 01 D8 2E 01 D8 DA C6 79 31 78 DC 2E 01 DC DA C8 79 31 78
        DE 2E 01 DE DA CA 79 31 78 E0 2E 01 E0 DA CC 79 31 78 CB 19 01
       )
   ETYPECASE REMOVE-OLD-DEFINITIONS MACRO
   #Y(ETYPECASE
      #39Y(01 00 01 00 00 08 AC 71 45 D8 8F 01 2F 14 9D 5B 77 9E 5B 78 DA AC AC
           AE AE C6 73 AE C7 73 C8 33 19 05 AC 2E 01 19 03
          )
      2. MACRO-CALL-ERROR TYPECASE
      #1=#Y(TYPECASE-ERRORSTRING
            #39Y(02 00 00 00 00 03 D8 AC 72 00 17 D9 62 DA B0 AE 6D 04 03 DC 62
                 DD B2 B0 6D 04 03 DE 62 DF B4 B2 6D 04 03 60 06 19 04
                )
            #.#'FIRST DEUTSCH
            "Der Wert von ~S muß einem der Typen ~{~S~^, ~} angehören." FORMAT
            ENGLISH "The value of ~S must be of one of the types ~{~S~^, ~}"
            FRANCAIS
            "La valeur de ~S doit appartenir à l'un des types ~{~S~^, ~}."
           )
      #Y(TYPECASE-EXPECTED-TYPE
         #15Y(01 00 00 00 00 02 D8 D9 AD 32 00 17 5C 19 02) OR #.#'FIRST
        )
      #2=#Y(SIMPLY-ERROR
            #48Y(05 00 00 00 00 06 37 01 71 86 D8 AB B1 7A 02 7A 01 B2 AD B2 D9
                 DA DB DC B3 DD DE B8 7A 02 DF BA B8 7A 09 7A 02 7A 01 32 02 23
                 7B 02 60 03 19 07
                )
            LET OTHERWISE ERROR-OF-TYPE 'TYPE-ERROR :DATUM :EXPECTED-TYPE QUOTE
            (DEUTSCH "~A~%Der Wert ist: ~S" ENGLISH "~A~%The value is: ~S"
             FRANCAIS "~A~%La valeur est : ~S"
     )     ))
   CTYPECASE
   #Y(CTYPECASE
      #36Y(01 00 01 00 00 08 AC 71 45 D8 8F 01 2F 11 9D 5B 77 9E 5B 78 DA AC AC
           AE AE C6 73 C7 33 19 05 AC 2E 01 19 03
          )
      2. MACRO-CALL-ERROR TYPECASE #1#
      #3=#Y(RETRY-LOOP
            #84Y(04 00 00 00 00 05 37 01 71 86 37 01 71 86 D8 AC D9 AD DA B0 B6
                 B6 B6 DB DC DD DE BA BD 7A 05 DF E0 62 E1 BE 6D 03 0A E3 62 E4
                 C0 6D 03 0A E5 62 E6 C2 6D 03 0A 7A 06 D2 7B 02 E8 BC D4 7B 02
                 EA B8 7A 02 7A 05 7A 01 32 02 23 7B 02 7A 03 7A 03 60 03 19 07
                )
            BLOCK TAGBODY RETURN-FROM OTHERWISE CERROR
            (DEUTSCH "Sie dürfen einen neuen Wert eingeben." ENGLISH
             "You may input a new value." FRANCAIS
             "Vous pouvez entrer une nouvelle valeur."
            )
            (DEUTSCH "~A~%Der Wert ist: ~S" ENGLISH "~A~%The value is: ~S"
             FRANCAIS "~A~%La valeur est : ~S"
            )
            WRITE-STRING DEUTSCH "~%Neues ~S: " FORMAT ENGLISH "~%New ~S: "
            FRANCAIS "~%Nouveau ~S : " (*QUERY-IO*) SETF ((READ *QUERY-IO*)) GO
     )     )
   ECASE
   #Y(ECASE
      #39Y(01 00 01 00 00 08 AC 71 45 D8 8F 01 2F 14 9D 5B 77 9E 5B 78 DA AC AC
           AE AE C6 73 AE C7 73 C8 33 19 05 AC 2E 01 19 03
          )
      2. MACRO-CALL-ERROR CASE
      #4=#Y(CASE-ERRORSTRING
            #72Y(02 00 00 00 00 03 62 AC 1A 19 9B 1A 0D 93 00 AA 86 00 00 14 8D
                 0B 73 AA 60 01 F6 AD 7F A3 02 16 01 82 00 9B 20 67 16 01 AA 7F
                 A5 00 D8 62 D9 B0 AE 6D 04 02 DB 62 DC B2 B0 6D 04 02 DD 62 DE
                 B4 B2 6D 04 02 60 06 19 04
                )
            DEUTSCH "Der Wert von ~S muß einer der folgenden sein: ~{~S~^, ~}"
            FORMAT ENGLISH "The value of ~S must be one of ~{~S~^, ~}" FRANCAIS
            "La valeur de ~S doit être l'une des suivantes : ~{~S~^, ~}"
           )
      #Y(CASE-EXPECTED-TYPE
         #49Y(01 00 00 00 00 02 D8 62 AD 1A 19 9B 1A 0D 93 00 AA 86 00 00 14 8D
              0B 73 AA 60 01 F6 AD 7F A3 02 16 01 82 00 9B 20 67 16 01 AA 30 A5
              16 01 5C 19 02
             )
         MEMBER
        )
      #2#
     )
   CCASE
   #Y(CCASE
      #36Y(01 00 01 00 00 08 AC 71 45 D8 8F 01 2F 11 9D 5B 77 9E 5B 78 DA AC AC
           AE AE C6 73 C7 33 19 05 AC 2E 01 19 03
          )
      2. MACRO-CALL-ERROR CASE #4# #3#
  )  )
#Y(#:TOP-LEVEL-FORM-6
   #18Y(00 00 00 00 00 01 D8 2E 01 D8 DA C6 79 31 78 C3 19 01) DEFTYPE
   REMOVE-OLD-DEFINITIONS MACRO
   #Y(DEFTYPE
      #231Y(01 00 01 00 00 08 3C 01 AC 71 45 D8 8F 01 2F 29 9D 5B 77 9E 5B 5B
            77 9F 5B 5B 78 AC 8E 06 1F AC DF 37 01 8D 7A 07 AC E0 37 01 8E 7A
            17 DA E1 E2 CE 14 6D 03 06 AE 32 01 1F AC 2E 01 19 03 DA DB DC C8
            1A 6D AA 63 B0 30 60 41 03 92 01 06 E4 9D 79 60 01 F7 D0 10 0E D0
            10 0F 00 10 10 00 10 11 00 10 12 D6 10 14 C0 ED 65 19 EE 2C 04 17
            EE 6E 18 F1 6A 11 71 47 C0 6A 12 71 47 65 19 32 03 23 7B 02 92 01
            13 F2 AC F3 F4 F5 64 1E 65 1F 7A 02 03 1F 7B 04 AD 60 04 F6 64 20
            64 21 64 22 62 64 23 64 1E 65 1F 7A 02 64 24 64 25 64 26 65 22 70
            4C 72 02 13 70 CC 64 27 64 28 B5 7A 03 7A 03 7A 04 64 29 64 2A 64
            1E 65 21 7A 02 03 2B 7B 02 64 1E 65 1C 7A 02 7A 03 64 1E 65 20 7A
            02 7A 05 60 03 16 02 12 06 19 09
           )
      3. MACRO-CALL-ERROR PROGRAM-ERROR "type name should be a symbol, not ~S"
      "Typname muß ein Symbol sein, nicht ~S"
      "Le type doit être un symbole et non ~S" LANGUAGE TYPE-SYMBOL TYPE-LIST
      "~S is a built-in type and may not be redefined."
      "~S ist ein eingebauter Typ und darf nicht umdefiniert werden."
      "~S est un type prédéfini et ne peut pas être redéfini." DECLARE 0.
      %ARG-COUNT %MIN-ARGS %RESTP %LET-LIST %KEYWORD-TESTS '* %DEFAULT-FORM
      (CDR <DEFTYPE-FORM>) <DEFTYPE-FORM> ANALYZE1 MAKE-LENGTH-TEST LET* IF
      ERROR-OF-TYPE 'ERROR
      (DEUTSCH
       "Der Deftype-Expander für ~S kann nicht mit ~S Argumenten aufgerufen werden."
       ENGLISH
       "The deftype expander for ~S may not be called with ~S arguments."
       FRANCAIS
       "L'«expandeur» de DEFTYPE pour ~S ne peut pas être appelé avec ~S arguments."
      )
      QUOTE ((1- (LENGTH <DEFTYPE-FORM>))) EVAL-WHEN (COMPILE LOAD EVAL) LET
      %PUT 'DEFTYPE-EXPANDER FUNCTION "DEFTYPE-" LAMBDA (<DEFTYPE-FORM>) SETF
      DOCUMENTATION ('TYPE)
  )  )
#Y(#:TOP-LEVEL-FORM-7
   #18Y(00 00 00 00 00 01 D8 2E 01 D8 DA C6 79 31 78 C3 19 01) TIME
   REMOVE-OLD-DEFINITIONS MACRO
   #Y(TIME
      #77Y(01 00 01 00 00 08 AC 71 45 D8 8F 01 2E 3A 9D 5B 77 37 01 71 86 37 01
           71 86 37 01 71 86 37 01 71 86 37 01 71 86 37 01 71 86 37 01 71 86 37
           01 71 86 37 01 71 86 7A 09 DA AB DB DC AF DD DE DF A3 7B 03 7A 03 60
           04 19 05 AC 2E 01 19 03
          )
      2. MACRO-CALL-ERROR MULTIPLE-VALUE-BIND (%%TIME) UNWIND-PROTECT
      MULTIPLE-VALUE-CALL #'%TIME (%%TIME)
  )  )
#Y(#:TOP-LEVEL-FORM-8
   #18Y(00 00 00 00 00 01 D8 2E 01 D8 DA C6 79 31 78 C3 19 01)
   WITH-INPUT-FROM-STRING REMOVE-OLD-DEFINITIONS MACRO
   #Y(WITH-INPUT-FROM-STRING
      #194Y(01 00 01 00 00 08 3C 01 AC 71 45 D8 8F 01 2F 80 80 9D 5B 5A 77 9E
            5B 5A 5B 77 9F 5B 5A 5B 78 AA DA 6A 03 71 7B AA 0E 03 21 80 6B 02
            14 AC DC 6A 03 71 7B AA 0E 03 21 80 62 02 14 AE DE 6A 03 71 7B AA
            0E 03 21 80 5A 02 14 A6 5B 78 B1 DF 30 61 AA 62 B7 30 60 41 02 92
            00 06 E0 9C 79 60 01 F6 E1 B6 E2 B7 91 09 80 44 91 07 80 40 00 7B
            02 7A 02 7A 01 AC E3 E4 A1 79 91 0C 3A 00 14 E7 BC 7A 02 7A 01 32
            02 23 7B 02 7A 01 32 02 23 61 02 19 0F AC 2E 01 19 03 7C 00 1A FF
            91 C8 F6 00 1A FF 99 7C 00 1A FF A2 B3 60 01 5C 1A 41 B4 91 08 76
            00 5C 1A FF B8 E5 B8 E6 BD 7A 02 7A 03 60 01 1A FF BA
           )
      2. MACRO-CALL-ERROR :INDEX MACRO-MISSING-VALUE :START 0. :END
      (:END :START :INDEX) DECLARE LET MAKE-STRING-INPUT-STREAM UNWIND-PROTECT
      PROGN SETF STRING-INPUT-STREAM-INDEX CLOSE
  )  )
#Y(#:TOP-LEVEL-FORM-9
   #18Y(00 00 00 00 00 01 D8 2E 01 D8 DA C6 79 31 78 C3 19 01) WITH-OPEN-FILE
   REMOVE-OLD-DEFINITIONS MACRO
   #Y(WITH-OPEN-FILE
      #94Y(01 00 01 00 00 08 3C 01 AC 71 45 D8 8F 01 2F 80 48 9D 5B 5A 77 9E 5B
           5A 78 9F 5B 78 AA 62 B0 30 60 41 02 92 00 06 DA 9C 79 60 01 F6 DB AF
           DC A1 79 7A 02 7A 01 AC DD DE DF A2 79 E0 B5 E1 B7 7A 02 7A 03 7A 03
           E0 B4 E1 B6 CD 7B 02 7A 03 7A 03 7A 01 32 02 23 61 02 19 08 AC 2E 01
           19 03
          )
      2. MACRO-CALL-ERROR DECLARE LET OPEN UNWIND-PROTECT MULTIPLE-VALUE-PROG1
      PROGN WHEN CLOSE (:ABORT T)
  )  )
#Y(#:TOP-LEVEL-FORM-10
   #18Y(00 00 00 00 00 01 D8 2E 01 D8 DA C6 79 31 78 C3 19 01) WITH-OPEN-STREAM
   REMOVE-OLD-DEFINITIONS MACRO
   #Y(WITH-OPEN-STREAM
      #84Y(01 00 01 00 00 08 3C 01 AC 71 45 D8 8F 01 2F 3F 9D 5B 5A 77 9E 5B 5A
           5B 77 9F 5B 78 AA 62 B0 30 60 41 02 92 00 06 DA 9C 79 60 01 F6 DB AF
           AF 7A 02 7A 01 AC DC DD DE A2 79 DF B5 7A 02 7A 03 DF B4 CB 7B 02 7A
           03 7A 01 32 02 23 61 02 19 08 AC 2E 01 19 03
          )
      2. MACRO-CALL-ERROR DECLARE LET UNWIND-PROTECT MULTIPLE-VALUE-PROG1 PROGN
      CLOSE (:ABORT T)
  )  )
#Y(#:TOP-LEVEL-FORM-11
   #18Y(00 00 00 00 00 01 D8 2E 01 D8 DA C6 79 31 78 C3 19 01)
   WITH-OUTPUT-TO-STRING REMOVE-OLD-DEFINITIONS MACRO
   #Y(WITH-OUTPUT-TO-STRING
      #126Y(01 00 01 00 00 08 3C 01 AC 71 45 D8 8F 01 2F 80 47 9D 5B 5A 77 9E
            5B 5A 5B 1B 80 41 00 14 9F 5B 5A 5B 58 58 14 A0 5B 78 AA 62 B1 30
            60 41 02 91 00 33 91 03 39 DB B0 CB 79 7A 01 AC DD DE B0 E1 B6 7A
            02 7A 01 32 02 23 79 DF B5 7A 02 7A 03 7A 01 32 02 23 61 02 19 09
            AC 2E 01 19 03 9E 5B 5A 5B 5A 1A FF B8 DA 9C 79 60 01 F6 92 03 47
            DB B0 DC B1 7A 02 7A 02 7A 01 AC DD DE A1 1A 4A
           )
      2. MACRO-CALL-ERROR DECLARE LET MAKE-STRING-PUSH-STREAM UNWIND-PROTECT
      PROGN CLOSE ((MAKE-STRING-OUTPUT-STREAM)) GET-OUTPUT-STREAM-STRING
  )  )
#Y(#:TOP-LEVEL-FORM-12 #13Y(00 00 00 00 00 01 D8 37 02 30 E1 19 01) "LISP")
#Y(#:TOP-LEVEL-FORM-13 #13Y(00 00 00 00 00 01 D8 37 01 30 D8 19 01)
   WITH-OUTPUT-TO-PRINTER
  )
#Y(#:TOP-LEVEL-FORM-14 #13Y(00 00 00 00 00 01 D8 37 02 30 E1 19 01) "SYSTEM")
#Y(#:TOP-LEVEL-FORM-15
   #18Y(00 00 00 00 00 01 D8 2E 01 D8 DA C6 79 31 78 C3 19 01)
   WITH-OUTPUT-TO-PRINTER REMOVE-OLD-DEFINITIONS MACRO
   #Y(WITH-OUTPUT-TO-PRINTER
      #70Y(01 00 01 00 00 08 3C 01 AC 71 45 D8 8F 01 2F 31 9D 5B 5A 77 9E 5B 78
           AA 62 AF 30 60 41 02 92 00 06 DA 9C 79 60 01 F6 DB AE C7 79 7A 01 AC
           DD DE A1 79 DF B3 7A 02 7A 03 7A 01 32 02 23 61 02 19 07 AC 2E 01 19
           03
          )
      2. MACRO-CALL-ERROR DECLARE LET ((MAKE-PIPE-OUTPUT-STREAM "lpr"))
      UNWIND-PROTECT PROGN CLOSE
  )  )
#Y(#:TOP-LEVEL-FORM-16 #13Y(00 00 00 00 00 01 D8 37 02 30 E1 19 01) "LISP")
#Y(#:TOP-LEVEL-FORM-17 #13Y(00 00 00 00 00 01 D8 37 01 30 D8 19 01)
   WITHOUT-FLOATING-POINT-UNDERFLOW
  )
#Y(#:TOP-LEVEL-FORM-18 #13Y(00 00 00 00 00 01 D8 37 02 30 E1 19 01) "SYSTEM")
#Y(#:TOP-LEVEL-FORM-19
   #18Y(00 00 00 00 00 01 D8 2E 01 D8 DA C6 79 31 78 C3 19 01)
   WITHOUT-FLOATING-POINT-UNDERFLOW REMOVE-OLD-DEFINITIONS MACRO
   #Y(WITHOUT-FLOATING-POINT-UNDERFLOW
      #17Y(01 00 01 00 00 08 94 02 D8 D9 DA 9E 79 60 03 19 04) LET
      ((*INHIBIT-FLOATING-POINT-UNDERFLOW* T)) PROGN
  )  )
#Y(#:TOP-LEVEL-FORM-20 #13Y(00 00 00 00 00 01 D8 37 02 30 E1 19 01) "LISP")
#Y(#:TOP-LEVEL-FORM-21 #13Y(00 00 00 00 00 01 D8 37 01 30 D8 19 01)
   LANGUAGE-CASE
  )
#Y(#:TOP-LEVEL-FORM-22 #13Y(00 00 00 00 00 01 D8 37 02 30 E1 19 01) "SYSTEM")
#Y(#:TOP-LEVEL-FORM-23
   #18Y(00 00 00 00 00 01 D8 2E 01 D8 DA C6 79 31 78 C3 19 01) LANGUAGE-CASE
   REMOVE-OLD-DEFINITIONS MACRO
   #Y(LANGUAGE-CASE #15Y(01 00 01 00 00 08 94 02 D8 D9 9D 61 02 19 04) CASE
      (DEUTSCH 'DEUTSCH ENGLISH 'ENGLISH FRANCAIS 'FRANCAIS)
  )  )