Dec 132017
 
Places dates on Qedit pages.
File QEDATER.ZIP from The Programmer’s Corner in
Category Word Processors
Places dates on Qedit pages.
File Name File Size Zip Size Zip Type
DATER.MAC 665 311 deflated
DATER.TXT 4340 924 deflated

Download File QEDATER.ZIP Here

Contents of the DATER.TXT file


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



 December 13, 2017  Add comments

Leave a Reply