//---------------------------------------------------------------------------
//  TOHANKAKU   :   全角記号、英数字、ひらがな、カタカナを半角に変換する。
//      [Usage] :
//          call TOHANKAKU $$in_str;
//          $$out_str = $$return;
//
//          $$in_str    :   変換する文字列
//          $$out_str   :   変換後の文字列
//
TOHANKAKU:
    ##hwnd = hidemaruhandle(0);
    openfile "/h tmp.$$$";
    ##s_hwnd = hidemaruhandle(0);

    insert $$1;
    selectall;
    tohankaku;
    gofileend;
    $$1 = gettext(0,0,x,y);
    setactivehidemaru ##hwnd;
    closehidemaruforced ##s_hwnd;

    return $$1;
//---------------------------------------------------------------------------