Compaq DEC Text Processing Utility AA-PWCBD-TE - Manual (Page 136)

Sample DECTPU Procedures
A.3 Restoring Terminal Width Before Exiting from DECTPU
A.3 Restoring Terminal Width Before Exiting from DECTPU
Example A–3 compares the current width of the screen with the original width.
If the current width differs from the original width, the procedure restores each
window to its original width. The screen is refreshed so that information is
visible on the screen after you exit from DECTPU. When all of the window widths
are the same, the physical screen width is changed.
Example A–3 Procedure to Restore Screen to Original Width
PROCEDURE user_restore_screen
LOCAL
original_screen_width,
temp_w;
original_screen_width := GET_INFO (SCREEN, "original_width");
IF original_screen_width <> GET_INFO (SCREEN, "width")
THEN
temp_w := get_info(windows,"first");
LOOP
EXITIF temp_w = 0;
SET (WIDTH, temp_w, original_screen_width);
temp_w := GET_INFO (WINDOWS, "next");
ENDLOOP;
REFRESH;
ENDIF;
ENDPROCEDURE;
! Define the key combination Ctrl/E to do an exit which
! restores the screen to its original width, repaints
! the screen, and then exits.
DEFINE_KEY ("user_restore_screen;EXIT", Ctrl_E_KEY);
A–6 Sample DECTPU Procedures