******************************************************************************* * * * This is a macro to convert the standard QEDIT date "Tue 11-12-1991 " * * to a format of "Tuesday, November 12, 1991". * * * * I put this line in my QCONFIG.DAT file so I could load the date macro * * using my Shift F12 key. Macro loads to Control-F2 Key. * * * * #F12 MacroBegin MacroRead "C:\QEDIT\DATER.MAC" Return * * * * Then use QMAC to create the DATER.MAC macro. * * * * Created using QEDIT version 2.15 * * Tuesday, November 12, 1991 * * Jonathan M. McRobert * * (503) 235-2146 * * * * If you can improve on this, let me know! * ******************************************************************************* ^F2 SetSoundOff EditFile "$$DATER$$.$#$" Return "þ" InsertDate Find "þ" Return "B" Return Find "Mon" Return Return JFalse TUE DelCh DelCh DelCh SetInsMode "Monday," ToggleInsert TUE: Find "Tue" Return Return JFalse WED DelCh DelCh DelCh SetInsMode "Tuesday," ToggleInsert WED: Find "Wed" Return Return JFalse THU DelCh DelCh DelCh SetInsMode "Wednesday," ToggleInsert THU: Find "Thu" Return Return JFalse FRI DelCh DelCh DelCh SetInsMode "Thursday," ToggleInsert FRI: Find "Fri" Return Return JFalse SAT DelCh DelCh DelCh SetInsMode "Friday," ToggleInsert SAT: Find "Sat" Return Return JFalse SUN DelCh DelCh DelCh SetInsMode "Saturday," ToggleInsert SUN: Find "Sun" Return Return JFalse EEK DelCh DelCh DelCh SetInsMode "Sunday," ToggleInsert EEK: Cursorright Cursorright Cursorright Cursorright DeltoEOL Cursorleft Cursorleft CursorLeft CursorLeft DelCh Find "01" Return Return JFalse FEB DelCh DelCh SetInsMode "January " ToggleInsert FEB: Find "02" Return Return JFalse MAR DelCh DelCh SetInsMode "February " ToggleInsert MAR: Find "03" Return Return JFalse APR DelCh DelCh SetInsMode "March " ToggleInsert APR: Find "04" Return Return JFalse MAY DelCh DelCh SetInsMode "April " ToggleInsert MAY: Find "05" Return Return JFalse JUN DelCh DelCh SetInsMode "May " ToggleInsert JUN: Find "06" Return Return JFalse JUL DelCh DelCh SetInsMode "June " ToggleInsert JUL: Find "07" Return Return JFalse AUG DelCh DelCh SetInsMode "July " ToggleInsert AUG: Find "08" Return Return JFalse SEP DelCh DelCh SetInsMode "August " ToggleInsert SEP: Find "09" Return Return JFalse OCT DelCh DelCh SetInsMode "September " ToggleInsert OCT: Find "10" Return Return JFalse NOV DelCh DelCh SetInsMode "October " ToggleInsert NOV: Find "11" Return Return JFalse DEC DelCh DelCh SetInsMode "November " ToggleInsert DEC: Find "12" Return Return JFalse END DelCh DelCh SetInsMode "December " ToggleInsert END: "þ" InsertDate Find "þ" Return "B" Return DelCh DelCh DelCh DelCh DelCh DelCh DelCh DelCh DelCh Cursorright Cursorright SetInsMode ", " DelCh BegLine DelCh MarkBlockBegin EndLine MarkBlockEnd Cut Quit Paste ToggleInsert GoToBlockEnd Unmark_block SetSoundOn ******************************************************************************* * End of Macro * *******************************************************************************