Topspeed_JPI/TS/INCLUDE/BIOSIO.DEF

(* Release 3.10 *)
(*-------------------------------------------------------------------------*
*                                                                          *
*  BIOSIO.DEF - Modula-2 BIOS input/output                                 *
*                                                                          *
*  COPYRIGHT (C) 1987..1992 Clarion Software Corporation.                  *
*  All Rights Reserved                                                     *
*                                                                          *
*--------------------------------------------------------------------------*)

(*# call(o_a_copy => on,
         o_a_size => on) *)
(*# module(init_code => on) *)
(*%F _fdata *)
(*# call(seg_name => null) *)
(*# data(seg_name => null) *)
(*%E *)
(*# module(implementation=>off) *)
DEFINITION MODULE BiosIO;

VAR
    LastChar     : CHAR ;
    LastScan     : SHORTCARD ;
    EnhancedBIOS : BOOLEAN ;

PROCEDURE KeyPressed() : BOOLEAN ;
(* Check if key pressed *)

PROCEDURE RdKey()    : CHAR ;
(* Return keys without echo *)

PROCEDURE RdChar()   : CHAR ;
(* Return keys with echo *)

TYPE KBFlagSet = SET OF ( RShift, LShift, Ctrl, Alt, Scroll, Num, Cap, Ins ) ;
PROCEDURE KBFlags () : KBFlagSet ;
(* Returns current 'shift' keys depressed *)

END BiosIO.