Now that the routine errors have been identified, correct them in the M source file. Use ZEDIT to invoke the editor and open the file for editing. Correct the errors previously identified and enter <CTRL-Z> to exit the editor.
Example:
GTM>ZEDIT "dmex" dmex;dmex - Direct Mode example ; begfor read !,"Name: ",name do name q:name="Q" quit nameset ln=$l(name) if ln,$e("QUIT",1,ln)=$tr(name,"quit","QUIT") d q . s name="Q" if ln<30,name?1.a.1"-".a1","1" "1a.ap do print q write !,"Please use last-name, " write "first-name middle-initial or 'Q' to Quit." quit printwrite !,$p(name,", ",2)," ",$p(name,", ") quit GTM>
This example shows the final state of a ZEDIT session of dmex.m. Note that the infinite FOR loop at line beg is corrected.