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

