Form DEMO_VT_WINDOWS_FORM /************************************************************************ /* Copyright (c) 1989, 1990 By /* Digital Equipment Corporation, Maynard, Mass. /* /* 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 Digital Equipment /* Corporation. /* /* Digital assumes no responsibility for the use or reliability of its /* software on equipment which is not supplied by Digital. /************************************************************************ /* /* This form demonstrates a workstation-like windowing environment. /* Please note that there is no application driving this form. The /* form is simply enabled and complete processing takes place within /* the form. Explore this demonstration form. If you see some feature /* that you would like to copy, simply look through this IFDL to see /* how that particular feature was implemented. /* /* This form shows examples of: /* /* 'Workstation-Like' User Interface /* This demo's interface looks and feels similar to those found /* on bit map workstations. /* /* Complete Form Manager Windowing /* This demo contains panels of varying widths, heights and /* positions. /* /* Chaining of Panels /* This demo shows how to traverse from one panel to another without /* application program intervention. /* /* Pop-Up and Pull-Down Menus /* There are many examples of pull-down and pop-up menus found in /* this form. /* /* 'Within the form' Scrolling /* Several panels contain scrollable lists of various widths. All /* the scrolling is managed by the form. /* /*********************************************************************/ /* /* 1-May-1989 JWP, JJJ, and DEC Original Version /* /*********************************************************************/ /* /* Variables used by the session manager window /*/ /* /* Variables used by Df term /*/ /* /* Variables used by puzzle /*/ /* /* Variables used by the help window /*/ Form Data SESSION_MANAGER_ICONIZED Unsigned Byte Value 0 DF_TERM_1_ICONIZED Unsigned Byte Value 0 DF_TERM_2_ICONIZED Unsigned Byte Value 0 DF_TERM_3_ICONIZED Unsigned Byte Value 0 PUZZLE_ICONIZED Unsigned Byte Value 0 TOP_BAR_1 Character(1) Value "w" TOP_BAR_2 Character(1) TOP_BAR_3 Character(1) TOP_BAR_4 Character(1) TOP_BAR_5 Character(1) VERT_BAR_1 Character(1) Value "x" VERT_BAR_2 Character(1) VERT_BAR_3 Character(1) VERT_BAR_4 Character(1) VERT_BAR_5 Character(1) BOTTOM_BAR_1 Character(1) Value "v" BOTTOM_BAR_2 Character(1) BOTTOM_BAR_3 Character(1) BOTTOM_BAR_4 Character(1) BOTTOM_BAR_5 Character(1) SESSION_MANAGER_ACTIVE Unsigned Byte Value 0 DF_TERM_1_ACTIVE Unsigned Byte Value 0 DF_TERM_2_ACTIVE Unsigned Byte Value 0 DF_TERM_3_ACTIVE Unsigned Byte Value 0 PUZZLE_ACTIVE Unsigned Byte Value 0 SESSION_ICON_ACTIVE Unsigned Byte Value 0 CREATE_ICON_ACTIVE Unsigned Byte Value 0 CUSTOMIZE_ICON_ACTIVE Unsigned Byte Value 0 PRINT_SCREEN_ICON_ACTIVE Unsigned Byte Value 0 HELP_ICON_ACTIVE Unsigned Byte Value 0 PUZZLE_ICON_ACTIVE Unsigned Byte Value 0 HEADER_TEXT Character(25) Value "Messages " USER_NAME Character(31) SESSION_PASSWORD Character(31) ICONIZE_SESSION_ACTIVE Unsigned Byte Value 0 BELL_VOLUME_ENABLE Character(1) Value "T" BELL_VOLUME_DISABLE Character(1) Value " " BELL_VOLUME_SELECTED Unsigned Byte Value 0 KEYCLICK_VOLUME_ENABLE Character(1) Value "T" KEYCLICK_VOLUME_DISABLE Character(1) Value " " KEYCLICK_VOLUME_SELECTED Unsigned Byte Value 0 AUTO_REPEAT_ENABLE Character(1) Value "T" AUTO_REPEAT_DISABLE Character(1) Value " " LOCK_KEY_CAPS_LOCK Character(1) Value "T" LOCK_KEY_SHIFT_LOCK Character(1) Value " " OPERATOR_WINDOW_CTRL Character(1) Value "T" OPERATOR_WINDOW_F2 Character(1) Value "T" OPERATOR_WINDOW_SHIFT Character(1) Value " " OPERATOR_WINDOW_F1 Character(1) Value " " CURRENT_BELL_POINTER Unsigned Byte CURRENT_KEYCLICK_POINTER Unsigned Byte CURRENT_KEYBOARD_TYPE Unsigned Byte CURRENT_TERMINAL_WINDOW Unsigned Byte CURRENT_SCROLLED_LINES_SAVED Unsigned Byte Group BELL_VOLUME Occurs 11 Base 0 Current CURRENT_BELL_POINTER INDEX Unsigned Byte Value 0 PERCENT Character(2) POINTER Character(2) SELECTED Character(1) Value " " End Group Group KEYCLICK_VOLUME Occurs 11 Base 0 Current CURRENT_KEYCLICK_POINTER INDEX Unsigned Byte Value 0 PERCENT Character(2) POINTER Character(2) SELECTED Character(1) Value " " End Group KB_PREVIOUS_SELECTED Unsigned Byte Value 1 Group KEYBOARD_TYPE Occurs 46 Current CURRENT_KEYBOARD_TYPE NAME Character(25) MARKER Character(1) End Group OUTPUT_FORMAT_POSTSCRIPT Character(1) Value "T" OUTPUT_FORMAT_SIXEL Character(1) OUTPUT_FORMAT_DDIF Character(1) ASPECT_ONE_TO_ONE Character(1) Value "T" ASPECT_TWO_TO_ONE Character(1) POSITIVE_IMAGE Character(1) Value "T" NEGATIVE_IMAGE Character(1) PROMPT_FOR_NAME Character(1) Value "T" OUTPUT_FILE_NAME Character(28) Value "sys$login:decw$capture.tmp " Group TERMINAL_WINDOWS Occurs 4 Base 0 Current CURRENT_TERMINAL_WINDOW INDEX Unsigned Byte Value 0 NUMBER Character(1) POINTER Character(1) SELECTED Character(1) Value " " End Group Group SCROLLED_LINES_SAVED Occurs 10 Base 1 Current CURRENT_SCROLLED_LINES_SAVED INDEX Unsigned Byte Value 0 SCROLLED_LINES Character(2) POINTER Character(2) SELECTED Character(1) Value " " End Group STARTUP_STATE_WINDOW Character(1) Value "T" STARTUP_STATE_ICON Character(1) CREATE_FILEVIEW_WINDOW Character(1) CONFIRM_QUIT_SESSION Character(1) Value "T" ENABLE_SAVER_FIELD Character(1) Value "T" DISABLE_SAVER_FIELD Character(1) SMALL_ICON_FIELD Character(1) LARGE_ICON_FIELD Character(1) Value "T" SCREEN_BLACK_WHITE_FIELD Character(1) Value "T" SCREEN_WHITE_BLACK_FIELD Character(1) WINDOW_BLACK_WHITE_FIELD Character(1) Value "T" WINDOW_WHITE_BLACK_FIELD Character(1) CURRENT_MINUTES_POINTER Unsigned Byte BLACK_BACKGROUND Character(1) Group MINUTES Occurs 11 Base 0 Current CURRENT_MINUTES_POINTER INDEX Unsigned Byte Value 0 PERCENT Character(2) POINTER Character(2) SELECTED Character(1) Value " " End Group End Data Form Data COMMAND_PANEL_ACTIVE Unsigned Byte EDIT_PANEL_ACTIVE Unsigned Byte CUSTOMIZE_PANEL_ACTIVE Unsigned Byte DT_HELP_PANEL_ACTIVE Unsigned Byte ROWS Integer(3) NUM_COLUMNS Integer(3) Value 80 NUM_ROWS Integer(3) Value 24 OFF_TOP Character(1) VERTICAL_SB Character(1) HORIZONTAL_SB Character(1) VERTICAL_CC Character(1) HORIZONTAL_CC Character(1) AUTO_RESIZE_TERM Character(1) AUTO_RESIZE_WINDOW Character(1) BIG_FONT Character(1) LITTLE_FONT Character(1) NORMAL_FONT Character(1) CONDENSED_FONT Character(1) NORMAL_CONDENSED_FONT Character(1) AUTO_WRAP Character(1) DISPLAY_CURSOR Character(1) CURSOR_BLINK Character(1) BLOCK_CURSOR Character(1) UNDERLINE_CURSOR Character(1) HOST_STATUS Character(1) NO_HOST_STATUS Character(1) LIGHT_TEXT Character(1) DARK_TEXT Character(1) NEW_LINE Character(1) LOCK_UDKS Character(1) LOCK_USER Character(1) NORMAL_CURSOR_KEYS Character(1) APPL_CURSOR_KEYS Character(1) DF_TERM_ID Character(1) VT340_ID Character(1) VT320_ID Character(1) VT240_ID Character(1) VT220_ID Character(1) VT125_ID Character(1) VT102_ID Character(1) VT101_ID Character(1) VT100_ID Character(1) NUMERIC_KEYPAD Character(1) APPLICATION_KEYPAD Character(1) DEC_SUPPLEMENTAL Character(1) ISO_LATIN_1 Character(1) EIGHT_BIT Character(1) SEVEN_BIT Character(1) VT300_MODE_8 Character(1) VT300_MODE_7 Character(1) VT100_MODE Character(1) VT52_MODE Character(1) WARNING_BELL Character(1) MARGIN_BELL Character(1) AUTO_REPEAT Character(1) CTRL_Q Character(1) DELETE_KEY Character(1) BACKSPACE_KEY Character(1) CAPS_LOCK Character(1) SHIFT_LOCK Character(1) COMMA_COMMA Character(1) COMMA_BRACKET Character(1) TILDE_DASH Character(1) TILDE_ESC Character(1) ANGLE_ANGLE Character(1) ANGLE_DASH Character(1) CURRENT_ENTRY Unsigned Longword PREVIOUS_SELECTED Unsigned Longword Value 1 CURRENT_FILE Unsigned Longword Group COUNTRY Occurs 16 Current CURRENT_ENTRY NAME Character(20) MARKER Character(1) End Group FILTER Character(40) Value "SYS$LOGIN:*.DAT " Group CONFIGURATION Occurs 10 Current CURRENT_FILE FILE Character(40) End Group SELECTION Character(40) SETTINGS_MENU_TITLE Character(50) SETTINGS_SELECT_TITLE Character(50) CURRENT_DF_TERM Unsigned Longword Value 1 End Data Form Data CUR_ROW Longword Integer CUR_COL Longword Integer Group ROW Occurs 4 Base 1 Current CUR_ROW Group COL Occurs 4 Base 1 Current CUR_COL TILE Longword Integer End Group End Group Group TAKE Occurs 4 Base 1 PLUS_ONE Longword Integer MINUS_ONE Longword Integer End Group NUMBER_OF_KEYSTROKES Longword Integer PUZZLE_MESSAGE_TEXT Character(20) Value " " End Data Form Data Group HELP_GROUP Occurs 16 TEXT_LINE Character(74) End Group FIRST_ENTRY Unsigned Longword SCROLL_BAR_TOP Character(1) SCROLL_BAR_BOTTOM Character(1) CURRENT_HELP_PAGE Unsigned Longword Value 1 NUMBER_HELP_PAGE Unsigned Longword Value 1 End Data Layout VT_LAYOUT Device Terminal Type %VT100 End Device Size 24 Lines by 80 Columns /* /* Viewport Declarations /*/ /* /* Function Declarations /*/ /* /* Internal Response Declarations /*/ /* /* Response Declarations /*/ /* /* Function Response Declarations /*/ /* /* Default Declarations /*/ Viewport SESSION_VP Lines 2 Through 18 Columns 17 Through 65 End Viewport Viewport SESSION_MANAGER_VP Lines 7 Through 20 Columns 5 Through 69 End Viewport Viewport SM_SESSION_VP Lines 9 Through 12 Columns 6 Through 14 End Viewport Viewport CREATE_VP Lines 9 Through 14 Columns 15 Through 34 End Viewport Viewport SM_CUSTOMIZE_VP Lines 9 Through 20 Columns 24 Through 50 End Viewport Viewport CUSTOMIZE_KEYBOARD_VP Lines 5 Through 23 Columns 2 Through 72 End Viewport Viewport CUSTOMIZE_PRINT_SCREEN_VP Lines 7 Through 23 Columns 6 Through 72 End Viewport Viewport CUSTOMIZE_SESSION_MANAGER_VP Lines 7 Through 22 Columns 6 Through 70 End Viewport Viewport CUSTOMIZE_WINDOW_VP Lines 3 Through 23 Columns 1 Through 79 End Viewport Viewport PRINT_SCREEN_VP Lines 9 Through 14 Columns 36 Through 65 End Viewport Viewport SESSION_MANAGER_HELP_VP Lines 9 Through 12 Columns 63 Through 74 End Viewport Viewport PAUSE_VP Lines 1 Through 24 Columns 1 Through 80 End Viewport Viewport QUIT_VP Lines 11 Through 19 Columns 9 Through 58 End Viewport Viewport COMMANDS_1_VP Lines 8 Through 16 Columns 1 Through 23 End Viewport Viewport COMMANDS_2_VP Lines 9 Through 17 Columns 2 Through 24 End Viewport Viewport COMMANDS_3_VP Lines 10 Through 18 Columns 3 Through 25 End Viewport Viewport EDIT_1_VP Lines 8 Through 13 Columns 13 Through 26 End Viewport Viewport EDIT_2_VP Lines 9 Through 14 Columns 14 Through 27 End Viewport Viewport EDIT_3_VP Lines 10 Through 15 Columns 15 Through 28 End Viewport Viewport CUSTOMIZE_1_VP Lines 8 Through 21 Columns 21 Through 51 End Viewport Viewport CUSTOMIZE_2_VP Lines 9 Through 22 Columns 22 Through 52 End Viewport Viewport CUSTOMIZE_3_VP Lines 10 Through 23 Columns 23 Through 53 End Viewport Viewport DT_HELP_1_VP Lines 8 Through 11 Columns 66 Through 77 End Viewport Viewport DT_HELP_2_VP Lines 9 Through 12 Columns 67 Through 78 End Viewport Viewport DT_HELP_3_VP Lines 10 Through 13 Columns 68 Through 79 End Viewport Viewport WINDOW_VP Lines 3 Through 21 Columns 3 Through 78 End Viewport Viewport DISPLAY_VP Lines 6 Through 18 Columns 8 Through 73 End Viewport Viewport GENERAL_VP Lines 3 Through 23 Columns 8 Through 72 End Viewport Viewport KEYBOARD_VP Lines 6 Through 20 Columns 7 Through 73 End Viewport Viewport NRCS_VP Lines 6 Through 20 Columns 21 Through 60 End Viewport Viewport SETTINGS_VP Lines 4 Through 21 Columns 11 Through 70 End Viewport Viewport DF_TERM_1_VP Lines 6 Through 21 Columns 1 Through 77 End Viewport Viewport DF_TERM_2_VP Lines 7 Through 22 Columns 2 Through 78 End Viewport Viewport DF_TERM_3_VP Lines 8 Through 23 Columns 3 Through 79 End Viewport Viewport PUZZLE_VP Lines 6 Through 19 Columns 6 Through 30 End Viewport Viewport FILE_VP Lines 8 Through 10 Columns 7 Through 18 End Viewport Viewport HELP_VP Lines 8 Through 16 Columns 7 Through 29 End Viewport Viewport HELP_WINDOW_VP Lines 1 Through 23 Columns 1 Through 80 End Viewport Function SELECT Is %SELECT %KP_PERIOD End Function Function UP_ITEM Is %UP %KP_2 End Function Function DOWN_ITEM Is %DOWN %KP_8 End Function Function CURSOR_DOWN Is %DOWN End Function Function CURSOR_UP Is %UP End Function Function LEFT_ITEM Is %LEFT %KP_6 End Function Function RIGHT_ITEM Is %RIGHT %KP_4 End Function Function NEXT_SCREEN Is %NEXT_SCREEN End Function Function PREV_SCREEN Is %PREV_SCREEN End Function Function GO_TO_ICON_BOX Is (%PF1 %PF2) (%PF1 %SMALL_I) (%PF1 %CAPITAL_I) End Function Function QUIT_FORM Is %F8 (%PF1 %CAPITAL_Q) (%PF1 %SMALL_Q) End Function Function EXIT_FORM Is %F10 %CONTROL_D %CONTROL_Z (%PF1 %CAPITAL_X) (%PF1 %SMALL_X) End Function Function FLIP_FLOP Is %KP_5 %DO End Function Internal Response INITIALIZE_RESPONSE Let NUMBER_OF_KEYSTROKES = 0 Let TAKE(1).PLUS_ONE = 2 Let TAKE(2).PLUS_ONE = 3 Let TAKE(3).PLUS_ONE = 4 Let TAKE(4).PLUS_ONE = 5 Let TAKE(1).MINUS_ONE = 0 Let TAKE(2).MINUS_ONE = 1 Let TAKE(3).MINUS_ONE = 2 Let TAKE(4).MINUS_ONE = 3 Let ROW(1).COL(1).TILE = 7 Let ROW(1).COL(2).TILE = 10 Let ROW(1).COL(3).TILE = 5 Let ROW(1).COL(4).TILE = 3 Let ROW(2).COL(1).TILE = 14 Let ROW(2).COL(2).TILE = 4 Let ROW(2).COL(3).TILE = 15 Let ROW(2).COL(4).TILE = 6 Let ROW(3).COL(1).TILE = 1 Let ROW(3).COL(2).TILE = 11 Let ROW(3).COL(3).TILE = 13 Let ROW(3).COL(4).TILE = 0 Let ROW(4).COL(1).TILE = 12 Let ROW(4).COL(2).TILE = 2 Let ROW(4).COL(3).TILE = 8 Let ROW(4).COL(4).TILE = 9 End Response Internal Response POSITION_TO_BLANK If (ROW(1).COL(1).TILE = 0) Then Position To Field ROW(1).COL(1).TILE On PUZZLE_PANEL End If If (ROW(1).COL(2).TILE = 0) Then Position To Field ROW(1).COL(2).TILE On PUZZLE_PANEL End If If (ROW(1).COL(3).TILE = 0) Then Position To Field ROW(1).COL(3).TILE On PUZZLE_PANEL End If If (ROW(1).COL(4).TILE = 0) Then Position To Field ROW(1).COL(4).TILE On PUZZLE_PANEL End If If (ROW(2).COL(1).TILE = 0) Then Position To Field ROW(2).COL(1).TILE On PUZZLE_PANEL End If If (ROW(2).COL(2).TILE = 0) Then Position To Field ROW(2).COL(2).TILE On PUZZLE_PANEL End If If (ROW(2).COL(3).TILE = 0) Then Position To Field ROW(2).COL(3).TILE On PUZZLE_PANEL End If If (ROW(2).COL(4).TILE = 0) Then Position To Field ROW(2).COL(4).TILE On PUZZLE_PANEL End If If (ROW(3).COL(1).TILE = 0) Then Position To Field ROW(3).COL(1).TILE On PUZZLE_PANEL End If If (ROW(3).COL(2).TILE = 0) Then Position To Field ROW(3).COL(2).TILE On PUZZLE_PANEL End If If (ROW(3).COL(3).TILE = 0) Then Position To Field ROW(3).COL(3).TILE On PUZZLE_PANEL End If If (ROW(3).COL(4).TILE = 0) Then Position To Field ROW(3).COL(4).TILE On PUZZLE_PANEL End If If (ROW(4).COL(1).TILE = 0) Then Position To Field ROW(4).COL(1).TILE On PUZZLE_PANEL End If If (ROW(4).COL(2).TILE = 0) Then Position To Field ROW(4).COL(2).TILE On PUZZLE_PANEL End If If (ROW(4).COL(3).TILE = 0) Then Position To Field ROW(4).COL(3).TILE On PUZZLE_PANEL End If If (ROW(4).COL(4).TILE = 0) Then Position To Field ROW(4).COL(4).TILE On PUZZLE_PANEL End If End Response Enable Response /* /* Activate the session login panel and initialize certain /* variables. /*/ Activate Panel SESSION_PANEL Let BELL_VOLUME(7).INDEX = 1 Let BELL_VOLUME(7).SELECTED = "T" Let KEYCLICK_VOLUME(4).INDEX = 1 Let KEYCLICK_VOLUME(4).SELECTED = "T" Let TERMINAL_WINDOWS(3).INDEX = 1 Let TERMINAL_WINDOWS(3).SELECTED = "T" Let SCROLLED_LINES_SAVED(4).INDEX = 1 Let SCROLLED_LINES_SAVED(4).SELECTED = "T" Let KEYBOARD_TYPE(1).MARKER = "T" Let KEYBOARD_TYPE(1).NAME = " System Default " Let KEYBOARD_TYPE(2).NAME = " AUSTRIAN GERMANLK201LGDP" Let KEYBOARD_TYPE(3).NAME = " AUSTRIAN GERMANLK201LGTW" Let KEYBOARD_TYPE(4).NAME = " AUSTRIAN GERMANLK201NGDP" Let KEYBOARD_TYPE(5).NAME = " AUSTRIAN GERMANLK201NGTW" Let KEYBOARD_TYPE(6).NAME = " BELGIAN FRENCH LK201LPDP" Let KEYBOARD_TYPE(7).NAME = " BELGIAN FRENCH LK201LPTW" Let KEYBOARD_TYPE(8).NAME = " BRITISH LK201LE DP " Let KEYBOARD_TYPE(9).NAME = " BRITISH LK201LE TW " Let KEYBOARD_TYPE(10).NAME = " CANADIAN FRENCHLK201LCDP" Let KEYBOARD_TYPE(11).NAME = " CANADIAN FRENCHLK201LCTW" Let KEYBOARD_TYPE(12).NAME = " DANISH LK201LD DP " Let KEYBOARD_TYPE(13).NAME = " DANISH LK201LD TW " Let KEYBOARD_TYPE(14).NAME = " DANISH LK201RD DP " Let KEYBOARD_TYPE(15).NAME = " DANISH LK201RD TW " Let KEYBOARD_TYPE(16).NAME = " DUTCH LK201LH DP " Let KEYBOARD_TYPE(17).NAME = " DUTCH LK201LH TW " Let KEYBOARD_TYPE(18).NAME = " DUTCH LK201NH " Let KEYBOARD_TYPE(19).NAME = " FINISH LK201LF DP " Let KEYBOARD_TYPE(20).NAME = " FINISH LK201LF TW " Let KEYBOARD_TYPE(21).NAME = " FINISH LK201NX DP " Let KEYBOARD_TYPE(22).NAME = " FINISH LK201NX TW " Let KEYBOARD_TYPE(23).NAME = " FLEMISH LK201LB DP " Let KEYBOARD_TYPE(24).NAME = " FLEMISH LK201LB TW " Let KEYBOARD_TYPE(25).NAME = " ICELANDIC LK201LU DP " Let KEYBOARD_TYPE(26).NAME = " ICELANDIC LK201LU TW " Let KEYBOARD_TYPE(27).NAME = " ITALIAN LK201LI DP " Let KEYBOARD_TYPE(28).NAME = " ITALIAN LK201LI TW " Let KEYBOARD_TYPE(29).NAME = " NORTH AMERICAN LK201LA " Let KEYBOARD_TYPE(30).NAME = " NORWEGIAN LK201LN DP " Let KEYBOARD_TYPE(31).NAME = " NORWEGIAN LK201LN TW " Let KEYBOARD_TYPE(32).NAME = " NORWEGIAN LK201RN DP " Let KEYBOARD_TYPE(33).NAME = " NORWEGIAN LK201RN TW " Let KEYBOARD_TYPE(34).NAME = " PORTUGUESE LK201LV " Let KEYBOARD_TYPE(35).NAME = " SPANISH LK201LS DP " Let KEYBOARD_TYPE(36).NAME = " SPANISH LK201LS TW " Let KEYBOARD_TYPE(37).NAME = " SWEDISH LK201LM DP " Let KEYBOARD_TYPE(38).NAME = " SWEDISH LK201LM TW " Let KEYBOARD_TYPE(39).NAME = " SWEDISH LK201NM DP " Let KEYBOARD_TYPE(40).NAME = " SWEDISH LK201NM TW " Let KEYBOARD_TYPE(41).NAME = " SWISS FRENCH LK201LK DP " Let KEYBOARD_TYPE(42).NAME = " SWISS FRENCH LK201LK TW " Let KEYBOARD_TYPE(43).NAME = " SWISS GERMAN LK201LL DP " Let KEYBOARD_TYPE(44).NAME = " SWISS GERMAN LK201LL TW " Let KEYBOARD_TYPE(45).NAME = " UK LK201RE " Let KEYBOARD_TYPE(46).NAME = " US LK201RE " Let BELL_VOLUME(0).PERCENT = "0" Let BELL_VOLUME(1).PERCENT = "10" Let BELL_VOLUME(2).PERCENT = "20" Let BELL_VOLUME(3).PERCENT = "30" Let BELL_VOLUME(4).PERCENT = "40" Let BELL_VOLUME(5).PERCENT = "50" Let BELL_VOLUME(6).PERCENT = "60" Let BELL_VOLUME(7).PERCENT = "70" Let BELL_VOLUME(8).PERCENT = "80" Let BELL_VOLUME(9).PERCENT = "90" Let BELL_VOLUME(10).PERCENT = "10" Let KEYCLICK_VOLUME(0).PERCENT = "0" Let KEYCLICK_VOLUME(1).PERCENT = "10" Let KEYCLICK_VOLUME(2).PERCENT = "20" Let KEYCLICK_VOLUME(3).PERCENT = "30" Let KEYCLICK_VOLUME(4).PERCENT = "40" Let KEYCLICK_VOLUME(5).PERCENT = "50" Let KEYCLICK_VOLUME(6).PERCENT = "60" Let KEYCLICK_VOLUME(7).PERCENT = "70" Let KEYCLICK_VOLUME(8).PERCENT = "80" Let KEYCLICK_VOLUME(9).PERCENT = "90" Let KEYCLICK_VOLUME(10).PERCENT = "10" Let TERMINAL_WINDOWS(0).NUMBER = "0" Let TERMINAL_WINDOWS(1).NUMBER = "1" Let TERMINAL_WINDOWS(2).NUMBER = "2" Let TERMINAL_WINDOWS(3).NUMBER = "3" Let SCROLLED_LINES_SAVED(1).SCROLLED_LINES = "10" Let SCROLLED_LINES_SAVED(2).SCROLLED_LINES = "20" Let SCROLLED_LINES_SAVED(3).SCROLLED_LINES = "30" Let SCROLLED_LINES_SAVED(4).SCROLLED_LINES = "40" Let SCROLLED_LINES_SAVED(5).SCROLLED_LINES = "50" Let SCROLLED_LINES_SAVED(6).SCROLLED_LINES = "60" Let SCROLLED_LINES_SAVED(7).SCROLLED_LINES = "70" Let SCROLLED_LINES_SAVED(8).SCROLLED_LINES = "80" Let SCROLLED_LINES_SAVED(9).SCROLLED_LINES = "90" Let SCROLLED_LINES_SAVED(10).SCROLLED_LINES = "10" Let MINUTES(0).PERCENT = "0 " Let MINUTES(1).PERCENT = "10" Let MINUTES(2).PERCENT = "20" Let MINUTES(3).PERCENT = "30" Let MINUTES(4).PERCENT = "40" Let MINUTES(5).PERCENT = "50" Let MINUTES(6).PERCENT = "60" Let MINUTES(7).PERCENT = "70" Let MINUTES(8).PERCENT = "80" Let MINUTES(9).PERCENT = "90" Let MINUTES(10).PERCENT = "10" Let COUNTRY(1).NAME = " North American" Let COUNTRY(2).NAME = " Flemish" Let COUNTRY(3).NAME = " Canadian (French)" Let COUNTRY(4).NAME = " British" Let COUNTRY(5).NAME = " Danish" Let COUNTRY(6).NAME = " Finnish" Let COUNTRY(7).NAME = " Austrian/German" Let COUNTRY(8).NAME = " Dutch" Let COUNTRY(9).NAME = " Italian" Let COUNTRY(10).NAME = " Swiss (French)" Let COUNTRY(11).NAME = " Swiss (German)" Let COUNTRY(12).NAME = " Swedish" Let COUNTRY(13).NAME = " Norwegian" Let COUNTRY(14).NAME = " Belgian/French" Let COUNTRY(15).NAME = " Spanish" Let COUNTRY(16).NAME = " Portuguese" Let COUNTRY(1).MARKER = "T" Let CONFIGURATION(1).FILE = "SYS$LOGIN:DECW$TERMINAL_DEFAULS.DAT;1" Include INITIALIZE_RESPONSE End Response Function Response RIGHT_ITEM Position To Right Item End Response Function Response LEFT_ITEM Position To Left Item End Response Function Response UP_ITEM Position To Up Item End Response Function Response DOWN_ITEM Position To Down Item End Response Function Response EXIT_FORM Remove All Return End Response Function Response QUIT_FORM Remove All Return End Response Use Help Panel HELP_WINDOW_PANEL Apply Field Default Of Active Highlight Reverse Bold Autoskip End Default Panel SESSION_PANEL Viewport SESSION_VP Display Viewport Background Color Black Foreground Color White Bold Foreground Color Red Reverse Foreground Color White /* /* This panel implements the session login window. /* By typing in anything for a user name and password, you /* will 'log in'. Once logged in, the icon box and session /* manager window are activated. /*/ Literal Text Line 2 Column 11 Value "d i g i t a l" Display Reverse Font Size Double High End Literal Literal Text Line 2 Column 13 Value "x" Display Character Set Private_Rule Reverse Font Size Double High End Literal Literal Text Line 2 Column 17 Value "x" Display Character Set Private_Rule Reverse Font Size Double High End Literal Literal Text Line 2 Column 21 Value "x" Display Character Set Private_Rule Reverse Font Size Double High End Literal Literal Text Line 2 Column 25 Value "x" Display Character Set Private_Rule Reverse Font Size Double High End Literal Literal Text Line 2 Column 29 Value "x" Display Character Set Private_Rule Reverse Font Size Double High End Literal Literal Text Line 2 Column 33 Value "x" Display Character Set Private_Rule Reverse Font Size Double High End Literal Literal Text Line 7 Column 4 Value "User Name" End Literal Field USER_NAME Line 7 Column 15 Active Highlight Reverse Autoskip Display Nounderlined Output Picture X(31) End Field Literal Text Line 9 Column 4 Value "Password" End Literal Field SESSION_PASSWORD Line 9 Column 15 Exit Response If ((USER_NAME <> " ") AND (SESSION_PASSWORD <> " "- "")) Then Remove SESSION_VP Deactivate Panel SESSION_PANEL Display ICON_BOX Activate Panel SESSION_MANAGER End If End Response Concealed End Field Literal Rectangle Line 11 Column 29 Line 13 Column 37 End Literal Literal Text Line 15 Column 3 Value "© Digital Equipment Corporation. 1989, 1990." End Literal Literal Rectangle Line 4 Column 1 Line 17 Column 48 Display Nounderlined End Literal Literal Rectangle Line 11 Column 11 Line 13 Column 16 Display Bold End Literal Literal Text Line 16 Column 10 Value " All Rights Reserved." End Literal Literal Text Line 5 Column 13 Value " Start Session" Display Bold End Literal Icon OK_ICON Function Response SELECT If ((USER_NAME <> " ") AND (SESSION_PASSWORD <> " "- "")) Then Deactivate Panel SESSION_PANEL Remove SESSION_VP Display ICON_BOX Activate Panel SESSION_MANAGER Else Position To Field USER_NAME On SESSION_PANEL Message "You must supply a valid user name and password." End If End Response Active Highlight Reverse Literal Text Line 12 Column 12 Value " OK " End Literal End Icon Icon CLEAR_ICON Function Response SELECT Let USER_NAME = " " Let SESSION_PASSWORD = " " Position To Field USER_NAME On SESSION_PANEL End Response Active Highlight Reverse Literal Text Line 12 Column 30 Value " Clear " End Literal End Icon Literal Polyline Line 7 Column 14 Line 8 Column 14 Line 8 Column 45 End Literal Literal Polyline Line 9 Column 14 Line 10 Column 14 Line 10 Column 45 End Literal End Panel Panel ICON_BOX /* /* This panel implements the icon box. /* Pressing select while positioned on an element in the box will /* cause that object to be iconized or un-iconized. If an object /* is un-iconized, pressing down arrow while on that object will /* position you down to the object. /*/ Literal Polyline Line 1 Column 5 Line 3 Column 5 Display Bold End Literal Literal Text Line 2 Column 7 Value "Icon Box" Display Bold End Literal Literal Polyline Line 3 Column 1 Line 3 Column 21 Display Bold End Literal Field TOP_BAR_1 Line 3 Column 22 Display Character Set Private_Rule Bold Protected End Field Literal Polyline Line 3 Column 23 Line 3 Column 33 Display Bold End Literal Field TOP_BAR_2 Line 3 Column 34 Display Character Set Private_Rule Bold Output "w" When ((DF_TERM_2_ACTIVE = 1) OR (DF_TERM_1_ACTIVE = 1)) Output "q" When ((DF_TERM_1_ACTIVE = 0) AND (DF_TERM_2_ACTIVE = 0)) Protected End Field Literal Polyline Line 3 Column 35 Line 3 Column 45 Display Bold End Literal Field TOP_BAR_3 Line 3 Column 46 Display Character Set Private_Rule Bold Output "w" When ((DF_TERM_2_ACTIVE = 1) OR (DF_TERM_3_ACTIVE = 1)) Output "q" When ((DF_TERM_2_ACTIVE = 0) AND (DF_TERM_3_ACTIVE = 0)) Protected End Field Literal Polyline Line 3 Column 47 Line 3 Column 57 Display Bold End Literal Field TOP_BAR_4 Line 3 Column 58 Display Character Set Private_Rule Bold Output "w" When ((DF_TERM_3_ACTIVE = 1) OR (PUZZLE_ACTIVE = 1)) Output "q" When ((DF_TERM_3_ACTIVE = 0) AND (PUZZLE_ACTIVE = 0)) Protected End Field Literal Polyline Line 3 Column 59 Line 3 Column 66 Display Bold End Literal Field TOP_BAR_5 Line 3 Column 67 Display Character Set Private_Rule Bold Output "w" When (PUZZLE_ACTIVE = 1) Output "q" When (PUZZLE_ACTIVE = 0) Protected End Field Literal Polyline Line 3 Column 68 Line 3 Column 80 Display Bold End Literal Icon SESSION_MANAGER_ICON Function Response SELECT If (SESSION_MANAGER_ICONIZED = 0) Then Deactivate Panel SESSION_MANAGER Remove SESSION_MANAGER_VP Let SESSION_MANAGER_ICONIZED = 1 Else Activate Panel SESSION_MANAGER Position To Panel SESSION_MANAGER Deactivate Panel ICON_BOX Let SESSION_MANAGER_ICONIZED = 0 End If End Response Function Response DOWN_ITEM If (SESSION_MANAGER_ICONIZED = 0) Then Activate Panel SESSION_MANAGER Position To Panel SESSION_MANAGER Deactivate Panel ICON_BOX End If End Response Active Highlight Reverse Display Nobold Highlight Bold When (SESSION_MANAGER_ICONIZED = 1) Literal Text Line 4 Column 2 Value " DECforms on MYNODE " End Literal End Icon Field VERT_BAR_1 Line 4 Column 22 Display Character Set Private_Rule Bold Protected End Field Icon DF_TERM_1 Function Response SELECT If (DF_TERM_1_ICONIZED = 0) Then Deactivate Panel DF_TERM_1_PANEL Remove DF_TERM_1_VP Let DF_TERM_1_ICONIZED = 1 Else Let CURRENT_DF_TERM = 1 Activate Panel DF_TERM_1_PANEL Position To Icon COMMANDS_ICON On DF_TERM_1_PANEL Let DF_TERM_1_ICONIZED = 0 End If End Response Function Response DOWN_ITEM If (DF_TERM_1_ICONIZED = 0) Then Activate Panel DF_TERM_1_PANEL Position To Icon COMMANDS_ICON On DF_TERM_1_PANEL Deactivate Panel ICON_BOX End If End Response Active Highlight Reverse Concealed When (DF_TERM_1_ACTIVE = 0) Display Nobold Highlight Bold When (DF_TERM_1_ICONIZED = 1) Protected When (DF_TERM_1_ACTIVE = 0) Literal Text Line 4 Next Column Value " Df term 1 " End Literal End Icon Field VERT_BAR_2 Line 4 Column 34 Display Character Set Private_Rule Bold Output "x" When ((DF_TERM_2_ACTIVE = 1) OR (DF_TERM_1_ACTIVE = 1)) Output " " When ((DF_TERM_1_ACTIVE = 0) AND (DF_TERM_2_ACTIVE = 0)) Protected End Field Icon DF_TERM_2 Function Response SELECT If (DF_TERM_2_ICONIZED = 0) Then Deactivate Panel DF_TERM_2_PANEL Remove DF_TERM_2_VP Let DF_TERM_2_ICONIZED = 1 Else Let CURRENT_DF_TERM = 2 Activate Panel DF_TERM_2_PANEL Position To Icon COMMANDS_ICON On DF_TERM_2_PANEL Let DF_TERM_2_ICONIZED = 0 End If End Response Function Response DOWN_ITEM If (DF_TERM_2_ICONIZED = 0) Then Activate Panel DF_TERM_2_PANEL Position To Icon COMMANDS_ICON On DF_TERM_2_PANEL Deactivate Panel ICON_BOX End If End Response Active Highlight Reverse Concealed When (DF_TERM_2_ACTIVE = 0) Display Nobold Highlight Bold When (DF_TERM_2_ICONIZED = 1) Protected When (DF_TERM_2_ACTIVE = 0) Literal Text Line 4 Next Column Value " Df term 2 " End Literal End Icon Field VERT_BAR_3 Line 4 Column 46 Display Character Set Private_Rule Bold Output "x" When ((DF_TERM_2_ACTIVE = 1) OR (DF_TERM_3_ACTIVE = 1)) Output " " When ((DF_TERM_2_ACTIVE = 0) AND (DF_TERM_3_ACTIVE = 0)) Protected End Field Icon DF_TERM_3 Function Response SELECT If (DF_TERM_3_ICONIZED = 0) Then Deactivate Panel DF_TERM_3_PANEL Remove DF_TERM_3_VP Let DF_TERM_3_ICONIZED = 1 Else Let CURRENT_DF_TERM = 3 Activate Panel DF_TERM_3_PANEL Position To Icon COMMANDS_ICON On DF_TERM_3_PANEL Let DF_TERM_3_ICONIZED = 0 End If End Response Function Response DOWN_ITEM If (DF_TERM_3_ICONIZED = 0) Then Activate Panel DF_TERM_3_PANEL Position To Icon COMMANDS_ICON On DF_TERM_3_PANEL Deactivate Panel ICON_BOX End If End Response Active Highlight Reverse Concealed When (DF_TERM_3_ACTIVE = 0) Display Nobold Highlight Bold When (DF_TERM_3_ICONIZED = 1) Protected When (DF_TERM_3_ACTIVE = 0) Literal Text Line 4 Next Column Value " Df term 3 " End Literal End Icon Field VERT_BAR_4 Line 4 Column 58 Display Character Set Private_Rule Bold Output "x" When ((DF_TERM_3_ACTIVE = 1) OR (PUZZLE_ACTIVE = 1)) Output " " When ((DF_TERM_3_ACTIVE = 0) AND (PUZZLE_ACTIVE = 0)) Protected End Field Icon PUZZLE Function Response SELECT If (PUZZLE_ICONIZED = 0) Then Deactivate Panel PUZZLE_PANEL Remove PUZZLE_VP Let PUZZLE_ICONIZED = 1 Else Activate Panel PUZZLE_PANEL Position To Panel PUZZLE_PANEL Let PUZZLE_ICONIZED = 0 End If End Response Function Response DOWN_ITEM If (PUZZLE_ICONIZED = 0) Then Activate Panel PUZZLE_PANEL Position To Panel PUZZLE_PANEL Deactivate Panel ICON_BOX End If End Response Active Highlight Reverse Concealed When (PUZZLE_ACTIVE = 0) Display Nobold Highlight Bold When (PUZZLE_ICONIZED = 1) Protected When (PUZZLE_ACTIVE = 0) Literal Text Line 4 Next Column Value " Puzzle " End Literal End Icon Field VERT_BAR_5 Line 4 Column 67 Display Character Set Private_Rule Bold Output "x" When (PUZZLE_ACTIVE = 1) Output " " When (PUZZLE_ACTIVE = 0) Protected End Field Literal Polyline Line 5 Column 21 Line 5 Column 1 Line 1 Column 1 Line 1 Column 80 Line 5 Column 80 Line 5 Column 68 Display Bold End Literal Field BOTTOM_BAR_1 Line 5 Column 22 Display Character Set Private_Rule Bold Protected End Field Literal Polyline Line 5 Column 33 Line 5 Column 23 Display Bold End Literal Field BOTTOM_BAR_2 Line 5 Column 34 Display Character Set Private_Rule Bold Output "v" When ((DF_TERM_2_ACTIVE = 1) OR (DF_TERM_1_ACTIVE = 1)) Output "q" When ((DF_TERM_1_ACTIVE = 0) AND (DF_TERM_2_ACTIVE = 0)) Protected End Field Literal Polyline Line 5 Column 45 Line 5 Column 35 Display Bold End Literal Field BOTTOM_BAR_3 Line 5 Column 46 Display Character Set Private_Rule Bold Output "v" When ((DF_TERM_2_ACTIVE = 1) OR (DF_TERM_3_ACTIVE = 1)) Output "q" When ((DF_TERM_2_ACTIVE = 0) AND (DF_TERM_3_ACTIVE = 0)) Protected End Field Literal Polyline Line 5 Column 57 Line 5 Column 47 Display Bold End Literal Field BOTTOM_BAR_4 Line 5 Column 58 Display Character Set Private_Rule Bold Output "v" When ((DF_TERM_3_ACTIVE = 1) OR (PUZZLE_ACTIVE = 1)) Output "q" When ((DF_TERM_3_ACTIVE = 0) AND (PUZZLE_ACTIVE = 0)) Protected End Field Literal Polyline Line 5 Column 66 Line 5 Column 59 Display Bold End Literal Field BOTTOM_BAR_5 Line 5 Column 67 Display Character Set Private_Rule Bold Output "v" When (PUZZLE_ACTIVE = 1) Output "q" When (PUZZLE_ACTIVE = 0) Protected End Field End Panel Panel SESSION_MANAGER Viewport SESSION_MANAGER_VP /* /* This panel implements the session manager window. /* You may invoke pull-down menus by pressing select on any option /* on the command bar. Once a pull-down is active, pressing select /* again will invoke a pop-up menu if one exists for that option. /*/ Entry Response Let ICONIZE_SESSION_ACTIVE = 1 Let SESSION_MANAGER_ACTIVE = 1 End Response Exit Response Let ICONIZE_SESSION_ACTIVE = 0 End Response Function Response GO_TO_ICON_BOX Let SESSION_MANAGER_ACTIVE = 0 Deactivate Panel SESSION_MANAGER Activate Panel ICON_BOX Position To Panel ICON_BOX End Response Literal Polyline Line 3 Column 1 Line 3 Column 65 End Literal Literal Polyline Line 5 Column 1 Line 5 Column 65 End Literal Literal Polyline Line 1 Column 1 Line 14 Column 1 Line 14 Column 65 Line 1 Column 65 Display Bold End Literal Literal Text Line 1 Column 1 Value "l" Display Character Set Private_Rule Bold End Literal Literal Text Line 1 Column 65 Value "k" Display Character Set Private_Rule Bold End Literal Literal Text Line 1 Column 5 Value "x" Display Character Set Private_Rule Reverse End Literal Icon HEADER_ICON Highlight Bold When (SESSION_MANAGER_ACTIVE = 1) Protected Literal Text Line 1 Column 6 Value " Session Manager: DECforms on MYNODE "- " " Display Reverse End Literal End Icon Field HEADER_TEXT Line 4 Column 23 Display Bold Protected End Field Icon ICONIZE_SESSION Function Response SELECT Activate Panel ICON_BOX Position To Panel ICON_BOX Deactivate Panel SESSION_MANAGER Let SESSION_MANAGER_ACTIVE = 0 Remove SESSION_MANAGER_VP Let SESSION_MANAGER_ICONIZED = 1 End Response Active Highlight Bold Protected When (ICONIZE_SESSION_ACTIVE = 0) Literal Text Line 1 Column 2 Value " % " Display Reverse End Literal End Icon Icon SESSION_ICON Entry Response Let SESSION_ICON_ACTIVE = 1 End Response Exit Response Let SESSION_ICON_ACTIVE = 0 End Response Function Response SELECT Activate Panel SM_SESSION_PANEL Position To Panel SM_SESSION_PANEL End Response Function Response UP_ITEM Position Immediate To Icon ICONIZE_SESSION On SESSION_MANAGER End Response Highlight Reverse When (SESSION_ICON_ACTIVE = 1) Literal Text Line 2 Column 2 Value " Session " Display Bold End Literal End Icon Icon CREATE_ICON Entry Response Let CREATE_ICON_ACTIVE = 1 End Response Exit Response Let CREATE_ICON_ACTIVE = 0 End Response Function Response SELECT Activate Panel CREATE_PANEL Position To Panel CREATE_PANEL End Response Highlight Reverse When (CREATE_ICON_ACTIVE = 1) Literal Text Line 2 Column 12 Value " Create " Display Bold End Literal End Icon Icon CUSTOMIZE_ICON Entry Response Let CUSTOMIZE_ICON_ACTIVE = 1 End Response Exit Response Let CUSTOMIZE_ICON_ACTIVE = 0 End Response Function Response SELECT Activate Panel SM_CUSTOMIZE_PANEL Position To Panel SM_CUSTOMIZE_PANEL End Response Highlight Reverse When (CUSTOMIZE_ICON_ACTIVE = 1) Literal Text Line 2 Column 21 Value " Customize " Display Bold End Literal End Icon Icon PRINT_SCREEN_ICON Entry Response Let PRINT_SCREEN_ICON_ACTIVE = 1 End Response Exit Response Let PRINT_SCREEN_ICON_ACTIVE = 0 End Response Function Response SELECT Activate Panel PRINT_SCREEN_PANEL Position To Panel PRINT_SCREEN_PANEL End Response Highlight Reverse When (PRINT_SCREEN_ICON_ACTIVE = 1) Literal Text Line 2 Column 33 Value " Print Screen " Display Bold End Literal End Icon Icon HELP_ICON Entry Response Let HELP_ICON_ACTIVE = 1 End Response Exit Response Let HELP_ICON_ACTIVE = 0 End Response Function Response SELECT Activate Panel SESSION_MANAGER_HELP_PANEL Position To Panel SESSION_MANAGER_HELP_PANEL End Response Highlight Reverse When (HELP_ICON_ACTIVE = 1) Literal Text Line 2 Column 59 Value " Help " Display Bold End Literal End Icon End Panel Panel SM_SESSION_PANEL Viewport SM_SESSION_VP /* /* This panel implements the session pull-down window. /* The options avaiable on this pull-down include Pause and /* Quit. If Pause is selected, the pause session panel is /* activated. If Quit is selected, the demonstration can be /* terminated. /*/ Entry Response Let SESSION_ICON_ACTIVE = 1 End Response Exit Response Let SESSION_ICON_ACTIVE = 0 Deactivate Panel SM_SESSION_PANEL Remove SM_SESSION_VP End Response Icon PAUSE_ICON Function Response SELECT Activate Panel PAUSE_SESSION Deactivate Panel SM_SESSION_PANEL Remove SM_SESSION_VP Remove SESSION_MANAGER_VP End Response Function Response UP_ITEM Deactivate Panel SM_SESSION_PANEL Remove SESSION_VP Position To Icon SESSION_ICON On SESSION_MANAGER End Response Active Highlight Reverse Literal Text Line 2 Column 2 Value " Pause" Display Bold End Literal End Icon Icon QUIT_ICON Function Response SELECT If (CONFIRM_QUIT_SESSION = "T") Then Activate Panel QUIT_SESSION Deactivate Panel SM_SESSION_PANEL Remove SESSION_VP Position To Icon NO_ICON On QUIT_SESSION Else Remove All Return End If End Response Active Highlight Reverse Literal Text Line 3 Column 2 Value " Quit " Display Bold End Literal End Icon Literal Rectangle Line 1 Column 1 Line 4 Column 9 End Literal End Panel Panel CREATE_PANEL Viewport CREATE_VP /* /* This panel implements the create pull-down window. /* The options available on this menu include the ability to /* create a DF Terminal window (up to 3) and also a puzzle /* window (1). /*/ Entry Response Let CREATE_ICON_ACTIVE = 1 End Response Exit Response Let CREATE_ICON_ACTIVE = 0 Deactivate Panel CREATE_PANEL Remove CREATE_VP End Response Icon TERMINAL_WINDOW Function Response SELECT If (DF_TERM_1_ACTIVE = 1) Then If (DF_TERM_2_ACTIVE = 1) Then If (DF_TERM_3_ACTIVE = 1) Then Position To Icon CREATE_ICON On SESSION_MANAGER Else Let DF_TERM_3_ACTIVE = 1 Deactivate Panel SESSION_MANAGER Let SESSION_MANAGER_ACTIVE = 0 Let CURRENT_DF_TERM = 3 Activate Panel DF_TERM_3_PANEL Position To Icon COMMANDS_ICON On DF_TERM_3_PANEL End If Else Let DF_TERM_2_ACTIVE = 1 Deactivate Panel SESSION_MANAGER Let SESSION_MANAGER_ACTIVE = 0 Let CURRENT_DF_TERM = 2 Activate Panel DF_TERM_2_PANEL Position To Icon COMMANDS_ICON On DF_TERM_2_PANEL End If Else Let DF_TERM_1_ACTIVE = 1 Deactivate Panel SESSION_MANAGER Let SESSION_MANAGER_ACTIVE = 0 Let CURRENT_DF_TERM = 1 Activate Panel DF_TERM_1_PANEL Position To Icon COMMANDS_ICON On DF_TERM_1_PANEL End If End Response Function Response UP_ITEM Deactivate Panel CREATE_PANEL Remove CREATE_VP Position To Icon CREATE_ICON On SESSION_MANAGER End Response Active Highlight Reverse Literal Text Line 2 Column 2 Value " Terminal Window" Display Bold End Literal End Icon Icon FILEVIEW_WINDOW Protected Literal Text Line 3 Column 2 Value " FileView Window" End Literal End Icon Icon PUZZLE_WINDOW Function Response SELECT If (PUZZLE_ACTIVE = 0) Then Deactivate Panel SESSION_MANAGER Let SESSION_MANAGER_ACTIVE = 0 Activate Panel PUZZLE_PANEL Position To Panel PUZZLE_PANEL Let PUZZLE_ICONIZED = 0 Let PUZZLE_ACTIVE = 1 End If Deactivate Panel CREATE_PANEL Remove CREATE_VP Position To Icon CREATE_ICON On SESSION_MANAGER End Response Active Highlight Reverse Literal Text Line 4 Column 2 Value " Puzzle Window " Display Bold End Literal End Icon Literal Rectangle Line 1 Column 1 Line 5 Column 20 End Literal End Panel Panel SM_CUSTOMIZE_PANEL Viewport SM_CUSTOMIZE_VP /* /* This panel implements the customize pull-down window. /* A majority of the options found on this menu will invoke /* interesting customize pop-up windows. /*/ Entry Response Let CUSTOMIZE_ICON_ACTIVE = 1 End Response Exit Response Let CUSTOMIZE_ICON_ACTIVE = 0 Deactivate Panel SM_CUSTOMIZE_PANEL Remove SM_CUSTOMIZE_VP End Response Icon KEYBOARD_ICON Function Response SELECT Activate Panel CUSTOMIZE_KEYBOARD_PANEL Position To Panel CUSTOMIZE_KEYBOARD_PANEL End Response Function Response UP_ITEM Position To Icon CUSTOMIZE_ICON On SESSION_MANAGER End Response Active Highlight Reverse Literal Text Line 2 Column 2 Value " Keyboard... " Display Bold End Literal End Icon Icon POINTER_ICON Protected Literal Text Line 3 Column 2 Value " Pointer... " End Literal { Function Response SELECT Position To Icon CUSTOMIZE_ICON On SESSION_MANAGER End Response } End Icon Icon PRINT_SCREEN_ICON Function Response SELECT Activate Panel CUSTOMIZE_PRINT_SCREEN_PANEL Position To Panel CUSTOMIZE_PRINT_SCREEN_PANEL End Response Active Highlight Reverse Literal Text Line 4 Column 2 Value " Print Screen... " Display Bold End Literal End Icon Icon SECURITY_ICON Protected Literal Text Line 5 Column 2 Value " Security... " End Literal { Function Response SELECT Position To Icon PRINT_SCREEN_ICON On SESSION_MANAGER End Response } End Icon Icon SESSION_MANAGER_ICON Function Response SELECT Activate Panel CUSTOMIZE_SESSION_MANAGER Position To Panel CUSTOMIZE_SESSION_MANAGER End Response Active Highlight Reverse Literal Text Line 6 Column 2 Value " Session Manager... " Display Bold End Literal End Icon Icon WINDOW_ICON Function Response SELECT Activate Panel CUSTOMIZE_WINDOW Position To Panel CUSTOMIZE_WINDOW End Response Active Highlight Reverse Literal Text Line 7 Column 2 Value " Window... " Display Bold End Literal End Icon Literal Text Line 8 Column 3 Value "......................." End Literal Icon USE_LAST_SAVE_SETTINGS_ICON Function Response SELECT Position To Icon CUSTOMIZE_ICON On SESSION_MANAGER End Response Function Response UP_ITEM Position Immediate To Previous Item End Response Function Response DOWN_ITEM Position Immediate To Next Item End Response Active Highlight Reverse Literal Text Line 9 Column 2 Value " Use Last Saved Settings" Display Bold End Literal End Icon Icon USE_SYSTEM_DEFAULTS_ICON Function Response SELECT Position To Icon CUSTOMIZE_ICON On SESSION_MANAGER End Response Active Highlight Reverse Literal Text Line 10 Column 2 Value " Use System Defaults " Display Bold End Literal End Icon Icon SAVE_CURRENT_SETTINGS_ICON Function Response SELECT Position To Icon CUSTOMIZE_ICON On SESSION_MANAGER End Response Active Highlight Reverse Literal Text Line 11 Column 2 Value " Save Current Settings " Display Bold End Literal End Icon Literal Rectangle Line 1 Column 1 Line 12 Column 27 End Literal End Panel Panel CUSTOMIZE_KEYBOARD_PANEL Viewport CUSTOMIZE_KEYBOARD_VP /* /* This panel implements the customize keyboard pop-up window. /*/ Exit Response Deactivate Panel CUSTOMIZE_KEYBOARD_PANEL Remove CUSTOMIZE_KEYBOARD_VP End Response Literal Polyline Line 1 Column 1 Line 19 Column 1 Line 19 Column 71 Line 1 Column 71 End Literal Literal Text Line 1 Column 1 Value "l" Display Character Set Private_Rule End Literal Literal Text Line 1 Column 2 Value " Customize Keyboard "- " " Display Bold Reverse End Literal Literal Text Line 1 Column 71 Value "k" Display Character Set Private_Rule End Literal Literal Text Line 3 Column 4 Value "Bell Volume" Display Bold End Literal Literal Text Line 3 Column 44 Value "Keyboard Type" Display Bold End Literal Literal Text Line 4 Column 6 Value "(" End Literal Field BELL_VOLUME_ENABLE Same Line Next Column Function Response SELECT Let BELL_VOLUME_ENABLE = "T" Let BELL_VOLUME_DISABLE = " " End Response Function Response RIGHT_ITEM Position To Field BELL_VOLUME(CURRENT_BELL_POINTER).POINTER On CUSTOMIZE_KEYBOARD_PANEL End Response Display Character Set Private_Rule Bold No Data Input Output "`" When (BELL_VOLUME_ENABLE = "T") End Field Literal Text Line 4 Column 8 Value ")" End Literal Literal Text Line 4 Column 10 Value "Enable" Display Bold End Literal Group BELL_VOLUME Horizontal Entry Response Reset BELL_VOLUME(*).INDEX Reset BELL_VOLUME(*).SELECTED End Response Field PERCENT Line 4 Column 19 Highlight Bold When (BELL_VOLUME(**).SELECTED = "T") Output " " When ((BELL_VOLUME(**).INDEX <> 1) AND (BELL_VOLUME(**).SELECTED <> "T")) Protected End Field Field POINTER Line 5 Column 19 Entry Response Let BELL_VOLUME(CURRENT_BELL_POINTER).INDEX = 1 End Response Exit Response If (BELL_VOLUME(CURRENT_BELL_POINTER).SELECTED <> "T") Then Let BELL_VOLUME(CURRENT_BELL_POINTER).INDEX = 0 End If End Response Function Response SELECT If (BELL_VOLUME(CURRENT_BELL_POINTER).SELECTED = "T") Then Let BELL_VOLUME(CURRENT_BELL_POINTER).SELECTED = " " Else Let BELL_VOLUME(CURRENT_BELL_POINTER).SELECTED = "T" End If End Response Function Response RIGHT_ITEM If (BELL_VOLUME(CURRENT_BELL_POINTER).SELECTED = " ") Then Position To Next Item Else Position To Field KEYBOARD_TYPE(CURRENT_KEYBOARD_TYPE).NAME On CUSTOMIZE_KEYBOARD_PANEL End If End Response Function Response LEFT_ITEM If (BELL_VOLUME(CURRENT_BELL_POINTER).SELECTED = " ") Then Position To Previous Item Else Position To Field BELL_VOLUME_ENABLE On CUSTOMIZE_KEYBOARD_PANEL End If End Response Function Response DOWN_ITEM Position To Field KEYCLICK_VOLUME(CURRENT_KEYCLICK_POINTER).POINTER On CUSTOMIZE_KEYBOARD_PANEL End Response Active Highlight Reverse Display Underlined No Data Input Output "^" When (BELL_VOLUME(**).INDEX = 1) End Field End Group Icon BELL_TRAILING_ZERO Concealed When (BELL_VOLUME(10).INDEX <> 1) Highlight Bold When (BELL_VOLUME(10).SELECTED = "T") Protected Literal Text Line 4 Column 41 Value "0" End Literal End Icon Literal Rectangle Line 4 Column 44 Line 11 Column 70 Display Nobold End Literal Literal Text Line 5 Column 6 Value "(" End Literal Field BELL_VOLUME_DISABLE Same Line Next Column Function Response SELECT Let BELL_VOLUME_ENABLE = " " Let BELL_VOLUME_DISABLE = "T" End Response Function Response RIGHT_ITEM Position To Field BELL_VOLUME(CURRENT_BELL_POINTER).POINTER On CUSTOMIZE_KEYBOARD_PANEL End Response Function Response DOWN_ITEM Position To Field KEYCLICK_VOLUME_ENABLE On CUSTOMIZE_KEYBOARD_PANEL End Response Display Character Set Private_Rule Bold No Data Input Output "`" When (BELL_VOLUME_DISABLE = "T") End Field Literal Text Line 5 Column 8 Value ")" End Literal Literal Text Line 5 Column 10 Value "Disable" Display Bold End Literal Group KEYBOARD_TYPE Vertical Displays 6 Field NAME Line 5 Column 45 Function Response CURSOR_UP Position To Previous Item End Response Function Response CURSOR_DOWN Position To Next Item End Response Function Response SELECT Let KEYBOARD_TYPE(KB_PREVIOUS_SELECTED).MARKER = " " Let KEYBOARD_TYPE(CURRENT_KEYBOARD_TYPE).MARKER = "T" Let KB_PREVIOUS_SELECTED = CURRENT_KEYBOARD_TYPE End Response Function Response LEFT_ITEM Position To Field BELL_VOLUME(CURRENT_BELL_POINTER).POINTER On CUSTOMIZE_KEYBOARD_PANEL End Response Active Highlight Noreverse Bold Display Nobold No Data Input Highlight Reverse When (KEYBOARD_TYPE(**).MARKER = "T") End Field End Group Literal Text Line 6 Column 19 Value "Percent Volume" Display Bold End Literal Literal Text Line 8 Column 4 Value "Keyclick Volume" Display Bold End Literal Literal Text Line 9 Column 6 Value "(" End Literal Field KEYCLICK_VOLUME_ENABLE Same Line Next Column Function Response SELECT Let KEYCLICK_VOLUME_ENABLE = "T" Let KEYCLICK_VOLUME_DISABLE = " " End Response Function Response RIGHT_ITEM Position To Field KEYCLICK_VOLUME(CURRENT_KEYCLICK_POINTER).POINTER On CUSTOMIZE_KEYBOARD_PANEL End Response Display Character Set Private_Rule Bold No Data Input Output "`" When (KEYCLICK_VOLUME_ENABLE = "T") End Field Literal Text Line 9 Column 8 Value ")" End Literal Literal Text Line 9 Column 10 Value "Enable" Display Bold End Literal Group KEYCLICK_VOLUME Horizontal Entry Response Reset KEYCLICK_VOLUME(*).INDEX Reset KEYCLICK_VOLUME(*).SELECTED End Response Field PERCENT Line 9 Column 19 Highlight Bold When (KEYCLICK_VOLUME(**).SELECTED = "T") Output " " When ((KEYCLICK_VOLUME(**).INDEX <> 1) AND (KEYCLICK_VOLUME(**).SELECTED <> "T")) Protected End Field Field POINTER Line 10 Column 19 Entry Response Let KEYCLICK_VOLUME(CURRENT_KEYCLICK_POINTER).INDEX = 1 End Response Exit Response If (KEYCLICK_VOLUME(CURRENT_KEYCLICK_POINTER).SELECTED <> "T") Then Let KEYCLICK_VOLUME(CURRENT_KEYCLICK_POINTER).INDEX = 0 End If End Response Function Response SELECT If (KEYCLICK_VOLUME(CURRENT_KEYCLICK_POINTER).SELECTED = "T") Then Let KEYCLICK_VOLUME(CURRENT_KEYCLICK_POINTER).SELECTED = " " Else Let KEYCLICK_VOLUME(CURRENT_KEYCLICK_POINTER).SELECTED = "T" End If End Response Function Response UP_ITEM Position To Field BELL_VOLUME(CURRENT_BELL_POINTER).POINTER On CUSTOMIZE_KEYBOARD_PANEL End Response Function Response RIGHT_ITEM If (KEYCLICK_VOLUME(CURRENT_KEYCLICK_POINTER).SELECTED = " ") Then Position To Next Item Else Position To Field KEYBOARD_TYPE(CURRENT_KEYBOARD_TYPE).NAME On CUSTOMIZE_KEYBOARD_PANEL End If End Response Function Response LEFT_ITEM If (KEYCLICK_VOLUME(CURRENT_KEYCLICK_POINTER).SELECTED = " ") Then Position To Previous Item Else Position To Field KEYCLICK_VOLUME_ENABLE On CUSTOMIZE_KEYBOARD_PANEL End If End Response Active Highlight Reverse Display Underlined No Data Input Output "^" When (KEYCLICK_VOLUME(**).INDEX = 1) End Field End Group Icon KEYCLICK_TRAILING_ZERO Concealed When (KEYCLICK_VOLUME(10).INDEX <> 1) Highlight Bold When (KEYCLICK_VOLUME(10).SELECTED = "T") Protected Literal Text Line 9 Column 41 Value "0" End Literal End Icon Literal Text Line 10 Column 6 Value "(" End Literal Field KEYCLICK_VOLUME_DISABLE Same Line Next Column Function Response SELECT Let KEYCLICK_VOLUME_DISABLE = "T" Let KEYCLICK_VOLUME_ENABLE = " " End Response Function Response RIGHT_ITEM Position To Field KEYCLICK_VOLUME(CURRENT_KEYCLICK_POINTER).POINTER On CUSTOMIZE_KEYBOARD_PANEL End Response Display Character Set Private_Rule Bold No Data Input Output "`" When (KEYCLICK_VOLUME_DISABLE = "T") End Field Literal Text Line 10 Column 8 Value ")" End Literal Literal Text Line 10 Column 10 Value "Disable" Display Bold End Literal Literal Text Line 11 Column 19 Value "Percent Volume" Display Bold End Literal Literal Text Line 13 Column 4 Value "Auto Repeat" Display Bold End Literal Literal Text Line 13 Column 20 Value "Lock Key State" Display Bold End Literal Literal Text Line 13 Column 39 Value "Operator Window Key" Display Bold End Literal Literal Text Line 14 Column 6 Value "(" End Literal Field AUTO_REPEAT_ENABLE Same Line Next Column Function Response SELECT Let AUTO_REPEAT_ENABLE = "T" Let AUTO_REPEAT_DISABLE = " " End Response Display Character Set Private_Rule Bold No Data Input Output "`" When (AUTO_REPEAT_ENABLE = "T") End Field Literal Text Line 14 Column 8 Value ")" End Literal Literal Text Line 14 Column 10 Value "Enable" Display Bold End Literal Literal Text Line 14 Column 21 Value "(" End Literal Literal Text Line 14 Column 23 Value ")" End Literal Literal Text Line 14 Column 40 Value "(" End Literal Literal Text Line 14 Column 42 Value ")" End Literal Literal Text Line 14 Column 44 Value "Ctrl" Display Bold End Literal Literal Text Line 14 Column 52 Value "(" End Literal Literal Text Line 14 Column 54 Value ")" End Literal Literal Text Line 14 Column 56 Value "F2" Display Bold End Literal Literal Text Line 15 Column 6 Value "(" End Literal Field AUTO_REPEAT_DISABLE Same Line Next Column Function Response SELECT Let AUTO_REPEAT_DISABLE = "T" Let AUTO_REPEAT_ENABLE = " " End Response Display Character Set Private_Rule Bold No Data Input Output "`" When (AUTO_REPEAT_DISABLE = "T") End Field Literal Text Line 15 Column 8 Value ")" End Literal Literal Text Line 15 Column 10 Value "Disable" Display Bold End Literal Literal Text Line 15 Column 21 Value "(" End Literal Literal Text Line 15 Column 23 Value ")" End Literal Literal Text Line 15 Column 40 Value "(" End Literal Literal Text Line 15 Column 42 Value ")" End Literal Literal Text Line 15 Column 44 Value "Shift" Display Bold End Literal Literal Text Line 15 Column 50 Value "+" End Literal Literal Text Line 15 Column 52 Value "(" End Literal Literal Text Line 15 Column 54 Value ")" End Literal Literal Text Line 15 Column 56 Value "F1" Display Bold End Literal Literal Rectangle Line 16 Column 4 Line 18 Column 11 Display Bold End Literal Literal Rectangle Line 16 Column 18 Line 18 Column 26 End Literal Literal Rectangle Line 16 Column 33 Line 18 Column 42 End Literal Icon OK_ICON Function Response SELECT Deactivate Panel CUSTOMIZE_KEYBOARD_PANEL Remove CUSTOMIZE_KEYBOARD_VP Position To Icon CUSTOMIZE_ICON On SESSION_MANAGER End Response Active Highlight Reverse Display Bold Literal Text Line 17 Column 5 Value " OK " Display Bold End Literal End Icon Icon APPLY_ICON Function Response SELECT Deactivate Panel CUSTOMIZE_KEYBOARD_PANEL Remove CUSTOMIZE_KEYBOARD_VP Position To Icon CUSTOMIZE_ICON On SESSION_MANAGER End Response Active Highlight Reverse Literal Text Line 17 Column 19 Value " Apply " Display Bold End Literal End Icon Icon CANCEL_ICON Function Response SELECT Deactivate Panel CUSTOMIZE_KEYBOARD_PANEL Remove CUSTOMIZE_KEYBOARD_VP Position To Icon CUSTOMIZE_ICON On SESSION_MANAGER End Response Active Highlight Reverse Literal Text Line 17 Column 34 Value " Cancel " Display Bold End Literal End Icon Field LOCK_KEY_CAPS_LOCK Line 14 Column 22 Function Response SELECT Let LOCK_KEY_SHIFT_LOCK = " " Let LOCK_KEY_CAPS_LOCK = "T" End Response Function Response UP_ITEM Position Immediate To Field KEYCLICK_VOLUME(CURRENT_KEYCLICK_POINTER).POINTER On CUSTOMIZE_KEYBOARD_PANEL End Response Display Character Set Private_Rule Bold No Data Input Output "`" When (LOCK_KEY_CAPS_LOCK = "T") End Field Literal Text Line 14 Column 25 Value "Caps Lock" Display Bold End Literal Literal Text Line 15 Column 25 Value "Shift Lock" Display Bold End Literal Field LOCK_KEY_SHIFT_LOCK Line 15 Column 22 Function Response SELECT Let LOCK_KEY_SHIFT_LOCK = "T" Let LOCK_KEY_CAPS_LOCK = " " End Response Display Character Set Private_Rule Bold No Data Input Output "`" When (LOCK_KEY_SHIFT_LOCK = "T") End Field Field OPERATOR_WINDOW_CTRL Line 14 Column 41 Function Response SELECT Let OPERATOR_WINDOW_CTRL = "T" Let OPERATOR_WINDOW_SHIFT = " " End Response Function Response UP_ITEM Position Immediate To Field KEYCLICK_VOLUME(CURRENT_KEYCLICK_POINTER).POINTER On CUSTOMIZE_KEYBOARD_PANEL End Response Display Character Set Private_Rule Bold No Data Input Output "`" When (OPERATOR_WINDOW_CTRL = "T") End Field Field OPERATOR_WINDOW_SHIFT Line 15 Column 41 Function Response SELECT Let OPERATOR_WINDOW_CTRL = " " Let OPERATOR_WINDOW_SHIFT = "T" End Response Display Character Set Private_Rule Bold No Data Input Output "`" When (OPERATOR_WINDOW_SHIFT = "T") End Field Field OPERATOR_WINDOW_F2 Line 14 Column 53 Function Response SELECT Let OPERATOR_WINDOW_F2 = "T" Let OPERATOR_WINDOW_F1 = " " End Response Function Response UP_ITEM Position Immediate To Field KEYBOARD_TYPE(CURRENT_KEYBOARD_TYPE).NAME On CUSTOMIZE_KEYBOARD_PANEL End Response Display Character Set Private_Rule Bold No Data Input Output "`" When (OPERATOR_WINDOW_F2 = "T") End Field Field OPERATOR_WINDOW_F1 Line 15 Column 53 Function Response SELECT Let OPERATOR_WINDOW_F1 = "T" Let OPERATOR_WINDOW_F2 = " " End Response Display Character Set Private_Rule Bold No Data Input Output "`" When (OPERATOR_WINDOW_F1 = "T") End Field End Panel Panel CUSTOMIZE_PRINT_SCREEN_PANEL Viewport CUSTOMIZE_PRINT_SCREEN_VP /* /* This panel implements the customize print screen pop-up window. /*/ Exit Response Deactivate Panel CUSTOMIZE_PRINT_SCREEN_PANEL Remove CUSTOMIZE_PRINT_SCREEN_VP End Response Literal Polyline Line 1 Column 1 Line 17 Column 1 Line 17 Column 67 Line 1 Column 67 End Literal Literal Text Line 1 Column 1 Value "l" Display Character Set Private_Rule End Literal Literal Text Line 1 Column 2 Value " Customize Print Screen "- " " Display Bold Reverse End Literal Literal Text Line 1 Column 67 Value "k" Display Character Set Private_Rule End Literal Literal Text Line 3 Column 4 Value "Output Format" Display Bold End Literal Literal Text Line 3 Column 25 Value "Aspect Ratio" Display Bold End Literal Literal Text Line 3 Column 42 Value "Ribbon Or Toner Saver" Display Bold End Literal Literal Text Line 4 Column 6 Value "(" End Literal Field OUTPUT_FORMAT_POSTSCRIPT Line 4 Column 7 Function Response SELECT Let OUTPUT_FORMAT_POSTSCRIPT = "T" Let OUTPUT_FORMAT_SIXEL = " " Let OUTPUT_FORMAT_DDIF = " " End Response Display Character Set Private_Rule Bold No Data Input Output "`" When (OUTPUT_FORMAT_POSTSCRIPT = "T") End Field Literal Text Line 4 Column 8 Value ")" End Literal Literal Text Line 4 Column 10 Value "PostScript" Display Bold End Literal Literal Text Line 4 Column 26 Value "(" End Literal Field ASPECT_ONE_TO_ONE Line 4 Column 27 Function Response SELECT Let ASPECT_ONE_TO_ONE = "T" Let ASPECT_TWO_TO_ONE = " " End Response Display Character Set Private_Rule Bold No Data Input Output "`" When (ASPECT_ONE_TO_ONE = "T") End Field Literal Text Line 4 Column 28 Value ")" End Literal Literal Text Line 4 Column 30 Value "1 to 1" Display Bold End Literal Literal Text Line 4 Column 44 Value "(" End Literal Field POSITIVE_IMAGE Line 4 Column 45 Function Response SELECT Let POSITIVE_IMAGE = "T" Let NEGATIVE_IMAGE = " " End Response Display Character Set Private_Rule Bold No Data Input Output "`" When (POSITIVE_IMAGE = "T") End Field Literal Text Line 4 Column 46 Value ")" End Literal Literal Text Line 4 Column 48 Value "Positive Image" Display Bold End Literal Literal Text Line 5 Column 6 Value "(" End Literal Field OUTPUT_FORMAT_SIXEL Line 5 Column 7 Function Response SELECT Let OUTPUT_FORMAT_POSTSCRIPT = " " Let OUTPUT_FORMAT_SIXEL = "T" Let OUTPUT_FORMAT_DDIF = " " End Response Display Character Set Private_Rule Bold No Data Input Output "`" When (OUTPUT_FORMAT_SIXEL = "T") End Field Literal Text Line 5 Column 8 Value ")" End Literal Literal Text Line 5 Column 10 Value "Sixel" Display Bold End Literal Literal Text Line 5 Column 26 Value "(" End Literal Field ASPECT_TWO_TO_ONE Line 5 Column 27 Function Response SELECT Let ASPECT_ONE_TO_ONE = " " Let ASPECT_TWO_TO_ONE = "T" End Response Display Character Set Private_Rule Bold No Data Input Output "`" When (ASPECT_TWO_TO_ONE = "T") End Field Literal Text Line 5 Column 28 Value ")" End Literal Literal Text Line 5 Column 30 Value "2 to 1" Display Bold End Literal Literal Text Line 5 Column 44 Value "(" End Literal Field NEGATIVE_IMAGE Line 5 Column 45 Function Response SELECT Let POSITIVE_IMAGE = " " Let NEGATIVE_IMAGE = "T" End Response Display Character Set Private_Rule Bold No Data Input Output "`" When (NEGATIVE_IMAGE = "T") End Field Literal Text Line 5 Column 46 Value ")" End Literal Literal Text Line 5 Column 48 Value "Negative Image" Display Bold End Literal Literal Text Line 6 Column 6 Value "(" End Literal Field OUTPUT_FORMAT_DDIF Line 6 Column 7 Function Response SELECT Let OUTPUT_FORMAT_POSTSCRIPT = " " Let OUTPUT_FORMAT_SIXEL = " " Let OUTPUT_FORMAT_DDIF = "T" End Response Display Character Set Private_Rule Bold No Data Input Output "`" When (OUTPUT_FORMAT_DDIF = "T") End Field Literal Text Line 6 Column 8 Value ")" End Literal Literal Text Line 6 Column 10 Value "DDIF" Display Bold End Literal Literal Text Line 8 Column 4 Value "Output File Name" Display Bold End Literal Literal Polyline Line 8 Column 22 Line 9 Column 22 Line 9 Column 50 End Literal Field OUTPUT_FILE_NAME Line 8 Column 23 Display Bold Justification Left End Field Literal Text Line 11 Column 4 Value "[" End Literal Field PROMPT_FOR_NAME Line 11 Column 5 Function Response SELECT If (PROMPT_FOR_NAME = "T") Then Let PROMPT_FOR_NAME = " " Else Let PROMPT_FOR_NAME = "T" End If End Response Display Bold Character Set Private_Rule No Data Input Output "`" When (PROMPT_FOR_NAME = "T") End Field Literal Text Line 11 Column 6 Value "]" End Literal Literal Text Line 11 Column 8 Value "Prompt For File Name" Display Bold End Literal Literal Rectangle Line 14 Column 5 Line 16 Column 10 Display Bold End Literal Literal Rectangle Line 14 Column 26 Line 16 Column 34 End Literal Literal Rectangle Line 14 Column 49 Line 16 Column 58 End Literal Icon OK_ICON Function Response SELECT Deactivate Panel CUSTOMIZE_PRINT_SCREEN_PANEL Remove CUSTOMIZE_PRINT_SCREEN_VP Position To Icon CUSTOMIZE_ICON On SESSION_MANAGER End Response Active Highlight Reverse Display Bold Literal Text Line 15 Column 6 Value " OK " End Literal End Icon Icon APPLY_ICON Function Response SELECT Deactivate Panel CUSTOMIZE_PRINT_SCREEN_PANEL Remove CUSTOMIZE_PRINT_SCREEN_VP Position To Icon CUSTOMIZE_ICON On SESSION_MANAGER End Response Active Highlight Reverse Display Bold Literal Text Line 15 Column 27 Value " Apply " End Literal End Icon Icon CANCEL_ICON Function Response SELECT Deactivate Panel CUSTOMIZE_PRINT_SCREEN_PANEL Remove CUSTOMIZE_PRINT_SCREEN_VP Position To Icon CUSTOMIZE_ICON On SESSION_MANAGER End Response Active Highlight Reverse Display Bold Literal Text Line 15 Column 50 Value " Cancel " End Literal End Icon End Panel Panel CUSTOMIZE_SESSION_MANAGER Viewport CUSTOMIZE_SESSION_MANAGER_VP /* /* This panel implements the customize session manager pop-up window. /*/ Exit Response Deactivate Panel CUSTOMIZE_SESSION_MANAGER Remove CUSTOMIZE_SESSION_MANAGER_VP End Response Literal Text Line 1 Column 1 Value "l" Display Character Set Private_Rule End Literal Literal Polyline Line 1 Column 1 Line 16 Column 1 Line 16 Column 65 Line 1 Column 65 End Literal Literal Text Line 1 Column 2 Value " Customize Session Manager "- " " Display Bold Reverse End Literal Literal Text Line 1 Column 65 Value "k" Display Character Set Private_Rule End Literal Literal Text Line 3 Column 5 Value "Startup State" Display Bold End Literal Literal Text Line 4 Column 7 Value "(" End Literal Field STARTUP_STATE_WINDOW Line 4 Column 8 Function Response SELECT Let STARTUP_STATE_WINDOW = "T" Let STARTUP_STATE_ICON = " " End Response Display Character Set Private_Rule Bold No Data Input Output "`" When (STARTUP_STATE_WINDOW = "T") End Field Literal Text Line 4 Column 9 Value ")" End Literal Literal Text Line 4 Column 11 Value "Window" Display Bold End Literal Literal Text Line 4 Column 20 Value "[" End Literal Field CREATE_FILEVIEW_WINDOW Line 4 Column 21 Function Response SELECT If (CREATE_FILEVIEW_WINDOW = "T") Then Let CREATE_FILEVIEW_WINDOW = " " Else Let CREATE_FILEVIEW_WINDOW = "T" End If End Response Function Response RIGHT_ITEM Position To Field TERMINAL_WINDOWS(CURRENT_TERMINAL_WINDOW).POINTER On CUSTOMIZE_SESSION_MANAGER End Response Display Character Set Private_Rule Bold No Data Input Output "`" When (CREATE_FILEVIEW_WINDOW = "T") End Field Literal Text Line 4 Column 22 Value "]" End Literal Literal Text Line 4 Column 24 Value "Create FileView Window" Display Bold End Literal Group TERMINAL_WINDOWS Horizontal Entry Response Reset TERMINAL_WINDOWS(*).INDEX Reset TERMINAL_WINDOWS(*).SELECTED End Response Field NUMBER Line 4 Column 48 Highlight Bold When (TERMINAL_WINDOWS(**).SELECTED = "T") Output " " When ((TERMINAL_WINDOWS(**).INDEX <> 1) AND (TERMINAL_WINDOWS(**).SELECTED <> "T")) Protected End Field Field POINTER Line 5 Column 48 Entry Response Let TERMINAL_WINDOWS(CURRENT_TERMINAL_WINDOW).INDEX = 1 End Response Exit Response If (TERMINAL_WINDOWS(CURRENT_TERMINAL_WINDOW).SELECTED <> "T") Then Let TERMINAL_WINDOWS(CURRENT_TERMINAL_WINDOW).INDEX = 0 End If End Response Function Response SELECT If (TERMINAL_WINDOWS(CURRENT_TERMINAL_WINDOW).SELECTED = "T") Then Let TERMINAL_WINDOWS(CURRENT_TERMINAL_WINDOW).SELECTED = " " Else Let TERMINAL_WINDOWS(CURRENT_TERMINAL_WINDOW).SELECTED = "T" End If End Response Function Response RIGHT_ITEM If (TERMINAL_WINDOWS(CURRENT_TERMINAL_WINDOW).SELECTED = " ") Then Position To Next Item End If End Response Function Response LEFT_ITEM If (TERMINAL_WINDOWS(CURRENT_TERMINAL_WINDOW).SELECTED = " ") Then Position To Previous Item Else Position To Field CONFIRM_QUIT_SESSION On CUSTOMIZE_SESSION_MANAGER End If End Response Active Highlight Reverse Display Underlined No Data Input Output "^" When (TERMINAL_WINDOWS(**).INDEX = 1) End Field Literal Text Same Line Next Column Value " " Display Underlined End Literal End Group Literal Text Line 5 Column 7 Value "(" End Literal Field STARTUP_STATE_ICON Line 5 Column 8 Function Response SELECT Let STARTUP_STATE_WINDOW = " " Let STARTUP_STATE_ICON = "T" End Response Function Response DOWN_ITEM Position To Field SCROLLED_LINES_SAVED(CURRENT_SCROLLED_LINES_SAVED).POINTER On CUSTOMIZE_SESSION_MANAGER End Response Display Character Set Private_Rule Bold No Data Input Output "`" When (STARTUP_STATE_ICON = "T") End Field Literal Text Line 5 Column 9 Value ")" End Literal Literal Text Line 5 Column 11 Value "Icon" Display Bold End Literal Literal Text Line 5 Column 20 Value "[" End Literal Field CONFIRM_QUIT_SESSION Line 5 Column 21 Function Response SELECT If (CONFIRM_QUIT_SESSION = "T") Then Let CONFIRM_QUIT_SESSION = " " Else Let CONFIRM_QUIT_SESSION = "T" End If End Response Function Response RIGHT_ITEM Position To Field TERMINAL_WINDOWS(CURRENT_TERMINAL_WINDOW).POINTER On CUSTOMIZE_SESSION_MANAGER End Response Function Response DOWN_ITEM Position To Field SCROLLED_LINES_SAVED(CURRENT_SCROLLED_LINES_SAVED).POINTER On CUSTOMIZE_SESSION_MANAGER End Response Display Character Set Private_Rule Bold No Data Input Output "`" When (CONFIRM_QUIT_SESSION = "T") End Field Literal Text Line 5 Column 22 Value "]" End Literal Literal Text Line 5 Column 24 Value "Confirm Quit Session" Display Bold End Literal Literal Text Line 6 Column 48 Value "Terminal Windows" Display Bold End Literal Literal Text Line 7 Column 5 Value "Message Region" Display Bold End Literal Group SCROLLED_LINES_SAVED Horizontal Entry Response Reset SCROLLED_LINES_SAVED(*).INDEX Reset SCROLLED_LINES_SAVED(*).SELECTED End Response Field SCROLLED_LINES Line 8 Column 5 Highlight Bold When (SCROLLED_LINES_SAVED(**).SELECTED = "T") Output " " When ((SCROLLED_LINES_SAVED(**).INDEX <> 1) AND (SCROLLED_LINES_SAVED(**).SELECTED <> "T")) Protected End Field Field POINTER Line 9 Column 5 Entry Response Let SCROLLED_LINES_SAVED(CURRENT_SCROLLED_LINES_SAVED).INDEX = 1 End Response Exit Response If (SCROLLED_LINES_SAVED(CURRENT_SCROLLED_LINES_SAVED).SELECTED <> "T") Then Let SCROLLED_LINES_SAVED(CURRENT_SCROLLED_LINES_SAVED).INDEX = 0 End If End Response Function Response SELECT If (SCROLLED_LINES_SAVED(CURRENT_SCROLLED_LINES_SAVED).SELECTED = "T") Then Let SCROLLED_LINES_SAVED(CURRENT_SCROLLED_LINES_SAVED).SELECTED = " " Else Let SCROLLED_LINES_SAVED(CURRENT_SCROLLED_LINES_SAVED).SELECTED = "T" End If End Response Function Response RIGHT_ITEM If (SCROLLED_LINES_SAVED(CURRENT_SCROLLED_LINES_SAVED).SELECTED = " ") Then Position To Next Item Else Position To Field HEADER_TEXT On CUSTOMIZE_SESSION_MANAGER End If End Response Function Response LEFT_ITEM If (SCROLLED_LINES_SAVED(CURRENT_SCROLLED_LINES_SAVED).SELECTED = " ") Then Position To Previous Item End If End Response Active Highlight Reverse Display Nounderlined No Data Input Output "^" When (SCROLLED_LINES_SAVED(**).INDEX = 1) End Field End Group Icon SCROLLED_LINE_ZERO Concealed When (SCROLLED_LINES_SAVED(10).INDEX <> 1) Highlight Bold When (SCROLLED_LINES_SAVED(10).SELECTED = "T") Protected Literal Text Line 8 Column 25 Value "0" End Literal End Icon Literal Polyline Line 9 Column 29 Line 10 Column 29 Line 10 Column 54 End Literal Field HEADER_TEXT Line 9 Column 30 Function Response LEFT_ITEM Position To Field SCROLLED_LINES_SAVED(CURRENT_SCROLLED_LINES_SAVED).POINTER On CUSTOMIZE_SESSION_MANAGER End Response Display Bold End Field Literal Text Line 11 Column 5 Value "Scrolled Lines Saved" Display Bold End Literal Literal Text Line 11 Column 30 Value "Header Text" Display Bold End Literal Literal Rectangle Line 13 Column 6 Line 15 Column 11 Display Bold End Literal Literal Rectangle Line 13 Column 26 Line 15 Column 34 End Literal Literal Rectangle Line 13 Column 49 Line 15 Column 58 End Literal Icon OK_ICON Function Response SELECT Deactivate Panel CUSTOMIZE_SESSION_MANAGER Remove CUSTOMIZE_SESSION_MANAGER_VP Position To Icon CUSTOMIZE_ICON On SESSION_MANAGER End Response Function Response UP_ITEM Position To Field SCROLLED_LINES_SAVED(CURRENT_SCROLLED_LINES_SAVED).POINTER On CUSTOMIZE_SESSION_MANAGER End Response Active Highlight Reverse Literal Text Line 14 Column 7 Value " OK " Display Bold End Literal End Icon Icon APPLY_ICON Function Response SELECT Deactivate Panel CUSTOMIZE_SESSION_MANAGER Remove CUSTOMIZE_SESSION_MANAGER_VP Position To Icon CUSTOMIZE_ICON On SESSION_MANAGER End Response Function Response UP_ITEM Position To Field SCROLLED_LINES_SAVED(CURRENT_SCROLLED_LINES_SAVED).POINTER On CUSTOMIZE_SESSION_MANAGER End Response Active Highlight Reverse Literal Text Line 14 Column 27 Value " Apply " Display Bold End Literal End Icon Icon CANCEL_ICON Function Response SELECT Deactivate Panel CUSTOMIZE_SESSION_MANAGER Remove CUSTOMIZE_SESSION_MANAGER_VP Position To Icon CUSTOMIZE_ICON On SESSION_MANAGER End Response Active Highlight Reverse Literal Text Line 14 Column 50 Value " Cancel " Display Bold End Literal End Icon Literal Polyline Line 10 Column 5 Line 10 Column 25 End Literal End Panel Panel CUSTOMIZE_WINDOW Viewport CUSTOMIZE_WINDOW_VP /* /* This panel implements the customize window pop-up window. /*/ Entry Response Position To Field ENABLE_SAVER_FIELD On CUSTOMIZE_WINDOW End Response Exit Response Deactivate Panel CUSTOMIZE_WINDOW Remove CUSTOMIZE_WINDOW_VP End Response Literal Text Line 1 Column 1 Value "l" Display Character Set Private_Rule End Literal Literal Text Line 1 Column 2 Value " Customize Window "- " " Display Reverse Bold End Literal Literal Text Line 1 Column 79 Value "k" Display Character Set Private_Rule End Literal Literal Polyline Line 2 Column 1 Line 21 Column 1 Line 21 Column 79 Line 2 Column 79 End Literal Literal Text Line 3 Column 4 Value "Screen Saver" Display Bold End Literal Group MINUTES Horizontal Entry Response Reset MINUTES(*).INDEX Reset MINUTES(*).SELECTED End Response Field PERCENT Line 3 Column 22 Highlight Bold When (MINUTES(**).SELECTED = "T") Output " " When ((MINUTES(**).INDEX <> 1) AND (MINUTES(**).SELECTED <> "T")) Protected End Field Field POINTER Line 4 Column 22 Entry Response Let MINUTES(CURRENT_MINUTES_POINTER).INDEX = 1 End Response Exit Response If (MINUTES(CURRENT_MINUTES_POINTER).SELECTED <> "T") Then Let MINUTES(CURRENT_MINUTES_POINTER).INDEX = 0 End If End Response Function Response SELECT If (MINUTES(CURRENT_MINUTES_POINTER).SELECTED = "T") Then Let MINUTES(CURRENT_MINUTES_POINTER).SELECTED = " " Else Let MINUTES(CURRENT_MINUTES_POINTER).SELECTED = "T" End If End Response Function Response RIGHT_ITEM If (MINUTES(CURRENT_MINUTES_POINTER).SELECTED = " ") Then Position To Next Item End If End Response Function Response LEFT_ITEM If (MINUTES(CURRENT_MINUTES_POINTER).SELECTED = " ") Then Position To Previous Item Else Position To Field ENABLE_SAVER_FIELD On CUSTOMIZE_WINDOW End If End Response Active Highlight Reverse Display Underlined No Data Input Output "^" When (MINUTES(**).INDEX = 1) End Field End Group Icon MINUTES_TRAILING_ZERO Concealed When (MINUTES(10).INDEX <> 1) Highlight Bold When (MINUTES(10).SELECTED = "T") Protected Literal Text Line 3 Column 44 Value "0" End Literal End Icon Literal Text Line 4 Column 6 Value "(" End Literal Field ENABLE_SAVER_FIELD Line 4 Column 7 Function Response SELECT If (ENABLE_SAVER_FIELD = "T") Then Let ENABLE_SAVER_FIELD = " " Let DISABLE_SAVER_FIELD = "T" Else Let ENABLE_SAVER_FIELD = "T" Let DISABLE_SAVER_FIELD = " " End If End Response Function Response RIGHT_ITEM Position To Field MINUTES(CURRENT_MINUTES_POINTER).POINTER On CUSTOMIZE_WINDOW End Response Display Bold Character Set Private_Rule No Data Input Output "`" When (ENABLE_SAVER_FIELD = "T") End Field Literal Text Line 4 Column 8 Value ")" End Literal Literal Text Line 4 Column 10 Value "Enable" Display Bold End Literal Literal Text Line 5 Column 6 Value "(" End Literal Field DISABLE_SAVER_FIELD Line 5 Column 7 Function Response SELECT If (DISABLE_SAVER_FIELD = "T") Then Let ENABLE_SAVER_FIELD = "T" Let DISABLE_SAVER_FIELD = " " Else Let ENABLE_SAVER_FIELD = " " Let DISABLE_SAVER_FIELD = "T" End If End Response Function Response RIGHT_ITEM Position To Field MINUTES(CURRENT_MINUTES_POINTER).POINTER On CUSTOMIZE_WINDOW End Response Display Bold Character Set Private_Rule No Data Input Output "`" When (DISABLE_SAVER_FIELD = "T") End Field Literal Text Line 5 Column 8 Value ")" End Literal Literal Text Line 5 Column 10 Value "Disable" Display Bold End Literal Literal Text Line 5 Column 22 Value "Minutes" Display Bold End Literal Literal Text Line 7 Column 4 Value "Screen Background Pattern" Display Bold End Literal Literal Text Line 7 Column 35 Value "Window Manager Icon Style" Display Bold End Literal Literal Text Line 8 Column 37 Value "(" End Literal Field SMALL_ICON_FIELD Line 8 Column 38 Function Response SELECT If (SMALL_ICON_FIELD = "T") Then Let SMALL_ICON_FIELD = " " Let LARGE_ICON_FIELD = "T" Else Let SMALL_ICON_FIELD = "T" Let LARGE_ICON_FIELD = " " End If End Response Display Bold Character Set Private_Rule No Data Input Output "`" When (SMALL_ICON_FIELD = "T") End Field Literal Text Line 8 Column 39 Value ")" End Literal Literal Text Line 8 Column 41 Value "Small" Display Bold End Literal Icon PATTERN_ICON Highlight Reverse When (BLACK_BACKGROUND = "T") Protected Literal Rectangle Line 9 Column 12 Line 11 Column 16 End Literal Literal Text Line 10 Column 13 Value " " End Literal End Icon Literal Text Line 9 Column 37 Value "(" End Literal Field LARGE_ICON_FIELD Line 9 Column 38 Function Response SELECT If (LARGE_ICON_FIELD = "T") Then Let SMALL_ICON_FIELD = "T" Let LARGE_ICON_FIELD = " " Else Let SMALL_ICON_FIELD = " " Let LARGE_ICON_FIELD = "T" End If End Response Display Bold Character Set Private_Rule No Data Input Output "`" When (LARGE_ICON_FIELD = "T") End Field Literal Text Line 9 Column 39 Value ")" End Literal Literal Text Line 9 Column 41 Value "Large" Display Bold End Literal Literal Rectangle Line 10 Column 56 Line 13 Column 77 End Literal Literal Text Line 11 Column 32 Value "Screen Foreground Color" Display Bold End Literal Literal Text Line 11 Column 58 Value "(" End Literal Field SCREEN_BLACK_WHITE_FIELD Line 11 Column 59 Function Response SELECT If (SCREEN_BLACK_WHITE_FIELD = "T") Then Let SCREEN_WHITE_BLACK_FIELD = "T" Let SCREEN_BLACK_WHITE_FIELD = " " Else Let SCREEN_WHITE_BLACK_FIELD = " " Let SCREEN_BLACK_WHITE_FIELD = "T" End If End Response Display Bold Character Set Private_Rule No Data Input Output "`" When (SCREEN_BLACK_WHITE_FIELD = "T") End Field Literal Text Line 11 Column 60 Value ")" End Literal Literal Text Line 11 Column 62 Value "Black On White" Display Bold End Literal Literal Text Line 12 Column 58 Value "(" End Literal Field SCREEN_WHITE_BLACK_FIELD Line 12 Column 59 Function Response SELECT If (SCREEN_WHITE_BLACK_FIELD = "T") Then Let SCREEN_BLACK_WHITE_FIELD = "T" Let SCREEN_WHITE_BLACK_FIELD = " " Else Let SCREEN_BLACK_WHITE_FIELD = " " Let SCREEN_WHITE_BLACK_FIELD = "T" End If End Response Display Bold Character Set Private_Rule No Data Input Output "`" When (SCREEN_WHITE_BLACK_FIELD = "T") End Field Literal Text Line 12 Column 60 Value ")" End Literal Literal Text Line 12 Column 62 Value "White On Black" Display Bold End Literal Icon BLACK_ICON Function Response SELECT Let BLACK_BACKGROUND = "T" End Response Literal Text Line 14 Column 5 Value " " Display Reverse End Literal Literal Text Line 13 Column 5 Value " " Display Reverse End Literal Literal Text Line 15 Column 5 Value " " Display Reverse End Literal End Icon Icon WHITE_ICON Function Response SELECT Let BLACK_BACKGROUND = " " End Response Literal Rectangle Line 13 Column 12 Line 15 Column 16 End Literal End Icon Literal Rectangle Line 13 Column 19 Line 15 Column 29 End Literal Icon DEFAULT_ICON Function Response SELECT Let BLACK_BACKGROUND = " " End Response Literal Text Line 14 Column 20 Value " Default " Display Bold End Literal End Icon Literal Rectangle Line 14 Column 56 Line 17 Column 77 End Literal Literal Text Line 15 Column 32 Value "Window Foreground Color" Display Bold End Literal Literal Text Line 15 Column 58 Value "(" End Literal Field WINDOW_BLACK_WHITE_FIELD Line 15 Column 59 Function Response SELECT If (WINDOW_BLACK_WHITE_FIELD = "T") Then Let WINDOW_WHITE_BLACK_FIELD = "T" Let WINDOW_BLACK_WHITE_FIELD = " " Else Let WINDOW_WHITE_BLACK_FIELD = " " Let WINDOW_BLACK_WHITE_FIELD = "T" End If End Response Display Bold Character Set Private_Rule No Data Input Output "`" When (WINDOW_BLACK_WHITE_FIELD = "T") End Field Literal Text Line 15 Column 60 Value ")" End Literal Literal Text Line 15 Column 62 Value "Black On White" Display Bold End Literal Literal Text Line 16 Column 58 Value "(" End Literal Field WINDOW_WHITE_BLACK_FIELD Line 16 Column 59 Function Response SELECT If (WINDOW_WHITE_BLACK_FIELD = "T") Then Let WINDOW_BLACK_WHITE_FIELD = "T" Let WINDOW_WHITE_BLACK_FIELD = " " Else Let WINDOW_BLACK_WHITE_FIELD = " " Let WINDOW_WHITE_BLACK_FIELD = "T" End If End Response Display Bold Character Set Private_Rule No Data Input Output "`" When (WINDOW_WHITE_BLACK_FIELD = "T") End Field Literal Text Line 16 Column 60 Value ")" End Literal Literal Text Line 16 Column 62 Value "White On Black" Display Bold End Literal Literal Rectangle Line 18 Column 3 Line 20 Column 13 Display Bold End Literal Literal Rectangle Line 18 Column 23 Line 20 Column 33 End Literal Literal Rectangle Line 18 Column 43 Line 20 Column 52 End Literal Icon OK_ICON Function Response SELECT Position To Icon CUSTOMIZE_ICON On SESSION_MANAGER End Response Literal Text Line 19 Column 4 Value " OK " Display Bold End Literal End Icon Icon APPLY_ICON Function Response SELECT Position To Icon CUSTOMIZE_ICON On SESSION_MANAGER End Response Literal Text Line 19 Column 24 Value " Apply " Display Bold End Literal End Icon Icon DISMISS_ICON Function Response SELECT Position To Icon CUSTOMIZE_ICON On SESSION_MANAGER End Response Literal Text Line 19 Column 44 Value " Cancel " Display Bold End Literal End Icon End Panel Panel PRINT_SCREEN_PANEL Viewport PRINT_SCREEN_VP /* /* This panel implements the print screen pull-down window. /*/ Entry Response Let PRINT_SCREEN_ICON_ACTIVE = 1 End Response Exit Response Let PRINT_SCREEN_ICON_ACTIVE = 0 Deactivate Panel PRINT_SCREEN_PANEL Remove PRINT_SCREEN_VP Position To Icon PRINT_SCREEN_ICON On SESSION_MANAGER End Response Icon PRINT_ENTIRE_ICON Function Response SELECT Position To Icon PRINT_SCREEN_ICON On SESSION_MANAGER End Response Function Response UP_ITEM Position To Icon PRINT_SCREEN_ICON On SESSION_MANAGER End Response Active Highlight Reverse Literal Text Line 2 Column 2 Value " Print Entire Screen " Display Bold End Literal End Icon Icon PRINT_PORTION_ICON Function Response SELECT Position To Icon PRINT_SCREEN_ICON On SESSION_MANAGER End Response Active Highlight Reverse Literal Text Line 3 Column 2 Value " Print Portion of Screen " Display Bold End Literal End Icon Icon CAPTURE_ENTIRE_ICON Function Response SELECT Position To Icon PRINT_SCREEN_ICON On SESSION_MANAGER End Response Active Highlight Reverse Literal Text Line 4 Column 2 Value " Capture Entire Screen " Display Bold End Literal End Icon Icon CAPTURE_PORTION_ICON Function Response SELECT Position To Icon PRINT_SCREEN_ICON On SESSION_MANAGER End Response Active Highlight Reverse Literal Text Line 5 Column 2 Value " Capture Portion of Screen" Display Bold End Literal End Icon Literal Rectangle Line 1 Column 1 Line 6 Column 30 End Literal End Panel Panel SESSION_MANAGER_HELP_PANEL Viewport SESSION_MANAGER_HELP_VP /* /* This panel implements the session manager help pull-down window. /*/ Entry Response Let HELP_ICON_ACTIVE = 1 End Response Exit Response Let HELP_ICON_ACTIVE = 0 Deactivate Panel SESSION_MANAGER_HELP_PANEL Remove SESSION_MANAGER_HELP_VP End Response Icon OVERVIEW_ICON Function Response SELECT Position To Icon HELP_ICON On SESSION_MANAGER Enter Help End Response Function Response UP_ITEM Position To Icon HELP_ICON On SESSION_MANAGER End Response Active Highlight Reverse Literal Text Line 2 Column 2 Value " Overview " Display Bold End Literal End Icon Icon ABOUT_ICON Function Response SELECT Position To Icon HELP_ICON On SESSION_MANAGER Enter Help End Response Active Highlight Reverse Literal Text Line 3 Column 2 Value " About " Display Bold End Literal End Icon Literal Rectangle Line 1 Column 1 Line 4 Column 12 End Literal End Panel Panel PAUSE_SESSION Viewport PAUSE_VP /* /* This panel implements the pause session. /*/ Entry Response Let SESSION_PASSWORD = " " End Response Exit Response Deactivate Panel PAUSE_SESSION Remove PAUSE_VP End Response Literal Text Line 4 Column 13 Value "Type your password to resume the session." Display Bold End Literal Literal Text Line 7 Column 13 Value "Password " Display Bold End Literal Literal Polyline Line 7 Column 26 Line 8 Column 26 Line 8 Column 59 End Literal Field SESSION_PASSWORD Line 7 Column 27 Exit Response If (SESSION_PASSWORD <> " ") Then Deactivate Panel PAUSE_SESSION Remove PAUSE_VP Activate Panel SESSION_MANAGER Position To Icon SESSION_ICON On SESSION_MANAGER End If End Response Concealed End Field Icon OK_ICON Function Response SELECT If (SESSION_PASSWORD <> " ") Then Deactivate Panel PAUSE_SESSION Remove PAUSE_VP Activate Panel SESSION_MANAGER Position To Icon SESSION_ICON On SESSION_MANAGER Else Position To Field SESSION_PASSWORD On PAUSE_SESSION Signal %Bell End If End Response Active Highlight Reverse Literal Text Line 13 Column 28 Value " OK " End Literal End Icon Literal Rectangle Line 12 Column 27 Line 14 Column 32 Display Bold End Literal Icon CLEAR_ICON Function Response SELECT Let SESSION_PASSWORD = " " Position To Field SESSION_PASSWORD On PAUSE_SESSION End Response Function Response UP_ITEM Position Immediate To Field SESSION_PASSWORD On PAUSE_SESSION End Response Active Highlight Reverse Literal Text Line 13 Column 46 Value " Clear " End Literal End Icon Literal Rectangle Line 12 Column 45 Line 14 Column 53 Display Bold End Literal End Panel Panel QUIT_SESSION Viewport QUIT_VP /* /* This panel implements the quit verify option. /*/ Exit Response Deactivate Panel QUIT_SESSION Remove QUIT_VP End Response Literal Text Line 2 Column 3 Value " ! " Display Bold Reverse End Literal Literal Text Line 4 Column 6 Value "Do you really want to quit this session?" Display Bold End Literal Icon YES_ICON Function Response SELECT Remove All Return End Response Active Highlight Reverse Literal Text Line 7 Column 18 Value " Yes " End Literal End Icon Literal Rectangle Line 6 Column 17 Line 8 Column 23 Display Bold End Literal Icon NO_ICON Function Response SELECT Deactivate Panel QUIT_SESSION Remove QUIT_VP Activate Panel SESSION_MANAGER Position To Icon SESSION_ICON On SESSION_MANAGER End Response Active Highlight Reverse Literal Text Line 7 Column 28 Value " No " End Literal End Icon Literal Rectangle Line 6 Column 27 Line 8 Column 32 Display Bold End Literal Literal Rectangle Line 1 Column 1 Line 9 Column 50 Display Bold End Literal End Panel Panel DF_TERM_1_PANEL Viewport DF_TERM_1_VP Display Viewport Background Color Black Foreground Color White Bold Foreground Color Red Reverse Foreground Color White /* /* This panel implements the first Df term window. /*/ Entry Response Let CURRENT_DF_TERM = 1 End Response Function Response GO_TO_ICON_BOX Let CURRENT_DF_TERM = 0 Deactivate Panel DF_TERM_1_PANEL Activate Panel ICON_BOX Position To Panel ICON_BOX End Response Literal Text Line 1 Column 1 Value "l" Display Character Set Private_Rule Bold End Literal Icon ICONIZE_ICON Function Response SELECT Let DF_TERM_1_ICONIZED = 1 Activate Panel ICON_BOX Position To Icon DF_TERM_1 On ICON_BOX Deactivate Panel DF_TERM_1_PANEL Remove DF_TERM_1_VP End Response Literal Text Line 1 Column 2 Value " g " Display Reverse End Literal End Icon Literal Text Line 1 Column 5 Value "x" Display Character Set Private_Rule Reverse End Literal Icon HEADER_ICON Highlight Bold When (CURRENT_DF_TERM = 1) Protected Literal Text Line 1 Column 6 Value " Df term 1 "- " " Display Character Set Private_ASCII Reverse End Literal End Icon Literal Text Line 1 Column 77 Value "k" Display Character Set Private_Rule Bold End Literal Literal Polyline Line 2 Column 1 Line 16 Column 1 Line 16 Column 77 Line 2 Column 77 Display Bold End Literal Icon COMMANDS_ICON Function Response SELECT Display COMMANDS_PANEL on COMMANDS_1_VP Activate Panel COMMANDS_PANEL Position To Next Panel End Response Active Highlight Reverse Highlight Reverse When ((COMMAND_PANEL_ACTIVE = 1) AND (CURRENT_DF_TERM = 1)) Literal Text Line 2 Column 2 Value " Commands " Display Bold End Literal End Icon Icon EDIT_ICON Function Response SELECT Display EDIT_PANEL on EDIT_1_VP Activate Panel EDIT_PANEL Position To Next Panel End Response Active Highlight Reverse Highlight Reverse When ((EDIT_PANEL_ACTIVE = 1) AND (CURRENT_DF_TERM = 1)) Literal Text Line 2 Column 14 Value " Edit " Display Bold End Literal End Icon Icon CUSTOMIZE_ICON Function Response SELECT Display CUSTOMIZE_PANEL on CUSTOMIZE_1_VP Activate Panel CUSTOMIZE_PANEL Position To Next Panel End Response Active Highlight Reverse Highlight Reverse When ((CUSTOMIZE_PANEL_ACTIVE = 1) AND (CURRENT_DF_TERM = 1)) Literal Text Line 2 Column 22 Value " Customize " Display Bold End Literal End Icon Icon DT_HELP_ICON Function Response SELECT Display DT_HELP_PANEL on DT_HELP_1_VP Activate Panel DT_HELP_PANEL Position To Next Panel End Response Active Highlight Reverse Highlight Reverse When ((DT_HELP_PANEL_ACTIVE = 1) AND (CURRENT_DF_TERM = 1)) Literal Text Line 2 Column 70 Value " Help " Display Bold End Literal End Icon Literal Polyline Line 3 Column 77 Line 3 Column 1 Display Bold End Literal End Panel Panel DF_TERM_2_PANEL Viewport DF_TERM_2_VP Display Viewport Background Color Black Foreground Color White Bold Foreground Color Red Reverse Foreground Color White /* /* This panel implements the second Df term window. /*/ Entry Response Let CURRENT_DF_TERM = 2 End Response Function Response GO_TO_ICON_BOX Let CURRENT_DF_TERM = 0 Deactivate Panel DF_TERM_2_PANEL Activate Panel ICON_BOX Position To Panel ICON_BOX End Response Literal Text Line 1 Column 1 Value "l" Display Character Set Private_Rule Bold End Literal Icon ICONIZE_ICON Function Response SELECT Let DF_TERM_2_ICONIZED = 1 Activate Panel ICON_BOX Position To Icon DF_TERM_2 On ICON_BOX Deactivate Panel DF_TERM_2_PANEL Remove DF_TERM_2_VP End Response Literal Text Line 1 Column 2 Value " g " Display Reverse End Literal End Icon Literal Text Line 1 Column 5 Value "x" Display Character Set Private_Rule Reverse End Literal Icon HEADER_ICON Highlight Bold When (CURRENT_DF_TERM = 2) Protected Literal Text Line 1 Column 6 Value " Df term 2 "- " " Display Character Set Private_ASCII Reverse End Literal End Icon Literal Text Line 1 Column 77 Value "k" Display Character Set Private_Rule Bold End Literal Literal Polyline Line 2 Column 1 Line 16 Column 1 Line 16 Column 77 Line 2 Column 77 Display Bold End Literal Icon COMMANDS_ICON Function Response SELECT Display COMMANDS_PANEL on COMMANDS_2_VP Activate Panel COMMANDS_PANEL Position To Next Panel End Response Active Highlight Reverse Highlight Reverse When ((COMMAND_PANEL_ACTIVE = 1) AND (CURRENT_DF_TERM = 2)) Literal Text Line 2 Column 2 Value " Commands " Display Bold End Literal End Icon Icon EDIT_ICON Function Response SELECT Display EDIT_PANEL on EDIT_2_VP Activate Panel EDIT_PANEL Position To Next Panel End Response Active Highlight Reverse Highlight Reverse When ((EDIT_PANEL_ACTIVE = 1) AND (CURRENT_DF_TERM = 2)) Literal Text Line 2 Column 14 Value " Edit " Display Bold End Literal End Icon Icon CUSTOMIZE_ICON Function Response SELECT Display CUSTOMIZE_PANEL on CUSTOMIZE_2_VP Activate Panel CUSTOMIZE_PANEL Position To Next Panel End Response Active Highlight Reverse Highlight Reverse When ((CUSTOMIZE_PANEL_ACTIVE = 1) AND (CURRENT_DF_TERM = 2)) Literal Text Line 2 Column 22 Value " Customize " Display Bold End Literal End Icon Icon DT_HELP_ICON Function Response SELECT Display DT_HELP_PANEL on DT_HELP_2_VP Activate Panel DT_HELP_PANEL Position To Next Panel End Response Active Highlight Reverse Highlight Reverse When ((DT_HELP_PANEL_ACTIVE = 1) AND (CURRENT_DF_TERM = 2)) Literal Text Line 2 Column 70 Value " Help " Display Bold End Literal End Icon Literal Polyline Line 3 Column 77 Line 3 Column 1 Display Bold End Literal End Panel Panel DF_TERM_3_PANEL Viewport DF_TERM_3_VP Display Viewport Background Color Black Foreground Color White Bold Foreground Color Red Reverse Foreground Color White /* /* This panel implements the third Df term window. /*/ Entry Response Let CURRENT_DF_TERM = 3 End Response Function Response GO_TO_ICON_BOX Let CURRENT_DF_TERM = 0 Deactivate Panel DF_TERM_3_PANEL Activate Panel ICON_BOX Position To Panel ICON_BOX End Response Literal Text Line 1 Column 1 Value "l" Display Character Set Private_Rule Bold End Literal Icon ICONIZE_ICON Function Response SELECT Let DF_TERM_3_ICONIZED = 1 Activate Panel ICON_BOX Position To Icon DF_TERM_3 On ICON_BOX Deactivate Panel DF_TERM_3_PANEL Remove DF_TERM_3_VP End Response Literal Text Line 1 Column 2 Value " g " Display Reverse End Literal End Icon Literal Text Line 1 Column 5 Value "x" Display Character Set Private_Rule Reverse End Literal Icon HEADER_ICON Highlight Bold When (CURRENT_DF_TERM = 3) Protected Literal Text Line 1 Column 6 Value " Df term 3 "- " " Display Character Set Private_ASCII Reverse End Literal End Icon Literal Text Line 1 Column 77 Value "k" Display Character Set Private_Rule Bold End Literal Literal Polyline Line 2 Column 1 Line 16 Column 1 Line 16 Column 77 Line 2 Column 77 Display Bold End Literal Icon COMMANDS_ICON Function Response SELECT Display COMMANDS_PANEL on COMMANDS_3_VP Activate Panel COMMANDS_PANEL Position To Next Panel End Response Active Highlight Reverse Highlight Reverse When ((COMMAND_PANEL_ACTIVE = 1) AND (CURRENT_DF_TERM = 3)) Literal Text Line 2 Column 2 Value " Commands " Display Bold End Literal End Icon Icon EDIT_ICON Function Response SELECT Display EDIT_PANEL on EDIT_3_VP Activate Panel EDIT_PANEL Position To Next Panel End Response Active Highlight Reverse Highlight Reverse When ((EDIT_PANEL_ACTIVE = 1) AND (CURRENT_DF_TERM = 3)) Literal Text Line 2 Column 14 Value " Edit " Display Bold End Literal End Icon Icon CUSTOMIZE_ICON Function Response SELECT Display CUSTOMIZE_PANEL on CUSTOMIZE_3_VP Activate Panel CUSTOMIZE_PANEL Position To Next Panel End Response Active Highlight Reverse Highlight Reverse When ((CUSTOMIZE_PANEL_ACTIVE = 1) AND (CURRENT_DF_TERM = 3)) Literal Text Line 2 Column 22 Value " Customize " Display Bold End Literal End Icon Icon DT_HELP_ICON Function Response SELECT Display DT_HELP_PANEL on DT_HELP_3_VP Activate Panel DT_HELP_PANEL Position To Next Panel End Response Active Highlight Reverse Highlight Reverse When ((DT_HELP_PANEL_ACTIVE = 1) AND (CURRENT_DF_TERM = 3)) Literal Text Line 2 Column 70 Value " Help " Display Bold End Literal End Icon Literal Polyline Line 3 Column 77 Line 3 Column 1 Display Bold End Literal End Panel Panel COMMANDS_PANEL Viewport COMMANDS_1_VP Display Viewport Background Color Black Foreground Color White Bold Foreground Color Red Reverse Foreground Color White /* /* This panel implements the Df term commands pull-down window. /*/ Entry Response Let COMMAND_PANEL_ACTIVE = 1 End Response Exit Response Let COMMAND_PANEL_ACTIVE = 0 Remove COMMANDS_1_VP COMMANDS_2_VP COMMANDS_3_VP Deactivate Panel COMMANDS_PANEL Position To Previous Item End Response Function Response SELECT Position To Previous Panel End Response Literal Rectangle Line 1 Column 1 Line 9 Column 23 Display Bold End Literal Icon CLEAR_LINES_ICON Function Response CURSOR_UP Position To Previous Item End Response Active Highlight Reverse Literal Text Line 2 Column 2 Value " Clear lines off top " Display Bold End Literal End Icon Icon CLEAR_DISP_ICON Active Highlight Reverse Literal Text Line 3 Column 2 Value " Clear Display " Display Character Set Private_ASCII Bold End Literal End Icon Icon RESIZE_WINDOW_ICON Active Highlight Reverse Literal Text Line 4 Column 2 Value " Resize Window " Display Character Set Private_ASCII Bold End Literal End Icon Icon CLEAR_COM_ICON Active Highlight Reverse Literal Text Line 5 Column 2 Value " Clear Communications" Display Character Set Private_ASCII Bold End Literal End Icon Icon RESET_TERM_ICON Active Highlight Reverse Literal Text Line 6 Column 2 Value " Reset Terminal " Display Character Set Private_ASCII Bold End Literal End Icon Literal Text Line 7 Column 3 Value "...................." End Literal Icon QUIT_ICON Function Response SELECT If (CURRENT_DF_TERM = 1) Then Let DF_TERM_1_ACTIVE = 0 Remove DF_TERM_1_VP Deactivate Panel DF_TERM_1_PANEL End If If (CURRENT_DF_TERM = 2) Then Let DF_TERM_2_ACTIVE = 0 Remove DF_TERM_2_VP Deactivate Panel DF_TERM_2_PANEL End If If (CURRENT_DF_TERM = 3) Then Let DF_TERM_3_ACTIVE = 0 Remove DF_TERM_3_VP Deactivate Panel DF_TERM_3_PANEL End If Activate Panel ICON_BOX Position To Panel ICON_BOX End Response Active Highlight Reverse Literal Text Line 8 Column 2 Value " Quit " Display Character Set Private_ASCII Bold End Literal End Icon Literal Text Line 1 Column 1 Value "t" Display Bold Character Set Private_Rule End Literal Literal Text Line 9 Column 1 Value "t" Display Bold Character Set Private_Rule End Literal End Panel Panel EDIT_PANEL Viewport EDIT_1_VP Display Viewport Background Color Black Foreground Color White Bold Foreground Color Red Reverse Foreground Color White /* /* This panel implements the Df term edit pull-down window. /*/ Entry Response Let EDIT_PANEL_ACTIVE = 1 End Response Exit Response Let EDIT_PANEL_ACTIVE = 0 Remove EDIT_1_VP EDIT_2_VP EDIT_3_VP Deactivate Panel EDIT_PANEL End Response Function Response SELECT If (CURRENT_DF_TERM = 1) Then Position To Icon EDIT_ICON On DF_TERM_1_PANEL End If If (CURRENT_DF_TERM = 2) Then Position To Icon EDIT_ICON On DF_TERM_2_PANEL End If If (CURRENT_DF_TERM = 3) Then Position To Icon EDIT_ICON On DF_TERM_3_PANEL End If End Response Literal Rectangle Line 1 Column 1 Line 6 Column 14 Display Bold End Literal Icon COPY_ICON Function Response CURSOR_UP Position To Previous Item End Response Active Highlight Reverse Literal Text Line 2 Column 2 Value " Copy " Display Character Set Private_ASCII Bold End Literal End Icon Icon PASTE_ICON Active Highlight Reverse Literal Text Line 3 Column 2 Value " Paste " Display Character Set Private_ASCII Bold End Literal End Icon Literal Text Line 4 Column 3 Value ".........." End Literal Icon SELECT_ALL_ICON Active Highlight Reverse Literal Text Line 5 Column 2 Value " Select All " Display Character Set Private_ASCII Bold End Literal End Icon End Panel Panel CUSTOMIZE_PANEL Viewport CUSTOMIZE_1_VP Display Viewport Background Color Black Foreground Color White Bold Foreground Color Red Reverse Foreground Color White /* /* This panel implements the Df term customize pull-down window. /*/ Entry Response Let CUSTOMIZE_PANEL_ACTIVE = 1 End Response Exit Response Let CUSTOMIZE_PANEL_ACTIVE = 0 Remove CUSTOMIZE_1_VP CUSTOMIZE_2_VP CUSTOMIZE_3_VP Deactivate Panel CUSTOMIZE_PANEL End Response Function Response SELECT If (CURRENT_DF_TERM = 1) Then Position To Icon CUSTOMIZE_ICON On DF_TERM_1_PANEL End If If (CURRENT_DF_TERM = 2) Then Position To Icon CUSTOMIZE_ICON On DF_TERM_2_PANEL End If If (CURRENT_DF_TERM = 3) Then Position To Icon CUSTOMIZE_ICON On DF_TERM_3_PANEL End If End Response Literal Rectangle Line 1 Column 1 Line 14 Column 31 Display Bold End Literal Icon WINDOW_ICON Function Response PREVIOUS ITEM Message "No items in that direction." End Response Function Response CURSOR_UP Position To Previous Item End Response Function Response SELECT Activate Panel WINDOW_PANEL Position To Next Panel End Response Active Highlight Reverse Literal Text Line 2 Column 2 Value " Window... " Display Character Set Private_ASCII Bold End Literal End Icon Icon DISPLAY_ICON Function Response SELECT Activate Panel DISPLAY_PANEL Position To Next Panel End Response Active Highlight Reverse Literal Text Line 3 Column 2 Value " Display... " Display Character Set Private_ASCII Bold End Literal End Icon Icon GENERAL_ICON Function Response SELECT Activate Panel GENERAL_PANEL Position To Next Panel End Response Active Highlight Reverse Literal Text Line 4 Column 2 Value " General... " Display Character Set Private_ASCII Bold End Literal End Icon Icon KEYBOARD_ICON Function Response SELECT Activate Panel KEYBOARD_PANEL Position To Next Panel End Response Active Highlight Reverse Literal Text Line 5 Column 2 Value " Keyboard... " Display Character Set Private_ASCII Bold End Literal End Icon Icon NRCS_ICON Function Response SELECT Activate Panel NRCS_PANEL Position To Next Panel End Response Active Highlight Reverse Literal Text Line 6 Column 2 Value " 7-bit NRCS Selection... " Display Character Set Private_ASCII Bold End Literal End Icon Literal Text Line 7 Column 3 Value "............................" End Literal Icon USE_LAST_ICON Active Highlight Reverse Literal Text Line 8 Column 2 Value " Use Last Saved Settings " Display Character Set Private_ASCII Bold End Literal End Icon Icon USE_SYSTEM_ICON Active Highlight Reverse Literal Text Line 9 Column 2 Value " Use Defaults " Display Bold End Literal End Icon Icon USE_SAVED_ICON Function Response SELECT Activate Panel SAVED_SETTINGS_PANEL Position To Next Panel Let SETTINGS_MENU_TITLE = " Use saved settings from" Let SETTINGS_SELECT_TITLE = "Select configuration File: "- "SYS$LOGIN:" End Response Active Highlight Reverse Literal Text Line 10 Column 2 Value " Use Saved Settings from... " Display Bold End Literal End Icon Literal Text Line 11 Column 3 Value "............................" End Literal Icon SAVE_CURRENT_ICON Active Highlight Reverse Literal Text Line 12 Column 2 Value " Save Current Settings " Display Bold End Literal End Icon Icon SAVE_CURRENT_AS_ICON Function Response SELECT Activate Panel SAVED_SETTINGS_PANEL Position To Next Panel Let SETTINGS_MENU_TITLE = " Save current settings as" Let SETTINGS_SELECT_TITLE = "Select name for "- "configuration File: SYS$LOGIN:" End Response Active Highlight Reverse Literal Text Line 13 Column 2 Value " Save Current Settings As... " Display Bold End Literal End Icon End Panel Panel DT_HELP_PANEL Viewport DT_HELP_1_VP Display Viewport Background Color Black Foreground Color White Bold Foreground Color Red Reverse Foreground Color White /* /* This panel implements the Df term help pull-down window. /*/ Entry Response Let DT_HELP_PANEL_ACTIVE = 1 End Response Exit Response Let DT_HELP_PANEL_ACTIVE = 0 Remove DT_HELP_1_VP DT_HELP_2_VP DT_HELP_3_VP Deactivate Panel DT_HELP_PANEL End Response Function Response SELECT If (CURRENT_DF_TERM = 1) Then Position To Icon DT_HELP_ICON On DF_TERM_1_PANEL End If If (CURRENT_DF_TERM = 2) Then Position To Icon DT_HELP_ICON On DF_TERM_2_PANEL End If If (CURRENT_DF_TERM = 3) Then Position To Icon DT_HELP_ICON On DF_TERM_3_PANEL End If End Response Literal Rectangle Line 1 Column 1 Line 4 Column 12 Display Bold End Literal Literal Text Line 1 Column 12 Value "u" Display Character Set Private_Rule Bold End Literal Icon OVERVIEW_ICON Function Response CURSOR_UP Position To Previous Item End Response Function Response SELECT If (CURRENT_DF_TERM = 1) Then Position To Icon DT_HELP_ICON On DF_TERM_1_PANEL End If If (CURRENT_DF_TERM = 2) Then Position To Icon DT_HELP_ICON On DF_TERM_2_PANEL End If If (CURRENT_DF_TERM = 3) Then Position To Icon DT_HELP_ICON On DF_TERM_3_PANEL End If Enter Help End Response Active Highlight Reverse Literal Text Line 2 Column 2 Value " Overview " Display Bold End Literal End Icon Icon ABOUT_ICON Function Response SELECT If (CURRENT_DF_TERM = 1) Then Position To Icon DT_HELP_ICON On DF_TERM_1_PANEL End If If (CURRENT_DF_TERM = 2) Then Position To Icon DT_HELP_ICON On DF_TERM_2_PANEL End If If (CURRENT_DF_TERM = 3) Then Position To Icon DT_HELP_ICON On DF_TERM_3_PANEL End If Enter Help End Response Active Highlight Reverse Literal Text Line 3 Column 2 Value " About " Display Bold End Literal End Icon Literal Text Line 4 Column 12 Value "u" Display Character Set Private_Rule Bold End Literal End Panel Panel WINDOW_PANEL Viewport WINDOW_VP Display Viewport Background Color Black Foreground Color White Bold Foreground Color Red Reverse Foreground Color White /* /* This panel implements the Df term window pop-up menu. /*/ Exit Response Remove WINDOW_VP Deactivate Panel WINDOW_PANEL Position To Previous Item End Response Function Response SELECT Position To Previous Panel End Response Literal Polyline Line 1 Column 1 Line 19 Column 1 Line 19 Column 76 Line 1 Column 76 End Literal Literal Text Line 1 Column 2 Value " Window "- " " Display Bold Reverse End Literal Literal Text Line 1 Column 76 Value "k" Display Character Set Private_Rule End Literal Literal Text Line 3 Column 3 Value "[" End Literal Field OFF_TOP Line 3 Column 4 Function Response SELECT If (OFF_TOP = "T") Then Let OFF_TOP = " " Else Let OFF_TOP = "T" End If End Response Display Bold Character Set Private_Rule No Data Input Output "`" When (OFF_TOP = "T") End Field Literal Text Line 3 Column 5 Value "]" End Literal Literal Text Line 3 Column 7 Value "Record lines off top" Display Bold End Literal Literal Text Line 3 Column 41 Value "Terminal size" Display Bold End Literal Literal Text Line 4 Column 3 Value "[" End Literal Field VERTICAL_SB Line 4 Column 4 Function Response SELECT If (VERTICAL_SB = "T") Then Let VERTICAL_SB = " " Else Let VERTICAL_SB = "T" End If End Response Display Bold Character Set Private_Rule No Data Input Output "`" When (VERTICAL_SB = "T") End Field Literal Text Line 4 Column 5 Value "]" End Literal Literal Text Line 4 Column 7 Value "Vertical scroll bar" Display Bold End Literal Literal Text Line 5 Column 3 Value "[" End Literal Field HORIZONTAL_SB Line 5 Column 4 Function Response SELECT If (HORIZONTAL_SB = "T") Then Let HORIZONTAL_SB = " " Else Let HORIZONTAL_SB = "T" End If End Response Display Bold Character Set Private_Rule No Data Input Output "`" When (HORIZONTAL_SB = "T") End Field Literal Text Line 5 Column 5 Value "]" End Literal Literal Text Line 5 Column 7 Value "Horizontal scroll bar" Display Bold End Literal Field NUM_ROWS Line 5 Column 42 Display Nounderlined Bold Output Picture 999R Justification Right End Field Literal Text Line 5 Column 46 Value "Rows" Display Bold End Literal Field NUM_COLUMNS Line 5 Column 54 Display Nounderlined Bold Output Picture 999R Justification Right End Field Literal Text Line 5 Column 58 Value "Columns" Display Bold End Literal Literal Text Line 6 Column 3 Value "[" End Literal Field VERTICAL_CC Line 6 Column 4 Function Response SELECT If (VERTICAL_CC = "T") Then Let VERTICAL_CC = " " Else Let VERTICAL_CC = "T" End If End Response Display Bold Character Set Private_Rule No Data Input Output "`" When (VERTICAL_CC = "T") End Field Literal Text Line 6 Column 5 Value "]" End Literal Literal Text Line 6 Column 7 Value "Vertical cursor coupling" Display Bold End Literal Literal Text Line 7 Column 3 Value "[" End Literal Field HORIZONTAL_CC Line 7 Column 4 Function Response SELECT If (HORIZONTAL_CC = "T") Then Let HORIZONTAL_CC = " " Else Let HORIZONTAL_CC = "T" End If End Response Display Bold Character Set Private_Rule No Data Input Output "`" When (HORIZONTAL_CC = "T") End Field Literal Text Line 7 Column 5 Value "]" End Literal Literal Text Line 7 Column 7 Value "Horizontal cursor coupling" Display Bold End Literal Literal Rectangle Line 7 Column 41 Line 9 Column 46 End Literal Literal Rectangle Line 7 Column 53 Line 9 Column 58 End Literal Literal Text Line 8 Column 3 Value "[" End Literal Field AUTO_RESIZE_TERM Line 8 Column 4 Function Response SELECT If (AUTO_RESIZE_TERM = "T") Then Let AUTO_RESIZE_TERM = " " Else Let AUTO_RESIZE_TERM = "T" End If End Response Display Bold Character Set Private_Rule No Data Input Output "`" When (AUTO_RESIZE_TERM = "T") End Field Literal Text Line 8 Column 5 Value "]" End Literal Literal Text Line 8 Column 7 Value "Auto resize terminal" Display Bold End Literal Icon TWENTY_FOUR_ICON Function Response SELECT Let NUM_ROWS = 24 End Response Literal Text Line 8 Column 42 Value " 24 " Display Bold End Literal End Icon Icon EIGHTY_ICON Function Response SELECT Let NUM_COLUMNS = 80 End Response Literal Text Line 8 Column 54 Value " 80 " Display Bold End Literal End Icon Literal Text Line 9 Column 3 Value "[" End Literal Field AUTO_RESIZE_WINDOW Line 9 Column 4 Function Response SELECT If (AUTO_RESIZE_WINDOW = "T") Then Let AUTO_RESIZE_WINDOW = " " Else Let AUTO_RESIZE_WINDOW = "T" End If End Response Display Bold Character Set Private_Rule No Data Input Output "`" When (AUTO_RESIZE_WINDOW = "T") End Field Literal Text Line 9 Column 5 Value "]" End Literal Literal Text Line 9 Column 7 Value "Auto resize window" Display Bold End Literal Literal Rectangle Line 10 Column 41 Line 12 Column 46 End Literal Literal Rectangle Line 10 Column 53 Line 12 Column 59 End Literal Literal Text Line 11 Column 3 Value "(" End Literal Field BIG_FONT Line 11 Column 4 Function Response SELECT If (BIG_FONT = "T") Then Let BIG_FONT = " " Else Let BIG_FONT = "T" End If End Response Display Bold Character Set Private_Rule No Data Input Output "`" When (BIG_FONT = "T") End Field Literal Text Line 11 Column 5 Value ")" End Literal Literal Text Line 11 Column 7 Value "Big font" Display Bold End Literal Icon FOURTY_EIGHT_ICON Function Response SELECT Let NUM_ROWS = 48 End Response Literal Text Line 11 Column 42 Value " 48 " Display Bold End Literal End Icon Icon ONE_THIRTY_TWO_ICON Function Response SELECT Let NUM_COLUMNS = 132 End Response Literal Text Line 11 Column 54 Value " 132 " Display Bold End Literal End Icon Literal Text Line 12 Column 3 Value "(" End Literal Field LITTLE_FONT Line 12 Column 4 Function Response SELECT If (LITTLE_FONT = "T") Then Let LITTLE_FONT = " " Else Let LITTLE_FONT = "T" End If End Response Display Bold Character Set Private_Rule No Data Input Output "`" When (LITTLE_FONT = "T") End Field Literal Text Line 12 Column 5 Value ")" End Literal Literal Text Line 12 Column 7 Value "Little font" Display Bold End Literal Literal Rectangle Line 13 Column 41 Line 15 Column 46 End Literal Literal Text Line 14 Column 3 Value "(" End Literal Field NORMAL_FONT Line 14 Column 4 Function Response SELECT If (NORMAL_FONT = "T") Then Let NORMAL_FONT = " " Else Let NORMAL_FONT = "T" End If End Response Display Bold Character Set Private_Rule No Data Input Output "`" When (NORMAL_FONT = "T") End Field Literal Text Line 14 Column 5 Value ")" End Literal Literal Text Line 14 Column 7 Value "Normal font (80 columns)" Display Bold End Literal Icon SEVENTY_TWO_ICON Function Response SELECT Let NUM_ROWS = 72 End Response Literal Text Line 14 Column 42 Value " 72 " Display Bold End Literal End Icon Literal Text Line 15 Column 3 Value "(" End Literal Field CONDENSED_FONT Line 15 Column 4 Function Response SELECT If (CONDENSED_FONT = "T") Then Let CONDENSED_FONT = " " Else Let CONDENSED_FONT = "T" End If End Response Display Bold Character Set Private_Rule No Data Input Output "`" When (CONDENSED_FONT = "T") End Field Literal Text Line 15 Column 5 Value ")" End Literal Literal Text Line 15 Column 7 Value "Condensed font (132 columns)" Display Bold End Literal Literal Text Line 16 Column 3 Value "(" End Literal Field NORMAL_CONDENSED_FONT Line 16 Column 4 Function Response SELECT If (NORMAL_CONDENSED_FONT = "T") Then Let NORMAL_CONDENSED_FONT = " " Else Let NORMAL_CONDENSED_FONT = "T" End If End Response Display Bold Character Set Private_Rule No Data Input Output "`" When (NORMAL_CONDENSED_FONT = "T") End Field Literal Text Line 16 Column 5 Value ")" End Literal Literal Text Line 16 Column 7 Value "Normal/80, Condensed/132" Display Bold End Literal Literal Rectangle Line 16 Column 38 Line 18 Column 48 Display Bold End Literal Literal Rectangle Line 16 Column 51 Line 18 Column 61 End Literal Literal Rectangle Line 16 Column 64 Line 18 Column 74 End Literal Icon OK_ICON Literal Text Line 17 Column 39 Value " OK " Display Bold End Literal End Icon Icon APPLY_ICON Literal Text Line 17 Column 52 Value " Apply " Display Bold End Literal End Icon Icon DISMISS_ICON Literal Text Line 17 Column 65 Value " Dismiss " Display Bold End Literal End Icon Literal Text Line 1 Column 1 Value "l" Display Character Set Private_Rule End Literal Literal Polyline Line 5 Column 41 Line 6 Column 41 Line 6 Column 44 End Literal Literal Polyline Line 5 Column 53 Line 6 Column 53 Line 6 Column 56 End Literal End Panel Panel DISPLAY_PANEL Viewport DISPLAY_VP Display Viewport Background Color Black Foreground Color White Bold Foreground Color Red Reverse Foreground Color White /* /* This panel implements the Df term display pop-up menu. /*/ Exit Response Remove DISPLAY_VP Deactivate Panel DISPLAY_PANEL Position To Previous Item End Response Function Response SELECT Position To Previous Panel End Response Literal Polyline Line 1 Column 1 Line 13 Column 1 Line 13 Column 66 Line 1 Column 66 End Literal Literal Text Line 1 Column 1 Value "l" Display Character Set Private_Rule End Literal Literal Text Line 1 Column 2 Value " Display "- " " Display Bold Reverse End Literal Literal Text Line 1 Column 66 Value "k" Display Character Set Private_Rule End Literal Literal Text Line 3 Column 3 Value "[" End Literal Field AUTO_WRAP Line 3 Column 4 Function Response SELECT If (AUTO_WRAP = "T") Then Let AUTO_WRAP = " " Else Let AUTO_WRAP = "T" End If End Response Display Bold Character Set Private_Rule No Data Input Output "`" When (AUTO_WRAP = "T") End Field Literal Text Line 3 Column 5 Value "]" End Literal Literal Text Line 3 Column 7 Value "Auto wrap" Display Bold End Literal Literal Text Line 3 Column 30 Value "(" End Literal Field DARK_TEXT Line 3 Column 31 Function Response SELECT If (DARK_TEXT = "T") Then Let DARK_TEXT = " " Else Let DARK_TEXT = "T" End If End Response Display Bold Character Set Private_Rule No Data Input Output "`" When (DARK_TEXT = "T") End Field Literal Text Line 3 Column 32 Value ")" End Literal Literal Text Line 3 Column 34 Value "Dark text, light background" Display Bold End Literal Literal Text Line 4 Column 3 Value "[" End Literal Field DISPLAY_CURSOR Line 4 Column 4 Function Response SELECT If (DISPLAY_CURSOR = "T") Then Let DISPLAY_CURSOR = " " Else Let DISPLAY_CURSOR = "T" End If End Response Display Bold Character Set Private_Rule No Data Input Output "`" When (DISPLAY_CURSOR = "T") End Field Literal Text Line 4 Column 5 Value "]" End Literal Literal Text Line 4 Column 7 Value "Display cursor" Display Bold End Literal Literal Text Line 4 Column 30 Value "(" End Literal Field LIGHT_TEXT Line 4 Column 31 Function Response SELECT If (LIGHT_TEXT = "T") Then Let LIGHT_TEXT = " " Else Let LIGHT_TEXT = "T" End If End Response Display Bold Character Set Private_Rule No Data Input Output "`" When (LIGHT_TEXT = "T") End Field Literal Text Line 4 Column 32 Value ")" End Literal Literal Text Line 4 Column 34 Value "Light text, dark background" Display Bold End Literal Literal Text Line 5 Column 3 Value "[" End Literal Field CURSOR_BLINK Line 5 Column 4 Function Response SELECT If (CURSOR_BLINK = "T") Then Let CURSOR_BLINK = " " Else Let CURSOR_BLINK = "T" End If End Response Display Bold Character Set Private_Rule No Data Input Output "`" When (CURSOR_BLINK = "T") End Field Literal Text Line 5 Column 5 Value "]" End Literal Literal Text Line 5 Column 7 Value "Cursor blink" Display Bold End Literal Literal Text Line 7 Column 3 Value "(" End Literal Field BLOCK_CURSOR Line 7 Column 4 Function Response SELECT If (BLOCK_CURSOR = "T") Then Let BLOCK_CURSOR = " " Else Let BLOCK_CURSOR = "T" End If End Response Display Bold Character Set Private_Rule No Data Input Output "`" When (BLOCK_CURSOR = "T") End Field Literal Text Line 7 Column 5 Value ")" End Literal Literal Text Line 7 Column 7 Value "Block cursor" Display Bold End Literal Literal Text Line 7 Column 30 Value "(" End Literal Field NO_HOST_STATUS Line 7 Column 31 Function Response SELECT If (NO_HOST_STATUS = "T") Then Let NO_HOST_STATUS = " " Else Let NO_HOST_STATUS = "T" End If End Response Display Bold Character Set Private_Rule No Data Input Output "`" When (NO_HOST_STATUS = "T") End Field Literal Text Line 7 Column 32 Value ")" End Literal Literal Text Line 7 Column 34 Value "No status display" Display Bold End Literal Literal Text Line 8 Column 3 Value "(" End Literal Field UNDERLINE_CURSOR Line 8 Column 4 Function Response SELECT If (UNDERLINE_CURSOR = "T") Then Let UNDERLINE_CURSOR = " " Else Let UNDERLINE_CURSOR = "T" End If End Response Display Bold Character Set Private_Rule No Data Input Output "`" When (UNDERLINE_CURSOR = "T") End Field Literal Text Line 8 Column 5 Value ")" End Literal Literal Text Line 8 Column 7 Value "Underline cursor" Display Bold End Literal Literal Text Line 8 Column 30 Value "(" End Literal Field HOST_STATUS Line 8 Column 31 Function Response SELECT If (HOST_STATUS = "T") Then Let HOST_STATUS = " " Else Let HOST_STATUS = "T" End If End Response Display Bold Character Set Private_Rule No Data Input Output "`" When (HOST_STATUS = "T") End Field Literal Text Line 8 Column 32 Value ")" End Literal Literal Text Line 8 Column 34 Value "Host Status display" Display Bold End Literal Literal Rectangle Line 10 Column 28 Line 12 Column 38 Display Bold End Literal Literal Rectangle Line 10 Column 41 Line 12 Column 51 End Literal Literal Rectangle Line 10 Column 54 Line 12 Column 64 End Literal Icon OK_ICON Literal Text Line 11 Column 29 Value " OK " Display Bold End Literal End Icon Icon APPLY_ICON Literal Text Line 11 Column 42 Value " Apply " Display Bold End Literal End Icon Icon DISMISS_ICON Literal Text Line 11 Column 55 Value " Dismiss " Display Bold End Literal End Icon End Panel Panel GENERAL_PANEL Viewport GENERAL_VP Display Viewport Background Color Black Foreground Color White Bold Foreground Color Red Reverse Foreground Color White /* /* This panel implements the Df term general pop-up menu. /*/ Exit Response Remove GENERAL_VP Deactivate Panel GENERAL_PANEL Position To Previous Item End Response Function Response SELECT Position To Previous Panel End Response Literal Polyline Line 1 Column 65 Line 21 Column 65 Line 21 Column 1 Line 1 Column 1 End Literal Literal Text Line 1 Column 1 Value "l" Display Character Set Private_Rule End Literal Literal Text Line 1 Column 2 Value " General "- " " Display Bold Reverse End Literal Literal Text Line 1 Column 65 Value "k" Display Character Set Private_Rule End Literal Literal Text Line 3 Column 3 Value "[" End Literal Field NEW_LINE Line 3 Column 4 Function Response SELECT If (NEW_LINE = "T") Then Let NEW_LINE = " " Else Let NEW_LINE = "T" End If End Response Display Character Set Private_Rule Bold No Data Input Output "`" When (NEW_LINE = "T") End Field Literal Text Line 3 Column 5 Value "]" End Literal Literal Text Line 3 Column 7 Value "Newline" Display Bold End Literal Literal Text Line 3 Column 30 Value "(" End Literal Field NUMERIC_KEYPAD Line 3 Column 31 Function Response SELECT If (NUMERIC_KEYPAD = "T") Then Let NUMERIC_KEYPAD = " " Else Let NUMERIC_KEYPAD = "T" End If End Response Display Character Set Private_Rule Bold No Data Input Output "`" When (NUMERIC_KEYPAD = "T") End Field Literal Text Line 3 Column 32 Value ")" End Literal Literal Text Line 3 Column 34 Value "Numeric keypad" Display Bold End Literal Literal Text Line 4 Column 3 Value "[" End Literal Field LOCK_UDKS Line 4 Column 4 Function Response SELECT If (LOCK_UDKS = "T") Then Let LOCK_UDKS = " " Else Let LOCK_UDKS = "T" End If End Response Display Character Set Private_Rule Bold No Data Input Output "`" When (LOCK_UDKS = "T") End Field Literal Text Line 4 Column 5 Value "]" End Literal Literal Text Line 4 Column 7 Value "Lock UDKs" Display Bold End Literal Literal Text Line 4 Column 30 Value "(" End Literal Field APPLICATION_KEYPAD Line 4 Column 31 Function Response SELECT If (APPLICATION_KEYPAD = "T") Then Let APPLICATION_KEYPAD = " " Else Let APPLICATION_KEYPAD = "T" End If End Response Display Character Set Private_Rule Bold No Data Input Output "`" When (APPLICATION_KEYPAD = "T") End Field Literal Text Line 4 Column 32 Value ")" End Literal Literal Text Line 4 Column 34 Value "Application keypad" Display Bold End Literal Literal Text Line 5 Column 3 Value "[" End Literal Field LOCK_USER Line 5 Column 4 Function Response SELECT If (LOCK_USER = "T") Then Let LOCK_USER = " " Else Let LOCK_USER = "T" End If End Response Display Character Set Private_Rule Bold No Data Input Output "`" When (LOCK_USER = "T") End Field Literal Text Line 5 Column 5 Value "]" End Literal Literal Text Line 5 Column 7 Value "Lock user features" Display Bold End Literal Literal Text Line 7 Column 3 Value "(" End Literal Field NORMAL_CURSOR_KEYS Line 7 Column 4 Function Response SELECT If (NORMAL_CURSOR_KEYS = "T") Then Let NORMAL_CURSOR_KEYS = " " Else Let NORMAL_CURSOR_KEYS = "T" End If End Response Display Character Set Private_Rule Bold No Data Input Output "`" When (NORMAL_CURSOR_KEYS = "T") End Field Literal Text Line 7 Column 5 Value ")" End Literal Literal Text Line 7 Column 7 Value "Normal cursor keys" Display Bold End Literal Literal Text Line 7 Column 30 Value "(" End Literal Field DEC_SUPPLEMENTAL Line 7 Column 31 Function Response SELECT If (DEC_SUPPLEMENTAL = "T") Then Let DEC_SUPPLEMENTAL = " " Else Let DEC_SUPPLEMENTAL = "T" End If End Response Display Character Set Private_Rule Bold No Data Input Output "`" When (DEC_SUPPLEMENTAL = "T") End Field Literal Text Line 7 Column 32 Value ")" End Literal Literal Text Line 7 Column 34 Value "UPSS DEC Supplemental" Display Bold End Literal Literal Text Line 8 Column 3 Value "(" End Literal Field APPL_CURSOR_KEYS Line 8 Column 4 Function Response SELECT If (APPL_CURSOR_KEYS = "T") Then Let APPL_CURSOR_KEYS = " " Else Let APPL_CURSOR_KEYS = "T" End If End Response Display Character Set Private_Rule Bold No Data Input Output "`" When (APPL_CURSOR_KEYS = "T") End Field Literal Text Line 8 Column 5 Value ")" End Literal Literal Text Line 8 Column 7 Value "Appl cursor keys" Display Bold End Literal Literal Text Line 8 Column 30 Value "(" End Literal Field ISO_LATIN_1 Line 8 Column 31 Function Response SELECT If (ISO_LATIN_1 = "T") Then Let ISO_LATIN_1 = " " Else Let ISO_LATIN_1 = "T" End If End Response Display Character Set Private_Rule Bold No Data Input Output "`" When (ISO_LATIN_1 = "T") End Field Literal Text Line 8 Column 32 Value ")" End Literal Literal Text Line 8 Column 34 Value "UPSS ISO Latin 1" Display Bold End Literal Literal Text Line 10 Column 3 Value "Terminal ID" Display Bold End Literal Literal Text Line 10 Column 30 Value "(" End Literal Field EIGHT_BIT Line 10 Column 31 Function Response SELECT If (EIGHT_BIT = "T") Then Let EIGHT_BIT = " " Else Let EIGHT_BIT = "T" End If End Response Display Character Set Private_Rule Bold No Data Input Output "`" When (EIGHT_BIT = "T") End Field Literal Text Line 10 Column 32 Value ")" End Literal Literal Text Line 10 Column 34 Value "8-Bit multinational characters" Display Bold End Literal Literal Text Line 11 Column 3 Value "(" End Literal Field DF_TERM_ID Line 11 Column 4 Function Response SELECT If (DF_TERM_ID = "T") Then Let DF_TERM_ID = " " Else Let DF_TERM_ID = "T" End If End Response Display Character Set Private_Rule Bold No Data Input Output "`" When (DF_TERM_ID = "T") End Field Literal Text Line 11 Column 5 Value ")" End Literal Literal Text Line 11 Column 7 Value "Df term ID" Display Bold End Literal Literal Text Line 11 Column 30 Value "(" End Literal Field SEVEN_BIT Line 11 Column 31 Function Response SELECT If (SEVEN_BIT = "T") Then Let SEVEN_BIT = " " Else Let SEVEN_BIT = "T" End If End Response Display Character Set Private_Rule Bold No Data Input Output "`" When (SEVEN_BIT = "T") End Field Literal Text Line 11 Column 32 Value ")" End Literal Literal Text Line 11 Column 34 Value "7-Bit NRCS characters" Display Bold End Literal Literal Text Line 12 Column 3 Value "(" End Literal Field VT340_ID Line 12 Column 4 Function Response SELECT If (VT340_ID = "T") Then Let VT340_ID = " " Else Let VT340_ID = "T" End If End Response Display Character Set Private_Rule Bold No Data Input Output "`" When (VT340_ID = "T") End Field Literal Text Line 12 Column 5 Value ")" End Literal Literal Text Line 12 Column 7 Value "VT340 ID" Display Bold End Literal Literal Text Line 13 Column 3 Value "(" End Literal Field VT320_ID Line 13 Column 4 Function Response SELECT If (VT320_ID = "T") Then Let VT320_ID = " " Else Let VT320_ID = "T" End If End Response Display Character Set Private_Rule Bold No Data Input Output "`" When (VT320_ID = "T") End Field Literal Text Line 13 Column 5 Value ")" End Literal Literal Text Line 13 Column 7 Value "VT320 ID" Display Bold End Literal Literal Text Line 13 Column 30 Value "(" End Literal Field VT300_MODE_8 Line 13 Column 31 Function Response SELECT If (VT300_MODE_8 = "T") Then Let VT300_MODE_8 = " " Else Let VT300_MODE_8 = "T" End If End Response Display Character Set Private_Rule Bold No Data Input Output "`" When (VT300_MODE_8 = "T") End Field Literal Text Line 13 Column 32 Value ")" End Literal Literal Text Line 13 Column 34 Value "VT300 mode, 8-bit controls" Display Bold End Literal Literal Text Line 14 Column 3 Value "(" End Literal Field VT240_ID Line 14 Column 4 Function Response SELECT If (VT240_ID = "T") Then Let VT240_ID = " " Else Let VT240_ID = "T" End If End Response Display Character Set Private_Rule Bold No Data Input Output "`" When (VT240_ID = "T") End Field Literal Text Line 14 Column 5 Value ")" End Literal Literal Text Line 14 Column 7 Value "VT240 ID" Display Bold End Literal Literal Text Line 14 Column 30 Value "(" End Literal Field VT300_MODE_7 Line 14 Column 31 Function Response SELECT If (VT300_MODE_7 = "T") Then Let VT300_MODE_7 = " " Else Let VT300_MODE_7 = "T" End If End Response Display Character Set Private_Rule Bold No Data Input Output "`" When (VT300_MODE_7 = "T") End Field Literal Text Line 14 Column 32 Value ")" End Literal Literal Text Line 14 Column 34 Value "VT300 mode, 7-bit controls" Display Bold End Literal Literal Text Line 15 Column 3 Value "(" End Literal Field VT220_ID Line 15 Column 4 Function Response SELECT If (VT220_ID = "T") Then Let VT220_ID = " " Else Let VT220_ID = "T" End If End Response Display Character Set Private_Rule Bold No Data Input Output "`" When (VT220_ID = "T") End Field Literal Text Line 15 Column 5 Value ")" End Literal Literal Text Line 15 Column 7 Value "VT220 ID" Display Bold End Literal Literal Text Line 15 Column 30 Value "(" End Literal Field VT100_MODE Line 15 Column 31 Function Response SELECT If (VT100_MODE = "T") Then Let VT100_MODE = " " Else Let VT100_MODE = "T" End If End Response Display Character Set Private_Rule Bold No Data Input Output "`" When (VT100_MODE = "T") End Field Literal Text Line 15 Column 32 Value ")" End Literal Literal Text Line 15 Column 34 Value "VT100 mode" Display Bold End Literal Literal Text Line 16 Column 3 Value "(" End Literal Field VT125_ID Line 16 Column 4 Function Response SELECT If (VT125_ID = "T") Then Let VT125_ID = " " Else Let VT125_ID = "T" End If End Response Display Character Set Private_Rule Bold No Data Input Output "`" When (VT125_ID = "T") End Field Literal Text Line 16 Column 5 Value ")" End Literal Literal Text Line 16 Column 7 Value "VT125 ID" Display Bold End Literal Literal Text Line 16 Column 30 Value "(" End Literal Field VT52_MODE Line 16 Column 31 Function Response SELECT If (VT52_MODE = "T") Then Let VT52_MODE = " " Else Let VT52_MODE = "T" End If End Response Display Character Set Private_Rule Bold No Data Input Output "`" When (VT52_MODE = "T") End Field Literal Text Line 16 Column 32 Value ")" End Literal Literal Text Line 16 Column 34 Value "VT52 mode" Display Bold End Literal Literal Text Line 17 Column 3 Value "(" End Literal Field VT102_ID Line 17 Column 4 Function Response SELECT If (VT102_ID = "T") Then Let VT102_ID = " " Else Let VT102_ID = "T" End If End Response Display Character Set Private_Rule Bold No Data Input Output "`" When (VT102_ID = "T") End Field Literal Text Line 17 Column 5 Value ")" End Literal Literal Text Line 17 Column 7 Value "VT102 ID" Display Bold End Literal Literal Text Line 18 Column 3 Value "(" End Literal Field VT101_ID Line 18 Column 4 Function Response SELECT If (VT101_ID = "T") Then Let VT101_ID = " " Else Let VT101_ID = "T" End If End Response Display Character Set Private_Rule Bold No Data Input Output "`" When (VT101_ID = "T") End Field Literal Text Line 18 Column 5 Value ")" End Literal Literal Text Line 18 Column 7 Value "VT101 ID" Display Bold End Literal Literal Rectangle Line 18 Column 27 Line 20 Column 37 Display Bold End Literal Literal Rectangle Line 18 Column 40 Line 20 Column 50 End Literal Literal Rectangle Line 18 Column 53 Line 20 Column 63 End Literal Literal Text Line 19 Column 3 Value "(" End Literal Field VT100_ID Line 19 Column 4 Function Response SELECT If (VT100_ID = "T") Then Let VT100_ID = " " Else Let VT100_ID = "T" End If End Response Display Character Set Private_Rule Bold No Data Input Output "`" When (VT100_ID = "T") End Field Literal Text Line 19 Column 5 Value ")" End Literal Literal Text Line 19 Column 7 Value "VT100 ID" Display Bold End Literal Icon OK_ICON Literal Text Line 19 Column 28 Value " OK " Display Bold End Literal End Icon Icon APPLY_ICON Literal Text Line 19 Column 41 Value " Apply " Display Bold End Literal End Icon Icon DISMISS_ICON Literal Text Line 19 Column 54 Value " Dismiss " Display Bold End Literal End Icon End Panel Panel KEYBOARD_PANEL Viewport KEYBOARD_VP Display Viewport Background Color Black Foreground Color White Bold Foreground Color Red Reverse Foreground Color White /* /* This panel implements the Df term keyboard pop-up menu. /*/ Exit Response Remove KEYBOARD_VP Deactivate Panel KEYBOARD_PANEL Position To Previous Item End Response Function Response SELECT Position To Previous Panel End Response Literal Polyline Line 1 Column 1 Line 15 Column 1 Line 15 Column 67 Line 1 Column 67 End Literal Literal Text Line 1 Column 1 Value "l" Display Character Set Private_Rule End Literal Literal Text Line 1 Column 2 Value " Keyboard "- " " Display Bold Reverse End Literal Literal Text Line 1 Column 67 Value "k" Display Character Set Private_Rule End Literal Literal Text Line 3 Column 3 Value "[" End Literal Field WARNING_BELL Line 3 Column 4 Function Response SELECT If (WARNING_BELL = "T") Then Let WARNING_BELL = " " Else Let WARNING_BELL = "T" End If End Response Display Character Set Private_Rule Bold No Data Input Output "`" When (WARNING_BELL = "T") End Field Literal Text Line 3 Column 5 Value "]" End Literal Literal Text Line 3 Column 7 Value "Warning Bell" Display Bold End Literal Literal Text Line 3 Column 31 Value "(" End Literal Field COMMA_COMMA Line 3 Column 32 Function Response SELECT If (COMMA_COMMA = "T") Then Let COMMA_COMMA = " " Else Let COMMA_COMMA = "T" End If End Response Display Character Set Private_Rule Bold No Data Input Output "`" When (COMMA_COMMA = "T") End Field Literal Text Line 3 Column 33 Value ")" End Literal Literal Text Line 3 Column 35 Value "Comma key sends ,," Display Bold End Literal Literal Text Line 4 Column 3 Value "[" End Literal Field MARGIN_BELL Line 4 Column 4 Function Response SELECT If (MARGIN_BELL = "T") Then Let MARGIN_BELL = " " Else Let MARGIN_BELL = "T" End If End Response Display Character Set Private_Rule Bold No Data Input Output "`" When (MARGIN_BELL = "T") End Field Literal Text Line 4 Column 5 Value "]" End Literal Literal Text Line 4 Column 7 Value "Margin Bell" Display Bold End Literal Literal Text Line 4 Column 31 Value "(" End Literal Field COMMA_BRACKET Line 4 Column 32 Function Response SELECT If (COMMA_BRACKET = "T") Then Let COMMA_BRACKET = " " Else Let COMMA_BRACKET = "T" End If End Response Display Character Set Private_Rule Bold No Data Input Output "`" When (COMMA_BRACKET = "T") End Field Literal Text Line 4 Column 33 Value ")" End Literal Literal Text Line 4 Column 35 Value "Comma key sends ,<" Display Bold End Literal Literal Text Line 5 Column 3 Value "[" End Literal Field AUTO_REPEAT Line 5 Column 4 Function Response SELECT If (AUTO_REPEAT = "T") Then Let AUTO_REPEAT = " " Else Let AUTO_REPEAT = "T" End If End Response Display Character Set Private_Rule Bold No Data Input Output "`" When (AUTO_REPEAT = "T") End Field Literal Text Line 5 Column 5 Value "]" End Literal Literal Text Line 5 Column 7 Value "Auto Repeat" Display Bold End Literal Literal Text Line 6 Column 3 Value "[" End Literal Field CTRL_Q Line 6 Column 4 Function Response SELECT If (CTRL_Q = "T") Then Let CTRL_Q = " " Else Let CTRL_Q = "T" End If End Response Display Character Set Private_Rule Bold No Data Input Output "`" When (CTRL_Q = "T") End Field Literal Text Line 6 Column 5 Value "]" End Literal Literal Text Line 6 Column 7 Value "Ctrl-Q, Ctrl-S = Hold" Display Bold End Literal Literal Text Line 6 Column 31 Value "(" End Literal Field TILDE_DASH Line 6 Column 32 Function Response SELECT If (TILDE_DASH = "T") Then Let TILDE_DASH = " " Else Let TILDE_DASH = "T" End If End Response Display Character Set Private_Rule Bold No Data Input Output "`" When (TILDE_DASH = "T") End Field Literal Text Line 6 Column 33 Value ")" End Literal Literal Text Line 6 Column 35 Value "Tilde key sends '-" Display Bold End Literal Literal Text Line 7 Column 31 Value "(" End Literal Field TILDE_ESC Line 7 Column 32 Function Response SELECT If (TILDE_ESC = "T") Then Let TILDE_ESC = " " Else Let TILDE_ESC = "T" End If End Response Display Character Set Private_Rule Bold No Data Input Output "`" When (TILDE_ESC = "T") End Field Literal Text Line 7 Column 33 Value ")" End Literal Literal Text Line 7 Column 35 Value "Tilde key sends ESC" Display Bold End Literal Literal Text Line 8 Column 3 Value "(" End Literal Field DELETE_KEY Line 8 Column 4 Function Response SELECT If (DELETE_KEY = "T") Then Let DELETE_KEY = " " Else Let DELETE_KEY = "T" End If End Response Display Character Set Private_Rule Bold No Data Input Output "`" When (DELETE_KEY = "T") End Field Literal Text Line 8 Column 5 Value ")" End Literal Literal Text Line 8 Column 7 Value "" Display Bold End Literal Literal Text Line 10 Column 31 Value "(" End Literal Field ANGLE_DASH Line 10 Column 32 Function Response SELECT If (ANGLE_DASH = "T") Then Let ANGLE_DASH = " " Else Let ANGLE_DASH = "T" End If End Response Display Character Set Private_Rule Bold No Data Input Output "`" When (ANGLE_DASH = "T") End Field Literal Text Line 10 Column 33 Value ")" End Literal Literal Text Line 10 Column 35 Value "Angle brackets key sends '-" Display Bold End Literal Literal Text Line 11 Column 3 Value "(" End Literal Field CAPS_LOCK Line 11 Column 4 Function Response SELECT If (CAPS_LOCK = "T") Then Let CAPS_LOCK = " " Else Let CAPS_LOCK = "T" End If End Response Display Character Set Private_Rule Bold No Data Input Output "`" When (CAPS_LOCK = "T") End Field Literal Text Line 11 Column 5 Value ")" End Literal Literal Text Line 11 Column 7 Value "Caps Lock" Display Bold End Literal Literal Text Line 12 Column 3 Value "(" End Literal Field SHIFT_LOCK Line 12 Column 4 Function Response SELECT If (SHIFT_LOCK = "T") Then Let SHIFT_LOCK = " " Else Let SHIFT_LOCK = "T" End If End Response Display Character Set Private_Rule Bold No Data Input Output "`" When (SHIFT_LOCK = "T") End Field Literal Text Line 12 Column 5 Value ")" End Literal Literal Text Line 12 Column 7 Value "Shift Lock" Display Bold End Literal Literal Rectangle Line 12 Column 29 Line 14 Column 39 Display Bold End Literal Literal Rectangle Line 12 Column 42 Line 14 Column 52 End Literal Literal Rectangle Line 12 Column 55 Line 14 Column 65 End Literal Icon OK_ICON Literal Text Line 13 Column 30 Value " OK " Display Bold End Literal End Icon Icon APPLY_ICON Literal Text Line 13 Column 43 Value " Apply " Display Bold End Literal End Icon Icon DISMISS_ICON Literal Text Line 13 Column 56 Value " Dismiss " Display Bold End Literal End Icon End Panel Panel NRCS_PANEL Viewport NRCS_VP Display Viewport Background Color Black Foreground Color White Bold Foreground Color Red Reverse Foreground Color White /* /* This panel implements the NRCS settings pop-up menu. /*/ Exit Response Remove NRCS_VP Deactivate Panel NRCS_PANEL Position To Previous Item End Response Function Response SELECT Position To Previous Panel End Response Literal Polyline Line 1 Column 1 Line 15 Column 1 Line 15 Column 40 Line 1 Column 40 End Literal Literal Text Line 1 Column 1 Value "l" Display Character Set Private_Rule End Literal Literal Text Line 1 Column 2 Value " 7-Bit NRCS Selection " Display Bold Reverse End Literal Literal Text Line 1 Column 40 Value "k" Display Character Set Private_Rule End Literal Literal Rectangle Line 3 Column 3 Line 14 Column 26 End Literal Group COUNTRY Vertical Displays 10 Field NAME Line 4 Column 5 Function Response CURSOR_UP Position To Previous Item End Response Function Response CURSOR_DOWN Position To Next Item End Response Function Response SELECT Let COUNTRY(PREVIOUS_SELECTED).MARKER = " " Let COUNTRY(CURRENT_ENTRY).MARKER = "T" Let PREVIOUS_SELECTED = CURRENT_ENTRY End Response Active Highlight Noreverse Bold Display Nobold No Data Input Highlight Reverse When (COUNTRY(**).MARKER = "T") End Field End Group Literal Rectangle Line 5 Column 28 Line 7 Column 38 Display Bold End Literal Icon OK_ICON Literal Text Line 6 Column 29 Value " OK " Display Bold End Literal End Icon Literal Rectangle Line 8 Column 28 Line 10 Column 38 End Literal Icon APPLY_ICON Literal Text Line 9 Column 29 Value " Apply " Display Bold End Literal End Icon Literal Rectangle Line 11 Column 28 Line 13 Column 38 End Literal Icon DISMISS_ICON Literal Text Line 12 Column 29 Value " Dismiss " Display Bold End Literal End Icon End Panel Panel SAVED_SETTINGS_PANEL Viewport SETTINGS_VP Display Viewport Background Color Black Foreground Color White Bold Foreground Color Red Reverse Foreground Color White /* /* This panel implements the saved settings pop-up menu. /*/ Exit Response Remove SETTINGS_VP Deactivate Panel SAVED_SETTINGS_PANEL Position To Previous Item End Response Function Response SELECT Position To Previous Panel End Response Literal Polyline Line 1 Column 1 Line 18 Column 1 Line 18 Column 60 Line 1 Column 60 End Literal Literal Text Line 1 Column 1 Value "l" Display Character Set Private_Rule End Literal Field SETTINGS_MENU_TITLE Line 1 Column 2 Display Reverse Protected End Field Literal Text Line 1 Column 52 Value " " Display Reverse End Literal Literal Text Line 1 Column 60 Value "k" Display Character Set Private_Rule End Literal Literal Text Line 3 Column 3 Value "File Filter" Display Bold End Literal Field FILTER Line 4 Column 4 Function Response SELECT End Response Display Bold Nounderlined End Field Field SETTINGS_SELECT_TITLE Line 6 Column 3 Protected End Field Literal Rectangle Line 7 Column 3 Line 14 Column 46 End Literal Literal Rectangle Line 7 Column 48 Line 9 Column 58 End Literal Group CONFIGURATION Vertical Displays 6 Field FILE Line 8 Column 5 Function Response SELECT Let SELECTION = CONFIGURATION(CURRENT_FILE).FILE End Response Display Bold No Data Input Protected When (CONFIGURATION(**).FILE = " "- " ") End Field End Group Icon FILTER_ICON Literal Text Line 8 Column 49 Value " Filter " Display Bold End Literal End Icon Literal Rectangle Line 10 Column 48 Line 12 Column 58 Display Bold End Literal Icon OK_ICON Literal Text Line 11 Column 49 Value " OK " Display Bold End Literal End Icon Literal Rectangle Line 13 Column 48 Line 15 Column 58 End Literal Icon CANCEL_ICON Literal Text Line 14 Column 49 Value " Cancel " Display Bold End Literal End Icon Literal Text Line 15 Column 3 Value "Selection" Display Bold End Literal Field SELECTION Line 16 Column 4 Function Response SELECT End Response Display Bold Nounderlined End Field Literal Polyline Line 4 Column 3 Line 5 Column 3 Line 5 Column 43 End Literal Literal Polyline Line 16 Column 3 Line 17 Column 3 Line 17 Column 43 End Literal End Panel Panel PUZZLE_PANEL Viewport PUZZLE_VP Display %Keypad_Application Retain /* /* This panel implements the puzzle utility. /*/ Entry Response Include POSITION_TO_BLANK Let PUZZLE_ICON_ACTIVE = 1 End Response Exit Response Let PUZZLE_ICON_ACTIVE = 0 End Response Function Response GO_TO_ICON_BOX Deactivate Panel PUZZLE_PANEL Activate Panel ICON_BOX Position To Panel ICON_BOX End Response Use Help Panel PUZZLE_HELP Literal Rectangle Line 3 Column 3 Line 5 Column 8 End Literal Literal Rectangle Line 3 Column 8 Line 5 Column 13 End Literal Literal Rectangle Line 3 Column 13 Line 5 Column 18 End Literal Literal Rectangle Line 3 Column 18 Line 5 Column 23 End Literal Group ROW Vertical Group COL Horizontal Field TILE Line 4 Column 4 Entry Response If ((ROW(1).COL(1).TILE = 1) AND (ROW(1).COL(2).TILE = 2) AND (ROW(1).COL(3).TILE = 3) AND (ROW(1).COL(4).TILE = 4) AND (ROW(2).COL(1).TILE = 5) AND (ROW(2).COL(2).TILE = 6) AND (ROW(2).COL(3).TILE = 7) AND (ROW(2).COL(4).TILE = 8) AND (ROW(3).COL(1).TILE = 9) AND (ROW(3).COL(2).TILE = 10) AND (ROW(3).COL(3).TILE = 11) AND (ROW(3).COL(4).TILE = 12) AND (ROW(4).COL(1).TILE = 13) AND (ROW(4).COL(2).TILE = 14) AND (ROW(4).COL(3).TILE = 15)) Then Let PUZZLE_MESSAGE_TEXT = "Now do it "- "vertically!" Signal /* This is where we want a popup */ Else If ((ROW(1).COL(1).TILE = 1) AND (ROW(1).COL(2).TILE = 5) AND (ROW(1).COL(3).TILE = 9) AND (ROW(1).COL(4).TILE = 13) AND (ROW(2).COL(1).TILE = 2) AND (ROW(2).COL(2).TILE = 6) AND (ROW(2).COL(3).TILE = 10) AND (ROW(2).COL(4).TILE = 14) AND (ROW(3).COL(1).TILE = 3) AND (ROW(3).COL(2).TILE = 7) AND (ROW(3).COL(3).TILE = 11) AND (ROW(3).COL(4).TILE = 15) AND (ROW(4).COL(1).TILE = 4) AND (ROW(4).COL(2).TILE = 8) AND (ROW(4).COL(3).TILE = 12)) Then Let PUZZLE_MESSAGE_TEXT = "Now do it "- "backwards!" Signal Else If ((ROW(1).COL(1).TILE = 15) AND (ROW(1).COL(2).TILE = 14) AND (ROW(1).COL(3).TILE = 13) AND (ROW(1).COL(4).TILE = 12) AND (ROW(2).COL(1).TILE = 11) AND (ROW(2).COL(2).TILE = 10) AND (ROW(2).COL(3).TILE = 9) AND (ROW(2).COL(4).TILE = 8) AND (ROW(3).COL(1).TILE = 7) AND (ROW(3).COL(2).TILE = 6) AND (ROW(3).COL(3).TILE = 5) AND (ROW(3).COL(4).TILE = 4) AND (ROW(4).COL(1).TILE = 3) AND (ROW(4).COL(2).TILE = 2) AND (ROW(4).COL(3).TILE = 1)) Then Let PUZZLE_MESSAGE_TEXT = "Time for a "- "new game!" Signal Else Let PUZZLE_MESSAGE_TEXT = "" End If End If End If End Response Function Response NEXT ITEM Position To Icon FILE_ICON On PUZZLE_PANEL End Response Function Response PREVIOUS ITEM Position To Icon FILE_ICON On PUZZLE_PANEL End Response Function Response FLIP_FLOP Position To Icon FILE_ICON On PUZZLE_PANEL End Response Function Response UP_ITEM If (ROW(CUR_ROW).COL(CUR_COL).TILE = 0) Then If (CUR_ROW > 1) Then Let ROW(CUR_ROW).COL(CUR_COL).TILE = ROW(TAKE(CUR_ROW).MINUS_ONE).COL(CUR_COL).TILE Let ROW(TAKE(CUR_ROW).MINUS_ONE).COL(CUR_COL).TILE = 0 Position To Up Item Else Let PUZZLE_MESSAGE_TEXT = "Can't go up" Signal End If Else Let PUZZLE_MESSAGE_TEXT = "Can't move they-ar" Signal End If End Response Function Response DOWN_ITEM If (ROW(CUR_ROW).COL(CUR_COL).TILE = 0) Then If (CUR_ROW < 4) Then Let ROW(CUR_ROW).COL(CUR_COL).TILE = ROW(TAKE(CUR_ROW).PLUS_ONE).COL(CUR_COL).TILE Let ROW(TAKE(CUR_ROW).PLUS_ONE).COL(CUR_COL).TILE = 0 Position To Down Item Else Let PUZZLE_MESSAGE_TEXT = "Can't go Down" Signal End If Else Let PUZZLE_MESSAGE_TEXT = "Can't move they-ar" Signal End If End Response Function Response LEFT_ITEM If (ROW(CUR_ROW).COL(CUR_COL).TILE = 0) Then If (CUR_COL > 1) Then Let ROW(CUR_ROW).COL(CUR_COL).TILE = ROW(CUR_ROW).COL(TAKE(CUR_COL).MINUS_ONE).TILE Let ROW(CUR_ROW).COL(TAKE(CUR_COL).MINUS_ONE).TILE = 0 Position To Left Item Else Let PUZZLE_MESSAGE_TEXT = "Can't go Left" Signal End If Else Let PUZZLE_MESSAGE_TEXT = "Can't move they-ar" Signal End If End Response Function Response RIGHT_ITEM If (ROW(CUR_ROW).COL(CUR_COL).TILE = 0) Then If (CUR_COL < 4) Then Let ROW(CUR_ROW).COL(CUR_COL).TILE = ROW(CUR_ROW).COL(TAKE(CUR_COL).PLUS_ONE).TILE Let ROW(CUR_ROW).COL(TAKE(CUR_COL).PLUS_ONE).TILE = 0 Position To Right Item Else Let PUZZLE_MESSAGE_TEXT = "Can't go Right" Signal End If Else Let PUZZLE_MESSAGE_TEXT = "Can't move they-ar" Signal End If End Response Active Highlight Reverse Output Picture 999R No Data Input Protected When (ROW(**).COL(**).TILE <> 0) End Field Literal Text Same Line Next Column +1 Value "" End Literal Literal Text Next Line Same Column Value "" End Literal End Group End Group Literal Rectangle Line 5 Column 3 Line 7 Column 8 End Literal Literal Rectangle Line 5 Column 8 Line 7 Column 13 End Literal Literal Rectangle Line 5 Column 13 Line 7 Column 18 End Literal Literal Rectangle Line 5 Column 18 Line 7 Column 23 End Literal Literal Rectangle Line 7 Column 3 Line 9 Column 8 End Literal Literal Rectangle Line 7 Column 8 Line 9 Column 13 End Literal Literal Rectangle Line 7 Column 13 Line 9 Column 18 End Literal Literal Rectangle Line 7 Column 18 Line 9 Column 23 End Literal Literal Rectangle Line 9 Column 3 Line 11 Column 8 End Literal Literal Rectangle Line 9 Column 8 Line 11 Column 13 End Literal Literal Rectangle Line 9 Column 13 Line 11 Column 18 End Literal Literal Rectangle Line 9 Column 18 Line 11 Column 23 End Literal Literal Polyline Line 2 Column 1 Line 12 Column 1 Line 12 Column 25 Line 2 Column 25 End Literal Icon ICONIZE_PUZZLE Function Response SELECT Activate Panel ICON_BOX Position To Icon PUZZLE On ICON_BOX Deactivate Panel PUZZLE_PANEL Remove PUZZLE_VP Let PUZZLE_ICONIZED = 1 End Response Active Highlight Bold Protected When (PUZZLE_ICON_ACTIVE = 0) Literal Text Line 1 Column 2 Value " # " Display Reverse End Literal End Icon Literal Text Line 1 Column 5 Value "x" Display Character Set Private_Rule Bold Reverse End Literal Icon HEADER_ICON Highlight Bold When (PUZZLE_ICON_ACTIVE = 1) Protected Literal Text Line 1 Column 6 Value " Puzzle " Display Reverse End Literal End Icon Literal Text Line 2 Column 8 Value " " Display Underlined End Literal Literal Text Line 1 Column 1 Value "l" Display Character Set Private_Rule End Literal Literal Text Line 1 Column 25 Value "k" Display Character Set Private_Rule End Literal Icon FILE_ICON Function Response SELECT Activate Panel FILE_PANEL Position To Panel FILE_PANEL End Response Function Response RIGHT_ITEM Position To Next Item End Response Function Response UP_ITEM Position To Icon ICONIZE_PUZZLE On PUZZLE_PANEL End Response Function Response FLIP_FLOP Include POSITION_TO_BLANK End Response Function Response USER FUNCTION Include POSITION_TO_BLANK End Response Active Highlight Reverse Underlined Literal Text Line 2 Column 2 Value " File " Display Underlined End Literal End Icon Icon HELP_ICON Function Response SELECT Enter Help End Response Function Response UP_ITEM Position To Icon ICONIZE_PUZZLE On PUZZLE_PANEL End Response Function Response LEFT_ITEM Position To Previous Item End Response Function Response FLIP_FLOP Include POSITION_TO_BLANK End Response Function Response USER FUNCTION Include POSITION_TO_BLANK End Response Active Highlight Reverse Underlined Literal Text Line 2 Column 19 Value " Help " Display Underlined End Literal End Icon Literal Polyline Line 12 Column 1 Line 14 Column 1 Line 14 Column 25 Line 12 Column 25 End Literal Field PUZZLE_MESSAGE_TEXT Line 13 Column 3 Protected End Field End Panel Panel FILE_PANEL Viewport FILE_VP Display %Keypad_Application Remove /* /* This panel implements the puzzle file option pull-down menu. /*/ Exit Response Deactivate Panel FILE_PANEL End Response Literal Polyline Line 1 Column 1 Line 3 Column 1 Line 3 Column 12 Line 1 Column 12 End Literal Icon NEW_GAME_ICON Function Response SELECT Include INITIALIZE_RESPONSE Include POSITION_TO_BLANK End Response Function Response UP ITEM Position To Previous Panel End Response Active Highlight Reverse Literal Text Line 1 Column 2 Value " New Game " End Literal End Icon Icon QUIT_ICON Function Response SELECT Let PUZZLE_ACTIVE = 0 Remove PUZZLE_VP Deactivate Panel PUZZLE_PANEL Activate Panel ICON_BOX Position To Panel ICON_BOX End Response Active Highlight Reverse Literal Text Line 2 Column 2 Value " Quit " End Literal End Icon End Panel Help Panel PUZZLE_HELP Viewport HELP_VP Display %Keypad_Application Remove /* /* This panel implements puzzle help. /*/ Entry Response Let PUZZLE_MESSAGE_TEXT = "Press the RETURN key" End Response Exit Response Let PUZZLE_MESSAGE_TEXT = "" End Response Function Response NEXT ITEM Exit Help End Response Function Response USER FUNCTION Exit Help End Response Function Response UNDEFINED FUNCTION Exit Help End Response Literal Text Line 2 Column 1 Value "Use the arrow keys, or" End Literal Literal Text Line 3 Column 1 Value "press Keypad 8,4,6,2. " End Literal Literal Text Line 5 Column 1 Value "Press DO to go back &" End Literal Literal Text Line 6 Column 1 Value "forth to the menu line." End Literal Literal Text Line 8 Column 1 Value "© Copyright 1989, 1990" End Literal Literal Text Line 9 Column 1 Value "by Digital Equip. Corp." End Literal End Panel Help Panel HELP_WINDOW_PANEL Viewport HELP_WINDOW_VP /* /* This panel implements windows help. /*/ Entry Response Let CURRENT_HELP_PAGE = 1 Let NUMBER_HELP_PAGE = 2 Let HELP_GROUP(1).TEXT_LINE = "This window contains help "- "information concerning the DECforms Windows" Let HELP_GROUP(2).TEXT_LINE = "demonstration form. Please "- "note that the complete functionality of" Let HELP_GROUP(3).TEXT_LINE = "this demo is contained within "- "the form. There is no application" Let HELP_GROUP(4).TEXT_LINE = "program behind it!" Let HELP_GROUP(5).TEXT_LINE = "" Let HELP_GROUP(6).TEXT_LINE = "To find out more about the "- "specific features of the demo, press Select" Let HELP_GROUP(7).TEXT_LINE = "on one of the options listed "- "below." Let HELP_GROUP(8).TEXT_LINE = "" Let HELP_GROUP(9).TEXT_LINE = "" Let HELP_GROUP(10).TEXT_LINE = "© Digital Equipment "- "Corporation, 1989,1990. All Rights Reserved." Let HELP_GROUP(11).TEXT_LINE = "" Let HELP_GROUP(12).TEXT_LINE = "" Let HELP_GROUP(13).TEXT_LINE = "" Let HELP_GROUP(14).TEXT_LINE = "" Let HELP_GROUP(15).TEXT_LINE = "" Let HELP_GROUP(16).TEXT_LINE = "Created by JWP, JJJ, and DEC, "- "Spring, 1989" Let FIRST_ENTRY = 1 End Response Function Response EXIT_FORM Exit Help Remove HELP_WINDOW_VP End Response Function Response QUIT_FORM Exit Help Remove HELP_WINDOW_VP End Response Function Response NEXT_SCREEN If ((CURRENT_HELP_PAGE = 1) AND (NUMBER_HELP_PAGE = 2)) Then Let FIRST_ENTRY = 9 Let CURRENT_HELP_PAGE = 2 Else Signal Message "No more help for this item." End If End Response Function Response PREV_SCREEN If (CURRENT_HELP_PAGE = 2) Then Let FIRST_ENTRY = 1 Let CURRENT_HELP_PAGE = 1 Else Signal Message "No more help in that direction." End If End Response Literal Text Line 1 Column 1 Value "l" Display Character Set Private_Rule Nobold End Literal Literal Text Line 1 Column 2 Value " Help on Windows "- " " Display Reverse End Literal Literal Text Line 1 Column 80 Value "k" Display Character Set Private_Rule Nobold End Literal Literal Polyline Line 2 Column 1 Line 23 Column 1 Line 23 Column 80 Line 2 Column 80 Display Nobold End Literal Literal Text Line 2 Column 3 Value " File " Display Bold End Literal Literal Text Line 2 Column 11 Value " Edit " Display Bold End Literal Literal Text Line 2 Column 19 Value " View " Display Bold End Literal Literal Text Line 2 Column 27 Value " Search " Display Bold End Literal Literal Text Line 2 Column 74 Value " Help " Display Bold End Literal Literal Polyline Line 3 Column 80 Line 3 Column 1 Display Nobold End Literal Group HELP_GROUP Vertical Displays 8 First FIRST_ENTRY Field TEXT_LINE Line 4 Column 3 Display Nobold Protected End Field End Group Field SCROLL_BAR_TOP Line 4 Column 78 Display Character Set Private_Rule Output "w" When (CURRENT_HELP_PAGE = 1) Output ":" When (CURRENT_HELP_PAGE = 2) Protected End Field Literal Polyline Line 10 Column 78 Line 5 Column 78 Display Nobold End Literal Field SCROLL_BAR_BOTTOM Line 11 Column 78 Display Character Set Private_Rule Output "v" When ((NUMBER_HELP_PAGE = 1) OR (CURRENT_HELP_PAGE = 2)) Output ":" When ((CURRENT_HELP_PAGE = 1) AND (NUMBER_HELP_PAGE = 2)) Protected End Field Literal Polyline Line 12 Column 80 Line 12 Column 1 Display Nobold End Literal Literal Text Line 13 Column 3 Value "Additional topics:" Display Bold Nounderlined End Literal Literal Polyline Line 14 Column 1 Line 14 Column 80 Display Nobold End Literal Icon PURPOSE_ICON Function Response SELECT Let CURRENT_HELP_PAGE = 1 Let NUMBER_HELP_PAGE = 2 Let HELP_GROUP(1).TEXT_LINE = "The purpose of this "- "demonstration form is to show how the look and feel" Let HELP_GROUP(2).TEXT_LINE = "of a workstation windowing "- "environment can be implemented on a character" Let HELP_GROUP(3).TEXT_LINE = "cell terminal. In this "- "demonstration form, you can find examples of" Let HELP_GROUP(4).TEXT_LINE = "iconified menus, radio "- "buttons, toggle buttons, pull-down menus of" Let HELP_GROUP(5).TEXT_LINE = "various sizes, and slider "- "bars, and vertical lists used for selection." Let HELP_GROUP(6).TEXT_LINE = "" Let HELP_GROUP(7).TEXT_LINE = "Experiment with this form "- "and find features you would like to implement" Let HELP_GROUP(8).TEXT_LINE = "yourself. Then, check out "- "the corresponding IFDL from the IFDL source" Let HELP_GROUP(9).TEXT_LINE = "file found in "- "FORMS$EXAMPLES:FORMS$DEMO_VT_WINDOWS.IFDL to find out "- "how that" Let HELP_GROUP(10).TEXT_LINE = "feature was implemented." Let HELP_GROUP(11).TEXT_LINE = "" Let HELP_GROUP(12).TEXT_LINE = "" Let HELP_GROUP(13).TEXT_LINE = "" Let HELP_GROUP(14).TEXT_LINE = "" Let HELP_GROUP(15).TEXT_LINE = "" Let HELP_GROUP(16).TEXT_LINE = "" Let FIRST_ENTRY = 1 End Response Literal Text Line 15 Column 2 Value " Purpose of Windows " Display Bold End Literal End Icon Icon EXITING_ICON Function Response SELECT Let CURRENT_HELP_PAGE = 1 Let NUMBER_HELP_PAGE = 1 Let HELP_GROUP(1).TEXT_LINE = "To exit this demonstration "- "form, press F10 or ^Z (VMS) ^D (ULTRIX)." Let HELP_GROUP(2).TEXT_LINE = "Likewise, press F10 or ^Z (VMS) or ^D (ULTRIX) to exit "- "this Help window, " Let HELP_GROUP(3).TEXT_LINE = "or simply position the cursor on the Exit icon in the "- "lower right " Let HELP_GROUP(4).TEXT_LINE = "corner and press Select." Let HELP_GROUP(5).TEXT_LINE = "" Let HELP_GROUP(6).TEXT_LINE = "" Let HELP_GROUP(7).TEXT_LINE = "" Let HELP_GROUP(8).TEXT_LINE = "" Let HELP_GROUP(9).TEXT_LINE = "" Let HELP_GROUP(10).TEXT_LINE = "" Let HELP_GROUP(11).TEXT_LINE = "" Let HELP_GROUP(12).TEXT_LINE = "" Let HELP_GROUP(13).TEXT_LINE = "" Let HELP_GROUP(14).TEXT_LINE = "" Let HELP_GROUP(15).TEXT_LINE = "" Let HELP_GROUP(16).TEXT_LINE = "" Let FIRST_ENTRY = 1 End Response Literal Text Line 15 Column 25 Value " Exiting Windows " Display Bold End Literal End Icon Icon CURSOR_MOVEMENT_ICON Function Response SELECT Let CURRENT_HELP_PAGE = 1 Let NUMBER_HELP_PAGE = 2 Let HELP_GROUP(1).TEXT_LINE = "The arrow keys are the "- "primary way to traverse among the various" Let HELP_GROUP(2).TEXT_LINE = "choices. When you are on "- "a menu entry you can hit the Select key to" Let HELP_GROUP(3).TEXT_LINE = "invoke the pull down menu "- "associated with this choice. Use the up" Let HELP_GROUP(4).TEXT_LINE = "and down arrows to "- "traverse the pull down menus and the Select key to" Let HELP_GROUP(5).TEXT_LINE = "choose an entry." Let HELP_GROUP(6).TEXT_LINE = "" Let HELP_GROUP(7).TEXT_LINE = "When on the strip menu of "- "window, an up arrow will position you to the" Let HELP_GROUP(8).TEXT_LINE = "'iconize window' field. "- "Selecting it will remove the window and" Let HELP_GROUP(9).TEXT_LINE = "position you in the 'icon "- "box' on the 'icon' associated with the window" Let HELP_GROUP(10).TEXT_LINE = "just removed. By using "- "the right and left arrow keys while in the" Let HELP_GROUP(11).TEXT_LINE = "'icon box', you can "- "position to other 'icons.' Hitting the Select key" Let HELP_GROUP(12).TEXT_LINE = "while on an 'icon' will "- "either 'iconify' the corresponding window or" Let HELP_GROUP(13).TEXT_LINE = "display and position you "- "to the window. If the window is displayed," Let HELP_GROUP(14).TEXT_LINE = "hitting down arrow while "- "positioned on the corresponding 'icon' will" Let HELP_GROUP(15).TEXT_LINE = "position you to the "- "window. PF1-I will position you to the 'icon box'" Let HELP_GROUP(16).TEXT_LINE = "regardless of the window "- "you are on." Let FIRST_ENTRY = 1 End Response Literal Text Line 15 Column 48 Value " Cursor Movement " Display Bold End Literal End Icon Literal Text Line 15 Column 78 Value "w" Display Character Set Private_Rule Nobold End Literal Icon PASSWORDS_ICON Function Response SELECT Let CURRENT_HELP_PAGE = 1 Let NUMBER_HELP_PAGE = 1 Let HELP_GROUP(1).TEXT_LINE = "On both the login session "- "window and the pause window you are prompted" Let HELP_GROUP(2).TEXT_LINE = "for a password. While you "- "are required to enter something into these" Let HELP_GROUP(3).TEXT_LINE = "fields, the password is "- "not verified." Let HELP_GROUP(4).TEXT_LINE = "" Let HELP_GROUP(5).TEXT_LINE = "" Let HELP_GROUP(6).TEXT_LINE = "" Let HELP_GROUP(7).TEXT_LINE = "" Let HELP_GROUP(8).TEXT_LINE = "" Let HELP_GROUP(9).TEXT_LINE = "" Let HELP_GROUP(10).TEXT_LINE = "" Let HELP_GROUP(11).TEXT_LINE = "" Let HELP_GROUP(12).TEXT_LINE = "" Let HELP_GROUP(13).TEXT_LINE = "" Let HELP_GROUP(14).TEXT_LINE = "" Let HELP_GROUP(15).TEXT_LINE = "" Let HELP_GROUP(16).TEXT_LINE = "" Let FIRST_ENTRY = 1 End Response Literal Text Line 16 Column 2 Value " Passwords " Display Bold End Literal End Icon Icon PUZZLE_ICON Function Response SELECT Let CURRENT_HELP_PAGE = 1 Let NUMBER_HELP_PAGE = 2 Let HELP_GROUP(1).TEXT_LINE = "Selecting this option from "- "the Session Manager 'Create' pull-down menu" Let HELP_GROUP(2).TEXT_LINE = "will invoke a puzzle game "- "for you to solve. The object of the game is" Let HELP_GROUP(3).TEXT_LINE = "to order the numbered "- "squares in order, left to right, top to bottom as" Let HELP_GROUP(4).TEXT_LINE = "shown below:" Let HELP_GROUP(5).TEXT_LINE = "" Let HELP_GROUP(6).TEXT_LINE = " 1 "- " 2 3 4" Let HELP_GROUP(7).TEXT_LINE = " 5 "- " 6 7 8" Let HELP_GROUP(8).TEXT_LINE = " 9 "- " 10 11 12" Let HELP_GROUP(9).TEXT_LINE = " 13 "- " 14 15" Let HELP_GROUP(10).TEXT_LINE = "" Let HELP_GROUP(11).TEXT_LINE = "Use the arrow keys to "- "move the pieces. The way pieces move may initially" Let HELP_GROUP(12).TEXT_LINE = "be confusing. Think of "- "it as 'moving the space' versus moving the numbers," Let HELP_GROUP(13).TEXT_LINE = "as you would in the "- "traditional game." Let HELP_GROUP(14).TEXT_LINE = "" Let HELP_GROUP(15).TEXT_LINE = "To get to the command "- "options, press PF1-UP. Puzzle can also be iconized" Let HELP_GROUP(16).TEXT_LINE = "by pressing select on the "- "'#'." Let FIRST_ENTRY = 1 End Response Literal Text Line 16 Column 25 Value " Puzzle " Display Bold End Literal End Icon Icon TERM_ICON Function Response SELECT Let CURRENT_HELP_PAGE = 1 Let NUMBER_HELP_PAGE = 2 Let HELP_GROUP(1).TEXT_LINE = "The Create 'Df Term' "- "option in the session manager window allows" Let HELP_GROUP(2).TEXT_LINE = "you to create up to three "- "(3) psuedo-terminal emulator windows. These" Let HELP_GROUP(3).TEXT_LINE = "windows don't allow you to "- "enter DCL commands, but they do allow you to" Let HELP_GROUP(4).TEXT_LINE = "navigate through the "- "various emulator set-up pull down menus. In order" Let HELP_GROUP(5).TEXT_LINE = "to see these menus, "- "position to either Commands, Edit, Customize, or Help" Let HELP_GROUP(6).TEXT_LINE = "and press Select. Then "- "position the cursor on the desired option and" Let HELP_GROUP(7).TEXT_LINE = "press Select again. Note "- "that not all options have menus associated with" Let HELP_GROUP(8).TEXT_LINE = "them, only the options "- "that have trailing periods ('...')." Let HELP_GROUP(9).TEXT_LINE = "" Let HELP_GROUP(10).TEXT_LINE = "To iconize this 'Df "- "Term', simply position the cursor on the 'g'" Let HELP_GROUP(11).TEXT_LINE = "in the upper left corner "- "of the window and press Select." Let HELP_GROUP(12).TEXT_LINE = "" Let HELP_GROUP(13).TEXT_LINE = "" Let HELP_GROUP(14).TEXT_LINE = "" Let HELP_GROUP(15).TEXT_LINE = "" Let HELP_GROUP(16).TEXT_LINE = "" Let FIRST_ENTRY = 1 End Response Literal Text Line 16 Column 48 Value " Df term " Display Bold End Literal End Icon Literal Polyline Line 16 Column 78 Line 17 Column 78 Display Nobold End Literal Icon SESSION_MANAGER_ICON Function Response SELECT Let CURRENT_HELP_PAGE = 1 Let NUMBER_HELP_PAGE = 2 Let HELP_GROUP(1).TEXT_LINE = "From the 'Session Manager' "- "window you can create 'Dfterms', start up" Let HELP_GROUP(2).TEXT_LINE = "the 'Puzzle' game, or "- "manage the current 'session.'" Let HELP_GROUP(3).TEXT_LINE = "" Let HELP_GROUP(4).TEXT_LINE = "'Dfterms' and the 'Puzzle' "- "game can be invoked from the 'Create' pull" Let HELP_GROUP(5).TEXT_LINE = "down menu. By positioning "- "to 'Terminal Window' and selecting it, a" Let HELP_GROUP(6).TEXT_LINE = "'Dfterm' is created and "- "you are positioned to it. Up to 3 'Dfterms'" Let HELP_GROUP(7).TEXT_LINE = "can be created. If "- "'Puzzle Window' is selected, the game is started" Let HELP_GROUP(8).TEXT_LINE = "and you are positioned to "- "it." Let HELP_GROUP(9).TEXT_LINE = "" Let HELP_GROUP(10).TEXT_LINE = "Through the 'Customize' "- "menu you can modify various options associated" Let HELP_GROUP(11).TEXT_LINE = "with the 'session.' Many "- "of the options that can be modified have no" Let HELP_GROUP(12).TEXT_LINE = "effect on the 'session', "- "others like the 'Session Manager' message text" Let HELP_GROUP(13).TEXT_LINE = "or confirming a quit "- "session are actually implemented." Let HELP_GROUP(14).TEXT_LINE = "" Let HELP_GROUP(15).TEXT_LINE = "The 'session' can be "- "'paused' or ended by selecting the appropriate" Let HELP_GROUP(16).TEXT_LINE = "option from the 'Session' "- "pull down menu." Let FIRST_ENTRY = 1 End Response Literal Text Line 17 Column 2 Value " Session Manager " Display Bold End Literal End Icon Literal Text Line 18 Column 78 Value "v" Display Character Set Private_Rule Nobold End Literal Literal Polyline Line 19 Column 1 Line 19 Column 80 Display Nobold End Literal Literal Rectangle Line 20 Column 3 Line 22 Column 13 Display Nobold End Literal Literal Rectangle Line 20 Column 71 Line 22 Column 78 Display Bold End Literal Literal Text Line 21 Column 4 Value " Go Back " End Literal Icon EXIT_ICON Function Response SELECT Exit Help Remove HELP_WINDOW_VP End Response Literal Text Line 21 Column 72 Value " Exit " Display Bold End Literal End Icon End Panel End Layout End Form