%%HP: T(3)A(D)F(.);
DIR
  UHR
  \<< -40. FS?
    IF 1. ==
    THEN -40. CF
      IF 'UHR\[]' VTYPE
-1. \=/
      THEN 'UHR'
'UHR\[]' RENAME
      END
    ELSE -40. SF
      IF 'UHR' VTYPE
-1. \=/
      THEN 'UHR\[]'
'UHR' RENAME
      END
    END
  \>>
  DIGITAL
  \<< -67. FS?
    IF 1. \=/
    THEN -67. SF
      IF 'DIGITAL'
VTYPE -1. \=/
      THEN 'ANALOG'
'DIGITAL' RENAME
      END
    ELSE -67. CF
      IF 'ANALOG'
VTYPE -1. \=/
      THEN 'DIGITAL'
'ANALOG' RENAME
      END
    END
  \>>
  KOO
  \<< -16. FS?
    IF 1. ==
    THEN RECT
    ELSE CYLIN
    END
  \>>
  RADEG
  \<< -17. FS?
    IF 1. ==
    THEN DEG
    ELSE RAD
    END
  \>>
  PUNKT
  \<< -51. FS?
    IF 1. \=/
    THEN -51. SF
      IF 'PUNKT'
VTYPE -1. \=/
      THEN 'KOMMA'
'PUNKT' RENAME
      END
    ELSE -51. CF
      IF 'KOMMA'
VTYPE -1. \=/
      THEN 'PUNKT'
'KOMMA' RENAME
      END
    END
  \>>
  ZEILE
  \<< -79. FS?
    IF 1. \=/
    THEN -79. SF
      IF 'FORML'
VTYPE -1. \=/
      THEN 'ZEILE'
'FORML' RENAME
      END
    ELSE -79. CF
      IF 'ZEILE'
VTYPE -1. \