HELPKEY.I

[Table of Contents]

The HELPKEY.I include file resides on the Kyan Pascal 2.x Utilities Disk 1.


  • procedure Help_Key(var out:pathstring);


Source Code


procedure Help_Key(var out:pathstring);
   VAR
      L, Help_Val: Integer;

   function look_help:integer;
       begin
          look_help:=0;
#a
  LDY #5      ;offset to Help_Val
  LDA 732     ;get value stored here
  STA (_SP),Y ;store the value
#
   end; 
   BEGIN
#A
  LDA #$00
  STA 732
#
     help_val:=0;
     while (help_val=0) do
         help_val:=look_help;
     writeln(help_val);
     CASE Help_Val OF
        0: out:='NO KEY              ';
       17: out:='HELP                ';
       81: out:='SHIFT HELP          ';
      145: out:='CONTROL HELP        ';
     END;(* CASE *)
END;(* Help Key function *)

No comments:

Post a Comment