; stkfncaテスト
	( 100 ). ar1 ARY.B ,
	( 5 5 ). ar2 ARY.W ,
	( 5 5 5 ). ar3 ARY.L ,
	100 work STRING ,
	"s\0tr" str STRINGS ,
	10 ARYDUMP
	CRLF

	"0123456" str2 STRINGS ,
	str2 PRINTS " -> " PRINTS
	( 5 ). str2 @ PRINTS CRLF  ; "56"
	str2 PRINTS CRLF
	CRLF

	"arの内容が「1ABC」となる\n" PRINTS
	"1000" ar STRINGS ,
	ar PRINTS " -> " PRINTS
	( 1 ). ar @ . 'A' <-
	@++ . 'B' <-
	@++   'C' <-
	ar PRINTS CRLF

	"ar0の内容が「1AC0B」となる\n" PRINTS
	"10000" ar0 STRINGS ,
	ar0 PRINTS " -> " PRINTS
	( 1 ). ar0 @ . 'A' <- ar0 PRINTS CRLF
	3 @+ . 'B' <-         ar0 PRINTS CRLF
	2 @-   'C' <-
	ar0 PRINTS CRLF
	CRLF

	"ARY.W : $fe 254\n" PRINTS
	( 3 3 ). ar2 @ $fe <-
	"\t符号なし " PRINTS ( 3 3 ). ar2 @ ->  . 116 PRINTN SPC PRINTN10 CRLF
	"\t符号あり " PRINTS ( 3 3 ). ar2 @ ->. . 116 PRINTN SPC PRINTN10 CRLF
	"ARY.W : $fffe 65534\n" PRINTS
	( 3 3 ). ar2 @ $fffe <-
	"\t符号なし " PRINTS ( 3 3 ). ar2 @ ->  . 116 PRINTN SPC PRINTN10 CRLF
	"\t符号あり " PRINTS ( 3 3 ). ar2 @ ->. . 116 PRINTN SPC PRINTN10 CRLF
	CRLF

	"ARY.B : $e 14\n" PRINTS
	( 3 ). ar1 @ $e <-
	"\t符号なし " PRINTS ( 3 ). ar1 @ ->  . 116 PRINTN SPC PRINTN10 CRLF
	"\t符号あり " PRINTS ( 3 ). ar1 @ ->. . 116 PRINTN SPC PRINTN10 CRLF
	"ARY.B : $fe 254\n" PRINTS
	( 3 ). ar1 @ $fe <-
	"\t符号なし " PRINTS ( 3 ). ar1 @ ->  . 116 PRINTN SPC PRINTN10 CRLF
	"\t符号あり " PRINTS ( 3 ). ar1 @ ->. . 116 PRINTN SPC PRINTN10 CRLF
