ADJR

【機能】

    文字列を右に詰める


【使用形式】

    CALL  ADJR(A,I,N,K)


【引数説明】

    ［INPUT］
        A   : ブランクを除いて右に詰める文字列
        I   : Aの左端                         
        N   : Aの右端（一番左端を、1として数える）
 
    ［OUTPUT］                      
    K   : ブランク以外の文字列の長さ


【機能説明】

    ・ブランクを除き文字列を右に詰める。

     （例）
         SCALL ADJR(A, 1, 8, K)

         文字列A : |1|2|3|4|5| | | |   →   | | | |1|2|3|4|5|
         　　　    +-+-+-+-+-+-+-+-+        +-+-+-+-+-+-+-+-+
                                                   K=5