Category : Word Processors
Archive   : AMAC43B.ZIP
Filename : DAT001.QM

* dat001.qm
* Written By Tom Hogshead
* [ See DATExx.QM For Use ]
* 5/12/92
* Bytes
* Key Subfile Description/Output Small Fast
* ===== =============== ========================================== ==== ====
* @(4) April 9, 1992 68
* @(1) | 333
* @(f4) 9 April 1992 (European) 68 |chg
* @(f1) | ( no comma) (European) |chg 336
* 
* {e:\up\DATE*}--Return To DATExx.QM BEST
*
*-- eoi

* See DATE*.QM for timing results comparing @1 and @4.

*  M A C R O S
* ---------------------------------------------------------------------
* @(1) Date in English "March 9, 1991", not "Sat 03-09-1991"
* ---------------------------------------------------------------------
@1 macrobegin setscreenoff savesettings setinsmode setsoundoff
defaultwordset
insertdate
toggleinsert wordleft backspace * Delete dashes
wordleft backspace toggleinsert *
* ------------------ Replace Month Number with Name ------------------*
wordleft wordleft delrtword markcolumn
findreplace "0" return delline return "ln" return
markword
findreplace "1" return "January" return "lnw" return
findreplace "2" return "February" return "lnw" return
findreplace "3" return "March" return "ln" return
findreplace "4" return "April" return "ln" return
findreplace "5" return "May" return "ln" return
findreplace "6" return "June" return "ln" return
findreplace "7" return "July" return "ln" return
findreplace "8" return "August" return "ln" return
findreplace "9" return "September" return "ln" return
findreplace "10" return "October" return "ln" return
findreplace "11" return "November" return "ln" return
findreplace "12" return "December" return "ln" return
wordright markcolumn
findreplace
"0" return delline return "ln" return * Remove leading zeros
markword gotoblockend "," * Insert "," after day #
wordright markword gotoblockend cursorright
unmarkblock restoresettings
*
* 408 bytes Thu 03-21-1991 04:57:30
* 410 bytes Mon 04-01-1991 10:42:59 put 2 spaces after year
* 377 bytes Thu 04-11-1991 16:08:44 removed jtrue NODASH
* 376 bytes Wed 04-08-1992 20:49:13 (TH @1, added setscreenoff)
* 376 bytes Wed 04-08-1992 20:49:13 (TH @1, to TT #21/5260-63)
* 376 bytes Wed 04-08-1992 20:49:13 (TH @1, to ALL #3/831-33)
* 333 bytes Mon 04-13-1992 11:34:33 (TH @1, shortened)
* 333 bytes Mon 04-13-1992 11:34:33 (TH @1, to ALL #3/834-35)

* 
* ---------------------------------------------------------------------
* @(4) Date in English Format "April 9, 1992"
* Uses Data File $date, Small
* ---------------------------------------------------------------------
* The data file $date must exist in the current directory or change
* "d:\path\" to your path containing $date to execute in any
* directory. This macro will fit on one line of Qconfig.dat. File
* $date contains:
* ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
* ³$date ³
* ³Mon Monday Tue Tuesday Wed Wednesday Thu Thursday Fri Friday³
* ³Sat Saturday Sun Sunday 01 January 02 February 03 March ³
* ³04 April 05 May 06 June 07 July 08 August ³
* ³09 September 10 October 11 November 12 December ³
* ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ

@4 macrobegin setscreenoff setinsmode defaultwordset insertdate
* ------------------------ Remove Second Dash ------------------------*
wordleft toggleinsert backspace wordleft
* ------------------ Remove Day Number Leading Zero ------------------*
unmarkblock markcolumn * Mark day digit 1
findreplace
"0" return delline return "ln" return * Remove leading zero
* --------------- Remove First Dash, Delete Day Name ---------------*
backspace wordleft wordleft toggleinsert delrtword
* ------------------ Replace Month Number with Name ------------------*
markword cut onewindow horizontalwindow
editfile
* "d:\path\" * Change to your path for "$date"
"$date" return
find paste return delline return
wordright markword copy quit prevwindow onewindow paste
* ------------------ Insert Comma After Day Number ------------------*
wordright markword gotoblockend "," wordright
markword gotoblockend cursorright unmarkblock
*
* 78 bytes Thu 04-09-1992 22:11:39 (TH @4)
* 78 bytes Thu 04-09-1992 22:11:39 (TH @4, to TT #21/5260-63)
* 78 bytes Fri 04-10-1992 10:36:51 (TH @4, to ALL #3/831-33)
* 78 bytes Fri 04-10-1992 10:36:51 (TH @4, to ALL #3/834-35)
* 68 bytes Tue 04-14-1992 08:06:58 (TH @4, shortened)
* 68 bytes Tue 04-14-1992 08:06:58 (TH @4, to ALL #3/836)
* 68 bytes Tue 05-12-1992 09:05:02 (TH @4, changed description)

* 
* ---------------------------------------------------------------------
* @(f1) Date in European Format "9 April 1992", Fast
* ---------------------------------------------------------------------
@f1 macrobegin setscreenoff savesettings setinsmode setsoundoff
defaultwordset
insertdate
toggleinsert wordleft backspace * Delete dashes
wordleft backspace toggleinsert *
* ------------------ Replace Month Number with Name ------------------*
wordleft wordleft delrtword markcolumn
findreplace "0" return delline return "ln" return
markword
findreplace "1" return "January" return "lnw" return
findreplace "2" return "February" return "lnw" return
findreplace "3" return "March" return "ln" return
findreplace "4" return "April" return "ln" return
findreplace "5" return "May" return "ln" return
findreplace "6" return "June" return "ln" return
findreplace "7" return "July" return "ln" return
findreplace "8" return "August" return "ln" return
findreplace "9" return "September" return "ln" return
findreplace "10" return "October" return "ln" return
findreplace "11" return "November" return "ln" return
findreplace "12" return "December" return "ln" return
wordright markcolumn
findreplace
"0" return delline return "ln" return * Remove leading zeros
* ----------------------- Swap Month With Day -----------------------*
markword cursorleft markcolumn wordleft moveblock shiftleft *|
wordright wordright markword gotoblockend cursorright
unmarkblock restoresettings
*
* 341 bytes Mon 04-13-1992 11:33:03 (TH @f1)
* 336 bytes Tue 05-12-1992 08:56:37 (TH @f1, removed commas *|)

* 
* ---------------------------------------------------------------------
* @(f4) Date in European Format "9 April 1992"
* Uses Data File $date, Small
* ---------------------------------------------------------------------
* The data file $date must exist in the current directory or change
* "d:\path\" to your path containing $date to execute in any
* directory. This macro will fit on one line of Qconfig.dat. File
* $date contains:
* ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
* ³$date ³
* ³Mon Monday Tue Tuesday Wed Wednesday Thu Thursday Fri Friday³
* ³Sat Saturday Sun Sunday 01 January 02 February 03 March ³
* ³04 April 05 May 06 June 07 July 08 August ³
* ³09 September 10 October 11 November 12 December ³
* ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ

@f4 macrobegin setscreenoff setinsmode defaultwordset insertdate
* ------------------------ Remove Second Dash ------------------------*
wordleft toggleinsert backspace wordleft
* ------------------ Remove Day Number Leading Zero ------------------*
unmarkblock markcolumn * Mark day digit 1
findreplace
"0" return delline return "ln" return * Remove leading zero
* --------------- Remove First Dash, Delete Day Name ---------------*
backspace wordleft wordleft toggleinsert delrtword
* ------------------ Replace Month Number with Name ------------------*
markword cut onewindow horizontalwindow
editfile
* "d:\path\" * Change to your path for "$date"
"$date" return
find paste return delline return
wordright markword copy quit prevwindow onewindow paste
* ----------------------- Swap Month With Day -----------------------*
gotoblockend markcolumn wordright wordright moveblock wordright *|
markword gotoblockend cursorright unmarkblock
*
* 79 bytes Fri 04-10-1992 11:17:33 (TH @f4)
* 79 bytes Fri 04-10-1992 11:17:33 (TH @f4, to TT #21/5260-63)
* 79 bytes Fri 04-10-1992 11:17:33 (TH @f4, to ALL #3/831-33)
* 70 bytes Tue 04-14-1992 06:23:45 (TH @f4, shortened)
* 68 bytes Tue 05-12-1992 08:52:57 (TH @f4, removed commas *|)
* 68 bytes Tue 05-12-1992 09:17:19 (TH @f4, changed description)

*--eof