=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-= Command: Entry_Item File.Field {Entry_Options} Parameters: Description: =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-= JJT-5.1 #COMMAND ENTRY_ITEM R #SET ZG$ !ZG #DATA #IFCLASS !1 "EC" #ENTOPT {$C0A0=!1,$C002,$C003,!2} #ELSE #ENTOPT {$C0A0=!1,!2} #ENDIF !A [] OBJ$ENTRY$ITEM |CI0 |VL #ENDCOMMAND =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-= Command: END_ITEM_LIST Parameters: None. Description: The END_ITEM_LIST command marks the end of a list of items. =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-= JJT-5.1 #COMMAND END_ITEM_LIST . #POP ZJ$ #REPLACE OBJ$!Zj$INUM |CI!Zg // Update the count in the ITEM_LIST cmd. !A [] OBJ$ENDILIST OBJ$!Zj$INUM // Tell runtime this is the end of list. #POP ZJ$ #POP ZG$ #ENDCOMMAND =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-= Command: END_PULL_DOWN Parameters: None. Description: Ends the structure of an ON_ITEM ... BEGIN_PULL_DOWN ... as used by Menu_System package. =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
#IFSUB 'END_MENU'
END_ITEM_LIST
END_OBJECT
#ELSE
#ERROR DFERR_COMP_INVALID_ARGUMENT "BEGIN_PULL_DOWN" REQUIRES MENU_SYSTEM PACKAGE
#ENDIF