%title 'AUX Literals' %sbttl 'Introduction' MODULE aux_literals( ! IDENT = '2' ) = BEGIN ! ! COPYRIGHT (c) 1983 BY ! Project Software & Development, Inc. ! ! This software is furnished under a license and may be used and copied ! only in accordance with the terms of such license and with the ! inclusion of the above copyright notice. This software or any other ! copies thereof may not be provided or otherwise made available to any ! other person. No title to and ownership of the software is hereby ! transferred. ! ! The information in this software is subject to change without notice ! and should not be construed as a commitment by PROJECT SOFTWARE ! AND DEVELOPMENT, INC. ! ! PROJECT SOFTWARE assumes no responsibility for the use or reliability ! of its software on equipment which is not supplied by PROJECT SOFTWARE. ! !++ ! FACILITY: AUXiliary Keypad DCL ! ! ABSTRACT: This module contains the global literals. ! ! ! ENVIRONMENT: VMS Native mode ! ! AUTHOR: M. Erik Husby, CREATION DATE: March 1983 ! ! MODIFIED BY: ! ! MEH 13-Sep-1983, : VERSION 2 ! 01 - Added Line2 stuff. !-- ! ! INCLUDE FILES: ! Library 'SYS$LIBRARY:STARLET'; Require 'SYS$LIBRARY:PSDI'; Library 'AUXLIB'; ! ! EQUATED SYMBOLS: ! Global bind new_line = static_descriptor(%char(cr),%char(lf)), blank = $descriptor(' '); Global bind top_stuff = static_descriptor( %char(escape),'[2;24r', ! Scroll lines 2-24 %char(escape),'[H', ! Home position %char(escape),'#5', ! Single width %char(escape),'[1m'), ! Set bold region2_23 = static_descriptor(%char(escape),'[2;23r'), region2_24 = static_descriptor(%char(escape),'[2;24r'), line2 = static_descriptor(%char(escape),'[2;1H'), line23 = static_descriptor(%char(escape),'[23;1H'), scroll = static_descriptor(%char(escape),'D'), line24 = static_descriptor(%char(escape),'[24;1H'), bold_on = static_descriptor(%char(escape),'[1m'), reverse = static_descriptor(%char(escape),'[7m'), blink = static_descriptor(%char(escape),'[5m'), save_cursor = static_descriptor(%char(escape),'7'), bold_off = static_descriptor(%char(escape),'[0m'), cursor_up = static_descriptor(%char(escape),'[A'), clear_line = static_descriptor(%char(escape),'[K'), AUX_mode = static_descriptor(%char(escape),'='), AUX_mode_off= static_descriptor(%char(escape),'>'), wrap_on = static_descriptor(%char(escape),'[?7h'), wrap_off = static_descriptor(%char(escape),'[?7l'), restore_cursor = static_descriptor(%char(escape),%c'8'); Global bind prompt = static_descriptor( %char(escape),'[24;1H', ! Goto line 24, col 1 %char(escape),'[1m', ! Bold on '$$ ', ! Prompt string %char(escape),'7') ! And save cursor : block[,byte]; Global bind escape_keys = uplit( Symbol('A','Up','AUX_UP','AUX_T_UP',4,3), Symbol('B','Down','AUX_DOWN','AUX_T_DOWN',9,3), Symbol('C','Right','AUX_RIGHT','AUX_T_RIGHT',15,3), Symbol('D','Left','AUX_LEFT','AUX_T_LEFT',20,3), Symbol('M','Enter','AUX_ENTER','AUX_T_ENTER',16,65), Symbol('P','PF1','AUX_PF1','AUX_T_PF1',0,0), Symbol('Q','PF2','AUX_PF2','AUX_T_PF2',4,35), Symbol('R','PF3','AUX_PF3','AUX_T_PF3',4,50), Symbol('S','PF4','AUX_PF4','AUX_T_PF4',4,65), Symbol('l','Comma','AUX_COMMA','AUX_T_COMMA',12,65), Symbol('m','Dash','AUX_DASH','AUX_T_DASH',8,65), Symbol('n','Period','AUX_PERIOD','AUX_T_PERIOD',20,50), Symbol('p','Zero','AUX_ZERO','AUX_T_ZERO',20,28), Symbol('q','One','AUX_ONE','AUX_T_ONE',16,20), Symbol('r','Two','AUX_TWO','AUX_T_TWO',16,35), Symbol('s','Three','AUX_THREE','AUX_T_THREE',16,50), Symbol('t','Four','AUX_FOUR','AUX_T_FOUR',12,20), Symbol('u','Five','AUX_FIVE','AUX_T_FIVE',12,35), Symbol('v','Six','AUX_SIX','AUX_T_SIX',12,50), Symbol('w','Seven','AUX_SEVEN','AUX_T_SEVEN',8,20), Symbol('x','Eight','AUX_EIGHT','AUX_T_EIGHT',8,35), Symbol('y','Nine','AUX_NINE','AUX_T_NINE',8,50), byte(0),0,0 ) : symbol_table; Global bind gold_escape_keys = uplit( Symbol('A','Gold UP','AUG_UP','AUG_T_UP',7,3), Symbol('B','Gold Down','AUG_DOWN','AUG_T_DOWN',12,3), Symbol('C','Gold Right','AUG_RIGHT','AUG_T_RIGHT',17,3), Symbol('D','Gold Left','AUG_LEFT','AUG_T_LEFT',22,3), Symbol('M','Gold Enter','AUG_ENTER','AUG_T_ENTER',22,65), Symbol('P','Gold PF1','AUG_PF1','AUG_T_PF1',0,0), Symbol('Q','Gold PF2','AUG_PF2','AUG_T_PF2',6,35), Symbol('R','Gold PF3','AUG_PF3','AUG_T_PF3',6,50), Symbol('S','Gold PF4','AUG_PF4','AUG_T_PF4',6,65), Symbol('l','Gold Comma','AUG_COMMA','AUG_T_COMMA',14,65), Symbol('m','Gold Dash','AUG_DASH','AUG_T_DASH',10,65), Symbol('n','Gold Period','AUG_PERIOD','AUG_T_PERIOD',22,50), Symbol('p','Gold Zero','AUG_ZERO','AUG_T_ZERO',22,28), Symbol('q','Gold One','AUG_ONE','AUG_T_ONE',18,20), Symbol('r','Gold Two','AUG_TWO','AUG_T_TWO',18,35), Symbol('s','Gold Three','AUG_THREE','AUG_T_THREE',18,50), Symbol('t','Gold Four','AUG_FOUR','AUG_T_FOUR',14,20), Symbol('u','Gold Five','AUG_FIVE','AUG_T_FIVE',14,35), Symbol('v','Gold Six','AUG_SIX','AUG_T_SIX',14,50), Symbol('w','Gold Seven','AUG_SEVEN','AUG_T_SEVEN',10,20), Symbol('x','Gold Eight','AUG_EIGHT','AUG_T_EIGHT',10,35), Symbol('y','Gold Nine','AUG_NINE','AUG_T_NINE',10,50), byte(0),0,0 ) : symbol_table; Global bind control_keys = uplit( Symbol(127, 'Delete','AUX_DELETE','AUX_T_DELETE',0,0), Symbol(%c'A'-%c'@','Ctrl A','AUX_A','AUX_T_A',0,0), Symbol(%c'B'-%c'@','Ctrl B','AUX_B','AUX_T_B',0,0), Symbol(%c'C'-%c'@','Ctrl C','AUX_C','AUX_T_C',0,0), Symbol(%c'D'-%c'@','Ctrl D','AUX_D','AUX_T_D',0,0), Symbol(%c'E'-%c'@','Ctrl E','AUX_E','AUX_T_E',0,0), Symbol(%c'F'-%c'@','Ctrl F','AUX_F','AUX_T_F',0,0), Symbol(%c'G'-%c'@','Bell','AUX_G','AUX_T_G',0,0), Symbol(%c'H'-%c'@','Backspace','AUX_H','AUX_T_H',0,0), Symbol(%c'I'-%c'@','Tab','AUX_I','AUX_T_I',0,0), Symbol(%c'J'-%c'@','LineFeed','AUX_J','AUX_T_J',0,0), Symbol(%c'K'-%c'@','Ctrl K','AUX_K','AUX_T_K',0,0), Symbol(%c'L'-%c'@','FormFeed','AUX_L','AUX_T_L',0,0), Symbol(%c'M'-%c'@','Return','AUX_M','AUX_T_M',0,0), Symbol(%c'N'-%c'@','Ctrl N','AUX_N','AUX_T_N',0,0), Symbol(%c'O'-%c'@','Ctrl O','AUX_O','AUX_T_O',0,0), Symbol(%c'P'-%c'@','Ctrl P','AUX_P','AUX_T_P',0,0), Symbol(%c'Q'-%c'@','Ctrl Q','AUX_Q','AUX_T_Q',0,0), Symbol(%c'R'-%c'@','Ctrl R','AUX_R','AUX_T_R',0,0), Symbol(%c'S'-%c'@','Ctrl S','AUX_S','AUX_T_S',0,0), Symbol(%c'T'-%c'@','Ctrl T','AUX_T','AUX_T_T',0,0), Symbol(%c'U'-%c'@','Ctrl U','AUX_U','AUX_T_U',0,0), Symbol(%c'V'-%c'@','Ctrl V','AUX_V','AUX_T_V',0,0), Symbol(%c'W'-%c'@','Ctrl W','AUX_W','AUX_T_W',0,0), Symbol(%c'X'-%c'@','Ctrl X','AUX_X','AUX_T_X',0,0), Symbol(%c'Y'-%c'@','Ctrl Y','AUX_Y','AUX_T_Y',0,0), Symbol(%c'Z'-%c'@','Ctrl Z','AUX_Z','AUX_T_Z',0,0), byte(0),0,0 ) : symbol_table; Global bind gold_control_keys = uplit( Symbol(127, 'Gold Delete','AUG_DELETE','AUG_T_DELETE',0,0), Symbol(%c'A'-%c'@','Gold Ctrl A','AUG_A','AUG_T_A',0,0), Symbol(%c'B'-%c'@','Gold Ctrl B','AUG_B','AUG_T_B',0,0), Symbol(%c'C'-%c'@','Gold Ctrl C','AUG_C','AUG_T_C',0,0), Symbol(%c'D'-%c'@','Gold Ctrl D','AUG_D','AUG_T_D',0,0), Symbol(%c'E'-%c'@','Gold Ctrl E','AUG_E','AUG_T_E',0,0), Symbol(%c'F'-%c'@','Gold Ctrl F','AUG_F','AUG_T_F',0,0), Symbol(%c'G'-%c'@','Gold Bell','AUG_G','AUG_T_G',0,0), Symbol(%c'H'-%c'@','Gold Backspace','AUG_H','AUG_T_H',0,0), Symbol(%c'I'-%c'@','Gold Tab','AUG_I','AUG_T_I',0,0), Symbol(%c'J'-%c'@','Gold LineFeed','AUG_J','AUG_T_J',0,0), Symbol(%c'K'-%c'@','Gold Ctrl K','AUG_K','AUG_T_K',0,0), Symbol(%c'L'-%c'@','Gold FormFeed','AUG_L','AUG_T_L',0,0), Symbol(%c'M'-%c'@','Gold Return','AUG_M','AUG_T_M',0,0), Symbol(%c'N'-%c'@','Gold Ctrl N','AUG_N','AUG_T_N',0,0), Symbol(%c'O'-%c'@','Gold Ctrl O','AUG_O','AUG_T_O',0,0), Symbol(%c'P'-%c'@','Gold Ctrl P','AUG_P','AUG_T_P',0,0), Symbol(%c'Q'-%c'@','Gold Ctrl Q','AUG_Q','AUG_T_Q',0,0), Symbol(%c'R'-%c'@','Gold Ctrl R','AUG_R','AUG_T_R',0,0), Symbol(%c'S'-%c'@','Gold Ctrl S','AUG_S','AUG_T_S',0,0), Symbol(%c'T'-%c'@','Gold Ctrl T','AUG_T','AUG_T_T',0,0), Symbol(%c'U'-%c'@','Gold Ctrl U','AUG_U','AUG_T_U',0,0), Symbol(%c'V'-%c'@','Gold Ctrl V','AUG_V','AUG_T_V',0,0), Symbol(%c'W'-%c'@','Gold Ctrl W','AUG_W','AUG_T_W',0,0), Symbol(%c'X'-%c'@','Gold Ctrl X','AUG_X','AUG_T_X',0,0), Symbol(%c'Y'-%c'@','Gold Ctrl Y','AUG_Y','AUG_T_Y',0,0), Symbol(%c'Z'-%c'@','Gold Ctrl Z','AUG_Z','AUG_T_Z',0,0), byte(0),0,0 ) : symbol_table; ! ! Keypad help outline macro ! Reverse mode for 14 spaces R14 = %char(escape),'[7m ',%char(escape),'[0m' %, ! ! Reverse mode for 29 spaces R29 = %char(escape),'[7m ', %char(escape),'[0m' %, GOLD = %char(escape),'[7m GOLD ',%char(escape),'[0m' % ; global bind aux_keypad_outline = static_descriptor( %char(escape),'(0', ! Starts at line 3 ! 1 2 3 4 5 6 7 8 !123456789-123456789-123456789-123456789-123456789-123456789-123456789-123456789- ' lqqqqqqqqqqqqqqk lqqqqqqqqqqqqqqwqqqqqqqqqqqqqqwqqqqqqqqqqqqqqwqqqqqqqqqqqqqqk',%char(cr),%char(lf),!3 ' x x x',R14, 'x x x x',%char(cr),%char(lf),!4 ' x ^ x x', GOLD, 'x HELP x PF3 x PF4 x',%char(cr),%char(lf),!5 ' x x x x',R14, 'x',R14, 'x',R14, 'x',R14, 'x',%char(cr),%char(lf),!6 ' x',R14, 'x tqqqqqqqqqqqqqqnqqqqqqqqqqqqqqnqqqqqqqqqqqqqqnqqqqqqqqqqqqqqu',%char(cr),%char(lf),!7 ' tqqqqqqqqqqqqqqu x x x x x',%char(cr),%char(lf),!8 ' x x x 7 x 8 x 9 x - x',%char(cr),%char(lf),!9 ' x x x x',R14, 'x',R14, 'x',R14, 'x',R14, 'x',%char(cr),%char(lf),!10 ' x V x tqqqqqqqqqqqqqqnqqqqqqqqqqqqqqnqqqqqqqqqqqqqqnqqqqqqqqqqqqqqu',%char(cr),%char(lf),!11 ' x',R14, 'x x x x x x',%char(cr),%char(lf) !12 ) : block[,byte], aux_keypad_outline2 = static_descriptor( ! Starts at line 13 ' tqqqqqqqqqqqqqqu x 4 x 5 x 6 x , x',%char(cr),%char(lf),!13 ' x x x',R14, 'x',R14, 'x',R14, 'x',R14, 'x',%char(cr),%char(lf),!14 ' x x tqqqqqqqqqqqqqqnqqqqqqqqqqqqqqnqqqqqqqqqqqqqqnqqqqqqqqqqqqqqu',%char(cr),%char(lf),!15 ' x qq> x x x x x x',%char(cr),%char(lf),!16 ' x',R14, 'x x 1 x 2 x 3 x x',%char(cr),%char(lf),!17 ' tqqqqqqqqqqqqqqu x',R14, 'x',R14, 'x',R14, 'x x',%char(cr),%char(lf)!18 ) : block[,byte], aux_keypad_outline3 = static_descriptor( ! Starts at line 18 ' x x tqqqqqqqqqqqqqqvqqqqqqqqqqqqqqnqqqqqqqqqqqqqqu ENTER x',%char(cr),%char(lf),!19 ' x x x x x x',%char(cr),%char(lf),!20 ' x