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

* DATE16.QM
* Written By Tom Hogshead
* With Macro Contributions By Tim Farley and Mel Hulse
* 5/26/92
* Bytes
* Key Subfile Description/Output Small Fast
* ===== =============== ========================================== ==== ====
* D A T E . . .
* @f4 Jeudi 9 Avril 1992 French |new 89
* @f2 Thursday 9 April 1992 European |chg 83
* @f9 | (  no commas) European |chg 407
* @f4 {e:\up\dat001} 9 April 1992 European |chg 68
* @f1 {e:\up\dat001} | ( no comma) European |chg 336
* @4 {e:\up\dat001} April 9, 1992 68
* @1 {e:\up\dat001} | 333
* @2 Thursday April 9, 1992 82
* @9 | ( no comma) 403
* @[ @(rgt_bracket) Thursday, April 9, 1992 86
* @] @(lft_bracket) | 406
* @7 4-9-92 US - 31
* @6 4/9/92 US / 37
* @f10 9-4-92 European - 38
* @f3 9/4/92 European / 44
* @8 9.4.92 European . 44
* ^f2_ Thu 4-16-1992 DOS format 33
* @f5 {e:\up\dat002} Thursday, April 9, 1992 at 11:18 am 137
* @f6 {e:\up\dat002} | 862
* @f7 {e:\up\dat003} Tom Hogshead, Friday, May 8, 1992 at 11:27 am 164
* @f8 {e:\up\dat003} | 890
* ^f1_ {e:\up\dat003} Tom Hogshead Friday, May 8, 1992 at 11:27 am 163
* ( no comma)
* T I M E . . .
* @3 {e:\up\dat003} 5:26 pm 53
* @0 {e:\up\dat003} | 252
*
* @h Jump To Macro or Index Item In Current File
*
* Description
* Index Use
* NOTE Re Configuration
* Timing Comparing @1 and @4 in dat001.qm
* Version History
*
*-- eoi


* (DESCRIPTION)
* --------------
* DATEnn.QM are QEdit macros for alternate date and time formats:
* - Date in English Thursday, April 9, 1992
* - Date in European Thursday 9 April 1992
* - Date in French Jeudi 9 Avril 1992
* - Date in US Short 8/26/91
* - Date in US Short 8-26-91
* - Date in English March 9, 1991
* - Date in European 9 March 1991
* - Date in English Sunday, March 31, 1991 at 4:43 pm
* - Name/Date/Time Tom Hogshead, Thursday, April 11, 1991 at 4:01 pm
* - Time in Standard 5:26 pm, not Military 17:26:37


* (INDEX) USE
* -------------
* To locate a macro or item in this file, press @h, place the cursor
* line on the desired item in the Index above, and press .
* See BOOKxx.QM for more details.


* (NOTE) RE CONFIGURATION
* -------------------------
* Macros using "delrtword" require Qconfig to be set as follows:
* Delete white space after words with del_rt_word command (Y/N)? [Y] : Y


* (Timing) Comparing @1 and @4 (dat001.qm)
* ------------------------------------------
* Repeats/Sec Secs/Repeat
* =========== ===========
* @1 10 0.1 Approx. 10x faster
* @4 (cache) 5 0.2
* @4 (no cache) 1 1.0

*  M A C R O S
* ---------------------------------------------------------------------
* @(2) Date in English Format "Thursday 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. 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 ³
* ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ

