Form DEMO_RULE_FORM /* COPYRIGHT (c) 1989 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. Updated for V1.1 14 Jul 89 */ Form Data One Character(1) Two Character(1) End Data Layout CC Device Terminal VT100 Type %VT100 End Device Size 24 Lines by 80 Columns Viewport FULL_VP Lines 1 Through 24 Columns 1 Through 80 End Viewport Enable Response Activate Panel rule_panel End Response Disable Response End Response Panel RULE_PANEL /* We want to return from the form for any key pressed The way to do this is to trap everything with the BUILTIN, USER, and UNDEFINED function responses. and then use two concealed fields with AUTOSKIP to catch the data keys. */ Function Response BUILTIN FUNCTION Return End Response Function Response USER FUNCTION Return End Response Function Response UNDEFINED FUNCTION Return End Response Literal Text Line 3 Column 20 Value "Characters from the 'Rule' Character Set" End Literal Literal Text Next Line + 1 Column 1 Value "{the first line contains the normal alphabetic character, }" End Literal Literal Text Next Line Column 1 Value "{the second line contains its equivalent in the rule set }" End Literal Literal Text Next Line + 1 Column 1 Value "A B C D E F G H I J K L M N O P Q R S T U V W X Y Z " End Literal Literal Text Next Line Column 1 Value "A" Display Character Set private_rule End Literal Literal Text Same Line Column 3 Value "B" Display Character Set private_rule End Literal Literal Text Same Line Column 5 Value "C" Display Character Set private_rule End Literal Literal Text Same Line Column 7 Value "D" Display Character Set private_rule End Literal Literal Text Same Line Column 9 Value "E" Display Character Set private_rule End Literal Literal Text Same Line Column 11 Value "F" Display Character Set private_rule End Literal Literal Text Same Line Column 13 Value "G" Display Character Set private_rule End Literal Literal Text Same Line Column 15 Value "H" Display Character Set private_rule End Literal Literal Text Same Line Column 17 Value "I" Display Character Set private_rule End Literal Literal Text Same Line Column 19 Value "J" Display Character Set private_rule End Literal Literal Text Same Line Column 21 Value "K" Display Character Set private_rule End Literal Literal Text Same Line Column 23 Value "L" Display Character Set private_rule End Literal Literal Text Same Line Column 25 Value "M" Display Character Set private_rule End Literal Literal Text Same Line Column 27 Value "N" Display Character Set private_rule End Literal Literal Text Same Line Column 29 Value "O" Display Character Set private_rule End Literal Literal Text same line Column 31 Value "P" Display Character Set private_rule End Literal Literal Text same line Column 33 Value "Q" Display Character Set private_rule End Literal Literal Text same line Column 35 Value "G" Display Character Set private_rule End Literal Literal Text same line Column 37 Value "S" Display Character Set private_rule End Literal Literal Text same line Column 39 Value "T" Display Character Set private_rule End Literal Literal Text same line Column 41 Value "U" Display Character Set private_rule End Literal Literal Text same line Column 43 Value "V" Display Character Set private_rule End Literal Literal Text same line Column 45 Value "W" Display Character Set private_rule End Literal Literal Text same line Column 47 Value "X" Display Character Set private_rule End Literal Literal Text same line Column 49 Value "Y" Display Character Set private_rule End Literal Literal Text same line Column 51 Value "Z" Display Character Set private_rule End Literal Literal Text Next Line + 1 Column 1 Value "a b c d e f g h i j k l m n o p q r s t u v w x y z" End Literal Literal Text Next Line Column 1 Value "a" Display Character Set private_rule End Literal Literal Text Same Line Column 3 Value "b" Display Character Set private_rule End Literal Literal Text Same Line Column 5 Value "c" Display Character Set private_rule End Literal Literal Text Same Line Column 7 Value "d" Display Character Set private_rule End Literal Literal Text same line Column 9 Value "e" Display Character Set private_rule End Literal Literal Text same line Column 11 Value "f" Display Character Set private_rule End Literal Literal Text same line Column 13 Value "g" Display Character Set private_rule End Literal Literal Text same line Column 15 Value "h" Display Character Set private_rule End Literal Literal Text same line Column 17 Value "i" Display Character Set private_rule End Literal Literal Text same line Column 19 Value "j" Display Character Set private_rule End Literal Literal Text same line Column 21 Value "k" Display Character Set private_rule End Literal Literal Text same line Column 23 Value "l" Display Character Set private_rule End Literal Literal Text same line Column 25 Value "m" Display Character Set private_rule End Literal Literal Text same line Column 27 Value "n" Display Character Set private_rule End Literal Literal Text same line Column 29 Value "o" Display Character Set private_rule End Literal Literal Text same line Column 31 Value "p" Display Character Set private_rule End Literal Literal Text same line Column 33 Value "q" Display Character Set private_rule End Literal Literal Text same line Column 35 Value "r" Display Character Set private_rule End Literal Literal Text same line Column 37 Value "s" Display Character Set private_rule End Literal Literal Text same line Column 39 Value "t" Display Character Set private_rule End Literal Literal Text same line Column 41 Value "u" Display Character Set private_rule End Literal Literal Text same line Column 43 Value "v" Display Character Set private_rule End Literal Literal Text same line Column 45 Value "w" Display Character Set private_rule End Literal Literal Text same line Column 47 Value "x" Display Character Set private_rule End Literal Literal Text same line Column 49 Value "y" Display Character Set private_rule End Literal Literal Text same line Column 51 Value "z" Display Character Set private_rule End Literal Literal Text Next Line + 1 Column 1 Value "0 1 2 3 4 5 6 7 8 9 " End Literal Literal Text Next Line Column 1 Value "0" Display Character Set private_rule End Literal Literal Text Same Line Column 3 Value "1" Display Character Set private_rule End Literal Literal Text Same Line Column 5 Value "2" Display Character Set private_rule End Literal Literal Text Same Line Column 7 Value "3" Display Character Set private_rule End Literal Literal Text Same Line Column 9 Value "4" Display Character Set private_rule End Literal Literal Text Same Line Column 11 Value "5" Display Character Set private_rule End Literal Literal Text Same Line Column 13 Value "6" Display Character Set private_rule End Literal Literal Text Same Line Column 15 Value "7" Display Character Set private_rule End Literal Literal Text Same Line Column 17 Value "8" Display Character Set private_rule End Literal Literal Text Same Line Column 19 Value "9" Display Character Set private_rule End Literal Literal Text Next Line + 1 Column 1 Value "~ ` ! @ # $ % ^ & * ( ) _ - + = { } [ ] : ; "" ' | \ , . ? / > < " End Literal Literal Text Next Line Column 1 Value "~" Display Character Set private_rule End Literal Literal Text same line Column 3 Value "`" Display Character Set private_rule End Literal Literal Text same line Column 5 Value "!" Display Character Set private_rule End Literal Literal Text same line Column 7 Value "@" Display Character Set private_rule End Literal Literal Text same line Column 9 Value "#" Display Character Set private_rule End Literal Literal Text same line Column 11 Value "$" Display Character Set private_rule End Literal Literal Text same line Column 13 Value "%" Display Character Set private_rule End Literal Literal Text same line Column 15 Value "^" Display Character Set private_rule End Literal Literal Text same line Column 17 Value "&" Display Character Set private_rule End Literal Literal Text same line Column 19 Value "*" Display Character Set private_rule End Literal Literal Text same line Column 21 Value "(" Display Character Set private_rule End Literal Literal Text same line Column 23 Value ")" Display Character Set private_rule End Literal Literal Text same line Column 25 Value "_" Display Character Set private_rule End Literal Literal Text same line Column 27 Value "-" Display Character Set private_rule End Literal Literal Text same line Column 29 Value "+" Display Character Set private_rule End Literal Literal Text same line Column 31 Value "=" Display Character Set private_rule End Literal Literal Text same line Column 33 Value "{" Display Character Set private_rule End Literal Literal Text same line Column 35 Value "}" Display Character Set private_rule End Literal Literal Text same line Column 37 Value "[" Display Character Set private_rule End Literal Literal Text same line Column 39 Value "]" Display Character Set private_rule End Literal Literal Text same line Column 41 Value ":" Display Character Set private_rule End Literal Literal Text same line Column 43 Value ";" Display Character Set private_rule End Literal Literal Text same line Column 45 Value '"' End Literal Literal Text same line Column 47 Value "'" Display Character Set private_rule End Literal Literal Text same line Column 49 Value "|" Display Character Set private_rule End Literal Literal Text same line Column 51 Value "\" Display Character Set private_rule End Literal Literal Text same line Column 53 Value "," Display Character Set private_rule End Literal Literal Text same line Column 55 Value "." Display Character Set private_rule End Literal Literal Text same line Column 57 Value "?" Display Character Set private_rule End Literal Literal Text same line Column 59 Value "/" Display Character Set private_rule End Literal Literal Text same line Column 61 Value ">" Display Character Set private_rule End Literal Literal Text same line Column 63 Value "<" Display Character Set private_rule End Literal Literal Text next line + 3 column 10 Value "Press any key (except F1-F5) to continue..." End Literal Field One Line 24 Column 79 Autoskip Concealed Exit Response Return End Response End Field Field Two Line 24 Column 80 End Field End Panel End Layout End Form