%%HP: T(3)A(D)F(.);
DIR
  FLMAN
  \<< CLLCD "   Einstellungen
Konst. " -2.
    IF FS?
    THEN "num." +
    ELSE "sym." +
    END " Fkt. " + -3.
    IF FS?
    THEN "num." +
    ELSE "sym." +
    END "
Zahlen: " + -48. FS? 2. * -47. FS? + 2. * -46. FS? + 2. * -45. FS? + IP R\->I
    IF -50. FC? -49. FC? AND
    THEN DROP "STD" +
    END
    IF -50. FC? -49. FS? AND
    THEN \->STR + " FIX" +
    END
    IF -50. FS? -49. FC? AND
    THEN \->STR + " SCI" +
    END
    IF -50. FS? -49. FS? AND
    THEN \->STR + " ENG" +
    END " m. " +
    IF -51. FC?
    THEN "Punkt" +
    ELSE "Komma" +
    END "
Berechnung: " +
    IF -105. FC?
    THEN "exakt" +
    ELSE "approx." +
    END "  
Datum: " +
    IF -42. FS?
    THEN "dd.mm.yy" +
    ELSE "mm/dd/yy" +
    END "
Uhrzeit: " +
    IF -41. FS?
    THEN "24 Std." +
    ELSE "12 Std." +
    END "
Anzeige: " +
    IF -79. FC?
    THEN "symbolisch" +
    ELSE "algebraisch" +
    END "
Zahlenbasis: " + RCWS IP R\->I \->STR + " Bit" + 0. DISP 0. WAIT DROP
  \>>
  SysFl
  \<< "" 1. 128.
    FOR n n NEG FS? "1" "0" IFTE + n 10. MOD 0. ==
      \<< " " +
      \>> IFT n 20. MOD 0. ==
      \<< "
" +
      \>> IFT
    NEXT "  sgalfmetsyS " + SREV CLLCD 0. DISP 0. WAIT DROP
  \>>
  UsrFl
  \<< "" 1. 128.
    FOR n n FS? "1" "0" IFTE + n 10. MOD 0. ==
      \<< " " +
      \>> IFT n 20. MOD 0. ==
      \<< "
" +
      \>> IFT
    NEXT "    sgalfresU " + SREV CLLCD 0. DISP 0. WAIT DROP
  \>>
  mFONT
  \<<
    IF -72 FS?
    THEN -72 CF
    ELSE -72 SF
    END
  \>>
  WINKL
  \<<
    CASE -18 FS? -17 FC? AND
      THEN RAD
      END -17 FS?
      THEN DEG
      END -18 FC? -17 FC? AND
      THEN GRAD
      END
    END
  \>>
  KOO
  \<<
    CASE -16. FC?
      THEN CYLIN
      END -16. FS? -15. FC? AND
      THEN SPHERE
      END -16. FS? -15. FS? AND
      THEN RECT
      END
    END
  \>>
  ZBasis
  \<<
    CASE -12 FC? -11 FC? AND
      THEN OCT
      END -12 FC? -11 FS? AND
      THEN BIN
      END -12 FS? -11 FC? AND
      THEN HEX
      END -12 FS? -11 FS? AND
      THEN DEC
      END
    END
  \>>
  REELL
  \<< -103. FS?
    IF 1. \=/
    THEN -103. SF
      IF 'REELL' VTYPE -1. \=/
      THEN 'COMPL' 'REELL' RENAME
      END
    ELSE -103. CF
      IF 'COMPL' VTYPE -1. \=/
      THEN 'REELL' 'COMPL' RENAME
      END
    END
  \>>
  ZAHL
  \<< -3. FS?
    IF 1. ==
    THEN { -1. -2. -3. -105. -79. } CF
      IF 'ZAHL' VTYPE -1. \=/
      THEN 'SYMB' 'ZAHL' RENAME
      END
    ELSE -1. CF { -2. -3. -79. -105. } SF STD
      IF 'SYMB' VTYPE -1. \=/
      THEN 'ZAHL' 'SYMB' RENAME
      END
    END
  \>>
  FORML
  \<< -79. FS?
    IF 1. \=/
    THEN -79. SF
      IF 'FORML' VTYPE -1. \=/
      THEN 'ZEILE' 'FORML' RENAME
      END
    ELSE -79. CF
      IF 'ZEILE' VTYPE -1. \=/
      THEN 'FORML' 'ZEILE' RENAME
      END
    END
  \>>
  NAEH
  \<< -105. FS?
    IF 1. \=/
    THEN -105. SF
      IF 'GENAU' VTYPE -1. \=/
      THEN 'NAEH' 'GENAU' RENAME
      END
    ELSE -105. CF
      IF 'NAEH' VTYPE -1. \=/
      THEN 'GENAU' 'NAEH' RENAME
      END
    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
  \>>
  UHR0
  \<< -40. FS?
    IF 1. ==
    THEN -40. CF
      IF 'UHR1' VTYPE -1. \=/
      THEN 'UHR0' 'UHR1' RENAME
      END
    ELSE -40. SF
      IF 'UHR0' VTYPE -1. \=/
      THEN 'UHR1' 'UHR0' RENAME
      END
    END
  \>>
  DUHR
  \<< -67. FS?
    IF 1. \=/
    THEN -67. SF
      IF 'DUHR' VTYPE -1. \=/
      THEN 'AUHR' 'DUHR' RENAME
      END
    ELSE -67. CF
      IF 'AUHR' VTYPE -1. \=/
      THEN 'DUHR' 'AUHR' RENAME
      END
    END
  \>>
  UsrRPL
  \<< -85. FS?
    IF 1. \=/
    THEN -85. SF
      IF 'UsrRPL' VTYPE -1 \=/
      THEN 'SysRPL' 'UsrRPL' RENAME
      END
    ELSE -85. CF
      IF 'SysRPL' VTYPE -1 \=/
      THEN 'UsrRPL' 'SysRPL' RENAME
      END
    END
  \>>
  FLASI
  \<< RCLF :2: FLAGS DUP PURGE STO
  \>>
END