User`s guide

;
;
quit = FALSE ;assume quit will not be verified
; Display submenu and start the "NO" option blinking
WRITE (mcp) $CHR(mcp.clr.scr), "Quit. Are you sure?"
WRITE (mcp) $CHR(mcp.tab), $CHR(mcp.tab), $CHR(mcp.tab), " YES", /S
WRITE (mcp) $CHR(mcp.tab), $CHR(mcp.blink.char), " NO", $CHR
(mcp.noblink.cha), /S
button = PENDANT(0)
; Set quit to true if verified, else turn off the "NO" soft button LED
IF button == 2 THEN
quit = TRUE
ELSE
WRITE (mcp) $CHR(mcp.off.led), $CHR(1), /S
END
.END
Programming Example: MCP Menu
V+Language User's Guide, v17.0
Page 282