7 LAD GR5,PBUF ; 出力バッファのポインタ
8 LOOP1 ST GR2,COUNTR,GR4 ; カウンタ領域を初期化
9 ST GR3,0,GR5 ; 出力バッファを空白で初期化
12 LAD GR5,3,GR5 ; 出力バッファのポインタを更新
13 LAD GR4,1,GR4 ; ループカウンタを更新
16 ; 項目ごとに "はい" と答えた人数を集計
17 LD GR5,=0 ; GR5: "はい" の人数の最大値
18 LOOP2 LD GR4,=0 ; カウンタ領域のポインタ
19 LD GR2,0,GR1 ; GR2 ←1人分の回答
20 LOOP3 SLL GR2,1 ; 回答は "はい" ?
22 JZE NEXTW ; 残りの項目はすべて "いいえ"
24 ON LD GR3,COUNTR,GR4 ; カウンタに1を加算
30 CHANGE LD GR5,GR3 ; 最大値を入替え
31 OFF LAD GR4,1,GR4 ; 次の項目
40 LOOP4 LD GR3,=1 ; 出力バッファのポインタ
41 LD GR4,=0 ; カウンタ領域のポインタ
42 LOOP5 CPA GR5,COUNTR,GR4 ; "はい" の人数と比較
44 ST GR0,PBUF,GR3 ; 出力バッファに "*" を設定
45 NOTSET LAD GR3,3,GR3 ; 出力バッファのポインタを更新
46 LAD GR4,1,GR4 ; カウンタ領域のポインタを更新
58 FOOTER DC '01 02 03 04 05 06 07 08 09 10 11 12 13 '