---------------^ T_STAMP.DEF ------------------( 93/10/15(Fri) 11:12:49 )
*M
80 ^^ "T_STAMP.DEF"
?.
!01 (r==-1)?>G (r)>?{>A >B >C >D >E}
:A 
ax$2c00,&i($21)
&?("%02d:%02d:%02d",cx>>8,$ff&cx,dx>>8).
:B 
ax=$2A00,&i($21)&s&?("%d/%02d/%02d (%3s)",cx%100,dx>>8,dx&$FF,"SunMonTueWedThuFriSat"+(ax&$FF)*3)#?.
:C 
ax=$2A00,&i($21)&s&?("%d/%02d/%02d(%3s)",
cx%100,dx>>8,dx&$FF,"SunMonTueWedThuFriSat"+(ax&$FF)*3)
&d#?" "ax=$2C00,&i($21)h=cx>>8,i=cx&$FF,j=dx>>8,&?
("%02d:%02d:%02d",h,i,j).
:D 
"( date:" 
ax=$2A00, &i($21) i=cx, j=dx&$FF, k=dx>>8,
ax=$2C00, &i($21)
&?("%4d-%02d-%02d time:%02d:%02d )",i,k,j,cx>>8,cx&$FF).
:E 
a[,b[,
b="０１２３４５６７８９",
ax=$2a00, &i($21) 
a=cx/1000,        
&01
a=(cx%1000)/100,  
&01
a=(cx%100)/10,    
&01
a=cx%10,          
&01 &o('年')
a=(dx>>8)/10,     
&01
a=(dx>>8)%10,     
&01 &o('月')
a=(dx&$ff)/10,    
&01
a=(dx&$ff)%10,    
&01 &o('日')
a="日月火水木金土日"+(ax&7)*2, 
&o('（') &?("%2s",a) &o('）')  
b],a],
1:      &o((b..a)!!).

*P
1	"【メニュー】",33,5
	"A 15:30:00"
	"B 93/10/10 (Sun)"
	"C 93/10/10(Sun) 19:34:13"
	"D ( date:1993-10-10 time:15:30 )"
	"E １９９３年１０月１０日（日）"
*
---------------$ T_STAMP.DEF ( zenkaku:37 hankaku:455 )------------------