VAR
    sTo             :    STRING(300) := 'Hello ';
    psTo            :    POINTER TO BYTE := ADR(sTo);
    sFrom           :    STRING(7) := 'World';
    psFrom          :    POINTER TO BYTE := ADR(sFrom);
    xResult         :    BOOL;
    xConcat         :    BOOL;
    diLen           :    DINT;
    diCopied        :    DINT;
    sCopied         :    STRING(300);
    iFind           :    INT;
    sMid            :    STRING;
    uiMid           :    UINT;
 
                     
    sUpperText      :    STRING := 'This Text will be converted';
    pstUpper        :    POINTER TO BYTE := ADR(sUpperText);
    xUpper          :    BOOL;
    xLower          :    BOOL;
                     
    sCmp1           :    STRING := 'Hello';
    sCmp2           :    STRING := 'HEllo';
    xCaseCmp        :    BOOL;
    xCaseCmpEnd     :    BOOL;
    xCaseCmpStart   :    BOOL;
    iResult         :    INT;
    xCmpEnd         :    BOOL;
    xCmpStart       :    BOOL;
 
    sDelete         :    STRING := '2 characters will delete';
    xDelete         :    BOOL;
     
    sTrim           :    STRING;
    xTrim           :    BOOL;
    xTrimEnd        :    BOOL;
    xTrimStart      :    BOOL;
     
    sOldReplace     :    STRING(50) := 'Hello World';
    sReplace        :    STRING := ', good morning CODESYS-';
 &nbs