Topspeed_JPI/TS-V3/INCLUDE/BIOSIO.LST

Listing:

    1  (* Release 3.10 *)
    2  (*-------------------------------------------------------------------------*
    3  *                                                                          *
    4  *  BIOSIO.DEF - Modula-2 BIOS input/output                                 *
    5  *                                                                          *
    6  *  COPYRIGHT (C) 1987..1992 Clarion Software Corporation.                  *
    7  *  All Rights Reserved                                                     *
    8  *                                                                          *
    9  *--------------------------------------------------------------------------*)
   10  
   11  (*# call(o_a_copy => on,
   12           o_a_size => on) *)
   13  (*# module(init_code => on) *)
   14  (*%F _fdata *)
   15  (*# call(seg_name => null) *)
   16  (*# data(seg_name => null) *)
   17  (*%E *)
   18  (*# module(implementation=>off) *)
   19  DEFINITION MODULE BiosIO;
   20  
   21  VAR
   22      LastChar     : CHAR ;
   23      LastScan     : SHORTCARD ;
   24      EnhancedBIOS : BOOLEAN ;
   25  
   26  PROCEDURE KeyPressed() : BOOLEAN ;
   27  (* Check if key pressed *)
   28  
   29  PROCEDURE RdKey()    : CHAR ;
   30  (* Return keys without echo *)
   31  
   32  PROCEDURE RdChar()   : CHAR ;
   33  (* Return keys with echo *)
   34  
   35  TYPE KBFlagSet = SET OF ( RShift, LShift, Ctrl, Alt, Scroll, Num, Cap, Ins ) ;
*****                                                                             ^ not supported yet
   36  PROCEDURE KBFlags () : KBFlagSet ;
   37  (* Returns current 'shift' keys depressed *)
   38  
   39  END BiosIO.
*****      ^ not supported yet

    2 errors