;--------------------------------------
;	nr_mes "strings",p1,p2		[メッセージ表示]
;
;	p1=1〜99(12)：フォントの大きさ
;	p2=0,1：０＝ＭＳゴシック　１＝ＭＳ明朝
;--------------------------------------
#module
#deffunc nr_mes str,int,int
	mref hyouji,32
	mref f_size,1
	mref f,2
	strlen mojisuu,hyouji
	y1=csry
	if f=0 : font "ＭＳ ゴシック",f_size
	if f=1 : font "ＭＳ 明朝",f_size
	mes hyouji
	y2=csry-y1
	a=y2*mojisuu/2
	if style=1 : a=y2/5+a
	pos a,y1
	return
#global

;--------------------------------------
;	ここから、サンプルプログラム
;	実際に使うときは削除してください
;--------------------------------------

nr_mes "改行されない",40,1
mes "はずです。"
pos 0,
mes "改行されないはずです。"
stop