1 <GGG>
 
 2 O;AAA;2;1;30;2;ESC; IR;S;H;29;         /* 書き込み用の表を作成      */
 
 3 NUM;M;C;1;H;0;1;1/14;        /* "#" の個数を漸増するための仕掛      */
 
 4 NUM;M;C;1;19;13;-1;          /* "#" の個数を漸減するための仕掛      */
 
 5 CAL; NC; 1*(10**C1)=C2;      /* 桁数を漸増、漸減した数字を作る      */

 6 DC;1;Y;                            /* 不要になった１列目を削除      */

 7 CPC;1;1;                            /* １列目をコピー               */

 8 CU;M;"0";"1";;Y;                   /* 文字 "0" を "1" に変えて      */

 9 CAL/Z; DF0; C2/10=C2;        /* ２列目の数字の桁数を１桁減らす      */
 
10 NF;J;A;                         /* １〜２列を結合                   */

11 CJ;D;A;1;                      /* 文字列間にあるスペースを削除      */
 
12 CU;M;"1";"# ";;Y;            /* 文字　"1" を "#" に変えて           */

13 CJ;P;C;;1;                 /* 文字をセンタリング                    */
 
14 FILL;SAMPLE;2;1;Y;      /* 表題を変更                               */

15 STOP;