FUNCTKEY.I

[Table of Contents]


The FUNCTKEY.I include file resides on the Kyan Pascal 2.x Utilities Disk 1. It contains one procedure:

• PROCEDURE Function_Key(VAR RESULT:PATHSTRING; Delay: Integer);

Source Code

PROCEDURE Function_Key(VAR RESULT:PATHSTRING; Delay: Integer);
   VAR 
     Key_Pointer: ^CHAR;
     L,KEY_VAL  : Integer;
   BEGIN
       RESULT:='                    ';
       KEY_POINTER:=POINTER(-12257);
       FOR L:=1 TO Delay DO
           Key_Val:=ORD(Key_Pointer^);
   CASE Key_Val OF
     0: RESULT:='ALL KEYS            ';
     1: RESULT:='OPTION SELECT       ';
     2: RESULT:='OPTION START        ';
     3: RESULT:='OPTION              ';
     4: RESULT:='SELECT START        ';
     5: RESULT:='SELECT              ';
     6: RESULT:='START               ';
     7: RESULT:='NO KEYS             ';
     8: RESULT:='CLEARED             ';
   END; (* CASE *)
END;(* Function_Key function *)