Function            DELREC()
Action              Dialog box to delete/undelete current record
Returns             <expN> If deleted 1, if undeleted-1, if no action 0
Category            Popup
Syntax              DELREC()
Description         Asks for delete/undelete record with menu prompt
                    and then deletes/undeletes or not
                    If current record is not deleted, prompt will be
                    DELETE  NOACTION
                    If current record is deleted, prompt will be
                    UNDELETE  NOACTION
Examples            IF m->choice = 6
                          delcount = DELREC()
                    ENDIF
Warnings            Cursor is left ON
Found in (prg)......S_DELET.PRG