'
'Remove leading Spaces from string
'
Function LTrim$(X$)
Local I,Z$ Length Len(X$)

'Make copy of caller's string so that we don't damage it
Z$=X$

For I=1 To Len(Z$)

'Find first NON-Space character
If Mid$(Z$,I,1)<>" " Then
Z$=Mid$(Z$,I)
Exit For
EndIf

Next I

LTrim$=Z$

End Function


'
' Remove trailing Spaces from string
' Peters rTrim, modified by twofingers
'
Function RTrim$(X$)
Local I

For I=Len(X$) To 1 Step -1
'Find first NON-Space character
If Mid$(X$,I,1)<>" " Then
Exit For ' be careful with Exit For
EndIf
Next I

RTrim$=Mid$(X$,1,I)

End Function


'
'Remove spaces from LHS and RHS of string
'
Function Trim$(X$)
Local Y$ length Len(X$)

'MMBasic doesn't like Trim$=RTrim$(LTrim$(X$))

Y$=LTrim$(X$)
Trim$=RTrim$(Y$)

End Function