; stkfnceテスト
	v1 VAR 10 5 + =
	v2 VAR 10 5 - =
	v3 VAR 10 5 * =
	v4 VAR 10 5 / =

	"v1=10+5=" PRINTS v1 PRINTN10 CRLF
	"v2=10-5=" PRINTS v2 PRINTN10 CRLF
	"v3=10*5=" PRINTS v3 PRINTN10 CRLF
	"v4=10/5=" PRINTS v4 PRINTN10 CRLF
;
	"10\\5=" PRINTS 10 5 \ PRINTN10 CRLF
	"10\\3=" PRINTS 10 3 \ PRINTN10 CRLF

	"%1101 & %1011=" PRINTS %1101 %1011 & 102 PRINTN CRLF	;%1001
	"%1101 | %1011=" PRINTS %1101 %1011 | 102 PRINTN CRLF	;%1111
	"%1101 ^ %1011=" PRINTS %1101 %1011 ^ 102 PRINTN CRLF	;%0110

	"1<<2="  PRINTS 1 2  << PRINTN10 CRLF ; 1<<2=4となる
	"16>>3=" PRINTS 16 3 >>	PRINTN10 CRLF ;	16>>3=1となる

	"$01 >>> 1=" PRINTS $01 1 >>> 116 PRINTN CRLF ; $8000_0000
	"$8000_0000 <<< 2=" PRINTS $8000_0000 2 <<< 116 PRINTN CRLF ; $02

	"v1++ =" PRINTS v1 . ++ =. PRINTN10 CRLF
	"v2-- =" PRINTS v2 . -- =. PRINTN10 CRLF
	"-v3  =" PRINTS v3 . MINUS =. PRINTN10 CRLF
	"ABS(-v3)=" PRINTS v3 . ABS =. PRINTN10 CRLF
;
	GETCH $1b == IF. END
;
	"!1=" PRINTS 1 ! PRINTN10 CRLF
	"!0=" PRINTS 0 ! PRINTN10 CRLF

	0 31 FOR
		"BIT" PRINTS I? . PRINTN10 TAB BIT 116 PRINTN
		TAB TAB
		"BIT" PRINTS I? ++ . PRINTN10 TAB BIT 116 PRINTN
		CRLF
		I? ++ I?=
	NEXT
;
	GETCH $1b == IF. END
;
	"$1234_5678 LOW.B LOW.W = " PRINTS
	$1234_5678
	. LOW.B 116 PRINTN TAB
	  LOW.W 116 PRINTN
	CRLF

	"~%11110000_11110000_11110000_11110000 = " PRINTS
	%11110000_11110000_11110000_11110000 ~
	102 PRINTN CRLF
;
	GETCH $1b == IF. END
;
	1 3 FOR
		v1 10 RND =. PRINTN10 '.' PRINTC
		v2 10 RND =. PRINTN10 CRLF
		v1 v2 == "\t==" PRINTS PRINTN10 CRLF
		v1 v2 != "\t!=" PRINTS PRINTN10 CRLF
		v1 v2 >  "\t> " PRINTS PRINTN10 CRLF
		v1 v2 <  "\t< " PRINTS PRINTN10 CRLF
		v1 v2 >= "\t>=" PRINTS PRINTN10 CRLF
		v1 v2 <= "\t<=" PRINTS PRINTN10 CRLF
		"\tv1:1〜5=" PRINTS v1 1 > v1 5 < && PRINTN10 CRLF
		"\tv1<1,>5=" PRINTS v1 1 < v1 5 > || PRINTN10 CRLF
		GETCH ,
	NEXT
