home *** CD-ROM | disk | FTP | other *** search
/ ftp.barnyard.co.uk / 2015.02.ftp.barnyard.co.uk.tar / ftp.barnyard.co.uk / cpm / walnut-creek-CDROM / CPM / TURBOPAS / TP-UTIL.ARK / WRITEAT.SRC < prev    next >
Text File  |  1986-01-06  |  384b  |  14 lines
  1. PROCEDURE WRITE_AT(X,Y : INTEGER;
  2.                    HIGHLITE : BOOLEAN;
  3.                    USE_CR   : BOOLEAN;
  4.                    THE_TEXT : STRING255);
  5.  
  6. BEGIN
  7.   IF Y < 0 THEN Y := 12;
  8.   IF X < 0 THEN X := (80-LENGTH(THE_TEXT)) DIV 2;
  9.   GOTOXY(X,Y);
  10.   IF HIGHLITE THEN LOWVIDEO;
  11.   IF USE_CR THEN WRITELN(THE_TEXT) ELSE WRITE(THE_TEXT);
  12.   NORMVIDEO
  13. END;
  14. σσσσσσσσσσσσσσσσ