-- File: LevelIIIKeys.mesa  Modified by:
-- Karlton, Jul 17, 1980 7:50 PM

DIRECTORY
  KeyStations;

LevelIIIKeys: DEFINITIONS =
  BEGIN

  DownUp: TYPE = KeyStations.DownUp;
  Bit: TYPE = KeyStations.Bit;
  KeyBits: TYPE = PACKED ARRAY KeyName OF DownUp;

  KeyName: TYPE = MACHINE DEPENDENT{
    Red(KeyStations.M1), Blue(KeyStations.M3), Yellow(KeyStations.M2),
    Five(KeyStations.k16), Four(KeyStations.k12), Six(KeyStations.k20),
    E(KeyStations.k10), Seven(KeyStations.k24), D(KeyStations.k11),
    U(KeyStations.k26), V(KeyStations.k17), Zero(KeyStations.k36),
    K(KeyStations.k31), Dash(KeyStations.k40), P(KeyStations.k38),
    Slash(KeyStations.k41), Smaller(KeyStations.T9), Copy(KeyStations.L6),
    BS(KeyStations.A2), Three(KeyStations.k8), Two(KeyStations.k4),
    W(KeyStations.k6), Q(KeyStations.k2), S(KeyStations.k7), A(KeyStations.k3),
    Nine(KeyStations.k32), I(KeyStations.k30), X(KeyStations.k9),
    O(KeyStations.k34), L(KeyStations.k35), Comma(KeyStations.k33),
    Quote(KeyStations.k43), RightBracket(KeyStations.k45),
    Special(KeyStations.R11), R6(KeyStations.R6), One(KeyStations.k1),
    Indent(KeyStations.T2), TAB(KeyStations.A1), F(KeyStations.k15),
    Again(KeyStations.L11), C(KeyStations.k13), J(KeyStations.k27),
    B(KeyStations.k21), Z(KeyStations.k5), LeftShift(KeyStations.A5),
    Period(KeyStations.k37), SemiColon(KeyStations.k39), Return(KeyStations.A4),
    Para(KeyStations.k46), Delete(KeyStations.L3), Move(KeyStations.L9),
    R(KeyStations.k14), T(KeyStations.k18), G(KeyStations.k19),
    Y(KeyStations.k22), H(KeyStations.k23), Eight(KeyStations.k28),
    N(KeyStations.k25), M(KeyStations.k29), Lock(KeyStations.A3),
    Space(KeyStations.A7), Half(KeyStations.k42), Equal(KeyStations.k44),
    RightShift(KeyStations.A6), R12(KeyStations.R12), Props(KeyStations.L12),
    Next(KeyStations.R1), Carriage(KeyStations.R5), R9(KeyStations.R9),
    L10(KeyStations.L10), L7(KeyStations.L7), L4(KeyStations.L4),
    L1(KeyStations.L1), A9(KeyStations.A9), A8(KeyStations.A8),
    GloblRplce(KeyStations.L8), Find(KeyStations.L5), Undo(KeyStations.L2),
    Help(KeyStations.R2), Expand(KeyStations.R7), T1(KeyStations.T1),
    Justify(KeyStations.T3), Center(KeyStations.T4), Bold(KeyStations.T5),
    Italics(KeyStations.T6), Underline(KeyStations.T7), Subscript(KeyStations.T8),
    T10(KeyStations.T10), R3(KeyStations.R3), Font(KeyStations.R8)};

  END.