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