User`s guide

.END
.PROGRAM mcp.disp.main( )
;ABSTRACT: This program is called to display a main menu above the five
;soft keys on the MCP. The program assumes the MCP has been attached.
;
; INPUT PARAMS: None
;
; OUTPUT PARAMS: None
;
; GLOBAL VARS: mcpMCP logical unit
;mcp.clr.scrn_pendant control code, clear display & home cursor
;mcp.cur.pos_pendant control code, set cursor position
;mcp.beep_pendant control code, beep the pendant
;mcp.tab_pendant control code, tab to next soft button
; Clear the display and write the top line
WRITE (mcp) $CHR(mcp.clr.scr), $CHR(mcp.cur.pos), $CHR(16), "MAIN
MENU", /S
; Write the menu options
WRITE (mcp) $CHR(mcp.cur.pos), $CHR(41), /S
WRITE (mcp) "Option5", $CHR(mcp.tab), "Option4", $CHR(mcp.tab), /S
WRITE (mcp) "Option3", $CHR(mcp.tab), "Option2", $CHR(mcp.tab), "
QUIT", /S
; Beep the MCP
WRITE (mcp) $CHR(mcp.beep), /S
.END
.PROGRAM mcp.main.quit(quit)
; ABSTRACT: This program responds to a "Quit" selection from the MCP
; main menu. It verifies the selection and passes the result.
;
; INPUT PARAMS: None
;
; OUTPUT PARAM: quit Boolean indicating whether a "quit"
; has been verified
;
; GLOBAL VARS: mcp MCP logical unit
;mcp.clr.scr_pendant control code, clear display & home cursor
;mcp.off.led_pendant control code, turn off an LED
;mcp.blink.char_pendant control code, start blink position
;mcp.noblink.char_pendant control code, disable blink position
;mcp.tab - pendant control code, tab to next soft button
Programming Example: MCP Menu
(Undefined variable: Primary.Product_Name_V)Language User's Guide, version
17.x
Page 281