===== BIGCLOCK.DEF ver0.30 by NaruTo =====

* M
80 ^\ "BigClock"
	?.
	&s
	ep[,ei[,eu[,mi[,ds[,
	fy[,fx[,y[,x[,q[,p[,j[,d[,b[,a[,
	eu+,ei+,ep+,mi+,ds+,
	#N "#" #m mr$FF, 
	&#Y(0)
	&30
;	#N "#" #m mr$FF, &#Y(0)
;	&30
;***各種ポインタ設定***
	&50				;フォントデータ
					;          ベースポインタの設定
	b95+p,				;曜日文字列データ
					;          ベースポインタ設定
	x14+b,				;アイテム表示位置データ
					;          ベースポインタの設定
	di=j=(cx=d12)+x,		;表示文字データ記憶
					;          ベースポインタの設定
	&i("$(32,C0,F3,AA,C3)")		;表示文字データ記憶領域クリア

	fx-,				;終了フラグOFF
:A	y2,ax$2A00, &i($21)
:B	(d--==5)?{y9,ax$2C00, &i($21)}
	&15 &20
	(d)?>B
:C	&d&s
	&40
	(fx)?>05
	ax$2C00, &i($21)
	&15
	(r==j.0)?>C
	(r)??{
:D		(d++==6)?{d12,>A}
		&15
		(r)??>D
:E		&20
		r0,
		(d--)?>E
		}
	&20 >C
	
5:	#C
	a],b],d],j],p],q],x],y],fx],fy],
	ds],mi],eu],ei],ep],
	&d #]

15:	(d)>?{
		{(dx>>8%10).}		;0	秒の一の位
		{(dx/2560).}		;1	秒の十の位
		{(cx&$FF%10).}		;2	分の一の位
		{(cx&$FF/10).}		;3	分の十の位
		{(cx>>8%10).}		;4	時の一の位
		{(cx/2560).}		;5	時の十の位
		{(b.(2*ax&$FF+1)).}	;6	曜日の2文字目
		{(b.(2*ax&$FF)).}	;7	曜日の1文字目
		{(dx&$FF%10).}		;8	日の一の位
		{(dx&$FF/10).}		;9	日の十の位
		{(dx>>8%10).}		;10	月の一の位
		{(dx/2560).}		;11	月の十の位
;		{((cx-1988)%10).}	;12	平成の一の位
;		{((cx-1988)/10).}	;13	平成の十の位
;		{(cx%10).}		;14	西暦の一の位
;		{((cx%100)/10).}	;15	西暦の十の位
;		{((cx%1000)/100).}	;16	西暦の百の位
;		{(cx/1000).}		;17	西暦の千の位
	}


;文字描画ルーチン
;引数
;	r	描画する文字のコード
;	d	描画種識別添字
;	y	描画位置y座標
;広域
;	x	描画位置x座標データベースポインタ
;	p	文字フォントデータベースポインタ
;	j	表示中の文字コードデータベースポインタ
;局所
;	n	描画する文字のコードのバックアップ
;	f	文字描画カウンタ(0-4)
;	c	描画文字のフォントデータベースポインタ
;	e	表示中の文字のフォントデータベースポインタ
;	fx	終了フラグ
20:	c[,f[,e[,n[,
	c5*(n=r)+p,
	e5*j.d+p,
	f0,
	&y(y) 
:A	&x(x.d)
	(c.f!=e.f)?
		{&?("%6s","■■■　　■　■"+c.f)}
	#x
	&40
	(f++<5)?>A
	j.d=n,
	n],e],f],c],

;初期画面描画ルーチン
;***初期画面描画***
30:	#m
	&#68(10)#>
	"今日は"#m
	&#68(12)#>
	"■■■ ■■■　　　■■■ ■■■　　　■■■ ■■■"#m
	"■　■ ■　■　　　■　■ ■　■　　　■　■ ■　■"#m
	"■　■ ■　■　　　■　■ ■　■　　　■　■ ■　■"#m
	"■　■ ■　■　月　■　■ ■　■　日　■　■ ■　■"#m
	"■■■ ■■■　　　■■■ ■■■　　　■■■ ■■■"#m
	#m#h#h
	"ただいまの時刻は"#m
	&#68(12)#>
	"■■■ ■■■　　　■■■ ■■■　■　■■■ ■■■"#m
	"■　■ ■　■　■　■　■ ■　■ ■ 　■　■ ■　■"#m
	"■　■ ■　■　　　■　■ ■　■　　　■　■ ■　■"#m
	"■　■ ■　■　■　■　■ ■　■　　　■　■ ■　■"#m
	"■■■ ■■■　　　■■■ ■■■　　　■■■ ■■■"#m
	&#68(60)#>"です"



