home *** CD-ROM | disk | FTP | other *** search
/ Source Code 1992 March / Source_Code_CD-ROM_Walnut_Creek_March_1992.iso / msdos / pibterm / pibt41s1.arc / CLEARWIN.MOD < prev    next >
Encoding:
Text File  |  1987-12-01  |  1.8 KB  |  48 lines
  1. (*----------------------------------------------------------------------*)
  2. (*               Clear_Window --- Clear out lines in window             *)
  3. (*----------------------------------------------------------------------*)
  4.  
  5. PROCEDURE Clear_Window;
  6.  
  7. (*----------------------------------------------------------------------*)
  8. (*                                                                      *)
  9. (*     Procedure:  Clear_Window                                         *)
  10. (*                                                                      *)
  11. (*     Purpose:    Clears screen for current window                     *)
  12. (*                                                                      *)
  13. (*     Calling Sequence:                                                *)
  14. (*                                                                      *)
  15. (*        Clear_Window                                                  *)
  16. (*                                                                      *)
  17. (*     Calls:   Upper_Left                                              *)
  18. (*              GoToXY                                                  *)
  19. (*                                                                      *)
  20. (*----------------------------------------------------------------------*)
  21.  
  22. VAR
  23.    Ytop: INTEGER;
  24.    Xtop: INTEGER;
  25.    Ybot: INTEGER;
  26.    I   : INTEGER;
  27.  
  28. BEGIN (* Clear_Window *)
  29.  
  30. {
  31.    Upper_Left( Xtop, Ytop );
  32.    Ybot := Lower_Right_Row;
  33.  
  34.    FOR I := 1 TO ( Ybot - Ytop + 1 ) DO
  35.       BEGIN
  36.          GoToXY( 1 , I );
  37.          ClrEol;
  38.       END;
  39. }
  40. {
  41.    Scroll( YTop, YBot, 1, Max_Screen_Col, 0, Global_ForeGround_Color,
  42.            Global_BackGround_Color );
  43. }
  44.    ClrScr;
  45.    MoveToXY( 1 , 1 );
  46.  
  47. END   (* Clear_Window *);
  48.