*: THECODE,'The List Box Description',0=no form/1=internal form/2=external form 
*: Make sure ACTIONS=xx gets updated when you add or delete actions
@ACTIONS=22
UNDEF,'Undefined',0
OPENSCR,'Main Window',1
OPENMNU,'Menu',1
OPENDLG,'Popup Window',1
OPENRPT,'Report',1
CODE,'dbCode',1
DOPRG,'Do dbProgram',2
CHAIN,'Do dbChain',2
DOPROC,'Do dbProcedure',2
DOUDF,'User Function',2
DODLL,'DLL function',2
GOTOP,'Top of File',0
GONEXT,'Next Record',0
GOPREV,'Prev Record',0
GOBOT,'Bottom of File',0
NEWREC,'Add New Record',0
EDITREC,'Edit Record',0
UNPEND,'Undo New Record',0
DISCARD,'Discard Changes',0
DELREC,'Delete Record',0
QUIT,'Quit Immediately',0
EXIT,'Exit Program',0
<<END>>

@UNDEF
WARNING('Action: <<THE_NAME>>','Action is undefined',387)
<<END>>

@OPENDLG
DO <<NEXTPROC>>
DO <<PROG_NAME>>_DBFSetUp
<<END>>

@OPENMNU
CLEAR
CHAIN <<NEXTPROC>>
IF sMenuName <> ''
	SET MENU TO sMenuName
ENDIF
SET WINDOW TITLE TO '<<DESC>>'
DO <<PROG_NAME>>_DBFSetUp
DO <<PROG_NAME>>_SetUp
<<END>>

@OPENSCR
CLEAR
CHAIN <<NEXTPROC>>
IF sMenuName <> ''
	SET MENU TO sMenuName
ENDIF
SET WINDOW TITLE TO '<<DESC>>'
DO <<PROG_NAME>>_DBFSetUp
DO <<PROG_NAME>>_SetUp
<<END>>

@OPENRPT
DO <<NEXTPROC>>
DO <<PROG_NAME>>_DBFSetUp
<<END>>

@DOPRG
DO <<NEXTPROC>>
<<END>>

@DOPROC
DO <<NEXTPROC>>
<<END>>

@DOUDF
<<NEXTPROC>>
<<END>>

@DODLL
<<NEXTPROC>>
<<END>>

@CHAIN
CHAIN <<NEXTPROC>>
DO <<PROG_NAME>>_DBFSetUp

<<END>>

@QUIT
*: Set sAction to empty to QUIT the program
sAction = ''
QUIT
<<END>>

@EXIT
*: Set sAction to empty to EXIT the program
sAction = ''
<<END>>

@GOTOP
GOTO TOP
UPDATE GETS
UPDATE CONTROL ALL
<<END>>

@GOBOT
GOTO BOTTOM
UPDATE GETS
UPDATE CONTROL ALL
<<END>>

@GONEXT
SKIP
IF EOF()
  GOTO BOTTOM
ENDIF   
UPDATE GETS
UPDATE CONTROL ALL
<<END>>

@GOPREV
SKIP -1
IF BOF()
  GOTO TOP
ENDIF   
UPDATE GETS
UPDATE CONTROL ALL
<<END>>

@DELREC
DELETE
UPDATE GETS
UPDATE CONTROL ALL
<<END>>

@NEWREC
APPEND BLANK
UPDATE GETS
UPDATE CONTROL ALL
<<END>>

@EDITREC
CONFIRM("Editing a record")
UPDATE GETS
UPDATE CONTROL ALL
<<END>>

@UNPEND
UNPEND
UPDATE GETS
UPDATE CONTROL ALL
<<END>>

@DISCARD
GOTO CURRENT
UPDATE GETS
UPDATE CONTROL ALL
<<END>>

@CODE
<<DO OTHER>>
<<END>>
