============= c-t-f2   =================================
$$c //連結財務データセクション
$f        // 処理対象企業フラグコマンド
<g>==..(7103)41401,41402    //★業種が大手建設と中堅建設にフラグg
$n        // 企業名コマンド
lst,<g>             // フラグｇの企業のリスト出力
$p        // 原数値プリントコマンド
....  【新項番3001】  売上高・営業収益
....  【新項番3002】  売上原価・営業原価
....  【新項番2144】  負債・少数株主持分・資本合計、単独：負債・資本合計
....  【新項番3006】  営業利益
....  【新項番3008】  受取利息・割引料・有価証券利息
....  【新項番3009】  受取配当金
....  【新項番3016】  支払利息・割引料
....  【新項番3058】  当期利益
....  【新項番5056】  従業員数（単位：人）
....  【新項番1026】  連結子会社数（単位：社）
<g>,3001,3002,2144,3006,3008,3009,3016,3058,5056,1026 // 項番指示
                   // 追加プリント（30社ごとにブランク行を追加挿入）
$r    // 期間限定コマンド
8504,0103          //★1985年４月から2001年３月
$t    // 時系列作成コマンド
&fl,3001,<g>,sales                       // 連結売上高
&fl,3002,<g>,cost of goods sold          // 連結売上原価
&st,2144,<g>,total liability & net worth // 連結総資本
$l // 入力変量名リストコマンド
=============== 変量分析セクション
$$v
$a    // 変量記号割当コマンド
x,sales
y,cost of goods sold
z,total liability & net worth
$t    // 変数変換コマンド
x=&.a(x)1,4   // 月次を年度（４月始点〜翌年３月）に1年間の平均をとって編集
y=&.a(y)1,4   //       「1,4」                          「&.a」
z=&.a(z)1,4
r=(y/x*100)         // 連結売上高原価率
u=(x/z)             // 連結総資本回転率
 =pr*(r,u)    // 数値プリント
P=:ci(x)            // 個体（年度）識別文字系列
=========== グラフセクション
$$g       
$d        // 表示範囲コマンド
all           // 全期間
$p        // プロットコマンド
r             // 連結売上高原価率ｒ
u             // 連結総資本回転率u
r,u           // 連結売上高原価率ｒ，別スケールで連結総資本回転率u
$c       // 散布図コマンド
r,u,*,P    // 縦軸ｒ変量，横軸ｕ変量，回帰線表示＊，個体識別P
==================== 終了セクション
$$