/*ご参考(蛇足な別アプローチ)*/
 #include "../hsphelp/src/hhx_db.hsp"              ; hsp3.1から入手する
   chdir dir_exe+"/hsphelp"
       HHX_init_load_db                            ;.hs追加変更チェック
   if (HHX_currentset_sum() != HHX_diskset_sum()) {HHX_init_rebuild_db DBR_READONLY} else {HHX_init_extract_db}
           dd = ""
           ss = "プリプロセッサ命令","システム変数","マクロ"
   repeat        HHX_select_all()
           ii =  HHX_get_next()
           nn =  hhxdata(ii,C_NAME)
           gg =  hhxdata(ii,C_GROUP)
           pp =  hhxdata(ii,C_PRM)
           jj = ""
           repeat (22-strlen(nn)) :jj+= " " :await :loop
           tt =  nn+jj+hhxdata(ii,C_SUMMARY)+"\n"
;          tt =  nn+"\n"
           if (instr(gg,0,ss   ) >=   0) {dd+= tt} ;プリプロセッサ
      else:if (instr(gg,0,ss(1)) >=   0) {dd+= tt} ;システム変数
      else:if (instr(gg,0,ss(2)) >=   0) {dd+= tt} ;マクロ
      else:if (      pp          ==  "") {dd+= tt} ;命令型(引数無)
      else:if (peek( pp )        == '(') {dd+= tt} ;関数型
      else                               {dd+= tt} ;命令型}
   loop
   font msmincho,13 :objmode 2
   mesbox dd,640,480