home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / INFO / PIBTERM / PIBT41S1.ARC / DOVT52LF.MOD < prev    next >
Encoding:
Text File  |  1988-01-06  |  1.8 KB  |  52 lines
  1. (*----------------------------------------------------------------------*)
  2. (*         Do_VT52_LineFeeds --- Do special VT52 linefeed processing    *)
  3. (*----------------------------------------------------------------------*)
  4.  
  5. PROCEDURE Do_VT52_LineFeeds( Ch : CHAR );
  6.  
  7. (*----------------------------------------------------------------------*)
  8. (*                                                                      *)
  9. (*     Procedure:  Do_VT52_LineFeeds                                    *)
  10. (*                                                                      *)
  11. (*     Purpose:    Handle line feeds for VT52 mode                      *)
  12. (*                                                                      *)
  13. (*     Calling Sequence:                                                *)
  14. (*                                                                      *)
  15. (*        Do_VT52_LineFeeds( Ch: CHAR );                                *)
  16. (*                                                                      *)
  17. (*----------------------------------------------------------------------*)
  18.  
  19. VAR
  20.    X          : INTEGER;
  21.    Y          : INTEGER;
  22.    Print_Line : AnyStr;
  23.  
  24. BEGIN (* Do_VT52_LineFeeds *)
  25.  
  26.    IF Capture_On THEN
  27.       Capture_Char( Ch );
  28.  
  29.    X := WhereX;
  30.    Y := SUCC( WhereY );
  31.  
  32.    IF ( Y < Max_Screen_Line ) THEN
  33.       GoToXY( X , Y )
  34.    ELSE
  35.       Scroll( 1, PRED( Max_Screen_Line ), 1, Max_Screen_Col, 1,
  36.               ForeGround_Color, BackGround_Color );
  37.  
  38.    IF Auto_Print_Mode THEN
  39.       BEGIN
  40.          Get_Screen_Text_Line( Print_Line, PRED( WhereY ), 1 );
  41.          Write_Prt_Str( Print_Line  );
  42.          Write_Prt_Str( CRLF_String );
  43.       END;
  44.  
  45.    IF Printer_On THEN
  46.       Write_Prt( Ch );
  47.  
  48.    IF Review_On THEN
  49.       Update_Review_Pointers;
  50.  
  51. END   (* Do_VT52_LineFeeds *);
  52.