GET_INFO (SYSTEM)

The following form requires two parameters. The first parameter is the keyword SYSTEM. The second parameter is any of the requests listed below.

Parameter 2 Return

"bell" Returns one of the following based on how the BELL is SET.

ALL if bell is sounded for all messages. BROADCAST if bell is sounded only for BROADCAST messages. If the bell is not used for any message than 0 is returned.

"box_range" Returns 1 or 0 based on the type of ranges currently being created. Not available under VMS.

"column_move_vertical" Returns integer 1 if MOVE_VERTICAL is set to keep the cursor in the same column as you type the UP or DOWN keys or 0 if such isn't the case.

"coordinates" Returns keyword CHARACTERS.

"default_directory" Returns a string containing the default (i.e. current working) directory.

"display" Returns integer 1 if nu/TPU is running on a display type terminal; otherwise 0 is returned.

"enable_resize" Returns 1 or 0; 1 if the current configuration will handle resizing the screen.

"facility_name" Returns a string containing the facility name. Usually this is "TPU".

"informational" Returns integer 1 if informational messages are displayed; otherwise 0 is returned.

"journal_file" Returns a string containing the name of the current journal file.

"journaling_frequency" Returns an integer which is the rate at which journal files are written.

"line_number" Returns integer 1 if the line number is displayed in errors; otherwise 0 is returned.

"message_action_level" Returns an integer as indicated below which corresponds to the success of an action.

0) for Warning

1) for Success

2) for Error

3) for Informational

"message_action_type" Returns keyword NONE, BELL, or REVERSE based on how nu/TPU responds to an error.

"message_flags" Returns what parts of messages will be displayed.

"pad_overstruck_tabs" Returns integer 1 if nu/TPU pads tabs that are filled with spaces; otherwise 0 is returned.

"recover" Returns 1 or 0; 1 if the session is currently enabled for keystroke recovery from a journal file.

"resize_action" Returns the program to be executed during the resize process.

"section_file" Returns a string containing the name of the current section file.

"shift_key" Returns a keyword of the current shift key.

"success" Returns the message level.

"timed_message" Returns a string which contains the text of the timer message.

"timer" Returns 0 or 1; 1 if the timer is currently active.

"traceback" Returns integer 1 if nu/TPU shows values of the procedure called when an error occurs; otherwise 0 is returned.

"update" Returns an integer which is the current nu/TPU update number.

"version" Returns an integer which is the current nu/TPU version number.

Syntax:

value := GET_INFO ( SYSTEM, request )

Example:

The following determines if nu/TPU encourages you in your explorations.

IF GET_INFO (SYSTEM, "success") = 0;

THEN

MESSAGE ("Warning-emotional oppression in progress");

ENDIF;