;
;	ver2.61以降用
;	組み込みキーワードを新規命令で置き換える例
;	mes命令をサブルーチンによる表示に置き換えます。
;	(サブルーチンからは本来のmes命令を呼び出しています。)
;
#undef mes

#module
#deffunc mes str
mref _p1,32
_y=csry
color 0,0,0
pos csrx+1,_y+1
mes@hsp _p1
color 0,192,255
pos csrx,_y
mes@hsp _p1
return
#global

mes "mes命令を影文字にしてみました。"
mes "ただし、サンプルですので制約があります。"
mes "(文字数は255文字まで、色は水色になっています。)"

stop