GOTOXYTW.I

[Table of Contents]

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

• GotoXY_in_Text_Window(HX,VY: Integer);

Source Code

PROCEDURE GotoXY_in_Text_Window(HX,VY: Integer);
BEGIN
#A
  LDY #5      ;offset to VY
  LDA (_SP),Y ;...get the row value
  STA $290    ;...store in TXTROW (656)
  LDY #7      ;offset to HX
  LDA (_SP),Y ;...get the column value
  STA $291    ;...store in TXTCOL (657)
#
END;(* Text Window Position procedure *)