============= c-r-f1    ================
$$c // 連結財務データセクション
$f        // 処理対象企業フラグコマンド
<j>==..(7103)17163    //★業種が鉄鋼業の特殊鋼にフラグｊ
<h>==..(7015)11      // 上場場部．東証１部　11
<g>=:*.(j,h)         // 特殊鋼で，かつ東証１部上場の企業にフラグｇ
$n        // 企業名コマンド
lst,<g>             // フラグｇの企業のリスト出力
$p        // 原数値プリントコマンド
....  【新項番3001】  売上高・営業収益
....  【新項番3006】  営業利益
....  【新項番3008】  受取利息・割引料・有価証券利息
....  【新項番3009】  受取配当金
....  【新項番3016】  支払利息・割引料
....  【新項番3058】  当期利益
....  【新項番5056】  従業員数（単位：人）
....  【新項番1026】  連結子会社数（単位：社）
<g>,3001,3006,3008,3009,3016,3058,5056,1026
$r        // 期間限定コマンド
1985.04,2003.03   //★1985年４月から2003年３月  新期間指定（西暦年４桁表記）
$t        // 時系列作成コマンド     (パラメータ4カラム*は欠測値ゼロ認定)
&fl,3001,<g>,sales             // 連結売上高
&fl*3008,<g>,interest income   // 連結受取利息・割引料
&fl*3009,<g>,dividends income  // 連結受取配当金
&fl*3016,<g>,interest cost     // 連結支払利息・割引料
==============  変量分析セクション
$$v
$a      //変量記号割当コマンド
s,sales
r,interest income
d,dividends income
i,interest cost
$t     //変数変換コマンド
s=&.a(s)4,1  // 年率月次を３ヶ月毎の平均をとって四半期に１月始点で編集
r=&.a(r)4,1  //                 「&.a」           「4,1」
d=&.a(d)4,1
i=&.a(i)4,1
x=(i-r-d)/s*100    // 連結売上高純金利負担率
 =pr*(s,r,d,i,x)   // 数値プリント
a=<.a(x)           // 移動平均
b=<.d(x)           // 移動勾配
P=:ci(x)           // 散布点識別文字変量
============== グラフセクション
$$g
$d    // 表示範囲指示コマンド
all         // 全範囲
$p    // プロットコマンド
xa,b        // 連結売上高純金利負担率ｘ，その移動平均ａ，移動勾配ｂ
$c    // 散布（相関）図コマンド
b,a, ,P     // 縦軸ｂ，横軸ａ，回帰線なし△，印字変量Ｐ（１次元位相図）
============== 終了セクション
$$