Form TAFR_FORM /******************************************************************************* /* /* COPYRIGHT (c) 1992 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. /* /******************************************************************************/ Form Data MODIFIED Unsigned Byte Value 0 N1 Unsigned Longword N2 Unsigned Longword N3 Unsigned Longword COUNTRY_OPTIONS Character(13) Group PRINT_FORMAT_RADIOBOX Occurs 3 Current N1 TOGGLE Unsigned Byte TAG Character(18) End Group Group COUNTRY_LIST_OPTIONS Occurs 12 Current N2 STRING Character(13) CONTROL Unsigned Byte End Group FILE_ENTRY_CONTROL Unsigned Byte REGISTRATION_ENTRY_CONTROL Unsigned Byte SCHEDULE_ENTRY_CONTROL Unsigned Byte OPTIONS_ENTRY_CONTROL Unsigned Byte HELP_ENTRY_CONTROL Unsigned Byte LIST_ENTRY_CONTROL Unsigned Byte COACHING_ENABLE Unsigned Byte Group LANGUAGE_RADIOBOX Occurs 3 Current N3 TOGGLE Unsigned Byte TAG Character(21) PROTECT Unsigned Byte End Group REGISTRATION_NUMBER Integer(9) FIRST_NAME Character(32) LAST_NAME Character(32) COUNTRY Character(13) CALL_FROM Character(16) TOGGLE_SHOT_PUT Unsigned Byte TOGGLE_HIGH_JUMP Unsigned Byte TOGGLE_JAVELIN Unsigned Byte TOGGLE_POLE_VAULT Unsigned Byte TOGGLE_DISCUS Unsigned Byte TOGGLE_LONG_JUMP Unsigned Byte TOGGLE_100_METER Unsigned Byte TOGGLE_400_METER Unsigned Byte TOGGLE_5000_METER Unsigned Byte TOGGLE_10000_METER Unsigned Byte TOGGLE_4X4_RELAY Unsigned Byte WORKING_DELAY Unsigned Longword Value 5 FIRST_FILE_INDEX Longword Integer CURRENT_FILE_INDEX Longword Integer FILE_COUNT Longword Integer UNSEEN_FILE_COUNT Longword Integer FILE_ARRAY_SIZE Longword Integer Value 64 FILE_SPEC_LENGTH Longword Integer Value 48 FILE_LIST_WINDOW_SIZE Longword Integer Value 8 Group FILEBOX_LIST Occurs 64 Current CURRENT_FILE_INDEX FILE_SPEC Character(48) End Group FILEBOX_LIST_TOP_INDICATOR Character(1) FILEBOX_LIST_BOTTOM_INDICATOR Character(1) FILEBOX_LIST_TOP_CONTROL Unsigned Longword FILEBOX_FILTER_FIELD Character(48) Value " " FILEBOX_SELECTION_FIELD Character(48) End Data Form Record FILEBOX_LIST_RECORD Group FILEBOX_LIST Occurs 64 FILE_SPEC Character(48) End Group End Record Layout VT_LAYOUT Device Terminal Type %VT100 End Device Size 24 Lines by 80 Columns Viewport BANNER_VIEWPORT Lines 1 Through 1 Columns 1 Through 80 End Viewport Viewport BAR_MENU_VIEWPORT Lines 2 Through 2 Columns 1 Through 80 End Viewport Viewport MESSAGE_VIEWPORT Lines 23 Through 24 Columns 1 Through 80 End Viewport Viewport FILE_PULLDOWN_VIEWPORT Lines 3 Through 6 Columns 1 Through 8 End Viewport Viewport REGISTRATION_PULLDOWN_VIEWPORT Lines 3 Through 9 Columns 10 Through 42 End Viewport Viewport LIST_PULLDOWN_VIEWPORT Lines 7 Through 12 Columns 41 Through 54 End Viewport Viewport CAUTION_BOX_VIEWPORT Lines 7 Through 18 Columns 16 Through 64 End Viewport Viewport COUNTRY_LIST_DIALOG_VIEWPORT Lines 6 Through 19 Columns 25 Through 55 End Viewport Viewport COUNTRY_LIST_OPTION_VIEWPORT Lines 2 Through 15 Columns 40 Through 56 End Viewport Viewport OPTIONS_PULLDOWN_VIEWPORT Lines 3 Through 16 Columns 35 Through 63 End Viewport Viewport ADD_REGISTRATION_VIEWPORT Lines 2 Through 20 Columns 11 Through 67 End Viewport Viewport WORK_IN_PROGRESS_VIEWPORT Lines 8 Through 12 Columns 30 Through 49 End Viewport Viewport PRINT_FILEBOX_VIEWPORT Lines 5 Through 20 Columns 7 Through 74 End Viewport Function TRANSMIT Is %F10 (%PF1 %capital_E) (%Pf1 %small_E) %control_z %control_D End Function Function SELECT Is %SELECT %KP_PERIOD End Function Function SPECIAL_FUNCTION Is %DO End Function Function MOVE_UP Is %UP End Function Function MOVE_DOWN Is %DOWN End Function Function MOVE_LEFT Is %LEFT End Function Function MOVE_RIGHT Is %RIGHT End Function Function JUMP_UP Is (%PF1 %UP) End Function Function JUMP_DOWN Is (%PF1 %DOWN) End Function Function JUMP_LEFT Is (%PF1 %LEFT) End Function Function JUMP_RIGHT Is (%PF1 %RIGHT) End Function Function DISCARD Is %F8 (%PF1 %CAPITAL_Q) (%PF1 %SMALL_Q) End Function Function NEXT_SCREEN Is %NEXT_SCREEN End Function Function PREV_SCREEN Is %PREV_SCREEN End Function Function ADD_REGISTRATION Is %CONTROL_A End Function Function MAGIC Is %F20 End Function Function MNEMONIC_A Is (%PF4 %CAPITAL_A) (%PF4 %SMALL_A) End Function Function MNEMONIC_C Is (%PF4 %CAPITAL_C) (%PF4 %SMALL_C) End Function Function MNEMONIC_D Is (%PF4 %CAPITAL_D) (%PF4 %SMALL_D) End Function Function MNEMONIC_E Is (%PF4 %CAPITAL_E) (%PF4 %SMALL_E) End Function Function MNEMONIC_F Is (%PF4 %CAPITAL_F) (%PF4 %SMALL_F) End Function Function MNEMONIC_L Is (%PF4 %CAPITAL_L) (%PF4 %SMALL_L) End Function Function MNEMONIC_O Is (%PF4 %CAPITAL_O) (%PF4 %SMALL_O) End Function Function MNEMONIC_Q Is (%PF4 %CAPITAL_Q) (%PF4 %SMALL_Q) End Function Function MNEMONIC_R Is (%PF4 %CAPITAL_R) (%PF4 %SMALL_R) End Function Function MNEMONIC_S Is (%PF4 %CAPITAL_S) (%PF4 %SMALL_S) End Function Internal Response NO_FUNCTION Signal Message "That key has no function at this level." End Response Internal Response BORDER_PATROL Signal Message "There are no items in that direction." End Response Internal Response QUIT_APPLICATION Signal Message "Quitting application. Data discarded." Return Immediate End Response Internal Response CANCEL_QUIT Signal Message "Quit function cancelled." Deactivate Panel CAUTION_BOX_PANEL Remove CAUTION_BOX_VIEWPORT Position To Previous Item End Response Internal Response EXIT_APPLICATION Message "Exiting application..." Return End Response Internal Response COMPUTE_UNSEEN_FILE_COUNT Let UNSEEN_FILE_COUNT = (FILE_COUNT - FILE_LIST_WINDOW_SIZE - FIRST_FILE_INDEX + 1) End Response Internal Response DO_FILEBOX_FILTER Call "fill_filebox" Using By Reference FILEBOX_FILTER_FIELD By Reference FILEBOX_LIST_RECORD By Value FILE_SPEC_LENGTH By Value FILE_ARRAY_SIZE Giving FILE_COUNT Message FILE_COUNT " files located." Let FIRST_FILE_INDEX = 1 Include COMPUTE_UNSEEN_FILE_COUNT End Response Internal Response PERFORM_LIST_FUNCTION If (PRINT_FORMAT_RADIOBOX(1).TOGGLE = 1) Then Signal Message "DISPLAY SCREEN LIST function not yet implemented." Position To Previous Item End If If (PRINT_FORMAT_RADIOBOX(2).TOGGLE = 1) Then Message "Printing list..." Display WORK_IN_PROGRESS_BOX Call "pause_interface" Using By Value WORKING_DELAY Remove WORK_IN_PROGRESS_VIEWPORT Message "List printed." Signal Position To Previous Item End If If (PRINT_FORMAT_RADIOBOX(3).TOGGLE = 1) Then Activate Panel PRINT_FILEBOX_PANEL Position To Panel PRINT_FILEBOX_PANEL If (FILEBOX_FILTER_FIELD = " ") Then Let FILEBOX_FILTER_FIELD = "*.*" Include DO_FILEBOX_FILTER End If End If End Response Enable Response Let PRINT_FORMAT_RADIOBOX(1).TAG = " Display on Screen" Let PRINT_FORMAT_RADIOBOX(2).TAG = " Print List" Let PRINT_FORMAT_RADIOBOX(3).TAG = " Print to File" Let COUNTRY_LIST_OPTIONS(1).STRING = "Australia" Let COUNTRY_LIST_OPTIONS(2).STRING = "Canada" Let COUNTRY_LIST_OPTIONS(3).STRING = "China" Let COUNTRY_LIST_OPTIONS(4).STRING = "Denmark" Let COUNTRY_LIST_OPTIONS(5).STRING = "Egypt" Let COUNTRY_LIST_OPTIONS(6).STRING = "England" Let COUNTRY_LIST_OPTIONS(7).STRING = "France" Let COUNTRY_LIST_OPTIONS(8).STRING = "Germany" Let COUNTRY_LIST_OPTIONS(9).STRING = "Japan" Let COUNTRY_LIST_OPTIONS(10).STRING = "Sweden" Let COUNTRY_LIST_OPTIONS(11).STRING = "United States" Let COUNTRY_LIST_OPTIONS(12).STRING = "Soviet Union" Let LANGUAGE_RADIOBOX(1).TAG = " English" Let LANGUAGE_RADIOBOX(2).TAG = " French" Let LANGUAGE_RADIOBOX(3).TAG = " Hebrew" Display BANNER_PANEL Activate Panel BAR_MENU_PANEL Position To Panel BAR_MENU_PANEL Let MODIFIED = 1 End Response Function Response MOVE_UP If ( NOT UPPERMOST ITEM) Then Position To Up Item Else Include BORDER_PATROL End If End Response Function Response MOVE_DOWN If ( NOT LOWERMOST ITEM) Then Position To Down Item Else Include BORDER_PATROL End If End Response Function Response MOVE_LEFT If ( NOT LEFTMOST ITEM) Then Position To Left Item Else Include BORDER_PATROL End If End Response Function Response MOVE_RIGHT If ( NOT RIGHTMOST ITEM) Then Position To Right Item Else Include BORDER_PATROL End If End Response Function Response NEXT ITEM If ( NOT PANEL LAST ITEM) Then Position To Next Item Else Include BORDER_PATROL End If End Response Function Response PREVIOUS ITEM If ( NOT PANEL FIRST ITEM) Then Position To Previous Item Else Include BORDER_PATROL End If End Response Function Response TRANSMIT Include EXIT_APPLICATION End Response Function Response DISCARD If (MODIFIED = 1) Then Activate Panel CAUTION_BOX_PANEL Position To Icon QUIT_NO_BUTTON On CAUTION_BOX_PANEL Else Include QUIT_APPLICATION End If End Response Function Response ADD_REGISTRATION Activate Panel ADD_REGISTRATION_DIALOG Position To Panel ADD_REGISTRATION_DIALOG End Response Function Response SELECT Signal Message "Feature not yet implemented." End Response Field Default BUTTON_DEFAULTS Active Highlight Reverse End Default Field Default MENU_DEFAULTS Active Highlight Reverse End Default Field Default TEXT_DEFAULTS Active Highlight Underlined Display Underlined End Default Message Panel MESSAGE_PANEL Viewport MESSAGE_VIEWPORT End Panel Panel BANNER_PANEL Viewport BANNER_VIEWPORT Literal Text Line 1 Column 1 Value " Track and Field Registration V1.0 " Display Font Size Double Wide Underlined End Literal End Panel Panel BAR_MENU_PANEL Viewport BAR_MENU_VIEWPORT Function Response DISCARD If (MODIFIED = 1) Then Activate Panel CAUTION_BOX_PANEL Position To Icon QUIT_NO_BUTTON On CAUTION_BOX_PANEL Else Include QUIT_APPLICATION End If End Response Function Response MNEMONIC_F Let FILE_ENTRY_CONTROL = 1 Activate Panel FILE_PULLDOWN_PANEL Position To Panel FILE_PULLDOWN_PANEL End Response Function Response MNEMONIC_R Let REGISTRATION_ENTRY_CONTROL = 1 Activate Panel REGISTRATION_PULLDOWN_PANEL Position To Panel REGISTRATION_PULLDOWN_PANEL End Response Apply Field Default MENU_DEFAULTS Icon FILE_CASCADE_BUTTON Function Response SELECT Let FILE_ENTRY_CONTROL = 1 Activate Panel FILE_PULLDOWN_PANEL Position To Panel FILE_PULLDOWN_PANEL End Response Highlight Reverse When (FILE_ENTRY_CONTROL = 1) Literal Text Line 1 Column 2 Value " File " Display Underlined End Literal End Icon Icon REGISTRATION_CASCADE_BUTTON Function Response SELECT Let REGISTRATION_ENTRY_CONTROL = 1 Activate Panel REGISTRATION_PULLDOWN_PANEL Position To Panel REGISTRATION_PULLDOWN_PANEL End Response Highlight Reverse When (REGISTRATION_ENTRY_CONTROL = 1) Literal Text Line 1 Column 10 Value " Registration " Display Underlined End Literal End Icon Icon SCHEDULE_CASCADE_BUTTON Function Response SELECT Signal Message "SCHEDULE menu not yet implemented." End Response Highlight Reverse When (SCHEDULE_ENTRY_CONTROL = 1) Literal Text Line 1 Column 25 Value " Schedule " Display Underlined End Literal End Icon Icon OPTIONS_CASCADE_BUTTON Function Response SELECT Let OPTIONS_ENTRY_CONTROL = 1 Activate Panel OPTIONS_PULLDOWN_PANEL Position To Panel OPTIONS_PULLDOWN_PANEL End Response Highlight Reverse When (OPTIONS_ENTRY_CONTROL = 1) Literal Text Line 1 Column 36 Value " Options " Display Underlined End Literal End Icon Icon HELP_CASCADE_BUTTON Highlight Reverse When (HELP_ENTRY_CONTROL = 1) Literal Text Line 1 Column 74 Value " Help " Display Underlined End Literal End Icon Literal Text Line 1 Column 1 Value " " End Literal Literal Text Line 1 Column 1 Value " "- " " Display Underlined End Literal End Panel Panel FILE_PULLDOWN_PANEL Viewport FILE_PULLDOWN_VIEWPORT Function Response DISCARD Deactivate Panel FILE_PULLDOWN_PANEL Remove FILE_PULLDOWN_VIEWPORT Position To Previous Item Let FILE_ENTRY_CONTROL = 0 End Response Function Response MNEMONIC_E Let FILE_ENTRY_CONTROL = 0 Include EXIT_APPLICATION End Response Function Response MNEMONIC_Q If (MODIFIED = 1) Then Activate Panel CAUTION_BOX_PANEL Position To Icon QUIT_NO_BUTTON On CAUTION_BOX_PANEL Else Include QUIT_APPLICATION End If Deactivate Panel FILE_PULLDOWN_PANEL Remove FILE_PULLDOWN_VIEWPORT Let FILE_ENTRY_CONTROL = 0 End Response Apply Field Default MENU_DEFAULTS Literal Rectangle Line 1 Column 1 Line 4 Column 8 End Literal Icon EXIT_ENTRY Function Response SELECT Let FILE_ENTRY_CONTROL = 0 Include EXIT_APPLICATION End Response Literal Text Line 2 Column 2 Value " Exit " End Literal Literal Text Line 2 Column 3 Value "E" Display Underlined End Literal End Icon Icon QUIT_ENTRY Function Response SELECT If (MODIFIED = 1) Then Activate Panel CAUTION_BOX_PANEL Position To Icon QUIT_NO_BUTTON On CAUTION_BOX_PANEL Else Include QUIT_APPLICATION End If Deactivate Panel FILE_PULLDOWN_PANEL Remove FILE_PULLDOWN_VIEWPORT Let FILE_ENTRY_CONTROL = 0 End Response Literal Text Line 3 Column 2 Value " Quit " End Literal Literal Text Line 3 Column 3 Value "Q" Display Underlined End Literal End Icon End Panel Panel CAUTION_BOX_PANEL Viewport CAUTION_BOX_VIEWPORT Function Response TRANSMIT Include CANCEL_QUIT End Response Function Response DISCARD Include NO_FUNCTION End Response Apply Field Default MENU_DEFAULTS Literal Rectangle Line 1 Column 1 Line 12 Column 49 End Literal Literal Text Line 1 Column 2 Value " Quit Caution Box " Display Reverse End Literal Literal Text Line 3 Column 4 Value "Modifications made during this application" End Literal Literal Text Line 4 Column 5 Value "session will be discarded. Do you really" End Literal Literal Text Line 5 Column 19 Value "wish to quit?" End Literal Icon QUIT_YES_BUTTON Function Response SELECT Include QUIT_APPLICATION End Response Literal Text Line 9 Column 17 Value " Yes " End Literal End Icon Literal Rectangle Line 8 Column 16 Line 10 Column 22 End Literal Literal Rectangle Line 8 Column 29 Line 10 Column 34 End Literal Icon QUIT_NO_BUTTON Function Response SELECT Include CANCEL_QUIT End Response Literal Text Line 9 Column 30 Value " No " End Literal End Icon End Panel Panel REGISTRATION_PULLDOWN_PANEL Viewport REGISTRATION_PULLDOWN_VIEWPORT Function Response DISCARD Deactivate Panel REGISTRATION_PULLDOWN_PANEL Remove REGISTRATION_PULLDOWN_VIEWPORT Position To Previous Item Let REGISTRATION_ENTRY_CONTROL = 0 End Response Function Response MNEMONIC_A Deactivate Panel REGISTRATION_PULLDOWN_PANEL Remove REGISTRATION_PULLDOWN_VIEWPORT Let REGISTRATION_ENTRY_CONTROL = 0 Activate Panel ADD_REGISTRATION_DIALOG Position To Panel ADD_REGISTRATION_DIALOG End Response Function Response MNEMONIC_C Signal Message "CHANGE REGISTRATION action not yet implemented." End Response Function Response MNEMONIC_D Signal Message "DELETE REGISTRATION action not yet implemented." End Response Function Response MNEMONIC_L Let LIST_ENTRY_CONTROL = 1 Activate Panel LIST_PULLDOWN_PANEL Position To Panel LIST_PULLDOWN_PANEL End Response Apply Field Default MENU_DEFAULTS Literal Text Line 5 Column 2 Value "······························ " display character set private_user_preference End Literal Icon ADD_ENTRY Function Response SELECT Deactivate Panel REGISTRATION_PULLDOWN_PANEL Remove REGISTRATION_PULLDOWN_VIEWPORT Let REGISTRATION_ENTRY_CONTROL = 0 Activate Panel ADD_REGISTRATION_DIALOG Position To Panel ADD_REGISTRATION_DIALOG End Response Display Underlined Literal Text Line 2 Column 2 Value " Add Registration... Ctrl+A" Display Nounderlined End Literal Literal Text Line 2 Column 3 Value "A" Display Underlined End Literal End Icon Icon CHANGE_ENTRY Function Response SELECT Signal Message "CHANGE REGISTRATION action not yet implemented." End Response Display Underlined Literal Text Line 3 Column 2 Value " Change Registration... " Display Nounderlined End Literal Literal Text Line 3 Column 3 Value "C" Display Underlined End Literal End Icon Icon DELETE_ENTRY Function Response SELECT Signal Message "DELETE REGISTRATION action not yet implemented." End Response Display Underlined Literal Text Line 4 Column 2 Value " Delete Registration... " Display Nounderlined End Literal Literal Text Line 4 Column 3 Value "D" Display Underlined End Literal End Icon Icon LIST_CASCADE_BUTTON Function Response MOVE_RIGHT Let LIST_ENTRY_CONTROL = 1 Activate Panel LIST_PULLDOWN_PANEL Position To Panel LIST_PULLDOWN_PANEL End Response Function Response SELECT Let LIST_ENTRY_CONTROL = 1 Activate Panel LIST_PULLDOWN_PANEL Position To Panel LIST_PULLDOWN_PANEL End Response Display Underlined Highlight Reverse When (LIST_ENTRY_CONTROL = 1) Literal Text Line 6 Column 2 Value " List Registrants ->" Display Nounderlined End Literal Literal Text Line 6 Column 3 Value "L" Display Underlined End Literal End Icon Literal Rectangle Line 1 Column 1 Line 7 Column 33 End Literal End Panel Panel LIST_PULLDOWN_PANEL Viewport LIST_PULLDOWN_VIEWPORT Function Response DISCARD Let LIST_ENTRY_CONTROL = 0 Deactivate Panel LIST_PULLDOWN_PANEL Remove LIST_PULLDOWN_VIEWPORT Position To Previous Item End Response Apply Field Default MENU_DEFAULTS Literal Rectangle Line 1 Column 1 Line 6 Column 14 End Literal Icon BY_COUNTRY_ENTRY Function Response SELECT Deactivate Panel LIST_PULLDOWN_PANEL Remove LIST_PULLDOWN_VIEWPORT Deactivate Panel REGISTRATION_PULLDOWN_PANEL Remove REGISTRATION_PULLDOWN_VIEWPORT Activate Panel COUNTRY_LIST_DIALOG_PANEL Position To Panel COUNTRY_LIST_DIALOG_PANEL Let LIST_ENTRY_CONTROL = 0 Let REGISTRATION_ENTRY_CONTROL = 0 End Response Literal Text Line 2 Column 2 Value " By Country " End Literal End Icon Icon BY_EVENT_ENTRY Function Response SELECT Signal Message "LIST BY EVENT function not yet implemented." End Response Literal Text Line 3 Column 2 Value " By Event " End Literal End Icon Icon BY_NAME_ENTRY Function Response SELECT Signal Message "LIST BY NAME function not yet implemented." End Response Literal Text Line 4 Column 2 Value " By Name " End Literal End Icon Icon BY_NUMBER_ENTRY Function Response SELECT Signal Message "LIST BY NUMBER function not yet implemented." End Response Literal Text Line 5 Column 2 Value " By Number " End Literal End Icon End Panel Panel COUNTRY_LIST_DIALOG_PANEL Viewport COUNTRY_LIST_DIALOG_VIEWPORT Function Response TRANSMIT Deactivate Panel COUNTRY_LIST_DIALOG_PANEL Remove COUNTRY_LIST_DIALOG_VIEWPORT Include PERFORM_LIST_FUNCTION End Response Function Response DISCARD Deactivate Panel COUNTRY_LIST_DIALOG_PANEL Remove COUNTRY_LIST_DIALOG_VIEWPORT Position To Previous Item End Response Literal Text Line 4 Column 3 Value "Country:" End Literal Literal Rectangle Line 3 Column 12 Line 5 Column 28 End Literal Field COUNTRY_OPTIONS Line 4 Column 13 Function Response SELECT Let CALL_FROM = "LIST_REGISTRANTS" Activate Panel COUNTRY_LIST_OPTION_MENU Position To Panel COUNTRY_LIST_OPTION_MENU End Response Active Highlight Reverse Output Picture ' 'X(13) No Data Input Output " ··· " When (COUNTRY_OPTIONS = " ") End Field Literal Text Line 6 Column 3 Value "Print Format:" End Literal Literal Text Line 7 Column 3 Value "< >" End Literal Literal Text Line 8 Column 3 Value "< >" End Literal Literal Text Line 9 Column 3 Value "< >" End Literal Group PRINT_FORMAT_RADIOBOX Vertical Field TOGGLE Line 7 Column 4 Display Character Set Private_Rule Output Picture X Output " " When (PRINT_FORMAT_RADIOBOX(**).TOGGLE = 0) Output "`" When (PRINT_FORMAT_RADIOBOX(**).TOGGLE = 1) Protected End Field Field TAG Line 7 Column 6 Function Response SELECT Reset PRINT_FORMAT_RADIOBOX(*).TOGGLE Let PRINT_FORMAT_RADIOBOX(N1).TOGGLE = 1 End Response Active Highlight Reverse No Data Input End Field End Group Literal Rectangle Line 11 Column 8 Line 13 Column 13 End Literal Literal Rectangle Line 11 Column 15 Line 13 Column 24 End Literal Literal Rectangle Line 1 Column 1 Line 14 Column 31 End Literal Literal Text Line 1 Column 2 Value " List Registrants by Country " Display Reverse End Literal Icon LIST_DIALOG_OK_BUTTON Function Response SELECT Deactivate Panel COUNTRY_LIST_DIALOG_PANEL Remove COUNTRY_LIST_DIALOG_VIEWPORT Include PERFORM_LIST_FUNCTION End Response Active Highlight Reverse Literal Text Line 12 Column 9 Value " OK " End Literal End Icon Icon LIST_DIALOG_CANCEL_BUTTON Function Response SELECT Message "List Operation cancelled." Signal Deactivate Panel COUNTRY_LIST_DIALOG_PANEL Remove COUNTRY_LIST_DIALOG_VIEWPORT Position To Previous Item End Response Active Highlight Reverse Literal Text Line 12 Column 16 Value " Cancel " End Literal End Icon End Panel Panel COUNTRY_LIST_OPTION_MENU Viewport COUNTRY_LIST_OPTION_VIEWPORT Apply Field Default MENU_DEFAULTS Group COUNTRY_LIST_OPTIONS Vertical Field STRING Line 2 Column 3 Output Picture X(14) Highlight Reverse When (COUNTRY_LIST_OPTIONS(**).CONTROL = 1) Protected End Field Field CONTROL Line 2 Column 2 Entry Response Let COUNTRY_LIST_OPTIONS(N2).CONTROL = 1 End Response Exit Response Let COUNTRY_LIST_OPTIONS(N2).CONTROL = 0 End Response Function Response SELECT If (CALL_FROM = "LIST_REGISTRANTS") Then Let COUNTRY_OPTIONS = COUNTRY_LIST_OPTIONS(N2).STRING End If If (CALL_FROM = "ADD_REGISTRANTS ") Then Let COUNTRY = COUNTRY_LIST_OPTIONS(N2).STRING End If Deactivate Panel COUNTRY_LIST_OPTION_MENU Remove COUNTRY_LIST_OPTION_VIEWPORT End Response Output Picture X No Data Input Output " " When (1 = 1) End Field End Group Literal Rectangle Line 1 Column 1 Line 14 Column 17 End Literal End Panel Panel OPTIONS_PULLDOWN_PANEL Viewport OPTIONS_PULLDOWN_VIEWPORT Function Response MAGIC If (LANGUAGE_RADIOBOX(3).PROTECT = 0) Then Let LANGUAGE_RADIOBOX(3).PROTECT = 1 Let LANGUAGE_RADIOBOX(3).TAG = "{Hebrew}" Else Let LANGUAGE_RADIOBOX(3).PROTECT = 0 Let LANGUAGE_RADIOBOX(3).TAG = " Hebrew" End If End Response Function Response DISCARD Let OPTIONS_ENTRY_CONTROL = 0 Deactivate Panel OPTIONS_PULLDOWN_PANEL Remove OPTIONS_PULLDOWN_VIEWPORT Position To Previous Item End Response Apply Field Default MENU_DEFAULTS Icon PRINT_OPTIONS_ENTRY Function Response SELECT Signal Message "PRINT OPTIONS function not yet implemented." End Response Literal Text Line 2 Column 6 Value " Print Options... " End Literal End Icon Icon PROCESS_OPTIONS_PULLDOWN Function Response SELECT Signal Message "PROCESS OPTIONS function not yet implemented." End Response Literal Text Line 3 Column 6 Value " Process Options ->" End Literal End Icon Literal Text Line 4 Column 2 Value "·························· " display character set private_user_preference End Literal Literal Text Line 5 Column 3 Value "[ ]" End Literal Field COACHING_ENABLE Line 5 Column 4 Display Character Set Private_Rule Output Picture X Output " " When (COACHING_ENABLE = 0) Output "`" When (COACHING_ENABLE = 1) Protected End Field Icon COACHING_ENTRY Function Response SELECT If (COACHING_ENABLE = 0) Then Let COACHING_ENABLE = 1 Else Let COACHING_ENABLE = 0 End If End Response Literal Text Line 5 Column 6 Value " Coaching " End Literal End Icon Literal Text Line 6 Column 2 Value "·························· " display character set private_user_preference End Literal Group LANGUAGE_RADIOBOX Vertical Literal Text Line 7 Column 3 Value "< >" End Literal Field TOGGLE Line 7 Column 4 Display Character Set Private_Rule Output Picture X Output " " When (LANGUAGE_RADIOBOX(**).TOGGLE = 0) Output "`" When (LANGUAGE_RADIOBOX(**).TOGGLE = 1) Protected End Field Field TAG Line 7 Column 6 Function Response SELECT Reset LANGUAGE_RADIOBOX(*).TOGGLE Let LANGUAGE_RADIOBOX(N3).TOGGLE = 1 End Response Active Highlight Reverse Output Picture X(22) No Data Input Protected When (LANGUAGE_RADIOBOX(**).PROTECT = 1) End Field End Group Literal Text Line 10 Column 2 Value "·························· " display character set private_user_preference End Literal Icon SAVE_SETTINGS_ENTRY Function Response SELECT Signal Message "SAVE SETTINGS function not yet implemented." End Response Literal Text Line 11 Column 6 Value " Save Settings " End Literal End Icon Icon RESTORE_SETTINGS_ENTRY Function Response SELECT Signal Message "RESTORE SETTINGS function not yet implemented." End Response Literal Text Line 12 Column 6 Value " Restore Settings " End Literal End Icon Icon USE_DEFAULTS_ENTRY Function Response SELECT Signal Message "USE DEFAULT SETTINGS function not yet implemented." End Response Literal Text Line 13 Column 6 Value " Use System Settings " End Literal End Icon Literal Rectangle Line 1 Column 1 Line 14 Column 29 End Literal End Panel Panel ADD_REGISTRATION_DIALOG Viewport ADD_REGISTRATION_VIEWPORT Function Response DISCARD Deactivate Panel ADD_REGISTRATION_DIALOG Remove ADD_REGISTRATION_VIEWPORT Position To Previous Item End Response Function Response TRANSMIT Message "Recording registrant data." Deactivate Panel ADD_REGISTRATION_DIALOG Remove ADD_REGISTRATION_VIEWPORT Position To Previous Item End Response Literal Rectangle Line 1 Column 1 Line 19 Column 57 End Literal Literal Text Line 1 Column 2 Value " Add Registration " Display Reverse End Literal Literal Text Line 3 Column 3 Value "Registration Number:" End Literal Field REGISTRATION_NUMBER Line 3 Column 24 Apply Field Default TEXT_DEFAULTS Output Picture 9(9) End Field Literal Text Line 4 Column 3 Value "First Name:" End Literal Field FIRST_NAME Line 4 Column 24 Apply Field Default TEXT_DEFAULTS End Field Literal Text Line 5 Column 3 Value "Last Name:" End Literal Field LAST_NAME Line 5 Column 24 Apply Field Default TEXT_DEFAULTS End Field Literal Text Line 6 Column 3 Value "Country...:" End Literal Field COUNTRY Line 6 Column 24 Apply Field Default TEXT_DEFAULTS Function Response SELECT Let CALL_FROM = "ADD_REGISTRANTS " Activate Panel COUNTRY_LIST_OPTION_MENU Position To Panel COUNTRY_LIST_OPTION_MENU End Response End Field Literal Text Line 8 Column 3 Value "Events" End Literal Literal Text Line 9 Column 3 Value "[ ]" End Literal Field TOGGLE_SHOT_PUT Line 9 Column 4 Display Character Set Private_Rule Output Picture X Output "`" When (TOGGLE_SHOT_PUT = 1) Output " " When (TOGGLE_SHOT_PUT <> 1) Protected End Field Icon EVENT_SHOT_PUT Apply Field Default BUTTON_DEFAULTS Function Response SELECT If (TOGGLE_SHOT_PUT = 0) Then Let TOGGLE_SHOT_PUT = 1 Else Let TOGGLE_SHOT_PUT = 0 End If End Response Literal Text Line 9 Column 6 Value " Shot Put" End Literal End Icon Literal Text Line 9 Column 24 Value "[ ]" End Literal Field TOGGLE_100_METER Line 9 Column 25 Display Character Set Private_Rule Output Picture X Output "`" When (TOGGLE_100_METER = 1) Output " " When (TOGGLE_100_METER <> 1) Protected End Field Icon EVENT_100_METER Apply Field Default BUTTON_DEFAULTS Function Response SELECT If (TOGGLE_100_METER = 0) Then Let TOGGLE_100_METER = 1 Else Let TOGGLE_100_METER = 0 End If End Response Literal Text Line 9 Column 27 Value " 100 Meter" End Literal End Icon Literal Text Line 10 Column 3 Value "[ ]" End Literal Field TOGGLE_HIGH_JUMP Line 10 Column 4 Display Character Set Private_Rule Output Picture X Output "`" When (TOGGLE_HIGH_JUMP = 1) Output " " When (TOGGLE_HIGH_JUMP <> 1) Protected End Field Icon EVENT_HIGH_JUMP Apply Field Default BUTTON_DEFAULTS Function Response SELECT If (TOGGLE_HIGH_JUMP = 0) Then Let TOGGLE_HIGH_JUMP = 1 Else Let TOGGLE_HIGH_JUMP = 0 End If End Response Literal Text Line 10 Column 6 Value " High Jump" End Literal End Icon Literal Text Line 10 Column 24 Value "[ ]" End Literal Field TOGGLE_400_METER Line 10 Column 25 Display Character Set Private_Rule Output Picture X Output "`" When (TOGGLE_400_METER = 1) Output " " When (TOGGLE_400_METER <> 1) Protected End Field Icon EVENT_400_METER Apply Field Default BUTTON_DEFAULTS Function Response SELECT If (TOGGLE_400_METER = 0) Then Let TOGGLE_400_METER = 1 Else Let TOGGLE_400_METER = 0 End If End Response Literal Text Line 10 Column 27 Value " 400 Meter" End Literal End Icon Literal Text Line 11 Column 3 Value "[ ]" End Literal Field TOGGLE_JAVELIN Line 11 Column 4 Display Character Set Private_Rule Output Picture X Output "`" When (TOGGLE_JAVELIN = 1) Output " " When (TOGGLE_JAVELIN <> 1) Protected End Field Icon EVENT_JAVELIN Apply Field Default BUTTON_DEFAULTS Function Response SELECT If (TOGGLE_JAVELIN = 0) Then Let TOGGLE_JAVELIN = 1 Else Let TOGGLE_JAVELIN = 0 End If End Response Literal Text Line 11 Column 6 Value " Javelin" End Literal End Icon Literal Text Line 11 Column 24 Value "[ ]" End Literal Field TOGGLE_5000_METER Line 11 Column 25 Display Character Set Private_Rule Output Picture X Output "`" When (TOGGLE_5000_METER = 1) Output " " When (TOGGLE_5000_METER <> 1) Protected End Field Icon EVENT_5000_METER Apply Field Default BUTTON_DEFAULTS Function Response SELECT If (TOGGLE_5000_METER = 0) Then Let TOGGLE_5000_METER = 1 Else Let TOGGLE_5000_METER = 0 End If End Response Literal Text Line 11 Column 27 Value " 5,000 Meter" End Literal End Icon Literal Text Line 12 Column 3 Value "[ ]" End Literal Field TOGGLE_POLE_VAULT Line 12 Column 4 Display Character Set Private_Rule Output Picture X Output "`" When (TOGGLE_POLE_VAULT = 1) Output " " When (TOGGLE_POLE_VAULT <> 1) Protected End Field Icon EVENT_POLE_VAULT Apply Field Default BUTTON_DEFAULTS Function Response SELECT If (TOGGLE_POLE_VAULT = 0) Then Let TOGGLE_POLE_VAULT = 1 Else Let TOGGLE_POLE_VAULT = 0 End If End Response Literal Text Line 12 Column 6 Value " Pole Vault" End Literal End Icon Literal Text Line 12 Column 24 Value "[ ]" End Literal Field TOGGLE_10000_METER Line 12 Column 25 Display Character Set Private_Rule Output Picture X Output "`" When (TOGGLE_10000_METER = 1) Output " " When (TOGGLE_10000_METER <> 1) Protected End Field Icon EVENT_10000_METER Apply Field Default BUTTON_DEFAULTS Function Response SELECT If (TOGGLE_10000_METER = 0) Then Let TOGGLE_10000_METER = 1 Else Let TOGGLE_10000_METER = 0 End If End Response Literal Text Line 12 Column 27 Value " 10,000 Meter" End Literal End Icon Literal Text Line 13 Column 3 Value "[ ]" End Literal Field TOGGLE_DISCUS Line 13 Column 4 Display Character Set Private_Rule Output Picture X Output "`" When (TOGGLE_DISCUS = 1) Output " " When (TOGGLE_DISCUS <> 1) Protected End Field Icon EVENT_DISCUS Apply Field Default BUTTON_DEFAULTS Function Response SELECT If (TOGGLE_DISCUS = 0) Then Let TOGGLE_DISCUS = 1 Else Let TOGGLE_DISCUS = 0 End If End Response Literal Text Line 13 Column 6 Value " Discus" End Literal End Icon Literal Text Line 13 Column 24 Value "[ ]" End Literal Field TOGGLE_4X4_RELAY Line 13 Column 25 Display Character Set Private_Rule Output Picture X Output "`" When (TOGGLE_4X4_RELAY = 1) Output " " When (TOGGLE_4X4_RELAY <> 1) Protected End Field Icon EVENT_4X4_RELAY Apply Field Default BUTTON_DEFAULTS Function Response SELECT If (TOGGLE_4X4_RELAY = 0) Then Let TOGGLE_4X4_RELAY = 1 Else Let TOGGLE_4X4_RELAY = 0 End If End Response Literal Text Line 13 Column 27 Value " 4x4 Relay" End Literal End Icon Literal Text Line 14 Column 3 Value "[ ]" End Literal Field TOGGLE_LONG_JUMP Line 14 Column 4 Display Character Set Private_Rule Output Picture X Output "`" When (TOGGLE_LONG_JUMP = 1) Output " " When (TOGGLE_LONG_JUMP <> 1) Protected End Field Icon EVENT_LONG_JUMP Apply Field Default BUTTON_DEFAULTS Function Response SELECT If (TOGGLE_LONG_JUMP = 0) Then Let TOGGLE_LONG_JUMP = 1 Else Let TOGGLE_LONG_JUMP = 0 End If End Response Literal Text Line 14 Column 6 Value " Long Jump" End Literal End Icon Literal Rectangle Line 16 Column 19 Line 18 Column 24 Display Bold End Literal Literal Rectangle Line 16 Column 26 Line 18 Column 35 End Literal Icon ADD_REG_OK_BUTTON Apply Field Default BUTTON_DEFAULTS Function Response SELECT Message "Recording registrant data." Deactivate Panel ADD_REGISTRATION_DIALOG Remove ADD_REGISTRATION_VIEWPORT Position To Previous Item End Response Literal Text Line 17 Column 20 Value " OK " Display Bold End Literal End Icon Icon ADD_REG_CANCEL_BUTTON Apply Field Default BUTTON_DEFAULTS Function Response SELECT Deactivate Panel ADD_REGISTRATION_DIALOG Remove ADD_REGISTRATION_VIEWPORT Position To Previous Item End Response Literal Text Line 17 Column 27 Value " Cancel " End Literal End Icon End Panel Panel WORK_IN_PROGRESS_BOX Viewport WORK_IN_PROGRESS_VIEWPORT Literal Rectangle Line 1 Column 1 Line 5 Column 20 End Literal Literal Text Line 1 Column 2 Value " Work in Progress " Display Reverse End Literal Literal Text Line 3 Column 3 Value "Printing List..." Display Blinking End Literal End Panel Panel PRINT_FILEBOX_PANEL Viewport PRINT_FILEBOX_VIEWPORT Function Response TRANSMIT If (FILEBOX_SELECTION_FIELD = " ") Then Signal Message "You must make a selection." Position To Field FILEBOX_SELECTION_FIELD On PRINT_FILEBOX_PANEL Else Deactivate Panel PRINT_FILEBOX_PANEL Remove PRINT_FILEBOX_VIEWPORT Position To Previous Item End If End Response Function Response DISCARD Deactivate Panel PRINT_FILEBOX_PANEL Remove PRINT_FILEBOX_VIEWPORT Position To Previous Item End Response Literal Rectangle Line 1 Column 1 Line 16 Column 68 End Literal Literal Text Line 1 Column 2 Value " Print to File "- " " Display Reverse End Literal Literal Text Line 3 Column 3 Value "Filter:" End Literal Field FILEBOX_FILTER_FIELD Line 3 Column 11 Exit Response Include DO_FILEBOX_FILTER End Response Function Response SELECT Include DO_FILEBOX_FILTER End Response End Field Group FILEBOX_LIST Vertical Displays 8 First FIRST_FILE_INDEX Field FILE_SPEC Line 5 Column 4 Entry Response Include COMPUTE_UNSEEN_FILE_COUNT End Response Function Response MOVE_DOWN If (FILEBOX_LIST((CURRENT_FILE_INDEX + 1)).FILE_SPEC = " ") Then Signal Message "No more files." Else Position To Down Occurrence End If End Response Function Response MOVE_UP Position To Up Occurrence End Response Function Response MOVE_LEFT Message "No items in that direction." Signal End Response Function Response MOVE_RIGHT Position To Icon FILEBOX_OK_BUTTON On PRINT_FILEBOX_PANEL End Response Function Response SELECT Let FILEBOX_SELECTION_FIELD = FILEBOX_LIST(CURRENT_FILE_INDEX).FILE_SPEC End Response Function Response JUMP_UP Position To Field FILEBOX_FILTER_FIELD On PRINT_FILEBOX_PANEL End Response Function Response JUMP_DOWN Position To Field FILEBOX_SELECTION_FIELD On PRINT_FILEBOX_PANEL End Response Active Highlight Reverse No Data Input End Field End Group Literal Text Line 5 Column 52 Value " " End Literal Field FILEBOX_LIST_TOP_INDICATOR Line 5 Column 53 Display Character Set Private_Rule Output "w" When (FIRST_FILE_INDEX = 1) Output ":" When (FIRST_FILE_INDEX <> 1) Protected End Field Field FILEBOX_LIST_BOTTOM_INDICATOR Line 12 Column 53 Display Character Set Private_Rule Output "v" When (UNSEEN_FILE_COUNT <= 0) Output ":" When (UNSEEN_FILE_COUNT > 0) Protected End Field Literal Polyline Line 6 Column 53 Line 11 Column 53 End Literal Literal Rectangle Line 4 Column 3 Line 13 Column 54 End Literal Literal Text Line 15 Column 3 Value "Selection: " End Literal Literal Rectangle Line 7 Column 57 Line 9 Column 66 End Literal Field FILEBOX_SELECTION_FIELD Line 15 Column 14 End Field Icon FILEBOX_FILTER_BUTTON Literal Rectangle Line 4 Column 57 Line 6 Column 66 End Literal Literal Text Line 5 Column 58 Value " Filter " End Literal End Icon Icon FILEBOX_OK_BUTTON Function Response SELECT If (FILEBOX_SELECTION_FIELD = " ") Then Signal Message "You must make a selection." Position To Field FILEBOX_SELECTION_FIELD On PRINT_FILEBOX_PANEL Else Deactivate Panel PRINT_FILEBOX_PANEL Remove PRINT_FILEBOX_VIEWPORT Position To Previous Item End If End Response Active Highlight Reverse Literal Text Line 8 Column 58 Value " OK " End Literal End Icon Icon FILEBOX_CANCEL_BUTTON Function Response SELECT Deactivate Panel PRINT_FILEBOX_PANEL Remove PRINT_FILEBOX_VIEWPORT End Response Literal Rectangle Line 10 Column 57 Line 12 Column 66 End Literal Literal Text Line 11 Column 58 Value " Cancel " End Literal End Icon End Panel End Layout End Form