#include "ARMCFunctions.h"
#define NULL (void *) 0

void ltrim(char* string, char* b_char) {
// Note: doesn't work for string literals
// eg ltrim("   test"," ")
unsigned char len = (unsigned char)*string;
unsigned char i;
unsigned char spaces = 0;
char* stemp = string;// Save string pointer
char bc = ' ';       // blank char = ' '

if (string == NULL)  // no args = nothing to do
return;

if (b_char != NULL ) // no blank char arg? Then use default
 bc = b_char[1];

// Search first non-space character
while (spaces < len && *++stemp == bc) {
++spaces;
}
len    -= spaces;    // Remaining string length = len - spaces
*string = (char)len; // Store BASIC (trimmed) string length
for (i=0;i++ <len;) {// Copy the rest of the string
string[i] = string[i+spaces];
}
return;
}

#include "ARMCFunctions.h"
#define NULL (void *) 0

void rtrim(char* string, char* b_char) {
unsigned char len = (unsigned char)*string;
unsigned char spaces = 0;
char* stemp = string;// copy string pointer
char bc = ' ';       // default blank char = ' '

if (string == NULL)  // no args = nothing to do
return;

if (b_char != NULL ) // no blank char arg? use default
 bc = b_char[1];

stemp = stemp+len; // point to the end of the string
// Find the first non-space at the end of the string
while (spaces <= len && *stemp-- == bc) {
   ++spaces;
}
len -= spaces; // Remaining string length = len - spaces
*string = (char)len; // Store BASIC (trimmed) string length
return;
}

Function LTRIM(s$) as STRING
cLtrim(S$)
LTRIM=S$
End Function

a$=LTRIM("   Hello World")
? ">"a$"<"

>Hello World<