TACK Local Links：ナンバーの再定義操作 その２

普通はいくつかの命令をまとめてモジュール化するのですが
漸進的なブログ形式での開発ということで
モジュールが細切れです

さて、ナンバーの再定義モジュールです
ファイル名："write_number.hsp"

#module m_write_number #deffunc def_write_number int p m=p;*1 if m>999:m=999 repeat m n=cnt+1 if n<10{s="00"+str(n)};*2 else{ if n<100{s="0"+str(n)};*3 else{s=str(n)} } noteadd ("NO."+s),(cnt*10),1;*4 loop return #global

*1:数値型引数に代入をすると怒られるので変数に代入しています
*2:1桁の数字の桁数を3桁に揃える
*3:2桁の数字の桁数を3桁に揃える
*4:上書きモードでテキストデータに書き込み

末尾データの復元操作の作成が先だったかな？