home *** CD-ROM | disk | FTP | other *** search
/ ProfitPress Mega CDROM2 …eeware (MSDOS)(1992)(Eng) / ProfitPress-MegaCDROM2.B6I / TEXT / EDITOR / QEDATER.ZIP / DATER.TXT < prev   
Encoding:
Text File  |  1991-11-12  |  4.2 KB  |  74 lines
  1. *******************************************************************************
  2. *                                                                             *
  3. * This is a macro to convert the standard QEDIT date "Tue  11-12-1991  "      *
  4. * to a format of "Tuesday, November 12, 1991".                                *
  5. *                                                                             *
  6. * I put this line in my QCONFIG.DAT file so I could load the date macro       *
  7. * using my Shift F12 key. Macro loads to Control-F2 Key.                      *
  8. *                                                                             *
  9. * #F12       MacroBegin MacroRead "C:\QEDIT\DATER.MAC" Return                 *
  10. *                                                                             *
  11. * Then use QMAC to create the DATER.MAC macro.                                *
  12. *                                                                             *
  13. *                     Created using QEDIT version 2.15                        *
  14. *                        Tuesday, November 12, 1991                           *
  15. *                           Jonathan M. McRobert                              *
  16. *                              (503) 235-2146                                 *
  17. *                                                                             *
  18. *                 If you can improve on this, let me know!                    *
  19. *******************************************************************************
  20. ^F2         SetSoundOff
  21.             EditFile "$$DATER$$.$#$" Return
  22.             "■" InsertDate
  23.             Find "■" Return "B" Return
  24.             Find "Mon" Return Return JFalse TUE
  25.             DelCh DelCh DelCh SetInsMode "Monday," ToggleInsert
  26.   TUE: Find "Tue" Return Return JFalse WED
  27.          DelCh DelCh DelCh SetInsMode "Tuesday,"   ToggleInsert
  28.   WED: Find "Wed" Return Return JFalse THU
  29.          DelCh DelCh DelCh SetInsMode "Wednesday," ToggleInsert
  30.   THU: Find "Thu" Return Return JFalse FRI
  31.          DelCh DelCh DelCh SetInsMode "Thursday,"  ToggleInsert
  32.   FRI: Find "Fri" Return Return JFalse SAT
  33.          DelCh DelCh DelCh SetInsMode "Friday,"    ToggleInsert
  34.   SAT: Find "Sat" Return Return JFalse SUN
  35.          DelCh DelCh DelCh SetInsMode "Saturday,"  ToggleInsert
  36.   SUN: Find "Sun" Return Return JFalse EEK
  37.          DelCh DelCh DelCh SetInsMode "Sunday," ToggleInsert
  38.   EEK: Cursorright Cursorright Cursorright Cursorright
  39.        DeltoEOL Cursorleft Cursorleft CursorLeft CursorLeft DelCh
  40.        Find "01" Return Return JFalse FEB
  41.          DelCh DelCh SetInsMode "January "   ToggleInsert
  42.   FEB: Find "02" Return Return JFalse MAR
  43.          DelCh DelCh SetInsMode "February "  ToggleInsert
  44.   MAR: Find "03" Return Return JFalse APR
  45.          DelCh DelCh SetInsMode "March "     ToggleInsert
  46.   APR: Find "04" Return Return JFalse MAY
  47.          DelCh DelCh SetInsMode "April "     ToggleInsert
  48.   MAY: Find "05" Return Return JFalse JUN
  49.          DelCh DelCh SetInsMode "May "       ToggleInsert
  50.   JUN: Find "06" Return Return JFalse JUL
  51.          DelCh DelCh SetInsMode "June "      ToggleInsert
  52.   JUL: Find "07" Return Return JFalse AUG
  53.          DelCh DelCh SetInsMode "July "      ToggleInsert
  54.   AUG: Find "08" Return Return JFalse SEP
  55.          DelCh DelCh SetInsMode "August "    ToggleInsert
  56.   SEP: Find "09" Return Return JFalse OCT
  57.          DelCh DelCh SetInsMode "September " ToggleInsert
  58.   OCT: Find "10" Return Return JFalse NOV
  59.          DelCh DelCh SetInsMode "October "   ToggleInsert
  60.   NOV: Find "11" Return Return JFalse DEC
  61.          DelCh DelCh SetInsMode "November "  ToggleInsert
  62.   DEC: Find "12" Return Return JFalse END
  63.           DelCh DelCh SetInsMode "December "  ToggleInsert
  64.   END: "■" InsertDate Find "■" Return "B" Return
  65.        DelCh DelCh DelCh DelCh DelCh DelCh DelCh DelCh DelCh
  66.        Cursorright Cursorright SetInsMode ", " DelCh
  67.        BegLine DelCh MarkBlockBegin EndLine
  68.        MarkBlockEnd Cut Quit Paste ToggleInsert
  69.        GoToBlockEnd Unmark_block SetSoundOn
  70. *******************************************************************************
  71. * End of Macro                                                                *
  72. *******************************************************************************
  73.  
  74.