; stkfncbテスト
	80 mes STRING ,
; CTRL-Cトラップテスト
brk1 ONBREAK
	"CTRL-Cで止めてください\n" PRINTS
	i VAR 0 =
	WHILE
		i . ++ =
	WEND
L2:
	"i=" PRINTS i PRINTN10 CRLF
LNULL ONBREAK ; トラップ解除
;
; エラーテスト
err1 ONERROR
	"resume next\n" PRINTS
	'1' PRINTS ; エラーが起こる -> err1へ飛ぶ
	'１' PRINTC CRLF
err2 ONERROR
	"resume this\n" PRINTS
	'2' PRINTS ; エラーが起こる -> err2へ飛ぶ
	'２' PRINTC CRLF
err3 ONERROR
	'3' PRINTS ; エラーが起こる -> err3へ飛ぶ
L1:
	'３' PRINTC CRLF
LNULL ONERROR ; トラップ解除
	1 ERROR ; エラーが起こる -> 止まる
END
;
brk1:
	L2 BRESUME ; resume label
;
;
ErSub:
	"errno=" PRINTS ERRNO PRINTN10 SPC
	mes . ERRNO ERRMES PRINTS CRLF
	RETURN
;
err1:
	ErSub.
	LNEXT ERESUME ; resume next
;
err2:
	ErSub.
	"2"
	LNULL ERESUME ; resume this
;
err3:
	ErSub.
	L1 ERESUME ; resume label
