home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / INFO / PIBTERM / PIBT41S4.ARC / WRITESTA.MOD < prev    next >
Encoding:
Text File  |  1987-12-25  |  490 b   |  13 lines
  1. (*----------------------------------------------------------------------*)
  2. (*       Write_To_Status_Line --- Write text to status line             *)
  3. (*----------------------------------------------------------------------*)
  4.  
  5. PROCEDURE Write_To_Status_Line( S: AnyStr; X: INTEGER );
  6.  
  7. BEGIN (* Write_To_Status_Line *)
  8.  
  9.    IF ( ( NOT Graphics_Terminal_Mode ) AND Do_Status_Line ) THEN
  10.       WriteSXY( S, X, Max_Screen_Line, Status_Line_Attr );
  11.  
  12. END   (* Write_To_Status_Line *);
  13.