$copyright = "copyright (C) 1999 東芝コミュニケーションテクノロジ株式会社"; $name = "IKUYAMA"; // ファイル作成者名 #col = 75; // 一行の文字数 while(basename == ""){ // ファイル名が指定されていないなら message "ファイル名が指定されていません。名前を付けて保存してください。"; save; // 保存ダイアログを開く } gofiletop; // ファイルの先頭へ golinetop; // 行頭へ insert "/"; // '/'挿入 call iast #col-1; // '*'の挿入 insert "\n"; insert "\t" + $copyright; // copyrightの挿入 call itab #col-2; // タブを入れて insert "*/\n"; // コメントの終了 insert "/*\tファイル名:" + basename + "\n"; // ファイル名の挿入 insert "\t所属名:\n"; insert "\t副題名:\n"; insert "\t修正履歴:\n"; insert "\t\t" + date + "[" + $name + "]\t#000#\tInitial version\n"; call iast #col-2; insert "/\n"; up 5; // カーソルを5行上に golineend; // 行末に移動 endmacro; // おしまい iast: while(x < ##1){ insert "*"; } return; itab: while(x < ##1-1){ insert "\t"; } return;