10 ! ----- TITLE.FUN ----- ! ! ----- Displays a Reverse-Video Title on the Terminal Screen: ----- ! ----- If 40 or less chars to be displayed, title will be ----- ! ----- displayed as double-height, double-width characters ----- ! ----- If 41 or more chars to be displayed, title will be ----- ! ----- displayed as single-height, single-width characters ----- ! ! ----- Last Change 05/01/89 by Brian Lomasky ----- ! ! ----- Teradyne, Inc., 179 Lincoln Street, Boston, MA 02111 ----- ! ----- (617) 482-2706, x3259 ----- ! ! ----- Neither Brian Lomasky nor Teradyne, Inc. implicitly or ----- ! ----- explicitly implies this program is usable in any way. ----- ! ----- This program is released to the public domain in an ----- ! ----- "AS-IS" condition. ----- ! ! ----- Restrictions: ----- ! ----- 1) Requires VAX BASIC V2.4 or later. ----- ! ----- 2) Must be used only on a VT1xx/VT2xx/VT3xx terminal ----- ! SUB TITLE(STRING TITLE_TITLE) DECLARE WORD TEMP PRINT ESC;"[7m"; ! SET TO REVERSE VIDEO MODE PRINT ESC;"[1;1H";ESC;"[K"; ! MOVE CURSOR/CLEAR FIRST LINE PRINT ESC;"#3"; & IF LEN(TITLE_TITLE) < 41% ! MAKE LINE DOUBLE HEIGHT TOP PRINT CR; ! MOVE CURSOR TO FIRST LINE IF LEN(TITLE_TITLE) < 41% THEN TEMP = (40% - LEN(TITLE_TITLE)) / 2% PRINT SPACE$(TEMP);TITLE_TITLE; & SPACE$(40% - LEN(TITLE_TITLE) - TEMP) ELSE TEMP = (80% - LEN(TITLE_TITLE)) / 2% PRINT SPACE$(TEMP);TITLE_TITLE; & SPACE$(80% - LEN(TITLE_TITLE) - TEMP); PRINT ESC;"[0m";CR ! SET TO NORMAL VIDEO MODE EXIT SUB END IF PRINT ESC;"[2;1H";ESC;"[K"; ! MOVE CURSOR/CLEAR SECOND LINE PRINT ESC;"#4"; ! MAKE LINE DOUBLE HEIGHT BOT TEMP = (40% - LEN(TITLE_TITLE)) / 2% PRINT SPACE$(TEMP);TITLE_TITLE;SPACE$(40% - LEN(TITLE_TITLE) - TEMP) PRINT ESC;"[5;1H"; PRINT ESC;"[0m" ! SET TO NORMAL VIDEO MODE END SUB