XPSE

 {$iqt}

nproc A

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

endproc

cls
print A()
waitinput

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

}