*M
;
53 ^OG "rep gen/ad"
	; (c)豊島正之 v01-01 89/08/26 gen3ADv
	; NB : this macro destroyes content of 'pw'
	; NB : and can't use on console (by hangyo)
	; 岡島さんの干支対応版 （ちょっと手をいれたが）
	?.
	&v(0)
	a="庚辛壬癸甲乙丙丁戊己",
	b="申酉戌亥子丑寅卯辰巳午未",
	cc="〇一二三四五六七八九",
	c=0,d=0,g=0,h=0,o=0,f=0,
:A	#07,&f(cd,b) d=r,(d==-1)?{f=0,#08,>C}?{f=1,#07}
:B	&f(cd,a) c=r,(c==-1)? {f=0,}
:C
	xx="0123456789ABCDEF",
	aa= pw,
	&#M(4),
	i=0,
	:P ((i>=8) || ((ln<=1) && (lx<1))) ? >Q
	#s,
	(cd==$0d)?  >P ? {i++, >P }
	:Q
	j= 0,
:R	(i<=0)?  >S
	(cd==$0d)? {#d, >R} ? { aa..j= cd, i--, j++, #d, >R }
:S	aa..j= 0,
	aa..(j+1)= 'Ｖ', aa..(j+2)='ｚ',
	&#U(4),
	&s,
	ss=2,	; for hangyo on Ver1.6
	#E "gen3ADv",
	(f == 1)?? {" -n11 -c11 -k22", }
	&o(' ')
	&o('/')
	&o(xx.((cz >> 12) & $000f)),
	&o(xx.((cz >> 8)  & $000f)),
	&o(xx.((cz >> 4)  & $000f)),
	&o(xx.( cz        & $000f)),
	&o(':')
	&o(xx.((aa >> 12) & $000f)),
	&o(xx.((aa >> 8)  & $000f)),
	&o(xx.((aa >> 4)  & $000f)),
	&o(xx.( aa        & $000f)),
	#m, #03
	 ss=0,
	i= 0,
:T	((i>63) || (aa..i==0))? >U
	? {&o(aa..i), i++,>T}
:U	(f==0)?>X
	(c%2==d%2)?>Z?>X
:Z	#07,(cd==$29)?{#09,&n g=r,n=0,#17#15#14#08#08}?{n=1,#08#08#08>V},
	h=g%60,
	k=0,m=0,l=0,
:V	(c==((d+k*2)%12))?{m=k,}?{k++,>V}
:W	l=((c+m*10)-h)%60,(l<0)?{l=l+60,},(n==0)?>D?>X
:D	l++,
	p=l/10, q=l%10,				; by hangyo
	u=cc+p*2,				;
	t=cc+q*2,				;
	(p==0)?u="",
	&?("（%2s%2s年）",u,t)	;
;	&m("（%2s%2s年）",u,t)	;
;	&?("（%d年）",l) 			; by OKAJIMA
:X	aa..(j+1)= 0, aa..(j+2)= 0, &d
	&v(1)
	.