=== Winclock.def Ｖｚの窓時計
#if
Winclock.def ver.0.8 for PC-9801/9821
Modified : Thu, May. 11, 1995

窓の中でリアルタイムに動く時計です。９８専用、[ESC] で終了。
#endif

*M
77 [ESC]K "Win-clock"
	?.
	x30,y9,w16,i-,l-,p160*y+2*x,
	&01 &02 &03 &04
01:	dz[=$A000,
:A	ax=p..0,p[+=$1000,p..0=ax,p],
	(i<w)?{p+=2,i++,>A} (l<2)?{p=p+160-(2*w),i-,l++,>A} dz],
02:	p=160*y+2*x,dz[=$A000,p..0=$300C,p..1=$B00C,p+=6,
	(12){p.0=$00,p+=4,} p-=50,
	p.0=$20,p.2=$77,p.4=$69,p.6=$6E,p.8=$63,p+=10,
	p.0=$6C,p.2=$6F,p.4=$63,p.6=$6B,p.8=$20,p+=10,
	&05p..0=$340C,p..1=$B40C,p+=4,p+=160-(2*w),
	p..0=$260C,p..1=$A60C,p+=8,p.0=$20,p.1=$00,p+=2,
	&06 &06 &06 p..0=$260C,p..1=$A60C,p+=4,
	p+=160-(2*w),p..0=$380C,p..1=$B80C,p+=4,
	(6){&05} p..0=$3C0C,p..1=$BC0C,dz],
03:	p=160*y+2*x+164,
:A	ax$2C00,&i($21) j=cx>>8,f=cx&$ff,b=dx>>8,
	t=j/10+$30,j=j%10+$30,ax=t*$100+j,
	t=f/10+$30,f=f%10+$30,di=t*$100+f,
	t=b/10+$30,b=b%10+$30,si=t*$100+b,
	i+,dz[=$A000,p[+=6,
	p.0=ax>>8,p.1=$00,p.2=ax&$ff,p.3=$00,p+=6,
	p.0=di>>8,p.1=$00,p.2=di&$ff,p.3=$00,p+=6,
	p.0=si>>8,p.1=$00,p.2=si&$ff,p.3=$00,p-=18,
:B	p..0=$4301,p..1=$C301,&w(7) p..0=$3F01,p..1=$CBF1,&w(8)
	p..0=$240C,p..1=$A40C,&w(7) p..0=$4001,p..1=$C001,&w(7)
	(i)?{i-,&w(1) >B} p],dz],&w(1) &k (r!=$1B)? >A
04:	i-,l-,p=160*y+2*x,dz[=$A000,
:A	p[+=$1000,ax=p..0,p],p..0=ax,
	(i<w)?{p+=2,i++,>A} (l<2)?{p=p+160-(2*w),i-,l++,>A} dz],
05:	p..0=$240C,p..1=$A40C,p+=4,
06:	(2){p.0=$30,p.1=$00,p+=2,} p.0=$2E,p.1=$00,p+=2,
*