WINCOL CENTER SET WINDOW TO "DELETE - "+FILENAME POSITION 4,CENTER SIZE &WINLIN,&WINCOL USE &FILENAME TONES File is empty. DELETE not available. AFLAG AFLAG FMT_SPEC FMT_SPEC TMPFILE FILENAME TMPFILE TMPFILE AFLAG TMPFILE (the format file) cannot be found. TONES INDXNAME AFLAG SET INDEX TO &INDXNAME LEADINDX INDXCOUNT INDXCOUNT INDXCOUNT LEADINDX INDXCOUNT INDXCOUNT INDXCOUNT INDXCOUNT INDXCOUNT >@)F3 THISREC LEADINDX THISREC Enter LEADINDX to find: THISREC Enter record number to find: THISREC THISREC THISREC THISREC LEADINDX THISREC GOTO &THISREC TONES AFLAG TONES AFLAG AFLAG THISREC THISREC @Z 999999 Enter record number to DELETE: THISREC THISREC THISREC TONES AFLAG PASTEIT to abort. or to move through file. PASTEIT AFLAG TMPFILE TMPFLD TMPFLD OOPS=MESSAGE() &TMPFLD _ERROR CODE: TMPFLD FILE: TMPFILE PASTEIT DELETE this record? PASTEIT AFLAG DELETE in progress . . . AFLAG AFLAG PASTEIT AFLAG AFLAG TONES AFLAG AFLAG