ts var
te var
ts 1 clock =
"start !!" prints crlf
( x y z ). vars
( 3 2 3 ). xyz	ary.l ,
( 1 1 1 ). t1	ary.l ,
( 1 1 1 ). t2	ary.l ,
dt var ,
; 書き込み
0 2 for
	z i? =
	0 1 for
		y i? =
		0 2 for
			x i? =
			x 10 printn ',' printc
			y 10 printn ',' printc
			z 10 printn '=' printc
			dt x y 10 * + z 100 * + =
			( x y z ). xyz @ dt <-
			dt printn10 tab
		next
		crlf
	next
next
5 arydump
1 10 vardump
GETCH ,
; 読みだし
0 2 for
	z i? =
	0 1 for
		y i? =
		0 2 for
			x i? =
			x 10 printn ',' printc
			y 10 printn ',' printc
			z 10 printn '=' printc
			( x y z ). xyz @ -> 10 PRINTN tab
		next
		crlf
	next
next
;
x vlock
0 arydump
1 10 vardump
te 1 clock =
"time=" prints
te ts - printn10 crlf
sysdump
1 NSTKDUMP
1 LSTKDUMP
1 RSTKDUMP
