; stkfnciテスト
	( a b ). VARS
	a 3 RND =
	b 3 RND =
	"a,b=" PRINTS a PRINTN10 ',' PRINTC b PRINTN10 CRLF
	
	a b == IF		; a==bなら
		Sub1.
	ELSE			; a!=bなら
		Sub2.
	ENDIF
	
	a b != ELIF		; a!=bでない(a==b)なら
		Sub1.
	ELSE			; a!=bなら
		Sub2.
	ENDIF
	
	CHKBRK ; CTRL-C check
;
	a b == IF. Sub1.
	a b == EL. Sub2.
;
	L1 GOTO
	"\aここには来ない\n" PRINTS
L1:
	LNULL GOTO ; 何もしない
	"LNULLの次です\n" PRINTS
;
	; 手作りループ（普通はこのようなループを作ってはいけません）
	i VAR 0 =
	lt VAR LTOP =
	LNEXT
	i ELIF
		CHKBRK ; CTRL-C check
		i PRINTN10 SPC ":LNEXTの次です\n" PRINTS
		i . ++ =
		GOTO ; LNEXTの次へ飛ぶ
	ENDIF
	; LTOPがずれるので補正
	lt LTOP=
	1 LSTKDUMP
1 END.
;
Sub1:
	"a==b\n" PRINTS
	RETURN

Sub2:
	"a!=b\n" PRINTS
	RETURN
