chop実装

※define部
numalias chop_str,（適当な数字）
numalias chop_len,（適当な数字）
defsub *chop
※実装部
 *chop
getparam s%chop_str
len %chop_len,$%chop_str
dec %chop_len
mid $%chop_str,$%chop_str,0,%chop_len
return

使い方は簡単。chopしたい文字列を引数に与えればいい。
numaliasを使っている場合は、chop $numaliasと記述すればいい。……まあ、こんなちまちましたものを記録するのも何だけどな。orz