;*** データ領域(一部バッファ) ***
;	0-94	文字データ
;	95-108	曜日文字列データ
;	109-118	描画位置データ(X座標)
;	119-128	表示中の文字の記憶バッファ
50:	p3+$,.
	"$(0,A,A,A,0)$
	 $(2,8,8,8,8)$
	 $(0,6,0,4,0)$
	 $(0,6,0,6,0)$
	 $(A,A,0,6,6)$
	 $(0,4,0,6,0)$
	 $(0,4,0,A,0)$
	 $(0,6,6,8,8)$
	 $(0,A,0,A,0)$
	 $(0,A,0,6,0)$
	 $(A,A,A,A,0)$
	 $(A,0,0,A,A)$
	 $(0,8,8,8,8)$
	 $(A,A,0,0,A)$
	 $(0,4,0,4,0)$
	 $(A,A,0,A,A)$
	 $(0,4,0,4,4)$
	 $(2,A,2,A,A)$
	 $(0,A,0,A,A)$
	 $(05,0A)$
	 $(0B,00)$
	 $(0C,0A)$
	 $(0D,0E)$
	 $(0C,0F)$
	 $(10,11)$
	 $(05,18)$
	 $(39,32,26,1F,13,0C)$
	 $(39,32,26,1F,13,0C)$
	 $(00,00,00,00,00,00)$
	 $(00,00,00,00,00)"

;*** 終了キースキャン ***
40:	&k(r)?fx+,

*
====== End of BIGCLOCK.DEF  ======
0123456789ABCDEF
■■■　　■　■

 0.■■■ 0
 1.■■　 2
 2.■　　 4
 3.　　■ 6
 4.　■　 8
 5.■　■ A
(6.　■■)
(7.　　　)

5      10      11     0       12     10      13     14    
■■■ ■　■  ■　■ ■■■  ■■■ ■　■  ■　■ ■■■
■　　 ■　■  ■■■ ■　■  　■　 ■　■  ■　■ ■　　
■■■ ■　■  ■■■ ■　■  　■　 ■　■  ■■■ ■■■
　　■ ■　■  ■　■ ■　■  　■　 ■　■  ■■■ ■　　
■■■ ■■■  ■　■ ■■■  　■　 ■■■  ■　■ ■■■

12     15      16     17      5      18    
■■■ ■　■  ■■■ ■■　  ■■■ ■■■
　■　 ■　■  ■　　 ■　■  ■　　 ■　■
　■　 ■■■  ■■■ ■■　  ■■■ ■■■
　■　 ■　■  ■　　 ■　■  　　■ ■　■
　■　 ■　■  ■　　 ■　■  ■■■ ■　■

0■■■ 1■■　 0■■■ 0■■■ 5■　■
5■　■ 4　■　 3　　■ 3　　■ 5■　■
5■　■ 4　■　 0■■■ 0■■■ 0■■■
5■　■ 4　■　 2■　　 3　　■ 3　　■
0■■■ 0■■■ 0■■■ 0■■■ 3　　■

0■■■ 0■■■ 0■■■ 0■■■ 0■■■
2■　　 2■　　 3　　■ 5■　■ 5■　■
0■■■ 0■■■ 3　　■ 0■■■ 0■■■
3　　■ 5■　■ 4　■　 5■　■ 3　　■
0■■■ 0■■■ 4　■　 0■■■ 0■■■
10      11      12      13      14     
5■　■ 5■　■ 0■■■ 5■　■ 0■■■
5■　■ 0■■■ 4　■　 5■　■ 2■　　
5■　■ 0■■■ 4　■　 0■■■ 0■■■
5■　■ 5■　■ 4　■　 0■■■ 2■　　
0■■■ 5■　■ 4　■　 5■　■ 0■■■

15      16      17      18     
5■　■ 0■■■ 1■■　 0■■■
5■　■ 2■　　 5■　■ 5■　■
0■■■ 0■■■ 1■■　 0■■■
5■　■ 2■　　 5■　■ 5■　■
5■　■ 2■　　 5■　■ 5■　■