=== Floatime.def 浮遊時計
#if
Floatime.def ver.0.9 for PC-9801/9821
Modified : Sat, May. 13, 1995

画面を一定時間毎に浮遊する時計です。９８専用。
[ESC] で終了し、画面を復帰します。復帰にはタイムラグがあります。
#endif

*M
77 [ESC]K "Float-time"
	?. An[,Ac[-,As[-,(CA&32)? CA[-=32,	; 黒 青 赤 紫 緑 空 黄 白
	An1,					;←0  1  2  3  4  5  6  7
	&d ax$900,dx="$(1b)[>1h$$",&i($21)
:A	ax=$2C00,&i($21) rn=cx+dx,&r x=(r%30)*2,y=r%14+5,w16,
	&01 &07 &02 &08 &03 &04 &09 &k (r!=$1b)? >A
	ax$900,dx="$(1b)[>1l$$",&i($21) CA],As],Ac],An],&d
01:	i-,l-,p=160*y+2*x,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+=4,
	(20){p.0=$00,p++,} p-=20,p.0=$20,p.2=$66,p.4=$6C,p.6=$6F,p.8=$61,
	p.10=$74,p.12=$69,p.14=$6D,p.16=$65,p.18=$20,p+=20,
	&05 p..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:	c-,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(6)
	(i)?{i-,&w(2) >B} p],dz],c++,(c<5)?{&w(1) >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,
07:	i-,l-,p=160*y+2*x,dz[=$A000,p+=$2000,
: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],
08:	p=160*y+2*x,dz[=$A000,p[+=$2000,(16){p.0=$A5,p+=2,} p+=128,
	p.0=$A5,p.2=$A5,p+=4,(12){p.0=$E1,p+=2,}
	p.0=$A5,p.2=$A5,p+=132,(16){p.0=$A5,p+=2,} p],dz],
09:	i-,l-,p=160*y+2*x,dz[=$A000,p+=$3000,
: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],
*