WINCOL CENTER SET WINDOW TO "PASTE - "+FILENAME POSITION 4,CENTER SIZE &WINLIN,&WINCOL PST_SPEC PST_SPEC TMPFILE FILENAME TMPFILE TMPFILE TMPFILE (the PASTE file spec) cannot be found. TONES USE &FILENAME TONES File is empty. PASTE not available. AFLAG AFLAG INDXNAME AFLAG SET INDEX TO &INDXNAME >@)F3 THISREC 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 PASTE: THISREC THISREC THISREC TONES AFLAG PASTEIT to abort. or to move through file. FMT_SPEC FMT_SPEC TMPFIL2 FILENAME TMPFIL2 PASTEIT AFLAG TMPFIL2 TMPFIL2 TMPFLD TMPFLD OOPS=MESSAGE() &TMPFLD _ERROR CODE: TMPFLD FILE: TMPFIL2 PASTEIT PASTE this record? PASTEIT AFLAG PASTE in progress . . . AFLAG AFLAG PASTEIT AFLAG AFLAG TONES AFLAG AFLAG TMPFILE TMPFLD TMPFLD OOPS=MESSAGE() &TMPFLD _ERROR CODE: TMPFLD FILE: TMPFILE