//---------------------------------------------------------------------------
//  TOLOWER     :   半角英大文字を小文字に変換するルーチン
//      [Usage] :
//          call TOLOWER $$in_str;
//          $$out_str = $$return;
//
//          $$in_str    :   変換する文字列
//          $$out_str   :   変換後の文字列
//
TOLOWER:
    $$r = "";
    ##s = strlen( $$1 );
    while( ##s > 0 ){
        ##s = ##s - 1;
        ##c = ascii( midstr( $$1, ##s, 1 ) );
        if( ##c > 64 && ##c < 91 ) ##c = ##c + 32;
        $$r = char( ##c ) + $$r;
    }
    return $$r;
//---------------------------------------------------------------------------