-- File: JLevelIVKeys.mesa  Modified by:
-- Fay, October 23, 1980  4:31 PM  Prepended 'J' to module name.
-- Karlton, Oct 22, 1980 5:09 PM
-- Johnsson, Oct 22, 1980 5:00 PM

DIRECTORY
  KeyStations;

JLevelIVKeys: 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), 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),
    Defaults(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), Undo(KeyStations.R6), One(KeyStations.k1),
    Center(KeyStations.T2), ParaTab(KeyStations.A1), F(KeyStations.k15),
    Open(KeyStations.L11), C(KeyStations.k13), J(KeyStations.k27),
    B(KeyStations.k21), Z(KeyStations.k5), LeftHandakuonShift(KeyStations.A5),
    Period(KeyStations.k37), SemiColon(KeyStations.k39), NewPara(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),
    Hiragana(KeyStations.A7), Half(KeyStations.k42), Equal(KeyStations.k44),
    RightDakuonShift(KeyStations.A6), Stop(KeyStations.R12),
    Props(KeyStations.L12), Next(KeyStations.R1), Margins(KeyStations.R5),
    English(KeyStations.A9), Katakana(KeyStations.A8), SameAs(KeyStations.L8),
    Find(KeyStations.L5), Again(KeyStations.L2), Help(KeyStations.R2),
    Expand(KeyStations.R7), Tab(KeyStations.k48), Bold(KeyStations.T3),
    Italic(KeyStations.T4), Underlined(KeyStations.T5),
    Superscript(KeyStations.T6), Subscript(KeyStations.T7),
    Smaller(KeyStations.T8), LeftDakuonShift(KeyStations.k47),
    Font(KeyStations.R8), Space(KeyStations.A11),
    RightHandakuonShift(KeyStations.A12)};


  RightShift: KeyName = RightDakuonShift;
  LeftShift: KeyName = LeftHandakuonShift;

  END.