*一太郎 差し込みファイル作成プログラム Copyright(c) 1998
KoujiHabata
変数宣言 固有,数値{&項目位置,&判断,&作成数,&項目作成[#項目数]}
変数宣言 固有,文字列{&CMD,&ファイル名}
ファイル名入力 初期値="*.txt",プロンプト="作成する差し込みファイルのファイル名を入力して下さい",&ファイル名
&項目位置=1
&作成数=0
繰り返し (&項目位置=<#項目数)
確認 "["+#項目属性(&項目位置,1)+"]を書き出しますか?",&判断
条件 (&判断=1) &項目作成[&項目位置]=&判断
条件 (&判断=1) &作成数=&作成数+1
&項目位置=&項目位置+1
繰り返し終了
確認 "項目数="+#文字列(&作成数)+" "+&ファイル名+"を作成します",&判断
条件 (&判断=0) 終了
ジャンプ 行番号=先頭
印字開始 &ファイル名
繰り返し (.NOT #終端行)
&項目位置=1
繰り返し (&項目位置=<#項目数)
条件 (&項目作成[&項目位置]=1) コマンド "印字 ["+#項目属性(&項目位置,1)+"]"
&項目位置=&項目位置+1
繰り返し終了
ジャンプ 行番号=+1
繰り返し終了
印字終了
確認 "終了しました"
終了
|