Programmer 7500/MAX_PROGRAMMERS.iso/PASCAL/MADTRB21.ZIP/WRITEAT.SRC

Text File | 1985-06-09 | 368 b | 14 lines

PROCEDURE WRITE_AT(X,Y : INTEGER;
                   HIGHLITE : BOOLEAN;
                   USE_CR   : BOOLEAN;
                   THE_TEXT : STRING255);

BEGIN
  IF Y < 0 THEN Y := 12;
  IF X < 0 THEN X := (80-LENGTH(THE_TEXT)) DIV 2;
  GOTOXY(X,Y);
  IF HIGHLITE THEN LOWVIDEO;
  IF USE_CR THEN WRITELN(THE_TEXT) ELSE WRITE(THE_TEXT);
  NORMVIDEO
END;