Terminal Usage

[toml_12953]

Thanks to eried, I created this simple LOCATE function. It only uses the default font.

Code:

EXPORT LOCATE(TEXT,X,Y)
BEGIN
  TEXTOUT(TEXT,(X-1)*10,242-(Y-1)*14);
END;

Both X and Y start at 1 and (1,1) is the upper left corner of the display. 19 lines fit on the display.

Here's a calling program:

Code:

EXPORT LOCTEST()
BEGIN
  RECT();
  X:=1;
  FOR Y FROM 1 TO 19 DO
    LOCATE("HELLO",X,Y);
    X:=X+1;
  END;
  WAIT;
END;

Thanks again, eried!

Tom L