@2 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 ------------------------*
backspace wordleft wordleft toggleinsert
* ------------------------- Expand Day Name -------------------------*
markword cut onewindow horizontalwindow
editfile
* "d:\path\" * Change to path for "$date"
"$date" return
find paste return delline return
wordright markword copy prevwindow paste
* ------------------ Replace Month Number with Name ------------------*
wordright markword cut nextwindow
find paste return delline return
wordright markword copy quit prevwindow onewindow paste
* ------------------ Insert Comma After Day Number ------------------*
gotoblockend wordright markword gotoblockend "," wordright
markword gotoblockend cursorright unmarkblock
*
* 91 bytes Fri 04-10-1992 09:54:07 (TH @2)
* 91 bytes Fri 04-10-1992 09:54:07 (TH @2, to TT #21/5260-63)
* 91 bytes Fri 04-10-1992 09:54:07 (TH @2, to ALL #3/831-33 full)
* 91 bytes Fri 04-10-1992 09:54:07 (TH @2, to ALL #3/834-35 full)
* 82 bytes Tue 04-14-1992 06:34:07 (TH @2, shortened)
* 82 bytes Tue 04-14-1992 06:34:07 (TH @2, to ALL #3/836)
* 82 bytes Tue 05-12-1992 09:06:57 (TH @2, changed description)

* 
* ----------------------------------------------------------------------
* @(6) Date in US Short <4/9/92> not , No Filled Zeros
* ----------------------------------------------------------------------
@6 macrobegin setscreenoff defaultwordset
insertdate prevposition delrtword * Del day name
unmarkblock markcolumn
findreplace "0" return delline return "ln" return * Remove leading zeros
wordright repeatfind
* wordleft unmarkblock markcharacter wordright * Add for European
* markcharacter wordright moveblock * Add for European
backspace "/" wordright backspace "/" * Delete dashes
delch delch * Delete "19"
markword gotoblockend cursorright unmarkblock * Pos 2 spcs right
*
* 61 bytes Tue 08-27-1991 00:17:17 (TH @6)
* 62 bytes Wed 04-08-1992 20:50:23 (TH @6, added setscreenoff)
* 62 bytes Wed 04-08-1992 20:50:23 (TH @6, to TT #21/5260-63)
* 62 bytes Wed 04-08-1992 20:50:23 (TH @6, to ALL #3/831-33)
* 37 bytes Mon 04-13-1992 15:57:23 (TH @6, shortened)
* 37 bytes Mon 04-13-1992 15:57:23 (TH @6, to ALL #3/834-35)

* 
* ----------------------------------------------------------------------
* @(7) Date in US Short <4-9-92> not , No Filled Zeros
* ----------------------------------------------------------------------
@7 macrobegin setscreenoff defaultwordset
insertdate prevposition delrtword * Del day name
unmarkblock markcolumn
findreplace "0" return delline return "ln" return * Remove leading zeros
wordright repeatfind
* wordleft unmarkblock markcharacter wordright * Add for European
* markcharacter wordright moveblock * Add for European
wordright delch delch * Del "19"
markword gotoblockend cursorright unmarkblock * Pos 2 spcs right
*
* 49 bytes Tue 08-27-1991 09:52:57 (TH @7)
* 50 bytes Wed 04-08-1992 20:50:51 (TH @7, added setscreenoff)
* 50 bytes Wed 04-08-1992 20:50:51 (TH @7, to TT #21/5260-63)
* 50 bytes Wed 04-08-1992 20:50:51 (TH @7, to ALL #3/831-33)
* 31 bytes Mon 04-13-1992 15:59:58 (TH @7, shortened)
* 31 bytes Mon 04-13-1992 15:59:58 (TH @7, to ALL #3/834-35)

* 
* ----------------------------------------------------------------------
* @(8) Date in European <9.4.92> not , No Filled Zeros
* ----------------------------------------------------------------------
@8 macrobegin setscreenoff defaultwordset
insertdate prevposition delrtword * Del day name
unmarkblock markcolumn
findreplace "0" return delline return "ln" return * Remove leading zeros
wordright repeatfind
wordleft unmarkblock markcharacter wordright * Remove for US
markcharacter wordright moveblock * Remove for US
backspace "." wordright backspace "." * Delete dashes
delch delch * Delete "19"
markword gotoblockend cursorright unmarkblock * Pos 2 spcs right
*
* 44 bytes Wed 04-15-1992 09:28:03 (TH @8)

* 
* ---------------------------------------------------------------------
* @(9) Date in English Format "Thursday April 9, 1992", Fast
* ---------------------------------------------------------------------
* This macro was written after writing @f9 for Thomas Taylor on SemWare
* ILink Conference 21 on Thursday April 9, 1992.

@9 macrobegin setscreenoff savesettings setinsmode setsoundoff
defaultwordset
insertdate
toggleinsert wordleft backspace * Delete dashes
wordleft backspace toggleinsert *
* ------------------------- Expand Day Name -------------------------*
wordleft wordleft markword * ue-tUE, d-weD, h-tHu, t-saT
find "ue" return "l" return jfalse A gotoblockend "s"
A: find "d" return "l" return jfalse B gotoblockend "nes"
B: find "h" return "l" return jfalse C gotoblockend "rs"
C: find "t" return "l" return jfalse D gotoblockend "ur"
D: gotoblockend "day"
* ------------------- Insert Comma After Day Name -------------------*
* "," delch * Add to put comma after day name
* ------------------ Replace Month Number with Name ------------------*
wordright 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
*
* 413 bytes Fri 04-10-1992 09:52:09 (TH @9)
* 413 bytes Fri 04-10-1992 09:52:09 (TH @9, to TT #21/5260-63)
* 413 bytes Fri 04-10-1992 09:52:09 (TH @9, to ALL #3/831-33 full)
* 403 bytes Mon 04-13-1992 11:04:43 (TH @9, shortened)
* 403 bytes Mon 04-13-1992 11:04:43 (TH @9, to ALL #3/834-35)

* 
* ---------------------------------------------------------------------
* @(f2) Date in European Format "Thursday 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. 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 ³
* ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ

@f2 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
* ------------------------- Expand Day Name -------------------------*
markword cut onewindow horizontalwindow
editfile
* "d:\path\" * Change to path for "$date"
"$date" return
find paste return delline return
wordright markword copy prevwindow paste
* ----------------- Delete Extra Char After Day Name -----------------*
gotoblockend delch *|
* ------------------ Replace Month Number with Name ------------------*
wordright markword cut nextwindow
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
*
* 96 bytes Thu 04-09-1992 21:51:03 (TH @f2)
* 96 bytes Thu 04-09-1992 21:51:03 (TH @f2, to TT #21/5260-63 full)
* 96 bytes Thu 04-09-1992 21:51:03 (TH @f2, to ALL #3/831-33)
* 87 bytes Tue 04-14-1992 07:36:16 (TH @f2, shortened)
* 83 bytes Tue 05-12-1992 08:27:27 (TH @f2, removed commas *|)
* 83 bytes Tue 05-12-1992 09:18:08 (TH @f2, changed description)

* 
* ----------------------------------------------------------------------
* @(f3) Date in European <9/4/92> not , No Filled Zeros
* ----------------------------------------------------------------------
@f3 macrobegin setscreenoff defaultwordset
insertdate prevposition delrtword * Del day name
unmarkblock markcolumn
findreplace "0" return delline return "ln" return * Remove leading zeros
wordright repeatfind
wordleft unmarkblock markcharacter wordright * Remove for US
markcharacter wordright moveblock * Remove for US
backspace "/" wordright backspace "/" * Delete dashes
delch delch * Delete "19"
markword gotoblockend cursorright unmarkblock * Pos 2 spcs right
*
* 44 bytes Wed 04-15-1992 09:16:30 (TH @f3)

* 
* ---------------------------------------------------------------------
* @(f4) Date in French Format "Jeudi 9 Avril 1992 ",
* Uses Data File $date.fr
* ---------------------------------------------------------------------
* The following data file $date.fr must exist in the current directory
* and must be modified further with French day and month names, like
* Thu and 04. Change $date.fr to d:\path\$date.fr to execute in any
* directory. File $date.fr contains:

* ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ French ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
* ³$date.fr ³
* ³Mon Lundi Tue Mardi Wed Mercredi Thu Jeudi Fri Vendredi³
* ³Sat Samedi Sun Dimanche 01 Janvier 02 F‚vrier 03 Mars ³
* ³04 Avril 05 Mai 06 Juin 07 Juillet 08 Ao–t ³
* ³09 Septembre 10 Octobre 11 Novembre 12 D‚cembre ³
* ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ

* This macro was written at the request of Christian Perrier on the
* SemWare Intelec echo Conference #24, Message #840 5/11/92 who
* graciously provided the translated data table $date.fr. The
* algorithm is the same as @f2 except the data file is $date.fr instead
* of $date. Today's date in French is Mercredi 20 Mai 1992.

@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
* ---------------- Expand Day Name To French Day Name ----------------*
markword cut onewindow horizontalwindow
editfile "$date.fr" return *|
find paste return delline return
wordright markword copy prevwindow paste
gotoblockend delch * Removes space after day name *|
* ----------- Replace Month Number with French Month Name -----------*
wordright markword
cut nextwindow
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
*
* 87 bytes Tue 04-14-1992 07:36:16 (TH @f2, in Amac42e.zip)
* 89 bytes Mon 05-11-1992 13:57:19 (TH @f2, French version)
* 89 bytes Mon 05-11-1992 13:57:19 (TH @f2, to CP #24/840)
* 89 bytes Wed 05-20-1992 14:53:00 (TH @f4)

* 
* ---------------------------------------------------------------------
* @(f9) Date in European Format "Thursday 9 April 1992", Fast
* ---------------------------------------------------------------------
* This macro is a modification of a macro written for Thomas Taylor on
* SemWare ILink Conference 21 on Thursday, 9 April, 1992.

@f9 macrobegin setscreenoff savesettings setinsmode setsoundoff
defaultwordset
insertdate
toggleinsert wordleft backspace * Delete dashes
wordleft backspace toggleinsert *
* ------------------------- Expand Day Name -------------------------*
wordleft wordleft markword * ue-tUE, d-weD, h-tHu, t-saT
find "ue" return "l" return jfalse A gotoblockend "s"
A: find "d" return "l" return jfalse B gotoblockend "nes"
B: find "h" return "l" return jfalse C gotoblockend "rs"
C: find "t" return "l" return jfalse D gotoblockend "ur"
D: gotoblockend "day"
delch * Delete extra space after day name *|
* ------------------ Replace Month Number with Name ------------------*
wordright 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
*
* 588 bytes Wed 04-08-1992 17:59:15 (TH @f9, to TT #21/5256)
* 417 bytes Thu 04-09-1992 12:57:57 (TH @f9, shortened/OK for days 10+)
* 417 bytes Thu 04-09-1992 12:57:57 (TH @f9, to TT #21/5260-63 full)
* 417 bytes Thu 04-09-1992 12:57:57 (TH @f9, to ALL #3/831-33)
* 414 bytes Tue 04-14-1992 18:02:53 (TH @f9, shortened)
* 407 bytes Tue 05-12-1992 08:44:01 (TH @f9, removed commas *|)

* 
* ----------------------------------------------------------------------
* @(f10) Date in European <9-4-92> not , No Filled Zeros
* ----------------------------------------------------------------------
@f10 macrobegin setscreenoff defaultwordset
insertdate prevposition delrtword * Del day name
unmarkblock markcolumn
findreplace "0" return delline return "ln" return * Remove leading zeros
wordright repeatfind
wordleft unmarkblock markcharacter wordright * Remove for US
markcharacter wordright moveblock * Remove for US
wordright delch delch * Del "19"
markword gotoblockend cursorright unmarkblock * Pos 2 spcs right
*
* 38 bytes Wed 04-15-1992 09:19:41 (TH @f10)

* 
* ---------------------------------------------------------------------
* @[ @(rgt_bracket) Date in English Format "Thursday, 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. 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 ³
* ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ

@[ 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 ------------------------*
backspace wordleft wordleft toggleinsert
* ------------------------- Expand Day Name -------------------------*
markword cut onewindow horizontalwindow
editfile
* "d:\path\" * Change to your path for "$date"
"$date" return
find paste return delline return
wordright markword copy prevwindow paste
* ------------------- Insert Comma After Day Name -------------------*
gotoblockend "," delch * Remove to NOT put comma after day name
* ------------------ Replace Month Number with Name ------------------*
wordright markword cut nextwindow
find paste return delline return
wordright markword copy quit prevwindow onewindow paste
* ------------------ Insert Comma After Day Number ------------------*
gotoblockend wordright markword gotoblockend "," wordright
markword gotoblockend cursorright unmarkblock
*
* 86 bytes Wed 04-15-1992 09:31:10 (TH @[)
* 86 bytes Tue 05-12-1992 09:07:51 (TH @[, changed description)

* 
* ---------------------------------------------------------------------
* @] @(lft_bracket) Date in English Format "Thursday, April 9, 1992"
* ---------------------------------------------------------------------
@] macrobegin setscreenoff savesettings setinsmode setsoundoff
defaultwordset
insertdate
toggleinsert wordleft backspace * Delete dashes
wordleft backspace toggleinsert *
* ------------------------- Expand Day Name -------------------------*
wordleft wordleft markword * ue-tUE, d-weD, h-tHu, t-saT
find "ue" return "l" return jfalse A gotoblockend "s"
A: find "d" return "l" return jfalse B gotoblockend "nes"
B: find "h" return "l" return jfalse C gotoblockend "rs"
C: find "t" return "l" return jfalse D gotoblockend "ur"
D: gotoblockend "day"
* ------------------- Insert Comma After Day Name -------------------*
"," delch * Add to put comma after day name
* ------------------ Replace Month Number with Name ------------------*
wordright 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
*
* 406 bytes Wed 04-15-1992 11:34:17 (TH @])

* 
* ----------------------------------------------------------------------
* ^(f2_) Date in DOS Format , No Filled Zero
* ----------------------------------------------------------------------
^f2 macrobegin setscreenoff defaultwordset
insertdate prevposition wordright * Pos on month
unmarkblock markcolumn
findreplace "0" return delline return "ln" return * Remove leading zero
jtrue BEFORE_OCT
cursorleft delch * Del spc if after Sep
BEFORE_OCT:
wordright wordright * Pos on year
markword gotoblockend cursorright unmarkblock * Pos 2 spcs right
*
* 33 bytes Thu 04-16-1992 21:41:52 (TH ^f2)

* 
* ----------------------------------------------------------------------
* @(h) Finds First Word On Cursor Line Marked In File Below
* ----------------------------------------------------------------------
* Press @ and h at the same time. Cursor down to desired line in
* Index. Press to locate the desired item from the Index.
* See BOOKxx.QM in AMACxx.Zip for more discussion.

@h macrobegin begfile unmarkblock markline markline
pause
wordright markword copy endpara
find "(" paste ")" return return
begline
*
* 22 bytes Tue 04-09-1991 16:23:53

* (Version) History
* ------------------
* 1.4 - Added @6 and @7. 8/27/91
* - In AMAC42.ZIP. 3/28/92
* 1.5 - Made subfiles dat001/002/003.qm. Changed keys. 4/15/92
* - Added new macros. 4/16/92
* - In Amac42e.zip. 4/26/92
* 1.6 - Changed @f2/f9. Changed @f1/f4 in dat001.qm. 5/12/92
* - Changed descriptions of all macros using $date and $time. 5/12/92
* - Added @f4 for date in French, Mercredi 20 Mai 1992. 5/20/92
*
*
*
*

* FOOTER MADE WITH @f7 in dat003.qm:
* Tom Hogshead, Tuesday, May 12, 1992 at 12:12 pm
*
*--eof