CD CMDQoqDW CYM ooRS CYMoooZDEDATE DOC ror-READ ME *-oCD ZEX/īoqFOR 6Tor **************************************************************** **** Routine for startup add date to file for macro for ZDE **** **** only adds date if not current. **** **************************************************************** zde Rs if ne $dm/$dd/$dy %ld;cls;q s;DW;/cd1 $*;else;rzde $*;fi cd1 echo $1 $*;RS rzex cd $* $dm/$dd/$dy %ld %D$rt07 %$dm $rH03, 19$RH01;rzde $*;q r vDW.COQc]w7vmiʱLJb^,ݝU&tz]Py?-c]j'_?6jPz43"(chȧ䣑 ax(4YwƖm) j71_XbQ3K@!1$B$d-8cG"R 2B$ R<0-1ļ*ҍ!Z^+ 4_ttao۞mubJ 6PtK)RVOvgm*P=9q)3Mhȩy'(,@Wvx@VzCDv5/@~;cߖN!.x/6X }gF # ⪻V>rr&m<-1a%:Ɵ=j[{-K ԚWA.D{/?X͌"P܍Dȸo&H}(8렁J-"m2˚U^/rVU;y~o^W][ā.-JsXϨES|⠅LYKH꣦ ܏Td(=}7_a8ʊ@f_2VZ_>?>#SC,79ȓJ13eneh3QZWco$VD|cX$&5ӱ *~[ަKu6Г|ŋqQYU5VUn ϸXEAfG?*Kݏm` ?+y0"r#v`-߷;L J "HJPW@}~6y&R.He_N/h=0;\ɋ5Ɂ؋%1Hk/ 7ʝX΍@qa4uOd~$Q``l4fqf._s}1'@M=v5C>Go0؆oQn ) Д?Z3A$Ig.ukX<xul];_q߲#\9mPb "9mrvsyY04g6uz\2q#hY &0go2˃jWzi'<:S%>tک_t߀jƈF6vRS.COMMbc2vr6[燬 3?Qh@R c?gbPn,͛srbF{xܙv)@oiuGFAڬv_emZ:׸8/KgJXvk)&$\l> g||?HKT AOyYǷc2L.]^< '9~~4&- M6`m0N-D  ~Мy4D/gv5v,5J \+-r'cXzf3_#%aJ) \~nK\"uOQ3s.F7Z٬ZmfTD yvV:`l8u4ceNЎݧ?iCzJs^Lj&r2-ʼn1q} ~ xU~~-GVd8՚=QKI@;";2fGfK yCAa{qH t殱LcRϣ@E_8 z;:|) tQXC>/W`f_^9`xv/NFt`+xgk[\dFq0ܵ8ЛOȽQ?m^@sB[V#J!._m 7؎[ט-1 |LR׫uA9%~&Eu޹]/iq:?3Dç<Bߙ_r&Dx~Aoí1-Fd2f/MB<wo10ܲuc#NelW )zӫpv귁W," L %f {n 퀔]+MoZ٘:Lu\}< ֒ާ$ o̜і&{ZnhW"KD[T[7ۜg77;dz덪Fn70rMDϖ;}s_sz7W;L#-"yV ( mM>Țꪲ穵d 鄭,HbTTENyQ<eW>G$r]u d@ό? M%T5@6 [Y"_O6FVWp^6r@B{]t¨[2ſ6l WToPwbEBz\4&C Af((Z6Klۂl 74l%P)Ê H ʆx:Ž<9ey*5^;ó{yr3c։S3'٠h7ð} |Jc޾5mAҳW m[uWx 4)Sjp oJp6Ϟ}B/kB(zi;<8uc}Nr=O㨭;`"\ (ftd }0UljfVcXby`OT1iA=PA%]o=3߶ɝZ;tY 󥉭㊒fQ 5 ]~RE7kGy1gS xl6xϵcGv sM&b-|uǫ,+>#Zy1΅by2P~m~J1C*Rq=|D̟R%][$k[Lĭ% ~+zq`ߎpכ;r,7ywxs0|J<3{ߠ󰀉This process was started by Rick Charnes and I refined it for my purposes. I renamed zde.com rzde.com so that when I call for zde it uses the alias zde which check to see if the current date and the varable ld in sh.var file are the same if so it runs zde as normal. If varable ld is not equal to the date the alias calls for DW (day of week, patched to put the date and time into the registors.) Then RS (which is RESOLVE.COM patched to run quiet) and ZEX50.COM using the zex file cd use zde to write the date into A:date file and zde is exited. After which the variable ld is saved to sh.var file. From here on out each time you press the ZDE macro key assigned ZDE reads in A:date and you are on your way. Oh yes the ZDE control macro is ^Kra0:date^M^Qd you need to set up these varables in your sh.var file using SHDEFINE.COM 01 JANUARY 02 FEBRUARY 03 MARCH 04 APRIL 05 MAY 06 JUNE 07 JULY 08 AUGUST 09 SEPTEMBER 11 NOVEMBER 10 OCTOBER 12 DECEMBER These with RESOLVE.COM change the number of the month to a word. I think it is neet and use it all the time. Enjoy Mike WinslowZDEDATE requires DateStamper-style time and datestamping. A real time clock will be necessary for the hour and seconds display. It further requires ARUNZ version 0.9U. Files contained herein: CD.CMD <-- ARUNZ alias entry. Insert into your ALIAS.CMD. CD.ZEX <-- Appropriate ZEX file RS.COM <-- RESOLVE.COM patched to produce no sign-on message, even with quiet byte OFF. DW.COM <-- Day of Week .COM This puts day of week and time into the regesters ZDEDATE.DOC <-- DOC file -READ.ME <-- This file ZDEDATE.FOR ;; My ZEX script for putting the date into a file. |SILENCE| |zexmsg off| |say|I'm thinking please stand-by |cr lf||cr lf||cr lf||endsay| |SAY|"6 |ENDSAY| ;; Turns off curser ADM-31 Terminal era a:date {This puts file DATE. in dir A: for use with ZDE ^[2 macro} rzde a:date <$5 $6 $7s {this line puts the date in A:DATE file the ^Qs moves the curser to the beginning of the Month. The ^d moves the curser one in leaving you a capital the rest changes the month to small letters} < x ;; Saves and Exits zde SHVAR ld $2 ;; This puts current date into sh.var file |say|"3Thank-you for waiting!|endsay| ;; Turns on curser to line slow blink Use alias and ZEX to put the date in ZDE documents using a macro key. I got tired of looking up the date every time I wanted to put it into a letter.