Demonstration Copy ..... Do you want to complete an order form (Y/N) ? Select a Screen: APPEND MODIFY DELETE RECALL INDEX SEARCH CUSTOM SEARCH NARRATIVE SEARCH SEARCH MSCRNNM MJUNK ORDER MPAGENO MNOPAGES EMBLANK 6MVALDATA MFLDNAM MOLDVAR VMDATACHGD MLNGROUP MLOCEXP GMEM_CNT NGMEXCAL MDOS_FILE MEM_FLD q'MALSNAME MDELREC MREADKEY MLASTKEY MFLDNO FMOKTOFILE MMATCRIT MRECALL MSCHBY +MGLB_NO SCH_DEF qNORMGET NORMSAY FMTIMEOUT FMTIMEUP MCURSELECTMTAGFLD MSCRTITLE MUPDREC MFLINE MKEYLABEL MSQL_NO MSQL_CNT M_MODE CLOCK_ON BORDCOL ]MF_KEY MF_GLB FSCR_NAME FREL_VARS FMAT_DOT WSETUP MBARROW MBARCOL MOLDPAGE DISP_IMG DISPLAY FMODE_CHC PB_MAIN UPDATE SEARCH MCURREC LIST_DBF APPEND &mfldnam = SPACE(mfldwid) &mfldnam = 0 &mfldnam = { / / } &mfldnam = .F. &mfldnam = EVALUATE(ministr) &mfldnam = IIF(fldtyp = 'C',PADR(EVALUATE(mfldnam),fldwid),EVALUATE(mfldnam)) MODIFY You Cannot Modify Records Tagged for Deletion ! SEARCH &mfldnam = SPACE(mfldwid) &mfldnam = 0 &mfldnam = { / / } &mfldnam = .F. mvar(mtagno) = &mfldnam Match Left-Justified Match Sub-Strings Match Soundex Values DELETE RECALL Are You Sure (Y/N) ? APPEND SEARCH Changes Will be Lost ! ... Are You Sure (Y/N) ? SETUP TEMPLATE MEXCAL MDELREC MRECALL EMDATACHGD M_MODE M_SRCH MBLANK VMPAGENO MDOS_FILE MALSNAME GMLOCK GLOCK_FIL MUPDREC MTOPREC 'MFLDNAM FLDNAM MFLDTYP FLDTYP MFLDWID FFLDWID FLDINI MINISTR MINITSYM +MNOPAGES MJUNK qLOCK_REC MTEMP_CNT FMTAGNO MMATCRIT TMTAGFLD MMATTYP MEXECPS MKEYLABEL MCALC_SYM MREADKEY MLASTKEY MOLDPAGE DISP_IMG DISPLAY ]ONKEYS MTIMEOUT MTIMEUP MEXIT WRITE_REC BLD_SRCH [ SOFTKEYS ] DO fparse WITH &mparstr [Alt-N]: Narrative APPEND MODIFY [Ctl-W]: Save Record SEARCH CUSTOM [Ctl-W]: Begin Search DO fparse WITH &mparstr &mseek_var = EVALUATE(mf5lkp) &mseek_var = IIF(TYPE('&mseek_var') = 'C',PADR(EVALUATE(mseek_var),template->fldwid),&mseek_var) DO fparse WITH &mparstr DO (mfdo) WITH &mfpstr MFKEYNO MQUERY TEMPLATE MSEEK_VAR MTOPREC EMPAGENO FLDNAM MF_KEY SCH_DEF VFKEYS MFLINE FKEY_OPTS MPARSTR GMFOPT MF_GLB MEM_CNT 'M_MODE MSCHBY MFKEY MF5LKP MOTMPREC FMOLDFNM MFLDNAM MFPSTR +GKEYS ONKEYS DO (mprg) WITH &mpar MFKEYNO MF_GLB MFKEYMSG MFKEYPRG MFKEYPAR MF_KEY MFLINE NOWAIT Verifying Required Fields ... IF (.NOT. mgetwhen) .AND. (EMPTY(&mfldnam)) CLEAR Required Field Not Present PICTURE "F VALID(F ERROR "F COLOR EMPTY(&mfldnam) @mrowpos,mcolpos GET &mfldnam &mgetstr IF EMPTY(&mfldnam) MSG_WIND NOWAIT Verifying Required Fields ... TEMPLATEQ FELONY_NO MISDEM_NO LOOK_UP Updating Field &mfldnam = EVALUATE(mcalexpr) Saving Record ... APPEND MEMO &mem_fld FROM (mdos_file) CLEAR Post-File MOKTOFILE MSG_DISP TEMPLATE ONKEYS FLDGET EREQUIRED MESSAGE MFLDNAM FLDNAM VMGETWHEN FLDWHN MREQCOND MREQFLD GMJUNK MPAGENO FLDPAG 'DISP_IMG DISPLAY MNOPAGES MUPDREC MROWPOS FFLDROW MCOLPOS FLDCOL MCOLOR +FLDATR NORMGET qMGETSTR FLDPIC FLDVAL FFLDMSG MVALCLAUSEMREADKEY MADDED MCHKCNT MCLRWDO MCHKCAL MEXCAL SYMBOLIC FLDCAL SMSGTEXT MCALEXPR ]MALSNAME MBLANK MEM_CNT MDOS_FILE SUB_PREP Field Help Not Available KEYBOARD CHR(0) [Ctrl-F7/F8/F10]:Move/Size/Zoom [Esc]:Exit [ FIELD HELP ] Field Help Not Available ON KEY LABEL F1 &m_f1 MFLD_NAME TEMPLATE MTOPREC MPAGENO FLDNAM EMJUNK FLDHLP VHLP_FROW HLP_TROW HLP_FCOL HLP_TCOL GMHFROMROW MHFROMCOL MHLPTOROW MHLPTOCOL MFOOTER HLP_WIND [Ctrl-W]:Save [Ctrl-F7/F8/F10]:Move/Size/Zoom [Esc]:Exit [Ctrl-W]:Save [Ctrl-F7/F8/F10]:Move/Size/Zoom [Esc]:Exit [Ctrl-F7/F8/F10]:Move/Size/Zoom [Esc]:Exit KEYBOARD CHR(0) Import Data from Another Document File (Y/N) ? MODIFY MEMO &mem_fld NOEDIT RANGE mrange1, mrange2 WINDOW mem_wind MODIFY MEMO &mem_fld NOEDIT WINDOW mem_wind MODIFY MEMO &mem_fld RANGE mrange1, mrange2 WINDOW mem_wind MODIFY MEMO &mem_fld WINDOW mem_wind MNOEDIT MEDRANGE1 MEDRANGE2 MEM_CNT MEM_FLD EMNOPARS MRANGE1 MRANGE2 TEMPLATE MBLANK MFOOTER MEMWTITL MEM_WIND GMALSNAME MDOS_FILE MJUNK MEMO_IMPOR PROMPT Enter Record Number (1 to FFFQ^ Record Number is Out of Range ! CUSTOM SEARCH NARRATIVE PROMPT Search For: INDEX mvalf Index Not Properly Defined ! PROMPT Search For: SOUNDEX INDEX NOWAIT Searching ... CLEAR No Match ... End of File Encountered CUSTOM NOWAIT Searching ... CLEAR No Matching Records Found ! Records Selected No Search Expression Defined ! NARRATIVE NOWAIT Searching ... CLEAR No Matching Records Found ! Records Selected CUSTOM NARRATIVE NARRATIVE INDEX GOTO End of Search Scope ! INDEX GOTO CUSTOM NARRATIVE GOTO CUSTOM NARRATIVE CUSTOM NARRATIVE GOTO CUSTOM NARRATIVE SETUP MALSNAME MBLANK TEMPLATE MEXIT EMLOCEXP MMEMSTR MSCHBY RETKEY RETVAL MESSAGE MJUNK M_MODE GUPDATE MIDX_NO IDX_MENU SET_IDX RMEXP MVALUE M_TEMP MSQL_CNT +M_SQL MEM_FLD qMINITSYM MNOPAGES MTOPREC FMMATCRIT MSOUND USEMEMODISP MSEEKNO MSQL_NO MDELREC MUPDREC DISPLAY MPAGENO MEMATC EDIT_MEM MTIMEOUT ]MREADKEY MLASTKEY MOLDPAGE DISP_IMG M_LAST MEM_CNT NOWAIT Building Search Expression ... .AND. ATC( ) > 0 ATC(F ) > 0 .AND. SOUNDEX( ) = SOUNDEX( SOUNDEX(F ) = SOUNDEX( .AND. .AND. .AND. .AND. .AND. >= { .AND. <= { >= { .AND. <= { .AND. CLEAR MESSAGE MLOCEXP TEMPLATE SYMBOLIC MTAGNO EMTAGFLD FLDNAM MFLDNAM FLDTYP MMATCRIT MFLDDEC FLDDEC MFLDWID GFLDWID TEMPLATE Could Not be Found ! DO load_pgs WITH &mp_recs "","","" DO LOAD_GLB WITH &mglb_ln PUBLIC &mfldnam &mfldnam = SPACE(mfldwid) &mfldnam = { / / } &mfldnam = 0 &mfldnam = .F. Could Not be Found ! MCHKSCR SCR_NAME MJUNK TEMPLATE MALSNAME EFLDNAM MSCRTITLE FLDMSG MTIMEOUT FLDDEC MP_RECS FLDCAL MPRG_SET GFLDPIC MEM_CNT SYMBOLIC MEM_FLD FLDINI RCLOCK_ON REQUIRED BORDCOL FLDATR MNO_GLBS FLDHLP MGLB_NO +MGLB_LN MNO_OBJS qMFLDNAM MFLDTYP FLDTYP FMFLDWID FLDWID USEMCHKDBF MDOS_FILE MFKEYMSG MFKEYPRG MFKEYPAR MF_GLB MGLB_NO mpgFF EMPG6 MPG10 MNOPAGES MTOPREC MPGNO GMPGPAR SEARCH DO HELP WITH 'FILE_IO','SEARCH' DO fld_hlp WITH VARREAD() alt-o DO fkeys WITH 0 alt-N DO edit_mem DO fkeys WITH 2 DO fkeys WITH 3 DO fkeys WITH 4 DO fkeys WITH 5 DO fkeys WITH 6 DO fkeys WITH 7 DO fkeys WITH 8 DO fkeys WITH 9 DO next_pg DO prev_pg M_MODE MEM_CNT EM_SRCH PAGES DO (mexecprg) WITH &mexecpar MPOSTPRG MPOSTPAR MNOPARS MEXECPRG MEXECPAR ETEMPLATE POST-FILE POST-FILE NOWAIT Executing Post-File Subroutines ... Please Wait DO exec_pfs WITH &mpstline POST-FILE CLEAR MPOSTTYPE TEMPLATE MGO_TEMPL FLDSUBS MESSAGE MPFSNO MPSTLINE \