home *** CD-ROM | disk | FTP | other *** search
/ Power Programming / powerprogramming1994.iso / progtool / pibterm / pibt41s4.arc / WRITESTA.MOD < prev    next >
Text File  |  1987-12-25  |  490b  |  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.