UTF-8
// Sample01: Ex:InputFormコマンドのサンプル
// 
// input[0] (最初のパラメータ) 表示する画像のフルパス
// input[1] (次のパラメータ)   ダイアログに表示するメッセージ

:Start {
 //log open: dir=Dir.Desktop file="debugMacro.txt";
 //debug: true;
 
 // strl[11] にワークファイルのパスを指定
 strl[11]=Dir.Desktop;  strl[11]+="\\てすと.txt";
 file delete: file=strl[11];
 
 Ex:InputForm: picture=input[0] inp1="画像表示" inp1.value=";;1;;10;;100" outfile=strl[11] message=input[1];
 
 Ex:InputForm.Wait: waitSec=30 outfile=strl[11] O:result=strl["rslt"];
 if (strl["rslt"].StartsWith{"OK:"} == "false") {
   put: value="キャンセルまたはエラーです。\r\n" strl["rslt"];
   end:
   }
 put: value="Ex:InputFormコマンド終了. \r\n設定結果は " str["1.value"] " です。";
 end:
 }