=== Floatime.def 浮遊時計 #if Floatime.def ver.0.9 for PC-9801/9821 Modified : Sat, May. 13, 1995 画面を一定時間毎に浮遊する時計です。98専用。 [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], (iA} (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, (iA} (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], (iA} (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], (iA} (l<2)?{p=p+160-(2*w),i-,l++,>A} dz], *