Topspeed_JPI/TS-V3/REP16/KBDINPUT.DEF

DEFINITION MODULE KbdInput;
(*
 *  REPERTOIRE
 *  Release 1.6
 *  By Charles Bradford and Cole Brecheen
 *  (c) Copyright 1985-1992 PMI
 *  Green Bay, Wisconsin
 *  All rights reserved
 *  (414) 468-6040
 *
 *  $Header:   D:/logfiles/defs/kbdinput.dev   1.4   30 Dec 1990 18:01:22   coleb  $
 *
 *)


  CONST
    Extended = 256;
    HighestKeyCode = 512;

  TYPE
    KeyNumSet = ARRAY [0..31] OF BITSET;

  VAR
    TypeAheadLegal : BOOLEAN;
    YorN, AnyKeyNum: KeyNumSet;

  KeyHit: PROCEDURE( KeyNumSet ): CARDINAL;

  PROCEDURE CAPkey( KeyNum: CARDINAL ): CARDINAL;

  PROCEDURE ReassignKey(KeyCode : CARDINAL;
      NewDefn : ARRAY OF CHAR);

  PROCEDURE Init();

END KbdInput.