$! $! M O D E S $! $ START: $ ON WARNING THEN GOTO STOP_ALL_EXIT $ ON ERROR THEN GOTO STOP_ALL_EXIT $ ON SEVERE_ERROR THEN GOTO STOP_ALL_EXIT $! $ CLR $ qual_menu_choice == "" $ menu == "MODES" $ TYPE SYS$INPUT #3EZMONITOR  #4EZMONITOR   MODES      1 ALL 2 AVERAGE 3 CURRENT 4 MAXIMUM 5 MINIMUM 6 CPU 7 PERCENT ^Y stop display, goto main menu M main menu E exit to command level specify which statistics appear in DISPLAY and SUMMARY specify a bar graph for DISPLAY and SUMMARY outputs specify a bar graph for DISPLAY and SUMMARY outputs specify a bar graph for DISPLAY and SUMMARY outputs specify a bar graph for DISPLAY and SUMMARY outputs * VAX-11/782 attached processor form of DISPLAY and SUMMARY * statistics appear as percent values in DISPLAY and SUMMARY * these may be added prior to execution Q qualifiers menu H help MODES $ IF stackable THEN - WRITE SYS$OUTPUT "R run" $ PROMPT: $ choice == "" $ IF stackable .OR. display THEN - @sys$intezm:DISPLAY.COM $ INQUIRE choice "Choice" $ IF choice .EQS. "1" THEN GOTO CHOICES $ IF choice .EQS. "2" THEN GOTO CHOICES $ IF choice .EQS. "3" THEN GOTO CHOICES $ IF choice .EQS. "4" THEN GOTO CHOICES $ IF choice .EQS. "5" THEN GOTO CHOICES $ IF choice .EQS. "6" THEN GOTO CHOICES $ IF choice .EQS. "7" THEN GOTO CHOICES $ IF choice .EQS. "Q" THEN GOTO ADD_MONITOR_QUALIFIERS $ IF choice .EQS. "H" THEN GOTO HELP $ IF choice .EQS. "R" THEN GOTO EXECUTE $ IF choice .EQS. "M" THEN GOTO MAIN_MENU $ IF choice .EQS. "E" THEN GOTO STOP_ALL_EXIT $ WRITE SYS$OUTPUT - "''EraseL22'''BOLD'''choice'''NO_BOLD' is not a valid choice, try again" $ WAIT 00:00:02 $ GOTO PROMPT $! $ CHOICES: $ IF choice .EQS. "1" THEN @sys$intezm:PARSECMD.COM " MODES" "/ALL" $ IF choice .EQS. "2" THEN @sys$intezm:PARSECMD.COM " MODES" "/AVERAGE" $ IF choice .EQS. "3" THEN @sys$intezm:PARSECMD.COM " MODES" "/CURRENT" $ IF choice .EQS. "4" THEN @sys$intezm:PARSECMD.COM " MODES" "/MAXIMUM" $ IF choice .EQS. "5" THEN @sys$intezm:PARSECMD.COM " MODES" "/MINIMUM" $ IF choice .EQS. "6" THEN @sys$intezm:PARSECMD.COM " MODES" "/CPU" $ IF choice .EQS. "7" THEN @sys$intezm:PARSECMD.COM " MODES" "/PERCENT" $ IF .NOT. $STATUS THEN GOTO STOP_ALL_EXIT $ IF stackable THEN GOTO PROMPT $! $ EXECUTE: $ CLR $ TYPE SYS$INPUT loading monitor ...please wait #3CONTROL_Y TO STOP #4CONTROL_Y TO STOP $ WAIT 00:00:02 $ 'full_cmd' $ EXIT $! $ ADD_MONITOR_QUALIFIERS: $ previous_menu == "MODES" $ @sys$intezm:QUALIFIER.MNU $ IF .NOT. $STATUS THEN GOTO STOP_ALL_EXIT $ IF qual_menu_choice .EQS. "M" THEN GOTO MAIN_MENU $ GOTO START $! $ HELP: $ INQUIRE help_choice - "Help choice #" $ IF help_choice .EQS. "1" THEN GOTO HELP_1 $ IF help_choice .EQS. "2" THEN GOTO HELP_2 $ IF help_choice .EQS. "3" THEN GOTO HELP_3 $ IF help_choice .EQS. "4" THEN GOTO HELP_4 $ IF help_choice .EQS. "5" THEN GOTO HELP_5 $ IF help_choice .EQS. "6" THEN GOTO HELP_6 $ IF help_choice .EQS. "7" THEN GOTO HELP_7 $ IF help_choice .EQS. "" THEN GOTO PROMPT $ WRITE SYS$OUTPUT - "''EraseL22'''BOLD'''help_choice'''NO_BOLD' is not a valid help choice, try again" $ WAIT 00:00:02 $ GOTO HELP $ HELP_1: $ CLR $ DEFINE/USER_MODE SYS$INPUT SYS$COMMAND: $ HELP EZMONITOR CLASS_NAMES MODES $ CLR $ DEFINE/USER_MODE SYS$INPUT SYS$COMMAND: $ HELP EZMONITOR CLASS_QUALIFIER /ALL $ GOTO START $ HELP_2: $ CLR $ DEFINE/USER_MODE SYS$INPUT SYS$COMMAND: $ HELP EZMONITOR CLASS_NAMES MODES $ CLR $ DEFINE/USER_MODE SYS$INPUT SYS$COMMAND: $ HELP EZMONITOR CLASS_QUALIFIER /AVERAGE $ GOTO START $ HELP_3: $ CLR $ DEFINE/USER_MODE SYS$INPUT SYS$COMMAND: $ HELP EZMONITOR CLASS_NAMES MODES $ CLR $ DEFINE/USER_MODE SYS$INPUT SYS$COMMAND: $ HELP EZMONITOR CLASS_QUALIFIER /CURRENT $ GOTO START $ HELP_4: $ CLR $ DEFINE/USER_MODE SYS$INPUT SYS$COMMAND: $ HELP EZMONITOR CLASS_NAMES MODES $ CLR $ DEFINE/USER_MODE SYS$INPUT SYS$COMMAND: $ HELP EZMONITOR CLASS_QUALIFIER /MAXIMUM $ GOTO START $ HELP_5: $ CLR $ DEFINE/USER_MODE SYS$INPUT SYS$COMMAND: $ HELP EZMONITOR CLASS_NAMES MODES $ CLR $ DEFINE/USER_MODE SYS$INPUT SYS$COMMAND: $ HELP EZMONITOR CLASS_QUALIFIER /MINIMUM $ GOTO START $ HELP_6: $ CLR $ DEFINE/USER_MODE SYS$INPUT SYS$COMMAND: $ HELP EZMONITOR CLASS_NAMES MODES $ CLR $ DEFINE/USER_MODE SYS$INPUT SYS$COMMAND: $ HELP EZMONITOR CLASS_QUALIFIER /CPU $ GOTO START $ HELP_7: $ CLR $ DEFINE/USER_MODE SYS$INPUT SYS$COMMAND: $ HELP EZMONITOR CLASS_NAMES MODES $ CLR $ DEFINE/USER_MODE SYS$INPUT SYS$COMMAND: $ HELP EZMONITOR CLASS_QUALIFIER /PERCENT $ GOTO START $! $ MAIN_MENU: $ previous_menu = "MODES" $ EXIT $! $ STOP_ALL_EXIT: $ @sys$intezm:CLEANUP.SYM $ STOP