ALIASEXAMPL^DSCRESAVCOM ^READ ME 5^vi=ED.IT if ex $1;a0:dscresav $1 $$r;lzed $1;a0:dscresav $1 $$w;else;lzed $1;fi  Z3ENV:]/( hͩKDSCRESAV 1.0a (8000H version)--J. Glomph Black, 26 Jan 1988 --For ZCPR3 systems with DateStamper invoke by: DSCRESAV [du: or dir:]filename.typ $x where x=r or w $r saves create date of filnam in regs 0-4 $w takes data in regs 0-4, restores create date Normally used in aliases, with $r/$w sandwiching an editor D|D:m$(KNo second token!:n!R Wp* \\2" "x22Ă: G2ͦ *I!:(@[W:(2~# ͩKCreate Date stored in regs. 0-4ۂw# !#w*c;:ͦͩKOriginal Create Date saved to disk!!!TIME&DAT0xo|g~0xo|gw*"~#fo"O ?ʼ®! y#y⃯>~G怰ww >HQ~#ʥ ʏ Ͷ | ʁʁʅVV VyV VyG>GO> ›V> >  >^@O*.  OGHW@H5W@r# x@! s#r#6!! s#r#6"K:H ***** DSCRESAV ***** (for ZCPR3 systems) DateStamper CREate-date SAVer program: In the use of DateStamper, one annoying problem arises: when editing an existing file, the new version takes on a new create date, and the original creation date is lost. This can make the tracing of the history of source files difficult. DSCRESAV is best called from an alias where it is invoked both before and after an existing file is edited. It may also be used in conjunction with other programs which modify existing files, and in the process, create a new copy. AN example alias (taken from my alias.cmd file, run by the ecp, arunz:) vi=ED.IT if ex $1;a0:dscresav $1 $$r;lzed $1;a0:dscresav $1 $$w;else;lzed $1;fi Thus by typing: ed filenam.typ, the create date is saved, lzed is invoked, and upon exiting lzed the ORIGINAL create date is restored to the new file. The 'modified' date stamp reflects your editing procedure. Please send comments to me on Jay Sage's Z-NODE, 617-965-7259 Jerry Black 26 January 1988