home *** CD-ROM | disk | FTP | other *** search
/ Programmer Power Tools / Programmer Power Tools.iso / 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.