XPSE

 {$iqt}

nproc A

    var text$ = "Oho"
    text$ = MkLenR(text$,"!",6)'ohne diese Zeile klappt's.
    return text$

endproc

cls
print A()
waitinput
end

nProc mkLenL(string s,f,long l){

    long c=len(s)
    caseNot c<l : return s
    return mkStr(f,c-l)+s// <-- c-l, haha

}

nProc mkl(string s,f,long l){

    long c=len(s)
    caseNot c<l : return s
    return mkStr(f,l-c)+s

}

nProc mkr(string s,f,long l){

    long c=len(s)
    caseNot c<l : return s
    return s+mkStr$(f,l-c)

}