*******************************************************************************
* *
* 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 *
*******************************************************************************