* M 
20 ^\ ""
        ?. &s 
        &02 r=m..0,               ;r: メニュー部分のサイズ
        e=m+r+1,                  ;e: メニュー部分の最終アドレス
        Sn[,Sn+, #R &?("%s%s.def",pi,uu) #m Sn], ;defファイルオープン
       (s)?{'n' #[ &d &m("%s.def not found",uu).}
        #< g="\* H", &01 (r)?>Z #x #b
        Dn[, Dn-, c=ln, g="\*", &01
        c=ln-c, Dn], (r)?>Z            ;行数算出
        Ex[, Ex-, #k Ex], #C &00 &d 
        (r)?&m("menu buffer over flow")?!01
:Z      #? 
 
0:      ;メニューバッファセット
        dz=kz, p=kp-2, q=p..0, p-=q+1,  ;テキストスタック
        dz=cz, m.3=c-1, y=m+6,
        (c){y..0-, y+=2,}               ;文字種部分のセット
        ax=kz, si=p, di=y, cx=q, bx=e, 
        ;文字列コピーサブルーチン：返り値 r==1 : menu buffer over flow
        &i("$(8e,d8,32,d2,ad,3d,0d,0a,75,06,32,c0,32,d2,eb,07,4e,3c,09,75)$
        $(02,b2,01,0a,d2,75,09,aa,3b,df,73,03,f9,eb,03,f8,e2,de,c3)")
        r[, &#51(p) (r])
 
1:      ;* Help部検索ルーチン
        mp[, ps[, ps=pa, #F &?("\n%s*",g) #m ps], 
        #c mp], (r<0)?{#C &d &m("help %s not found",g) (1).} (0)
 
2:      m=3+$,                          ;メニューの先頭アドレス
 
* p
1       "test",10,1,,-1
        "■■■■■■■■■□■■■■■■■■■□■■■■■■■■■□$
         ■■■■■■■■■□■■■■■■■■■□■■■■■■■■■□$
         ■■■■■■■■■□■■■■■■■■■□■■■■■■■■■□$
         ■■■■■■■■■□■■■■■■■■■□■■■■■■■■■□$
         ■■■■■■■■■□"
 
*
